and no_init_file () = init_file := NoInitFile
and set_init_file filename = init_file := InitFile filename
and set_end_time time = end_time := Some ((!parse_date_time) time)
and no_init_file () = init_file := NoInitFile
and set_init_file filename = init_file := InitFile filename
and set_end_time time = end_time := Some ((!parse_date_time) time)
in
let argspec = Arg.align [
"-1", Arg.Unit set_pcpu_mode,
in
let argspec = Arg.align [
"-1", Arg.Unit set_pcpu_mode,
" " ^ s_ "Secure (\"kiosk\") mode";
"--script", Arg.Set script_mode,
" " ^ s_ "Run from a script (no user interface)";
" " ^ s_ "Secure (\"kiosk\") mode";
"--script", Arg.Set script_mode,
" " ^ s_ "Run from a script (no user interface)";