From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Scott Subject: [PATCH 2/4] ocaml: eventchn: in the interface, we don't have to give implementation details Date: Wed, 20 Mar 2013 20:24:43 +0000 Message-ID: <1363811085-6700-3-git-send-email-dave.scott@eu.citrix.com> References: <1363811085-6700-1-git-send-email-dave.scott@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <1363811085-6700-1-git-send-email-dave.scott@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xen.org Cc: jonathan.ludlam@eu.citrix.com, David Scott List-Id: xen-devel@lists.xenproject.org Remove the mention of the C function names from the .mli -- this is only needed in the implementation .ml Signed-off-by: David Scott --- tools/ocaml/libs/eventchn/xeneventchn.mli | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/tools/ocaml/libs/eventchn/xeneventchn.mli b/tools/ocaml/libs/eventchn/xeneventchn.mli index 2b582cd..74e581b 100644 --- a/tools/ocaml/libs/eventchn/xeneventchn.mli +++ b/tools/ocaml/libs/eventchn/xeneventchn.mli @@ -23,14 +23,13 @@ type t val to_int: t -> int val of_int: int -> t -external init : unit -> handle = "stub_eventchn_init" -external fd: handle -> Unix.file_descr = "stub_eventchn_fd" +val init: unit -> handle +val fd: handle -> Unix.file_descr -external notify : handle -> t -> unit = "stub_eventchn_notify" -external bind_interdomain : handle -> int -> int -> t - = "stub_eventchn_bind_interdomain" -external bind_dom_exc_virq : handle -> t = "stub_eventchn_bind_dom_exc_virq" -external unbind : handle -> t -> unit = "stub_eventchn_unbind" -external pending : handle -> t = "stub_eventchn_pending" -external unmask : handle -> t -> unit - = "stub_eventchn_unmask" +val notify : handle -> t -> unit +val bind_interdomain : handle -> int -> int -> t + +val bind_dom_exc_virq : handle -> t +val unbind : handle -> t -> unit +val pending : handle -> t +val unmask : handle -> t -> unit -- 1.8.1.2