diff options
| author | Daniil Baturin <daniil@baturin.org> | 2017-01-03 04:49:52 +0700 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2017-01-03 04:49:52 +0700 |
| commit | e879c065272dc0719c0f2f91db642c315447c781 (patch) | |
| tree | a8473a3bc270fcfcd4294c72ebe676e1eceec99e /src | |
| parent | 67a08b3b83ddf24116f45b2817cbc8548f573e89 (diff) | |
| download | vyconf-e879c065272dc0719c0f2f91db642c315447c781.tar.gz vyconf-e879c065272dc0719c0f2f91db642c315447c781.zip | |
Add a function to get completion data from a reference tree node.
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 |