sig
type stag
val string_of_stag : Transitioning.Format.stag -> string
val stag_of_string : string -> Transitioning.Format.stag
type formatter_stag_functions = {
mark_open_stag : Transitioning.Format.stag -> string;
mark_close_stag : Transitioning.Format.stag -> string;
print_open_stag : Transitioning.Format.stag -> unit;
print_close_stag : Transitioning.Format.stag -> unit;
}
val pp_set_formatter_stag_functions :
Format.formatter -> Transitioning.Format.formatter_stag_functions -> unit
val pp_get_formatter_stag_functions :
Format.formatter -> unit -> Transitioning.Format.formatter_stag_functions
val pp_open_stag : Format.formatter -> Transitioning.Format.stag -> unit
val pp_close_stag : Format.formatter -> unit -> unit
val pp_print_option :
?none:(Format.formatter -> unit -> unit) ->
(Format.formatter -> 'a -> unit) -> Format.formatter -> 'a option -> unit
end