X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl.mli;h=778de580a7d0165fc80b1c945e6041f6a0bb4995;hb=43ea9d6fb51c33d789760326f2233998dd1754ee;hp=ef8dea0e958a63d0205eb9277e730b2c96e0575d;hpb=3099885336bf959064b00e4205e11e4e5d68e7d5;p=perl4caml.git

diff --git a/perl.mli b/perl.mli
index ef8dea0..778de58 100644
--- a/perl.mli
+++ b/perl.mli
@@ -2,12 +2,9 @@
   *
   * Copyright (C) 2003 Merjis Ltd.
   *
-  * $Id: perl.mli,v 1.9 2003-10-18 12:36:09 rich Exp $
+  * $Id: perl.mli,v 1.12 2004-03-03 12:39:20 rich Exp $
   *)
 
-type t
-(** Perl interpreter (abstract type). *)
-
 type sv
 (** Perl scalar value. *)
 
@@ -20,67 +17,6 @@ type hv
 exception Perl_failure of string
 (** [die] in Perl code is translated automatically into this exception. *)
 
-val current_interpreter : unit -> t
-(** The [Perl] module has a notion of the "current" interpreter. Throws
-  * [Not_found] if there is no current interpreter.
-  *
-  * When a program starts up, if it has been linked with [perl_init.cmo]
-  * (which is should be), an interpreter is created for you. Normally
-  * this should be all you need to know about interpreters, unless you
-  * want to be really good and call
-  * [Perl.destroy (Perl.current_interpreter ())] at the end of your
-  * program to do proper cleanup.
-  *
-  * You can also, under certain circumstances, create other interpreters,
-  * although this is experiemental and definitely not recommended.
-  *
-  * If Perl was compiled with [-Dusemultiplicity] then you can create
-  * mutliple interpreters at the same time and switch between them by
-  * calling {!Perl.set_context}.
-  *
-  * Otherwise you may destroy the current interpreter and create another
-  * one (provided that at no time you have two "live" interpreters),
-  * by calling {!Perl.destroy} followed by {!Perl.create}.
-*)
-
-val destroy : t -> unit
-(** Destroy the Perl interpreter, performing any necessary cleanup.
-  *
-  * You should call [Perl.destroy (Perl.current_interpreter ())]  at
-  * the end of your program, otherwise Perl won't properly clean up
-  * (running [END] blocks, destroying objects and the like).
-  *
-  * Note that a Perl interpreter is created for you by default when you
-  * use perl4caml.
-  *
-  * The current interpreter can be found by calling
-  * {!Perl.current_interpreter}.
-  *)
-
-val create : ?args:string array -> unit -> t
-(** Create a new Perl interpreter. (Note that a Perl interpreter is created
-  * for you by default so you don't need to call this).
-  *
-  * The optional [?args] parameter is the command line passed to the
-  * interpreter, and controls things like whether warnings are enabled
-  * ([-w]) and which file(s) are parsed. The first element in the
-  * array is the executable name (you can just set this to [""]).
-  *
-  * Perl won't allow you to create multiple interpreters at the same time
-  * unless Perl itself was compiled with [-Dusemultiplicity]. However you
-  * can create, then destroy, then create another and so on.
-  *
-  * The newly created interpreter is set as the "current interpreter".
-  *)
-
-val set_context : t -> unit
-(** IF Perl was compiled with [-Dusemultiplicity] and IF you are using
-  * multiple interpreters at the same time, then you must call this to
-  * set the implied "current" interpreter.
-  *
-  * Most users will never need to call this function.
-  *)
-
 val int_of_sv : sv -> int
 (** Convert a Perl [SV] into an integer. Note that OCaml [int]s aren't
   * large enough to store the full 32 (or 64) bits from a Perl integer,
@@ -88,9 +24,9 @@ val int_of_sv : sv -> int
   *)
 val sv_of_int : int -> sv
 (** Convert an [int] into a Perl [SV]. *)
-val float_of_sv : sv -> int
+val float_of_sv : sv -> float
 (** Convert a Perl [SV] into a float. *)
-val sv_of_float : int -> sv
+val sv_of_float : float -> sv
 (** Convert a [float] into a Perl [SV]. *)
 val string_of_sv : sv -> string
 (** Convert a Perl [SV] into a string. *)
@@ -136,20 +72,33 @@ val sv_type : sv -> sv_t
 val string_of_sv_t : sv_t -> string
 (** Return a printable string for an [sv_t] ([SV] type). *)
 
+val scalarref : sv -> sv
+(** Given a scalar, this returns a reference to the scalar. Note that
+  * because references are [SV]s, this returns [sv].
+  *)
+val arrayref : av -> sv
+(** Given an array, this returns a reference to the array. Note that
+  * because references are [SV]s, this returns [sv].
+  *)
+val hashref : hv -> sv
+(** Given a hash, this returns a reference to the hash. Note that
+  * because references are [SV]s, this returns [sv].
+  *)
+
 val deref : sv -> sv
 (** The input is a reference to a scalar. This returns the underlying
   * scalar [SV]. If the input is not a reference to a scalar, throws
-  * [Invalid_arg].
+  * [Invalid_argument].
   *)
 val deref_array : sv -> av
 (** The input is a reference to an array. This returns the underlying
   * array [AV]. If the input is not a reference to an array, throws
-  * [Invalid_arg].
+  * [Invalid_argument].
   *)
 val deref_hash : sv -> hv
 (** The input is a reference to a hash. This returns the underlying
   * hash [HV]. If the input is not a reference to a hash, throws
-  * [Invalid_arg].
+  * [Invalid_argument].
   *)
 
 val av_empty : unit -> av