open Printf
+let () = Random.self_init ()
+
let config_file =
let default =
try Sys.getenv "MCLU_CONFIG"
| "console" ->
speclist := Mclu_console.get_arg_speclist ();
subcommand_run := Mclu_console.run
+ | "destroy" ->
+ speclist := Mclu_destroy.get_arg_speclist ();
+ subcommand_run := Mclu_destroy.run
| "list" ->
speclist := Mclu_list.get_arg_speclist ();
subcommand_run := Mclu_list.run
| "on" ->
speclist := Mclu_onoff.get_arg_speclist ();
subcommand_run := Mclu_onoff.run ~on:true
+ | "reboot" ->
+ speclist := Mclu_reboot.get_arg_speclist ();
+ subcommand_run := Mclu_reboot.run
| "status" ->
speclist := Mclu_status.get_arg_speclist ();
subcommand_run := Mclu_status.run
+ | "viewer" ->
+ speclist := Mclu_viewer.get_arg_speclist ();
+ subcommand_run := Mclu_viewer.run
| _ ->
eprintf "mclu: unknown subcommand '%s'
For help, use mclu --help or read the mclu(1) man page.\n" arg;