Changeset 15416 for src/Pugs/Run

Timestamp:

03/03/07 14:53:11 (21 months ago)

Author:

audreyt

Message:

* Pugs.Meta.Perl5: Beginning of routing-Perl5-SV-into-MO-land.

Files:

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

src/Pugs/Run/Perl5.hs

@@ -56 +56 @@
     env <- askPerl5Env
     val <- runEvalIO env $ opEval quiet "<eval>" str
-    mkVal val
+    mkValPtr val
     where
     quiet = MkEvalStyle
-        { evalResult = EvalResultLastValue
-        , evalError = EvalErrorUndef
+        { evalResult    = EvalResultLastValue
+        , evalError     = EvalErrorUndef
         }
 
@@ -121 +121 @@
 
 mkSvRef :: PerlSV -> IO PugsVal
-mkSvRef = mkVal . PerlSV
+-- mkSvRef = mkValPtr . VV . mkVal  -- NewVal/MO
+mkSvRef = mkValPtr . PerlSV            -- OldVal
 
 ivToVal :: CInt -> IO PugsVal
-ivToVal = mkVal . VInt . fromIntegral
+ivToVal = mkValPtr . VInt . fromIntegral
 
 nvToVal :: CDouble -> IO PugsVal
-nvToVal = mkVal . VNum . realToFrac
+nvToVal = mkValPtr . VNum . realToFrac
 
 pvnToVal :: CString -> CInt -> IO PugsVal
 pvnToVal cstr len = do
     str <- peekCStringLen (cstr, fromEnum len)
-    ptr <- mkVal $ VStr (decodeUTF8 str)
+    ptr <- mkValPtr $ VStr (decodeUTF8 str)
     return ptr
 
 undefVal :: IO PugsVal
-undefVal = mkVal VUndef
+undefVal = mkValPtr VUndef
 
 #endif