From e879c065272dc0719c0f2f91db642c315447c781 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Tue, 3 Jan 2017 04:49:52 +0700 Subject: Add a function to get completion data from a reference tree node. --- src/reference_tree.ml | 5 +++++ src/reference_tree.mli | 2 ++ 2 files changed, 7 insertions(+) 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 -- cgit v1.2.3