Module Option.Control


module Control: sig .. end


type simulation_mode_type =
| Manual
| Automatic
val simulation_mode_names : (simulation_mode_type * string) list
val show_estimate_opt : bool ref
val simulation_only_opt : bool ref
val simulation_mode_opt : simulation_mode_type ref
val show_estimate : unit -> bool
val simulation_only : unit -> bool
val simulation_mode : unit -> simulation_mode_type
val arg_spec : unit -> (string * Arg.spec * string) list