Displaying 5 results from an estimated 5 matches for "set_float".
2016 Jun 27
0
Re: [PATCH] RFC: OCaml tools: add and use a Getopt module
..._name in
> + arg_name, (op_name, heading, pod)
> + ) arg_names
>
> | (op_name,
> - { extra_argspec = (arg_name,
> - (Arg.String _ | Arg.Set_string _ | Arg.Int _ |
> - Arg.Set_int _ | Arg.Float _ | Arg.Set_float _),
> + { extra_argspec = (arg_names,
> + (Getopt.String _ | Getopt.Set_string _ | Getopt.Int _),
> _);
> extra_pod_argval = Some arg_val;
> extra_pod_description = pod }) ->
> - let heading = sp...
2016 Jun 24
2
[PATCH] RFC: OCaml tools: add and use a Getopt module
...sprintf "B<%s>" arg_name in
+ arg_name, (op_name, heading, pod)
+ ) arg_names
| (op_name,
- { extra_argspec = (arg_name,
- (Arg.String _ | Arg.Set_string _ | Arg.Int _ |
- Arg.Set_int _ | Arg.Float _ | Arg.Set_float _),
+ { extra_argspec = (arg_names,
+ (Getopt.String _ | Getopt.Set_string _ | Getopt.Int _),
_);
extra_pod_argval = Some arg_val;
extra_pod_description = pod }) ->
- let heading = sprintf "B<%s> %s&quo...
2012 Mar 31
3
[PATCH (incomplete)] Rewrite virt-sysprep in OCaml.
This patch is incomplete but it illustrates the idea. virt-sysprep is
rewritten as a modular tool in OCaml.
Only the 'utmp' and 'hostname' operations are implemented at the
moment.
Rich.
2016 Jul 11
2
[PATCH v2] OCaml tools: add and use a Getopt module
...sprintf "B<%s>" arg_name in
+ arg_name, (op_name, heading, pod)
+ ) arg_names
| (op_name,
- { extra_argspec = (arg_name,
- (Arg.String _ | Arg.Set_string _ | Arg.Int _ |
- Arg.Set_int _ | Arg.Float _ | Arg.Set_float _),
+ { extra_argspec = (arg_names,
+ (Getopt.String _ | Getopt.Set_string _ | Getopt.Int _),
_);
extra_pod_argval = Some arg_val;
extra_pod_description = pod }) ->
- let heading = sprintf "B<%s> %s&quo...
2016 Jul 13
3
[PATCH v3 1/2] OCaml tools: add and use a Getopt module
...sprintf "B<%s>" arg_name in
+ arg_name, (op_name, heading, pod)
+ ) arg_names
| (op_name,
- { extra_argspec = (arg_name,
- (Arg.String _ | Arg.Set_string _ | Arg.Int _ |
- Arg.Set_int _ | Arg.Float _ | Arg.Set_float _),
+ { extra_argspec = (arg_names,
+ (Getopt.String _ | Getopt.Set_string _ | Getopt.Int _ |
+ Getopt.Set_int _),
_);
extra_pod_argval = Some arg_val;
extra_pod_description = pod }) ->
-...