Lines Matching refs:id
42 let del quota id = Hashtbl.remove quota.cur id
44 let _check quota id size =
46 warn "domain %u err create entry: data too big %d" id size;
49 if id > 0 && Hashtbl.mem quota.cur id then
50 let entry = Hashtbl.find quota.cur id in
52 warn "domain %u cannot create entry: quota reached" id;
56 let check quota id size =
58 _check quota id size
60 let get_entry quota id = Hashtbl.find quota.cur id
62 let set_entry quota id nb =
64 then Hashtbl.remove quota.cur id
66 if Hashtbl.mem quota.cur id then
67 Hashtbl.replace quota.cur id nb
69 Hashtbl.add quota.cur id nb
72 let del_entry quota id =
74 let nb = get_entry quota id in
75 set_entry quota id (nb - 1)
78 let add_entry quota id =
79 let nb = try get_entry quota id with Not_found -> 0 in
80 set_entry quota id (nb + 1)
83 Hashtbl.iter (fun id nb -> set_entry quota id (get_entry quota id + nb)) diff.cur
86 Hashtbl.iter (fun id nb -> let diff = nb - (try get_entry orig_quota id with Not_found -> 0) in
88 … set_entry dest_quota id ((try get_entry dest_quota id with Not_found -> 0) + diff)) mod_quota.cur