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_nth: int -> ('a * 'b) list -> 'b
16 val list_select: int -> (bool * 'b) list -> (bool * 'b) list
18 val list_select_all: (bool * 'b) list -> (bool * 'b) list
20 val list_split: (bool * 'b) list -> (bool * 'b) list * (bool * 'b) list
22 val list_find_selected: 'b option -> (bool * 'b) list -> 'b option
25 (string -> string -> unit) -> (string -> bool -> string -> unit) ->
26 (RolesTypes.pointer -> 'a -> unit) -> (unit -> unit) ->
27 ('a -> string) -> RolesTypes.pointer -> (bool * 'a) list -> unit
29 val string_of_version: RolesTypes.version -> string
31 val version_of_string: string -> RolesTypes.version
33 val compare_versions: RolesTypes.version -> RolesTypes.version -> int
35 val string_of_name: RolesTypes.name -> string
37 val name_of_string: string -> RolesTypes.name
39 val names_union: RolesTypes.names -> RolesTypes.names -> RolesTypes.names
41 val match_names: int -> int -> RolesTypes.objs -> RolesTypes.names -> (int * int) option
43 val string_of_obj: RolesTypes.obj -> string
45 val obj_of_string: string -> RolesTypes.obj
47 val objs_union: RolesTypes.objs -> RolesTypes.objs -> RolesTypes.objs
49 val get_tops: RolesTypes.version -> RolesTypes.roles -> RolesTypes.objs * RolesTypes.objs
51 val string_of_role: RolesTypes.role -> string
53 val roles_union: RolesTypes.roles -> RolesTypes.roles -> RolesTypes.roles
55 val roles_expand_all: RolesTypes.roles -> unit
57 val roles_expand: int -> RolesTypes.roles -> unit
59 val exists_role_deleted: RolesTypes.version -> RolesTypes.roles -> bool
62 RolesTypes.version -> RolesTypes.roles ->
63 RolesTypes.roles * RolesTypes.objs * RolesTypes.names
65 val new_status: RolesTypes.status
67 val string_of_pointer: RolesTypes.pointer -> string
69 val pointer_of_string: string -> RolesTypes.pointer
71 val string_of_error: RolesTypes.error -> string