Lines Matching refs:domain
19 let debug fmt = Logging.debug "domain" fmt
20 let warn fmt = Logging.warn "domain" fmt
36 domain's transaction costs credit. *)
41 let get_path dom = "/local/domain/" ^ (sprintf "%u" dom.id)
42 let get_id domain = domain.id
48 let is_bad_domain domain = domain.bad_client
49 let mark_as_bad domain = domain.bad_client <- true
51 let get_io_credit domain = domain.io_credit
52 let set_io_credit ?(n=1) domain = domain.io_credit <- max 0 n
53 let incr_io_credit domain = domain.io_credit <- domain.io_credit + 1
54 let decr_io_credit domain = domain.io_credit <- max 0 (domain.io_credit - 1)
69 warn "domain %d: attempt to notify on unknown port" dom.id
75 …debug "bound domain %d remote port %d to local port %s" dom.id dom.remote_port (string_of_port dom…
79 debug "domain %d unbound port %s" dom.id (string_of_port dom.port);