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

Timestamp:

05/25/05 03:49:22 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* SV stringification!

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -18 +18 @@
 freePerl5 :: PerlInterpreter -> IO ()
 freePerl5 _ = return ()
+
+svToVStr :: PerlSV -> IO a
+svToVStr _ = fail "not implemented"
 
 #else
@@ -45 +48 @@
 foreign import ccall "perl.h boot_DynaLoader"
     boot_DynaLoader :: Ptr () -> IO ()
+foreign import ccall "perl5.h perl5_SvPV"
+    perl5_SvPV :: PerlSV -> IO CString
 foreign import ccall "perl5.h perl5_init"
     perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter
@@ -53 +58 @@
         withArray [prog, prog, cstr] $ \argv -> do
             perl5_init 3 argv
+
+svToVStr :: PerlSV -> IO String
+svToVStr sv = peekCString =<< perl5_SvPV sv
 
 evalPerl5 :: String -> IO PerlSV