module OASISContext:sig..end
typelevel =[ `Debug | `Error | `Info | `Warning ]
type t = {
|
quiet : |
(* | Display nothing. | *) |
|
info : |
(* | Display info messages. | *) |
|
debug : |
(* | Display also debug messages. | *) |
|
ignore_plugins : |
(* | Don't use plugins | *) |
|
ignore_unknown_fields : |
(* | Ignore fields unknown | *) |
|
printf : |
(* | Redirect output | *) |
val default : t Pervasives.refval fspecs : unit -> (string * Arg.spec * string) list * (unit -> t)OASISContext.t.val quiet : t