1996-11-08 06:48:23 -08:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* OCaml *)
|
1996-11-08 06:48:23 -08:00
|
|
|
(* *)
|
|
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
2001-12-07 05:41:02 -08:00
|
|
|
(* under the terms of the GNU Library General Public License, with *)
|
|
|
|
(* the special exception on linking described in file ../LICENSE. *)
|
1996-11-08 06:48:23 -08:00
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
2011-12-21 07:37:54 -08:00
|
|
|
(** Registering OCaml values with the C runtime.
|
1996-11-08 06:48:23 -08:00
|
|
|
|
2011-12-21 07:37:54 -08:00
|
|
|
This module allows OCaml values to be registered with the C runtime
|
1996-11-08 06:48:23 -08:00
|
|
|
under a symbolic name, so that C code can later call back registered
|
2011-12-21 07:37:54 -08:00
|
|
|
OCaml functions, or raise registered OCaml exceptions.
|
2001-10-26 15:37:14 -07:00
|
|
|
*)
|
1996-11-08 06:48:23 -08:00
|
|
|
|
2001-12-03 14:01:28 -08:00
|
|
|
val register : string -> 'a -> unit
|
2001-10-26 15:37:14 -07:00
|
|
|
(** [Callback.register n v] registers the value [v] under
|
|
|
|
the name [n]. C code can later retrieve a handle to [v]
|
|
|
|
by calling [caml_named_value(n)]. *)
|
1996-11-08 06:48:23 -08:00
|
|
|
|
2001-12-03 14:01:28 -08:00
|
|
|
val register_exception : string -> exn -> unit
|
2001-10-26 15:37:14 -07:00
|
|
|
(** [Callback.register_exception n exn] registers the
|
|
|
|
exception contained in the exception value [exn]
|
|
|
|
under the name [n]. C code can later retrieve a handle to
|
|
|
|
the exception by calling [caml_named_value(n)]. The exception
|
2012-02-10 06:45:41 -08:00
|
|
|
value thus obtained is suitable for passing as first argument
|
2001-10-26 15:37:14 -07:00
|
|
|
to [raise_constant] or [raise_with_arg]. *)
|