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
@@ -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 *)