There are a few ways of doing this. The newly-added Applicative interface is worth showing off:

let shared_params =

let open Command.Param in

return (fun v c rcfile ->

verb := v;

color := c;

rcfile)

<*> flag "-v" (optional_with_default 0 int) ~doc:"..."

<*> flag "-c" (...) ~doc:"..."

<*> ...

shared_params is now a package of arguments that sets the verb and color refs and then gives you the rcfile (it's only that way to mirror your code; I'd usually prefer to just put all three in a record or something). You can use it in Command.basic as follows:

let sum =

Command.basic

~summary:"whatever"

Command.Spec.(

empty

+> shared_params

+> anon ...)

(fun rc ... () -> ...)

let main () =

Command.run begin

Command.group ~summary:"some stuff"

[ "sum", sum

; "settings", ...

]

end

Let me know if I've omitted too much :)

On 3 August 2015 at 13:18, <leowzukw@vmail.me> wrote:

Hello everybody,

I'm trying to use subcommands with the Core library. I would like to factorize several things :

A set of common arguments (to set color, verbosity and so on)

A common way to deal with these arguments

A pretty way to define subcommands using these common arguments and way to handle it.

Main problem is that I can't define more arguments to my subcommand. More details in my code, which is joined. You may also find it here (Github gist, could be updated): http://j.mp/1JHlZ6S

Result of the compilation (corebuild cmd.byte)

+ ocamlfind ocamlc -c -w A-4-33-40-41-42-43-34-44 -strict-sequence -g -bin-annot -short-paths -thread -syntax camlp4o -package bin_prot.syntax -package sexplib.syntax,comparelib.syntax,fieldslib.syntax,variantslib.syntax -package core -o cmd.cmo cmd.ml
File "cmd.ml", line 98, characters 5-44:
Warning 48: implicit elimination of optional argument ?extend
File "cmd.ml", line 49, characters 11-341:
Warning 27: unused variable summary.
File "cmd.ml", line 49, characters 20-341:
Warning 27: unused variable args.
Finished, 3 targets (0 cached) in 00:00:03.

Thanks for your help
Leo