1(* 2 * Copyright (C) 2006-2007 XenSource Ltd. 3 * Copyright (C) 2008 Citrix Ltd. 4 * Author Vincent Hanquez <vincent.hanquez@eu.citrix.com> 5 * 6 * This program is free software; you can redistribute it and/or modify 7 * it under the terms of the GNU Lesser General Public License as published 8 * by the Free Software Foundation; version 2.1 only. with the special 9 * exception on linking described in file LICENSE. 10 * 11 * This program is distributed in the hope that it will be useful, 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 * GNU Lesser General Public License for more details. 15 *) 16 17type handle 18 19external init: unit -> handle = "stub_eventchn_init" 20external fd: handle -> Unix.file_descr = "stub_eventchn_fd" 21 22type t = int 23 24external notify: handle -> int -> unit = "stub_eventchn_notify" 25external bind_interdomain: handle -> int -> int -> int = "stub_eventchn_bind_interdomain" 26external bind_dom_exc_virq: handle -> int = "stub_eventchn_bind_dom_exc_virq" 27external unbind: handle -> int -> unit = "stub_eventchn_unbind" 28external pending: handle -> int = "stub_eventchn_pending" 29external unmask: handle -> int -> unit = "stub_eventchn_unmask" 30 31let to_int x = x 32let of_int x = x 33