sig
type level = [ `Debug | `Error | `Info | `Warning ]
type t = {
quiet : bool;
info : bool;
debug : bool;
ignore_plugins : bool;
ignore_unknown_fields : bool;
printf : OASISContext.level -> string -> unit;
}
val default : OASISContext.t Pervasives.ref
val fspecs :
unit -> (string * Arg.spec * string) list * (unit -> OASISContext.t)
val quiet : OASISContext.t
end