1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
type ref_node_data = { node_type: Vytree.node_type; constraints: (Value_checker.value_constraint list); help: string; value_help: (string * string) list; constraint_error_message: string; multi: bool; valueless: bool; owner: string option; } type t = ref_node_data Vytree.t val default_data : ref_node_data val load_from_xml : t -> string -> t