Lines Matching refs:xsh
31 let get_operations tid xsh = {
32 directory = (fun path -> Xsraw.directory tid path xsh);
33 read = (fun path -> Xsraw.read tid path xsh);
34 readv = (fun dir vec -> Xsraw.readv tid dir vec xsh);
35 write = (fun path value -> Xsraw.write tid path value xsh);
36 writev = (fun dir vec -> Xsraw.writev tid dir vec xsh);
37 mkdir = (fun path -> Xsraw.mkdir tid path xsh);
38 rm = (fun path -> Xsraw.rm tid path xsh);
39 getperms = (fun path -> Xsraw.getperms tid path xsh);
40 setperms = (fun path perms -> Xsraw.setperms tid path perms xsh);
41 setpermsv = (fun dir vec perms -> Xsraw.setpermsv tid dir vec perms xsh);
44 let transaction xsh (f: ops -> 'a) : 'a =
48 let tid = Xsraw.transaction_start xsh in
49 let t = get_operations tid xsh in
54 ignore (Xsraw.transaction_end tid false xsh);
57 commited := Xsraw.transaction_end tid true xsh