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

Timestamp:

05/25/05 04:50:59 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* AUTOLOAD now links to callconv

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -14 +14 @@
 
 evalPerl5 :: String -> IO PerlSV
-evalPerl5 _ = return ()
+evalPerl5 _ = fail "perl5 not embedded"
 
 freePerl5 :: PerlInterpreter -> IO ()
 freePerl5 _ = return ()
 
-svToVStr :: PerlSV -> IO a
-svToVStr _ = fail "not implemented"
+svToVStr :: PerlSV -> IO String
+svToVStr _ = fail "perl5 not embedded"
+
+callPerl5 :: String -> [PerlSV] -> IO PerlSV
+callPerl5 _ _ = fail "perl5 not embedded"
 
 #else
@@ -50 +53 @@
 foreign import ccall "perl5.h perl5_SvPV"
     perl5_SvPV :: PerlSV -> IO CString
+foreign import ccall "perl5.h perl5_call"
+    perl5_call :: CString -> CInt -> Ptr PerlSV -> IO PerlSV
 foreign import ccall "perl5.h perl5_init"
     perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter
@@ -61 +66 @@
 svToVStr :: PerlSV -> IO String
 svToVStr sv = peekCString =<< perl5_SvPV sv
+
+callPerl5 :: String -> [PerlSV] -> IO PerlSV
+callPerl5 str args = do
+    withCString str $ \cstr -> do
+        withArray args $ \argv -> do
+            perl5_call cstr (toEnum $ length args) argv
 
 evalPerl5 :: String -> IO PerlSV