Changeset 3924 for src/Pugs/Run

Timestamp:

05/26/05 23:54:07 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* iv/nv/pv two-way casting all done.

Files:

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

src/Pugs/Run/Perl5.hs

@@ -11 +11 @@
 import Foreign.C.Types
 import Foreign.C.String
+
+foreign export ccall "pugs_ValToSv"
+    valToSv :: PugsVal -> IO PerlSV
 
 foreign export ccall "pugs_MkSvRef"
@@ -27 +30 @@
 mkVal val = fmap castStablePtrToPtr $ newStablePtr val
 
+deVal :: PugsVal -> IO Val
+deVal ptr = deRefStablePtr (castPtrToStablePtr ptr)
+
+valToSv :: PugsVal -> IO PerlSV
+valToSv ptr = do
+    val <- deVal ptr
+    case val of
+        PerlSV sv   -> return sv
+        _           -> mkValRef val
+
 mkSvRef :: PerlSV -> IO PugsVal
 mkSvRef = mkVal . PerlSV