Lines Matching refs:con
19 let queue_path ty (tid: int) (path: string) con =
21 Xb.queue con (Xb.Packet.create tid 0 ty data)
24 let directory tid path con = queue_path Xb.Op.Directory tid path con
25 let read tid path con = queue_path Xb.Op.Read tid path con
27 let getperms tid path con = queue_path Xb.Op.Getperms tid path con
29 let debug commands con =
30 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Debug (data_concat commands))
32 let watch path data con =
34 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Watch data)
36 let unwatch path data con =
38 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Unwatch data)
40 let transaction_start con =
41 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Transaction_start (data_concat []))
43 let transaction_end tid commit con =
45 Xb.queue con (Xb.Packet.create tid 0 Xb.Op.Transaction_end data)
47 let introduce domid mfn port con =
51 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Introduce data)
53 let release domid con =
55 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Release data)
57 let resume domid con =
59 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Resume data)
61 let getdomainpath domid con =
63 Xb.queue con (Xb.Packet.create 0 0 Xb.Op.Getdomainpath data)
65 let write tid path value con =
67 Xb.queue con (Xb.Packet.create tid 0 Xb.Op.Write data)
69 let mkdir tid path con = queue_path Xb.Op.Mkdir tid path con
70 let rm tid path con = queue_path Xb.Op.Rm tid path con
72 let setperms tid path perms con =
74 Xb.queue con (Xb.Packet.create tid 0 Xb.Op.Setperms data)