Lines Matching refs:perms
23 perms: Perms.Node.t; RecordField
29 { name = Symbol.of_string _name; perms = _perms; value = _value; children = []; }
31 let get_owner node = Perms.Node.get_owner node.perms
34 let get_perms node = node.perms
42 let set_perms node nperms = { node with perms = nperms }
80 Perms.check connection request node.perms
84 if not (Perms.check_owner connection node.perms)
99 let unpack node = (Symbol.to_string node.name, node.perms, node.value)
255 Node.add_child node (Node.create name node.Node.perms "") in
272 Node.add_child node (Node.create name node.Node.perms value) in
294 let path_setperms store perm path perms =
297 Node.set_perms store.root perms
303 let nc = Node.set_perms c perms in
349 c.Node.perms in
449 let perms = Perms.Node.remove_domid ~domid node.perms in
450 if perms <> node.perms then
452 { node with perms }
467 let get_ops store perms = {
469 write = write store perms;
470 mkdir = mkdir store perms;
471 rm = rm store perms;
472 setperms = setperms store perms;
473 ls = ls store perms;
474 read = read store perms;
475 getperms = getperms store perms;