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