From 28b6ac04aaef995656eaabb2c9a279a79e657687 Mon Sep 17 00:00:00 2001
From: John Estabrook <jestabro@vyos.io>
Date: Tue, 9 Dec 2025 15:30:10 -0600
Subject: T8061: add get_path_type request

Get the potential node type of a path, preliminary to any validation of
values.
---
 src/vyconf_cli_compat.ml | 5 ++++-
 1 file changed, 4 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 ae0d378..c86ca2c 100644
--- a/src/vyconf_cli_compat.ml
+++ b/src/vyconf_cli_compat.ml
@@ -11,6 +11,7 @@ type op_t =
     | OpSessionChanged
     | OpConfigUnsaved
     | OpReferencePathExists
+    | OpGetPathType
 
 let op_of_arg s =
     match s with
@@ -23,6 +24,7 @@ let op_of_arg s =
     | "sessionChanged" -> OpSessionChanged
     | "sessionUnsaved" -> OpConfigUnsaved
     | "validateTmplPath" -> OpReferencePathExists
+    | "getNodeType" -> OpGetPathType
     | _ -> failwith (Printf.sprintf "Unknown operation %s" s)
 
 let in_cli_config_session () =
@@ -94,6 +96,7 @@ let main op path =
         | OpSessionChanged -> session_changed c
         | OpConfigUnsaved -> config_unsaved c None
         | OpReferencePathExists -> reference_path_exists c path
+        | OpGetPathType -> get_path_type c path
         end
     | Error e -> Error e |> Lwt.return
     in
@@ -131,7 +134,7 @@ let () =
         with Failure msg -> let () = print_endline msg in exit 1
     in
     match op, path_list with
-    | OpSetEditLevel, [] | OpReferencePathExists, [] ->
+    | OpSetEditLevel, [] | OpReferencePathExists, [] | OpGetPathType, [] ->
         let () = print_endline "Must specify config path" in exit 1
     | _, _ ->
         let result = Lwt_main.run (main op path_list) in exit result
-- 
cgit v1.2.3