module Tree_adv:sig
..end
type 'a
t =
| |
Node of |
(* |
The type of polymorphic trees
| *) |
module Place:
val gen_draw_arrows : 'c ->
style:(Point.t -> Point.t -> 'c) ->
corner:(Box.position -> 'a -> Point.t) ->
'a t -> 'c t
val draw : ('a -> Box.t) -> 'a t -> Command.t
val map : ('a -> 'b) -> 'a t -> 'b t
val map2 : ('a -> 'b -> 'c) ->
'a t -> 'b t -> 'c t
map2 f
takes two trees of identical structure and applies the function
f
to every pair of nodes. Raise Invalid_argument
if the trees do not
have the same structure.val combine : 'a t -> 'b t -> ('a * 'b) t
Invalid_argument
if the trees do not have the same structure.val split : ('a * 'b) t -> 'a t * 'b t
val root_map : ('a option -> 'a -> 'b) -> 'a t -> 'b t
root_map f t
calls f (Some father) node
for each node of t
and its
father. It calls f None root
, where root
is the root of the once, once
at the beginning. A tree having the same structure is built with the
results.val map_children : ('a -> 'a list -> 'b) -> 'a t -> 'b t
map_children f t
calls f node children
for each node of t
and its
children. A tree having the same structure is built with the resultsval fold : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a
val filter : ('a -> bool) -> 'a t -> 'a t
val filter_option : ('a -> 'b option) -> 'a t -> 'b t
val wrap_corner_box : ('a -> Box.t) ->
(corner:(Box.position -> 'a -> Point.t) -> 'c) -> 'c
wrap_corner_box give_box f
returns f
where its argument corner has
been setmodule Overlays:sig
..end
module Overlays_Boxlike: