Lines Matching refs:children
25 children: t list; RecordField
29 { name = Symbol.of_string _name; perms = _perms; value = _value; children = []; }
32 let get_children node = node.children
45 { node with children = child :: node.children }
49 List.exists (fun n -> n.name = childname) node.children
53 List.find (fun n -> n.name = childname) node.children
63 { node with children = (replace_one_in_list node.children) }
73 { node with children = (delete_one_in_list node.children) }
76 { node with children = [] }
90 let rec recurse fct node = fct node; List.iter (recurse fct) node.children
95 f { node with children = List.rev_map walk node.children |> List.rev }
329 let children =
337 cnode.Node.children in
339 List.rev (List.map (fun n -> Symbol.to_string n.Node.name) children)
369 List.iter (_traversal node_path) node.Node.children