Lines Matching refs:data
20 let data = data_concat [ path; ] in
21 Xb.queue con (Xb.Packet.create tid 0 ty data)
32 let watch path data con =
33 let data = data_concat [ path; data; ] in
34 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Watch data)
36 let unwatch path data con =
37 let data = data_concat [ path; data; ] in
38 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Unwatch data)
44 let data = data_concat [ (if commit then "T" else "F"); ] in
45 Xb.queue con (Xb.Packet.create tid 0 Xb.Op.Transaction_end data)
48 let data = data_concat [ Printf.sprintf "%u" domid;
51 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Introduce data)
54 let data = data_concat [ Printf.sprintf "%u" domid; ] in
55 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Release data)
58 let data = data_concat [ Printf.sprintf "%u" domid; ] in
59 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Resume data)
62 let data = data_concat [ Printf.sprintf "%u" domid; ] in
63 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Getdomainpath data)
66 let data = path ^ "\000" ^ value (* no NULL at the end *) in
67 Xb.queue con (Xb.Packet.create tid 0 Xb.Op.Write data)
73 let data = data_concat [ path; perms ] in
74 Xb.queue con (Xb.Packet.create tid 0 Xb.Op.Setperms data)