From 3e66b20e08e4c3271a13797dade33426cad3fde0 Mon Sep 17 00:00:00 2001
From: Phil Summers <phil@blindlime.org>
Date: Wed, 21 Dec 2016 22:53:09 +0000
Subject: T225: Added inactive and ephemeral fields to node data in Config_tree

---
 src/config_tree.ml  | 22 ++++++++++++++++++++++
 src/config_tree.mli | 10 ++++++++++
 2 files changed, 32 insertions(+)

(limited to 'src')

diff --git a/src/config_tree.ml b/src/config_tree.ml
index b97f150..f99c737 100644
--- a/src/config_tree.ml
+++ b/src/config_tree.ml
@@ -8,6 +8,8 @@ exception Useless_set
 type config_node_data = {
     values: string list;
     comment: string option;
+    inactive: bool;
+    ephemeral: bool;
 }
 
 type t = config_node_data Vytree.t
@@ -15,6 +17,8 @@ type t = config_node_data Vytree.t
 let default_data = {
     values = [];
     comment = None;
+    inactive = false;
+    ephemeral = false;
 }
 
 let make name = Vytree.make default_data name
@@ -84,3 +88,21 @@ let set_comment node path comment =
 let get_comment node path =
     let data = Vytree.get_data node path in
     data.comment
+
+let set_inactive node path inactive =
+    let data = Vytree.get_data node path in
+    Vytree.update node path {data with inactive=inactive}
+
+let is_inactive node path =
+    let data = Vytree.get_data node path in
+    data.inactive
+
+let set_ephemeral node path ephemeral =
+    let data = Vytree.get_data node path in
+    Vytree.update node path {data with ephemeral=ephemeral}
+
+let is_ephemeral node path =
+    let data = Vytree.get_data node path in
+    data.ephemeral
+
+
diff --git a/src/config_tree.mli b/src/config_tree.mli
index ac9c5a9..2c463cb 100644
--- a/src/config_tree.mli
+++ b/src/config_tree.mli
@@ -6,6 +6,8 @@ exception Node_has_no_value
 type config_node_data = {
   values : string list;
   comment : string option;
+  inactive : bool;
+  ephemeral : bool;
 }
 
 type t = config_node_data Vytree.t
@@ -25,3 +27,11 @@ val get_value : t -> string list -> string
 val set_comment : t -> string list -> string option -> t
 
 val get_comment : t -> string list -> string option
+
+val set_inactive : t -> string list -> bool -> t
+
+val is_inactive : t -> string list -> bool
+
+val set_ephemeral : t -> string list -> bool -> t
+
+val is_ephemeral : t -> string list -> bool
-- 
cgit v1.2.3