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_toggle: int -> (bool * 'b) list -> (bool * 'b) list
  17
  18 val list_toggle_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_select: 'b option -> (bool * 'b) list -> 'b option
  23
  24 val list_visit:
  25   (string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
  26   ('a -> string) -> RolesTypes.pointer -> (bool * 'a) list -> unit
  27
  28 val string_of_version: RolesTypes.version -> string
  29
  30 val version_of_string: string -> RolesTypes.version
  31
  32 val string_of_name: RolesTypes.name -> string
  33
  34 val name_of_string: string -> RolesTypes.name
  35
  36 val names_union: RolesTypes.names -> RolesTypes.names -> RolesTypes.names
  37
  38 val string_of_obj: RolesTypes.obj -> string
  39
  40 val obj_of_string: string -> RolesTypes.obj
  41
  42 val objs_union: RolesTypes.objs -> RolesTypes.objs -> RolesTypes.objs
  43
  44 val roles_union: RolesTypes.roles -> RolesTypes.roles -> RolesTypes.roles
  45
  46 val exists_role_deleted: RolesTypes.version -> RolesTypes.roles -> bool
  47
  48 val get_tops: RolesTypes.version -> RolesTypes.roles -> RolesTypes.objs * RolesTypes.objs
  49
  50 val match_names: int -> int -> RolesTypes.objs -> RolesTypes.names -> (int * int) option
  51
  52 val new_status: RolesTypes.status
  53
  54 val pointer_of_string: string -> RolesTypes.pointer
  55
  56 val string_of_error: RolesTypes.error -> string