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

Timestamp:

05/26/05 23:54:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* iv/nv/pv two-way casting all done.

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -35 +35 @@
 svToVal = constFail
 
-valToSV :: a -> IO PerlSV
-valToSV = constFail
+mkValRef :: a -> IO PerlSV
+mkValRef = constFail
 
 vstrToSV :: String -> IO PerlSV
 vstrToSV = constFail
 
-vintToSV :: Integer -> IO PerlSV
+vintToSV :: (Integral a) => a -> IO PerlSV
 vintToSV = constFail
+
+vnumToSV :: (Real a) => a -> IO PerlSV
+vnumToSV = constFail
 
 callPerl5 :: String -> [PerlSV] -> CInt -> IO PerlSV
@@ -91 +94 @@
 foreign import ccall "perl5.h perl5_newSViv"
     perl5_newSViv :: CInt -> IO PerlSV
+foreign import ccall "perl5.h perl5_newSVnv"
+    perl5_newSVnv :: CDouble -> IO PerlSV
 foreign import ccall "perl5.h perl5_call"
     perl5_call :: CString -> CInt -> Ptr PerlSV -> CInt -> IO PerlSV
@@ -128 +133 @@
     deRefStablePtr (castPtrToStablePtr ptr)
 
-valToSV :: a -> IO PerlSV
-valToSV x = do
+mkValRef :: a -> IO PerlSV
+mkValRef x = do
     ptr <- fmap castStablePtrToPtr $ newStablePtr x
     pugs_MkValRef ptr
@@ -136 +141 @@
 vstrToSV str = withCString str perl5_newSVpv 
 
-vintToSV :: Integer -> IO PerlSV
+vintToSV :: (Integral a) => a -> IO PerlSV
 vintToSV int = perl5_newSViv (fromIntegral int)
+
+vnumToSV :: (Real a) => a -> IO PerlSV
+vnumToSV int = perl5_newSVnv (realToFrac int)
 
 callPerl5 :: String -> [PerlSV] -> CInt -> IO PerlSV