\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-val new_stage: RolesTypes.version -> unit
+val new_stage: RolesTypes.stage -> unit
val select_entry: RolesTypes.pointer -> unit
val expand_entry: RolesTypes.pointer -> unit
+val make_tops: unit -> unit
+
val add_role: unit -> unit
-val add_tops: RolesTypes.version -> unit
+val add_tops: RolesTypes.stage -> unit
val add_matching: unit -> unit
val print_status: unit -> unit
val visit_status:
- (string -> string -> unit) -> (string -> bool -> string -> unit) ->
- (unit -> unit) -> (unit -> unit) -> (unit -> unit) -> (string -> bool -> unit) ->
- (string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
- (string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
+ (string -> string -> unit) -> RolesTypes.each ->
+ (bool -> bool -> bool -> unit) -> (bool -> unit) -> (unit -> unit) ->
+ (string -> bool -> unit) ->
+ (string -> string -> unit) -> RolesTypes.each -> (unit -> unit) ->
+ (string -> string -> unit) -> RolesTypes.each -> (unit -> unit) ->
unit