Lines Matching refs:token
25 token: string; RecordField
65 let watch_create ~con ~path ~token = {
67 token = token;
161 let add_watch con path token =
167 if List.exists (fun w -> w.token = token) l then
169 let watch = watch_create ~con ~token ~path in
174 let del_watch con path token =
177 let w = List.find (fun w -> w.token = token) ws in
195 (fun _ watches acc -> List.map (fun watch -> watch.path, watch.token) watches :: acc)
215 let data = Utils.join_by_null [watch.path; watch.token; ""] in
311 List.iter (fun (path, token) ->
312 Printf.fprintf chan "watch,%d,%s,%s\n" domid (Utils.hexify path) (Utils.hexify token)
318 …let watches = List.map (fun (path, token) -> Printf.sprintf "watch %s: %s %s\n" domid path token) …