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

Timestamp:

05/31/05 03:47:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5706

Message:

* handle multiple return values. It segfaults still --

clkao, please take a look.

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -51 +51 @@
 vnumToSV = constFail
 
-callPerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PerlSV -> CInt -> IO PerlSV
+callPerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PerlSV -> CInt -> IO [PerlSV]
 callPerl5 _ _ _ _ = constFail
 
@@ -109 +109 @@
     perl5_get_sv :: CString -> IO PerlSV
 foreign import ccall "perl5.h perl5_apply"
-    perl5_apply :: PerlSV -> PerlSV -> Ptr PerlSV -> PugsVal -> CInt -> IO PerlSV
+    perl5_apply :: PerlSV -> PerlSV -> Ptr PerlSV -> PugsVal -> CInt -> IO (Ptr PerlSV)
 foreign import ccall "perl5.h perl5_can"
     perl5_can :: PerlSV -> CString -> IO Bool
@@ -171 +171 @@
 vnumToSV int = perl5_newSVnv (realToFrac int)
 
-callPerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PugsVal -> CInt -> IO PerlSV
+callPerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PugsVal -> CInt -> IO [PerlSV]
 callPerl5 sub inv args env cxt = do
     withArray0 nullPtr args $ \argv -> do
-        perl5_apply sub inv argv env cxt
+        rv <- perl5_apply sub inv argv env cxt
+        peekArray0 nullPtr rv
 
 canPerl5 :: PerlSV -> String -> IO Bool