Changeset 3921 for src/Pugs/Run/Perl5.hs

Timestamp:

05/26/05 23:40:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* iv/pv/nv to Val promotion done.

Files:

• src/Pugs/Run/Perl5.hs (modified) (2 diffs)

src/Pugs/Run/Perl5.hs

@@ -1 @@
-{-# OPTIONS_GHC -fglasgow-exts -cpp -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fglasgow-exts -cpp -fno-warn-unused-binds -fno-warn-unused-imports #-}
 
 module Pugs.Run.Perl5 () where
@@ -9 +9 @@
 import Pugs.Embed.Perl5
 import Foreign
+import Foreign.C.Types
+import Foreign.C.String
 
 foreign export ccall "pugs_MkSvRef"
     mkSvRef :: PerlSV -> IO PugsVal
 
+foreign export ccall "pugs_IvToVal"
+    ivToVal :: CInt -> IO PugsVal
+
+foreign export ccall "pugs_NvToVal"
+    nvToVal :: CDouble -> IO PugsVal
+
+foreign export ccall "pugs_PvToVal"
+    pvToVal :: CString -> IO PugsVal
+
+mkVal :: Val -> IO PugsVal
+mkVal val = fmap castStablePtrToPtr $ newStablePtr val
+
 mkSvRef :: PerlSV -> IO PugsVal
-mkSvRef sv = fmap castStablePtrToPtr $ newStablePtr (PerlSV sv)
+mkSvRef = mkVal . PerlSV
+
+ivToVal :: CInt -> IO PugsVal
+ivToVal = mkVal . VInt . fromIntegral
+
+nvToVal :: CDouble -> IO PugsVal
+nvToVal = mkVal . VNum . realToFrac
+
+pvToVal :: CString -> IO PugsVal
+pvToVal = (mkVal . VStr =<<) . peekCString
 
 #endif