Lines Matching refs:con
212 let string_of_tid ~con tid =
214 then sprintf "%-12s" con
215 else sprintf "%-12s" (sprintf "%s.%i" con tid)
289 let access_logging ~con ~tid ?(data="") ~level access_type =
294 let tid = string_of_tid ~con tid in
305 let read_coalesce ~tid ~con data =
307 then access_logging Coalesce ~tid ~con ~data:("read "^data) ~level:Debug
312 let xb_op ~tid ~con ~ty data =
320 if print then access_logging ~tid ~con ~data (XbOp ty) ~level:Info
322 let start_transaction ~tid ~con =
324 then access_logging ~tid ~con (XbOp Xenbus.Xb.Op.Transaction_start) ~level:Debug
326 let end_transaction ~tid ~con =
328 then access_logging ~tid ~con (XbOp Xenbus.Xb.Op.Transaction_end) ~level:Debug
330 let xb_answer ~tid ~con ~ty data =
337 if print then access_logging ~tid ~con ~data (XbOp ty) ~level
339 let watch_not_fired ~con perms path =
341 access_logging ~tid:0 ~con ~data Watch_not_fired ~level:Info