Changeset 3975 for src/Pugs/Embed/Perl5.hs

Timestamp:

05/27/05 16:36:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* refactor newSVval to handler Val->PerlSV casting.
* beginning of unifying two GCs together.

Files:

• src/Pugs/Embed/Perl5.hs (modified) (4 diffs)

src/Pugs/Embed/Perl5.hs

@@ -60 +60 @@
 nullSV = error "perl5 not embedded"
 
+mkSV :: IO PerlSV -> IO PerlSV
+mkSV = id
+
 #else
 
@@ -66 +69 @@
 
 module Pugs.Embed.Perl5 where
+import Pugs.Internals
 import Foreign
 import Foreign.C.Types
@@ -86 +90 @@
 foreign import ccall "perl.h boot_DynaLoader"
     boot_DynaLoader :: Ptr () -> IO ()
+foreign import ccall "perl5.h perl5_finalize"
+    perl5_finalize :: PerlSV -> IO ()
 foreign import ccall "perl5.h perl5_SvPV"
     perl5_SvPV :: PerlSV -> IO CString
@@ -173 +179 @@
 canPerl5 sv meth = withCString meth $ \cstr -> perl5_can sv cstr
 
+mkSV :: IO PerlSV -> IO PerlSV
+mkSV = id
+{- 
+action = do
+    sv <- action 
+    addFinalizer sv (perl5_finalize sv)
+    return sv
+-}
+
 evalPerl5 :: String -> PugsVal -> CInt -> IO PerlSV
-evalPerl5 str env cxt = withCString str $ \cstr -> perl5_eval cstr env cxt
+evalPerl5 str env cxt = mkSV $ withCString str $ \cstr -> perl5_eval cstr env cxt
 
 freePerl5 :: PerlInterpreter -> IO ()