diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-12-08 21:05:52 -0600 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-12-17 21:13:45 -0600 |
| commit | b303da3489a24181eff531ea01423b697f24bed3 (patch) | |
| tree | 5c94f49962f753bb78777a31567d40ecc8d603ff /src/reference_tree.ml | |
| parent | 52b0ff3942ce984a0b65e73b109fe05837323efb (diff) | |
| download | vyos1x-config-b303da3489a24181eff531ea01423b697f24bed3.tar.gz vyos1x-config-b303da3489a24181eff531ea01423b697f24bed3.zip | |
T8061: add function get_default_value
Diffstat (limited to 'src/reference_tree.ml')
| -rw-r--r-- | src/reference_tree.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/reference_tree.ml b/src/reference_tree.ml index c78529e..4532135 100644 --- a/src/reference_tree.ml +++ b/src/reference_tree.ml @@ -605,6 +605,17 @@ let get_completion_data reftree path = in List.map aux (Vytree.children_of_node @@ (Vytree.get[@alert "-exn"]) reftree path) +let get_default_value reftree path = + (* raises: + [Vytree.Empty_path] + [Vytree.Nonexistent_path] + alert exn Vytree.get_data: + [Vytree.Empty_path] allow raise + [Vytree.Nonexistent_path] allow raise + *) + let data = (Vytree.get_data[@alert "-exn"]) reftree path in + data.default_value + (* Convert from config path to reference tree path *) let refpath reftree path = let check_existence p = |