diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/reference_tree.ml | 5 | ||||
| -rw-r--r-- | src/reference_tree.mli | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/src/reference_tree.ml b/src/reference_tree.ml index 84abbd6..5243e82 100644 --- a/src/reference_tree.ml +++ b/src/reference_tree.ml @@ -219,3 +219,8 @@ let get_value_help reftree path = let data = Vytree.get_data reftree path in data.value_help +let get_completion_data reftree path = + let aux node = + let data = Vytree.data_of_node node in + (data.node_type, data.multi, data.help) + in List.map aux (Vytree.children_of_node @@ Vytree.get reftree path) diff --git a/src/reference_tree.mli b/src/reference_tree.mli index 05689e6..f9b4b5e 100644 --- a/src/reference_tree.mli +++ b/src/reference_tree.mli @@ -43,3 +43,5 @@ val get_owner : t -> string list -> string option val get_help_string : t -> string list -> string val get_value_help : t -> string list -> (string * string) list + +val get_completion_data : t -> string list -> (node_type * bool * string) list |