Changeset 13658 for src/Pugs/Run

Timestamp:

09/26/06 08:19:57 (2 years ago)

Author:

audreyt

Message:

* Pugs/Perl5 embedding overhaul:

Passing mutable Scalar, Hash, Array, Code, Pair and Handle objects
into Perl 5 land now creates the correct tie() SVs there.
( To pass in a scalar, use the "func(VAR($x))" syntax.)

* Native values (Undef, IV, NV, PV) from Perl 5 land now occurs in

Pugs land as native values, not doubly-boxed SV pointers.

Files:

• src/Pugs/Run/Perl5.hs (modified) (3 diffs)

src/Pugs/Run/Perl5.hs

@@ -44 +44 @@
 foreign export ccall "pugs_PvToVal"
     pvToVal :: CString -> IO PugsVal
+
+foreign export ccall "pugs_UndefVal"
+    undefVal :: IO PugsVal
 
 askPerl5Env :: IO Env
@@ -93 +96 @@
     newSVval val
 
-newSVval :: Val -> IO PerlSV
-newSVval val = case val of
-    PerlSV sv   -> return sv
-    VStr str    -> vstrToSV str
-    VType typ   -> vstrToSV (showType typ)
-    VBool bool  -> vintToSV (fromEnum bool)
-    VInt int    -> vintToSV int
-    VRat rat    -> vnumToSV rat
-    VNum num    -> vnumToSV num
-    _           -> mkValRef val
-
 valToIv :: PugsVal -> IO CInt
 valToIv ptr = do
@@ -140 +132 @@
     return ptr
 
+undefVal :: IO PugsVal
+undefVal = mkVal VUndef
+
 #endif