aboutsummaryrefslogtreecommitdiffstats
path: root/tools/ocaml/xenstored/event.ml
blob: b2df7a495d85c2c640b2960837bd1c6073252ab1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(*
 * Copyright (C) 2006-2007 XenSource Ltd.
 * Copyright (C) 2008      Citrix Ltd.
 * Author Vincent Hanquez <vincent.hanquez@eu.citrix.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published
 * by the Free Software Foundation; version 2.1 only. with the special
 * exception on linking described in file LICENSE.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *)

(**************** high level binding ****************)
type t = {
	handle: Eventchn.handle;
	mutable virq_port: int;
}

let init () = { handle = Eventchn.init (); virq_port = -1; }
let fd eventchn = Eventchn.fd eventchn.handle
let bind_dom_exc_virq eventchn = eventchn.virq_port <- Eventchn.bind_dom_exc_virq eventchn.handle
let bind_interdomain eventchn domid port = Eventchn.bind_interdomain eventchn.handle domid port
let unbind eventchn port = Eventchn.unbind eventchn.handle port
let notify eventchn port = Eventchn.notify eventchn.handle port
let pending eventchn = Eventchn.pending eventchn.handle
let unmask eventchn port = Eventchn.unmask eventchn.handle port