Module RdbgArg

val cmxs_or_cma : string
val usage_msg : string
val print_usage : unit -> unit
type verbose_level = int
type program_kind =
  1. | SUT
  2. | Env
  3. | Oracle
type reactive_program =
  1. | Stdio of string
  2. | StdioInit of string
  3. | Sock of string * int
  4. | SockInit of string * int
  5. | Ocaml of RdbgPlugin.t
val program_kind_of_string : string -> program_kind
val program_kind_to_string : program_kind -> string
val reactive_program_to_string : reactive_program -> string
type t = {
  1. mutable _args : (string * Arg.spec * string) list;
  2. mutable _user_man : (string * string list) list;
  3. mutable _hidden_man : (string * string list) list;
  4. mutable suts : reactive_program list;
  5. mutable envs : reactive_program list;
  6. mutable oracles : reactive_program list;
  7. mutable step_nb : int;
  8. mutable luciole_mode : bool;
  9. mutable delay_env_outputs : bool;
  10. mutable display_sim2chro : bool;
  11. mutable display_gnuplot : bool;
  12. mutable precision : int;
  13. mutable verbose : verbose_level;
  14. mutable display_local_var : bool;
  15. mutable show_step : bool;
  16. mutable output : string;
  17. mutable overwrite_output : bool;
  18. mutable prompt : string option;
  19. mutable go : bool;
  20. mutable log : bool;
  21. mutable tmp_dir : string;
  22. mutable tmp_dir_provided : string option;
  23. mutable socket_inet_addr : string option;
  24. mutable socket_port : int option;
  25. mutable socket_err_port : int option;
  26. mutable debug_rdbg : bool;
  27. mutable rdbg : bool;
  28. mutable cov_file : string;
  29. mutable reset_cov_file : bool;
  30. mutable stop_on_oracle_error : bool;
  31. mutable icr : Pervasives.in_channel;
  32. mutable ocr : Pervasives.out_channel;
  33. mutable ecr : Pervasives.out_channel;
  34. mutable _others : string list;
  35. mutable _margin : int;
}
val make_args : unit -> t
val args : t
val pspec : out_channel -> (string * string list) -> unit
val options : out_channel -> unit
val more_options : out_channel -> unit
val myexit : int -> 'a
val unexpected : string -> 'a
val file_notfound : string -> 'a
val parse_stdio_string : string -> reactive_program
val my_int_of_string : string -> int
val parse_sock_string : string -> reactive_program
val mkopt : t -> string list -> ?hide:bool -> ?arg:string -> Arg.spec -> string list -> unit
val mkoptab : t -> unit
val add_other : t -> string -> unit
val current : int ref
val first_line : string -> string
val parse : string array -> unit