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

Timestamp:

05/25/05 05:35:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* string and integer parameter passing.

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -10 +10 @@
 type PerlSV = ()
 
+constFail :: a -> IO b
+constFail = const $ fail "perl5 not embedded"
+
 initPerl5 :: String -> IO PerlInterpreter
 initPerl5 _ = return ()
-
-evalPerl5 :: String -> IO PerlSV
-evalPerl5 _ = fail "perl5 not embedded"
 
 freePerl5 :: PerlInterpreter -> IO ()
 freePerl5 _ = return ()
 
+evalPerl5 :: String -> IO PerlSV
+evalPerl5 = constFail
+
 svToVStr :: PerlSV -> IO String
-svToVStr _ = fail "perl5 not embedded"
+svToVStr = constFail
+
+vstrToSV :: String -> IO PerlSV
+vstrToSV = constFail
+
+vintToSV :: Integer -> IO PerlSV
+vintToSV = constFail
 
 callPerl5 :: String -> [PerlSV] -> IO PerlSV
-callPerl5 _ _ = fail "perl5 not embedded"
+callPerl5 _ = constFail
 
 #else
@@ -53 +62 @@
 foreign import ccall "perl5.h perl5_SvPV"
     perl5_SvPV :: PerlSV -> IO CString
+foreign import ccall "perl5.h perl5_newSVpv"
+    perl5_newSVpv :: CString -> IO PerlSV
+foreign import ccall "perl5.h perl5_newSViv"
+    perl5_newSViv :: CInt -> IO PerlSV
 foreign import ccall "perl5.h perl5_call"
     perl5_call :: CString -> CInt -> Ptr PerlSV -> IO PerlSV
@@ -66 +79 @@
 svToVStr :: PerlSV -> IO String
 svToVStr sv = peekCString =<< perl5_SvPV sv
+
+vstrToSV :: String -> IO PerlSV
+vstrToSV str = withCString str perl5_newSVpv 
+
+vintToSV :: Integer -> IO PerlSV
+vintToSV int = perl5_newSViv (fromIntegral int)
 
 callPerl5 :: String -> [PerlSV] -> IO PerlSV