Lines Matching refs:children
21 children: ('a,'b) t list; RecordField
27 children = [];
33 children = []
42 let get_children node = node.children
46 let set_children node children =
47 { node with children = children }
50 { node with children = child :: node.children }
82 iter f node.Node.children
93 { node with Node.value = value; Node.children = map f node.Node.children }
95 List.filter (fun n -> n.Node.value <> None || n.Node.children <> []) (List.map aux tree)
99 fold f node.Node.children (f node.Node.key node.Node.value accu)
112 else sub_node node.Node.children t
117 try (sub_node tree path).Node.children
131 else mem node.Node.children t)
141 iter_path f node.Node.children l
148 let children = set node.Node.children path value in
149 Node.set_children node children
171 let children = unset node.Node.children t in
174 then Node.set_children (Node.empty h) children
175 else Node.set_children node children
177 if children = [] && new_node.Node.value = None