From f58bfaa3487ef821466e35fbd2bb073732e889dd Mon Sep 17 00:00:00 2001
From: John Estabrook <jestabro@vyos.io>
Date: Wed, 17 Dec 2025 11:54:20 -0600
Subject: T8061: add get_completion_env request

Return help strings and values in the form used by bash completion.
---
 src/vyconf_cli_compat.ml | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/vyconf_cli_compat.ml')

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
-- 
cgit v1.2.3