add optional arguments

Author: bobzhang

jscomp/bsb/bsb_arg.ml

@@ -100,11 +100,10 @@
    raise (Bad (Ext_buffer.contents b))
 
 
- let parse_exn  ~usage ~argv ~start (speclist : t) anonfun  =    
-   let l = Array.length argv in
+ let parse_exn  ~usage ~argv ~start ?(finish=Array.length argv) (speclist : t) anonfun = 
    let current = ref start in 
    let rev_list = ref [] in 
-   while !current < l do
+   while !current < finish do
      let s = argv.(!current) in
      incr current;  
      if s <> "" && s.[0] = '-' then begin
@@ -117,7 +116,7 @@
                  | Unit_call f -> f ()
                end
              | String f  ->
-               if !current >= l then stop_raise ~usage ~error:(Missing s) speclist 
+               if !current >= finish then stop_raise ~usage ~error:(Missing s) speclist 
                else begin                 
                  let arg = argv.(!current) in 
                  incr current;  

jscomp/bsb/bsb_arg.mli

@@ -45,5 +45,6 @@ val parse_exn :
   usage:string -> 
   argv:string array -> 
   start:int ->
+  ?finish:int ->
   (key * spec * doc) list -> 
   anon_fun  -> unit

lib/4.06.1/bsb.ml

@@ -1718,6 +1718,7 @@ val parse_exn :
   usage:string -> 
   argv:string array -> 
   start:int ->
+  ?finish:int ->
   (key * spec * doc) list -> 
   anon_fun  -> unit
 end = struct
@@ -1824,11 +1825,10 @@ end = struct
    raise (Bad (Ext_buffer.contents b))
 
 
- let parse_exn  ~usage ~argv ~start (speclist : t) anonfun  =    
-   let l = Array.length argv in
+ let parse_exn  ~usage ~argv ~start ?(finish=Array.length argv) (speclist : t) anonfun = 
    let current = ref start in 
    let rev_list = ref [] in 
-   while !current < l do
+   while !current < finish do
      let s = argv.(!current) in
      incr current;  
      if s <> "" && s.[0] = '-' then begin
@@ -1841,7 +1841,7 @@ end = struct
                  | Unit_call f -> f ()
                end
              | String f  ->
-               if !current >= l then stop_raise ~usage ~error:(Missing s) speclist 
+               if !current >= finish then stop_raise ~usage ~error:(Missing s) speclist 
                else begin                 
                  let arg = argv.(!current) in 
                  incr current;  

lib/4.06.1/unstable/bsb_native.ml

@@ -1718,6 +1718,7 @@ val parse_exn :
   usage:string -> 
   argv:string array -> 
   start:int ->
+  ?finish:int ->
   (key * spec * doc) list -> 
   anon_fun  -> unit
 end = struct
@@ -1824,11 +1825,10 @@ end = struct
    raise (Bad (Ext_buffer.contents b))
 
 
- let parse_exn  ~usage ~argv ~start (speclist : t) anonfun  =    
-   let l = Array.length argv in
+ let parse_exn  ~usage ~argv ~start ?(finish=Array.length argv) (speclist : t) anonfun = 
    let current = ref start in 
    let rev_list = ref [] in 
-   while !current < l do
+   while !current < finish do
      let s = argv.(!current) in
      incr current;  
      if s <> "" && s.[0] = '-' then begin
@@ -1841,7 +1841,7 @@ end = struct
                  | Unit_call f -> f ()
                end
              | String f  ->
-               if !current >= l then stop_raise ~usage ~error:(Missing s) speclist 
+               if !current >= finish then stop_raise ~usage ~error:(Missing s) speclist 
                else begin                 
                  let arg = argv.(!current) in 
                  incr current;