Dear list,
I have empty arguments when using Arg.Tuple with references. This minimalist example illustrates my problem :
let f a b =
print_endline a;
print_endline b
let s = ref ""
let speclist = [(
"-a",
Arg.Tuple [
Arg.Set_string s;
Arg.String (f !s) (* !s is empty !!! *)
(* Arg.String (fun ss -> f !s ss) (\* Works just fine ... why ? *\) *)
],
"doc"
)]
let _ = Arg.parse speclist (fun s -> ()) "usage"
--------------------
y
------------------------
When uncommenting the line 12 :
------------------------
$ ./a.out -a x y
x
y
-------------------------
Any idea what am I doing wrong ?
Thanks in advance !
Gabriel