1 (* Interface to Perl from OCaml.
2 * Copyright (C) 2003 Merjis Ltd.
3 * $Id: perl.ml,v 1.4 2003-10-12 17:33:14 rich Exp $
10 exception Perl_failure of string
12 external c_init : unit -> unit = "perl4caml_init"
14 Callback.register_exception "perl4caml_perl_failure" (Perl_failure "");
15 c_init () (* Initialise C code. *)
17 external destroy : unit -> unit
20 external create : ?args:string array -> unit -> t
23 external set_context : t -> unit
24 = "perl4caml_set_context"
26 external int_of_sv : sv -> int = "perl4caml_int_of_sv"
27 external sv_of_int : int -> sv = "perl4caml_sv_of_int"
28 external float_of_sv : sv -> int = "perl4caml_float_of_sv"
29 external sv_of_float : int -> sv = "perl4caml_sv_of_float"
30 external string_of_sv : sv -> string = "perl4caml_string_of_sv"
31 external sv_of_string : string -> sv = "perl4caml_sv_of_string"
32 external sv_is_true : sv -> bool = "perl4caml_sv_is_true"
33 external sv_is_undef : sv -> bool = "perl4caml_sv_is_undef"
34 external sv_undef : unit -> sv = "perl4caml_sv_undef"
35 external sv_yes : unit -> sv = "perl4caml_sv_yes"
36 external sv_no : unit -> sv = "perl4caml_sv_no"
38 let sv_true () = sv_of_int 1
39 let sv_false () = sv_of_int 0
41 let bool_of_sv = sv_is_true
42 let sv_of_bool b = if b then sv_true () else sv_false ()
55 external sv_type : sv -> sv_t = "perl4caml_sv_type"
57 external deref : sv -> sv = "perl4caml_deref"
59 external get_sv : ?create:bool -> string -> sv = "perl4caml_get_sv"
61 external call : ?sv:sv -> ?fn:string -> sv list -> sv
63 external call_array : ?sv:sv -> ?fn:string -> sv list -> sv list
64 = "perl4caml_call_array"
65 external call_void : ?sv:sv -> ?fn:string -> sv list -> unit
66 = "perl4caml_call_void"
68 external eval : string -> sv
71 external call_method : sv -> string -> sv list -> sv
72 = "perl4caml_call_method"
73 external call_method_array : sv -> string -> sv list -> sv list
74 = "perl4caml_call_method_array"
75 external call_method_void : sv -> string -> sv list -> unit
76 = "perl4caml_call_method_void"
77 external call_class_method : string -> string -> sv list -> sv
78 = "perl4caml_call_class_method"
79 external call_class_method_array : string -> string -> sv list -> sv list
80 = "perl4caml_call_class_method_array"
81 external call_class_method_void : string -> string -> sv list -> unit
82 = "perl4caml_call_class_method_void"