57 lines
1.7 KiB
OCaml
57 lines
1.7 KiB
OCaml
|
open Import
|
||
|
|
|
||
|
|
(* This command is not yet versioned, but some people are using it in
|
||
|
|
non-released tools. If you change the format of the output, please contact:
|
||
|
|
|
||
|
|
- rotor people for "describe workspace"
|
||
|
|
|
||
|
|
- duniverse people for "describe opam-files" *)
|
||
|
|
|
||
|
|
let subcommands =
|
||
|
|
[ Describe_workspace.command
|
||
|
|
; Describe_external_lib_deps.command
|
||
|
|
; Describe_opam_files.command
|
||
|
|
; Describe_pp.command
|
||
|
|
; Printenv.command
|
||
|
|
; Print_rules.command
|
||
|
|
; Installed_libraries.command
|
||
|
|
; Aliases_targets.Targets_cmd.command
|
||
|
|
; Aliases_targets.Aliases_cmd.command
|
||
|
|
; Package_entries.command
|
||
|
|
; Describe_pkg.command
|
||
|
|
; Describe_contexts.command
|
||
|
|
; Describe_depexts.command
|
||
|
|
; Describe_location.command
|
||
|
|
]
|
||
|
|
;;
|
||
|
|
|
||
|
|
let group =
|
||
|
|
let doc = "Describe the workspace." in
|
||
|
|
let man =
|
||
|
|
[ `S "DESCRIPTION"
|
||
|
|
; `P
|
||
|
|
{|Describe what is in the current workspace in either human or
|
||
|
|
machine readable form.
|
||
|
|
|
||
|
|
By default, this command output a human readable description of
|
||
|
|
the current workspace. This output is aimed at human and is not
|
||
|
|
suitable for machine processing. In particular, it is not versioned.
|
||
|
|
|
||
|
|
If you want to interpret the output of this command from a program,
|
||
|
|
you must use the $(b,--format) option to specify a machine readable
|
||
|
|
format as well as the $(b,--lang) option to get a stable output.|}
|
||
|
|
; `Blocks Common.help_secs
|
||
|
|
]
|
||
|
|
in
|
||
|
|
let info = Cmd.info "describe" ~doc ~man in
|
||
|
|
let default = Describe_workspace.term in
|
||
|
|
Cmd.group ~default info subcommands
|
||
|
|
;;
|
||
|
|
|
||
|
|
module Show = struct
|
||
|
|
let group =
|
||
|
|
let doc = "Command group for showing information about the workspace" in
|
||
|
|
Cmd.group (Cmd.info ~doc "show") subcommands
|
||
|
|
;;
|
||
|
|
end
|