updated default ivy bus mechanism for consistency

This commit is contained in:
lamestllama
2011-01-26 04:37:22 +10:30
parent 13746c0c4a
commit d445143f9f
19 changed files with 26 additions and 24 deletions
+2 -2
View File
@@ -119,7 +119,7 @@ let load_log = fun xml_file ->
let timer = ref None
let was_running = ref false
let bus = Defivybus.default_ivy_bus
let bus = ref Defivybus.default_ivy_bus
let port = ref "/dev/ttyUSB0"
let baudrate = ref "9600"
let file_to_load = ref ""
@@ -174,7 +174,7 @@ let play = fun ?(no_gui=false) serial_port adj speed ->
let init = fun () ->
Arg.parse
[ "-b", Arg.String (fun x -> bus := x), "Bus\tDefault is 127.255.255.25:2010";
[ "-b", Arg.String (fun x -> bus := x), (sprintf "<ivy bus> Default is %s" !bus);
"-d", Arg.Set_string port, (sprintf "<port> Default is %s" !port);
"-o", Arg.Set output_on_serial, "Output binary messages on serial port";
"-s", Arg.Set_string baudrate, (sprintf "<baudrate> Default is %s" !baudrate)]
+2 -2
View File
@@ -522,7 +522,7 @@ let rec plot_window = fun window ->
let _ =
let ivy_bus = Defivybus.default_ivy_bus
let ivy_bus = ref Defivybus.default_ivy_bus
and init = ref [default_window] in
let add_init = fun s ->
@@ -541,7 +541,7 @@ let _ =
| x::xs -> init := {x with geometry = s} :: xs in
Arg.parse
[ "-b", Arg.String (fun x -> ivy_bus := x), "<bus> Bus\tDefault is 127.255.255.255:2010";
[ "-b", Arg.String (fun x -> ivy_bus := x), (sprintf "<ivy bus> Default is %s" !ivy_bus);
"-c", Arg.String (fun x -> add_init x), "<curve> Add a curve (e.g. '*:telemetry:BAT:voltage'). The curve is inserted into the last open window (cf -n option)";
(* no code yet *)