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

Timestamp:

05/27/05 01:59:21 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* obj invocation now carries env around too

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -47 +47 @@
 vnumToSV = constFail
 
-callPerl5 :: String -> [PerlSV] -> CInt -> IO PerlSV
-callPerl5 _ _ = constFail
+callPerl5 :: String -> [PerlSV] -> PerlSV -> CInt -> IO PerlSV
+callPerl5 _ _ _ = constFail
 
 canPerl5 :: PerlSV -> String -> IO Bool
@@ -101 +101 @@
     perl5_set_svref :: CString -> PugsVal -> IO ()
 foreign import ccall "perl5.h perl5_call"
-    perl5_call :: CString -> CInt -> Ptr PerlSV -> CInt -> IO PerlSV
+    perl5_call :: CString -> CInt -> Ptr PerlSV -> PerlSV -> CInt -> IO PerlSV
 foreign import ccall "perl5.h perl5_can"
     perl5_can :: PerlSV -> CString -> IO Bool
@@ -157 +157 @@
 vnumToSV int = perl5_newSVnv (realToFrac int)
 
-callPerl5 :: String -> [PerlSV] -> CInt -> IO PerlSV
-callPerl5 str args cxt = do
+callPerl5 :: String -> [PerlSV] -> PerlSV -> CInt -> IO PerlSV
+callPerl5 str args env cxt = do
     withCString str $ \cstr -> do
         withArray args $ \argv -> do
-            perl5_call cstr (toEnum $ length args) argv cxt
+            perl5_call cstr (toEnum $ length args) argv env cxt
 
 canPerl5 :: PerlSV -> String -> IO Bool