1 (** Interface to Perl from OCaml.
3 * Copyright (C) 2003 Merjis Ltd.
5 * $Id: perl.mli,v 1.1 2003-10-11 18:25:52 rich Exp $
9 (** Perl interpreter (abstract type). *)
12 (** Perl scalar value. *)
14 exception PerlFailure of string
15 (** [die] in Perl code is translated automatically into this exception. *)
17 external create : ?args:string array -> unit -> t
19 (** Create a Perl interpreter.
21 * The optional [?args] parameter is the command line passed to the
22 * interpreter, and controls things like whether warnings are enabled
23 * ([-w]) and which file(s) are parsed. The first element in the
24 * array is the executable name (you can just set this to [""]).
26 * Perl won't allow you to create multiple interpreters at the same time
27 * unless Perl itself was compiled with [-Dusemultiplicity]. However you
28 * can create, then destroy, then create another and so on.
31 external destroy : t -> unit
33 (** Destroy a Perl interpreter, performing any necessary cleanup. *)
35 external set_context : t -> unit
36 = "perl4caml_set_context"
37 (** IF Perl was compiled with [-Dusemultiplicity] and IF you are using
38 * multiple interpreters at the same time, then you must call this to
39 * set the implied "current" interpreter.
41 * Most users will never need to call this function.
44 external int_of_sv : sv -> int = "perl4caml_int_of_sv"
45 (** Convert a Perl [SV] into an integer. Note that OCaml [int]s aren't
46 * large enough to store the full 32 (or 64) bits from a Perl integer,
47 * so you may get a silent overflow.
49 external sv_of_int : int -> sv = "perl4caml_sv_of_int"
50 (** Convert an [int] into a Perl [SV]. *)
51 external float_of_sv : sv -> int = "perl4caml_float_of_sv"
52 (** Convert a Perl [SV] into a float. *)
53 external sv_of_float : int -> sv = "perl4caml_sv_of_float"
54 (** Convert a [float] into a Perl [SV]. *)
55 external string_of_sv : sv -> string = "perl4caml_string_of_sv"
56 (** Convert a Perl [SV] into a string. *)
57 external sv_of_string : string -> sv = "perl4caml_sv_of_string"
58 (** Convert a [string] into a Perl [SV]. *)
60 external call_scalar : string -> sv list -> sv
61 = "perl4caml_call_scalar"
62 (** Call a named Perl function in a scalar context. Returns the Perl [SV]
63 * containing the result value. (See {!int_of_sv} etc.).
65 * If the Perl code calls [die] then this will throw [PerlFailure].
69 external call_array : string -> sv list -> sv list
70 = "perl4caml_call_array"
71 (** Call a named Perl function in an array context. Returns the array as
72 * a list of Perl [SV]s.
74 * If the Perl code calls [die] then this will throw [PerlFailure].
77 external call : string -> sv list -> unit
79 (** Call a named Perl function in a void context, discarding any results.
81 * If the Perl code calls [die] then this will throw [PerlFailure].
84 external eval : string -> sv
86 (** This is exactly like the Perl [eval] command. It evaluates a piece of
87 * Perl code (in scalar context) and returns the result (a Perl [SV]).