unikernel/duniverse/dune_/bin/describe/describe.ml

@@ -0,0 +1,56 @@
+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