Make scripts that provide a "--describe" option/command.
The two functions provided can be used like this:
let open Command_line in
let opts =
let open Arg in
flag ["--all"; "-a"] ~doc:"Kill everything, incl. the Screen session"
& describe_option_and_usage ()
in
let kills = tmp_file "kill-list" in
parse opts (fun ~anon kill_em_all describe ->
deal_with_describe describe
[ if_seq kill_em_allSee also the Service Composer Example which is where the above snippet comes from.
module P : sig ... endval describe_option_and_usage :
?more_usage:string list ->
unit ->
(bool t -> 'a, 'a) Command_line.cli_optionsProvide the "--describe" command line option.