matita/matita/contribs/lambdadelta/bin/roles/rolesUtils.mli

   1 (*
   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.
   5     ||I||
   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_______________________________________________________________ *)
  11
  12 val raise_error: RolesTypes.error -> 'a
  13
  14 val list_nth: int -> ('a * 'b) list -> 'b
  15
  16 val list_select: int -> (bool * 'b) list -> (bool * 'b) list
  17
  18 val list_select_all: (bool * 'b) list -> (bool * 'b) list
  19
  20 val list_split: (bool * 'b) list -> (bool * 'b) list * (bool * 'b) list
  21
  22 val list_find_selected: 'b option -> (bool * 'b) list -> 'b option
  23
  24 val list_visit:
  25   (string -> string -> unit) -> (string -> bool -> string -> unit) ->
  26   (RolesTypes.pointer -> 'a -> unit) -> (unit -> unit) ->
  27   ('a -> string) -> RolesTypes.pointer -> (bool * 'a) list -> unit
  28
  29 val string_of_version: RolesTypes.version -> string
  30
  31 val version_of_string: string -> RolesTypes.version
  32
  33 val compare_versions: RolesTypes.version -> RolesTypes.version -> int
  34
  35 val string_of_name: RolesTypes.name -> string
  36
  37 val name_of_string: string -> RolesTypes.name
  38
  39 val names_union: RolesTypes.names -> RolesTypes.names -> RolesTypes.names
  40
  41 val match_names: int -> int -> RolesTypes.objs -> RolesTypes.names -> (int * int) option
  42
  43 val string_of_obj: RolesTypes.obj -> string
  44
  45 val obj_of_string: string -> RolesTypes.obj
  46
  47 val objs_union: RolesTypes.objs -> RolesTypes.objs -> RolesTypes.objs
  48
  49 val get_tops: RolesTypes.version -> RolesTypes.roles -> RolesTypes.objs * RolesTypes.objs
  50
  51 val string_of_role: RolesTypes.role -> string
  52
  53 val roles_union: RolesTypes.roles -> RolesTypes.roles -> RolesTypes.roles
  54
  55 val roles_expand_all: RolesTypes.roles -> unit
  56
  57 val roles_expand: int -> RolesTypes.roles -> unit
  58
  59 val exists_role_deleted: RolesTypes.version -> RolesTypes.roles -> bool
  60
  61 val roles_split:
  62   RolesTypes.version -> RolesTypes.roles ->
  63   RolesTypes.roles * RolesTypes.objs * RolesTypes.names
  64
  65 val new_status: RolesTypes.status
  66
  67 val string_of_pointer: RolesTypes.pointer -> string
  68
  69 val pointer_of_string: string -> RolesTypes.pointer
  70
  71 val string_of_error: RolesTypes.error -> string