Implement --use-network option parser

diff --git a/link/cmdOpt.ml b/link/cmdOpt.ml
index 2b5b957..31f2350 100644 (file)
--- a/link/cmdOpt.ml
+++ b/link/cmdOpt.ml
@@ -6,6 +6,7 @@ class type t = object
   method size:int*int
   method main_class:string
   method output:string
+  method use_network:bool
 end
 
 let opt_parser =
@@ -30,6 +31,17 @@ let int_option ~default ~metavar ?short_name ?long_name ~help () =
       ?short_name ?long_name ~help store in
     store
 
+let bool_option ~default ?short_name ?long_name ~help () =
+  let store =
+    if default then
+      StdOpt.store_false ()
+    else
+      StdOpt.store_true () in
+  let _ =
+    OptParser.add opt_parser
+      ?short_name ?long_name ~help store in
+    store
+
 let width =
   int_option
     ~default:(20 * 800)
@@ -83,14 +95,21 @@ let blue =
     ~long_name:"blue"
     ~help:"stage background color(blue)" ()
 
+let use_network =
+  bool_option
+    ~default:false
+    ~long_name:"use-network"
+    ~help:"Set use_network option" ()
+
 let parse argv =
   let inputs =
     OptParser.parse ~first:1 opt_parser argv in
     inputs,{|
-      color      = (Opt.get red, Opt.get green, Opt.get blue);
-      main_class = Opt.get main_class;
-      size       = (Opt.get width, Opt.get height);
-      output     = Opt.get output
+      color       = (Opt.get red, Opt.get green, Opt.get blue);
+      main_class  = Opt.get main_class;
+      size        = (Opt.get width, Opt.get height);
+      output      = Opt.get output;
+      use_network = Opt.get use_network
     |}
 
 let parse_argv () =

diff --git a/link/cmdOpt.mli b/link/cmdOpt.mli
index fb9e444..e8bd895 100644 (file)
--- a/link/cmdOpt.mli
+++ b/link/cmdOpt.mli
@@ -3,6 +3,7 @@ class type t = object
   method size:int*int
   method main_class:string
   method output:string
+  method use_network:bool
 end
 
 val parse : string array -> string list * t