diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-12-17 11:54:20 -0600 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-12-17 21:29:58 -0600 |
| commit | f58bfaa3487ef821466e35fbd2bb073732e889dd (patch) | |
| tree | c1c340dc190d2595cc1e1ec8447f163ce56610b2 /src/vyconf_cli_compat.ml | |
| parent | 28b6ac04aaef995656eaabb2c9a279a79e657687 (diff) | |
| download | vyconf-f58bfaa3487ef821466e35fbd2bb073732e889dd.tar.gz vyconf-f58bfaa3487ef821466e35fbd2bb073732e889dd.zip | |
T8061: add get_completion_env request
Return help strings and values in the form used by bash completion.
Diffstat (limited to 'src/vyconf_cli_compat.ml')
| -rw-r--r-- | src/vyconf_cli_compat.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/vyconf_cli_compat.ml b/src/vyconf_cli_compat.ml index c86ca2c..eb14136 100644 --- a/src/vyconf_cli_compat.ml +++ b/src/vyconf_cli_compat.ml @@ -12,6 +12,7 @@ type op_t = | OpConfigUnsaved | OpReferencePathExists | OpGetPathType + | OpGetCompletionEnv let op_of_arg s = match s with @@ -25,6 +26,7 @@ let op_of_arg s = | "sessionUnsaved" -> OpConfigUnsaved | "validateTmplPath" -> OpReferencePathExists | "getNodeType" -> OpGetPathType + | "getCompletionEnv" -> OpGetCompletionEnv | _ -> failwith (Printf.sprintf "Unknown operation %s" s) let in_cli_config_session () = @@ -97,6 +99,7 @@ let main op path = | OpConfigUnsaved -> config_unsaved c None | OpReferencePathExists -> reference_path_exists c path | OpGetPathType -> get_path_type c path + | OpGetCompletionEnv -> get_completion_env c path end | Error e -> Error e |> Lwt.return in @@ -134,7 +137,11 @@ let () = with Failure msg -> let () = print_endline msg in exit 1 in match op, path_list with - | OpSetEditLevel, [] | OpReferencePathExists, [] | OpGetPathType, [] -> + | OpSetEditLevel, [] + | OpReferencePathExists, [] + | OpGetPathType, [] -> let () = print_endline "Must specify config path" in exit 1 + | OpGetCompletionEnv, [] | OpGetCompletionEnv, [_] -> + let () = print_endline "Must specify command and at least one component" in exit 1 | _, _ -> let result = Lwt_main.run (main op path_list) in exit result |