2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
12 val raise_error: RolesTypes.error -> 'a
14 val list_apply: (int -> 'a -> bool) -> ('a -> unit) -> int -> 'a list -> bool
16 val list_nth: ('a -> unit) -> int -> 'a list -> unit
18 val list_split: ('a -> bool) -> ('a -> unit) -> 'a list -> 'a list * 'a list
21 (string -> string -> unit) -> RolesTypes.each ->
22 (RolesTypes.pointer -> 'a -> unit) -> (unit -> unit) ->
23 ('a -> bool) -> ('a -> string) -> ('a -> string) -> RolesTypes.pointer -> 'a list -> unit
25 val string_of_stage: RolesTypes.stage -> string
27 val stage_of_string: string -> RolesTypes.stage
29 val stage_compare: RolesTypes.stage -> RolesTypes.stage -> int
31 val string_of_nobj: RolesTypes.nobj -> string
33 val nobj_of_string: string -> RolesTypes.nobj
35 val key_of_nobj: RolesTypes.nobj -> string
37 val nobj_selected: RolesTypes.nobj -> bool
39 val nobj_select: RolesTypes.nobj -> unit
41 val nobj_union: RolesTypes.nobjs -> RolesTypes.nobjs -> RolesTypes.nobjs
43 val string_of_oobj: RolesTypes.oobj -> string
45 val oobj_of_string: string -> RolesTypes.oobj
47 val key_of_oobj: RolesTypes.oobj -> string
49 val oobj_selected: RolesTypes.oobj -> bool
51 val oobj_select: RolesTypes.oobj -> unit
53 val oobj_union: RolesTypes.oobjs -> RolesTypes.oobjs -> RolesTypes.oobjs
55 val oobj_of_nobj: RolesTypes.stage -> RolesTypes.nobj -> RolesTypes.oobj
57 val oobj_match: int -> int -> RolesTypes.oobjs -> RolesTypes.nobjs -> (int * int) option
59 val string_of_robj: RolesTypes.robj -> string
61 val key_of_robj: RolesTypes.robj -> string
63 val robj_selected: RolesTypes.robj -> bool
65 val robj_select: RolesTypes.robj -> unit
67 val robj_expand: RolesTypes.robj -> unit
69 val robj_union: RolesTypes.robjs -> RolesTypes.robjs -> RolesTypes.robjs
71 val robj_tops: RolesTypes.stage -> RolesTypes.robjs -> RolesTypes.oobjs * RolesTypes.oobjs
74 RolesTypes.stage -> RolesTypes.robjs ->
75 RolesTypes.robjs * RolesTypes.oobjs * RolesTypes.nobjs
77 val new_status: RolesTypes.status
79 val string_of_pointer: RolesTypes.pointer -> string
81 val pointer_of_string: string -> RolesTypes.pointer
83 val pointer_visit: (RolesTypes.stage -> unit) -> RolesTypes.stage -> RolesTypes.pointer -> unit
85 val string_of_error: RolesTypes.error -> string