From 87e45fd308babf14f9c9d98a8ba1d89e7f4cd00b Mon Sep 17 00:00:00 2001
From: Phil Summers <phil@blindlime.org>
Date: Fri, 23 Dec 2016 00:40:11 +0000
Subject: T230: Add missing data access functions to the Reference_tree module
 with unit tests

---
 src/reference_tree.ml  | 29 +++++++++++++++++++++++++++++
 src/reference_tree.mli | 12 ++++++++++++
 2 files changed, 41 insertions(+)

(limited to 'src')

diff --git a/src/reference_tree.ml b/src/reference_tree.ml
index 8b26449..29b4265 100644
--- a/src/reference_tree.ml
+++ b/src/reference_tree.ml
@@ -189,3 +189,32 @@ let is_hidden reftree path =
 let is_secret reftree path =
     let data = Vytree.get_data reftree path in
     data.secret
+
+let is_tag reftree path =
+    let data = Vytree.get_data reftree path in
+    match data.node_type with
+    | Tag -> true
+    | _ -> false
+
+let is_leaf reftree path = 
+    let data = Vytree.get_data reftree path in
+    match data.node_type with
+    | Leaf -> true
+    | _ -> false
+
+let is_valueless reftree path =
+    let data = Vytree.get_data reftree path in
+    data.valueless
+
+let get_keep_order reftree path =
+    let data = Vytree.get_data reftree path in
+    data.keep_order
+
+let get_owner reftree path =
+    let data = Vytree.get_data reftree path in
+    data.owner
+
+let get_help_string reftree path =
+    let data = Vytree.get_data reftree path in
+    data.help
+
diff --git a/src/reference_tree.mli b/src/reference_tree.mli
index 3bbfc4b..8b635d2 100644
--- a/src/reference_tree.mli
+++ b/src/reference_tree.mli
@@ -29,3 +29,15 @@ val is_multi : t -> string list -> bool
 val is_hidden : t -> string list -> bool
 
 val is_secret : t -> string list -> bool
+
+val is_tag : t -> string list -> bool
+
+val is_leaf : t -> string list -> bool
+
+val is_valueless : t -> string list -> bool
+
+val get_keep_order : t -> string list -> bool
+
+val get_owner : t -> string list -> string option
+
+val get_help_string : t -> string list -> string
-- 
cgit v1.2.3