Changeset 3921

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.

Location:

src

Files:

• Pugs/Run/Perl5.hs (modified) (2 diffs)
• perl5/pugsembed.c (modified) (1 diff)
• perl5/pugsembed.h (modified) (1 diff)

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

src/perl5/pugsembed.c

@@ -23 +23 @@
 Val *pugs_Apply ( Val *sub, Val *inv, Val **args ) { return NULL; }
 
-Val *pugs_IvToVal ( IV iv ) { return NULL; }
-
-Val *pugs_NvToVal ( NV iv ) { return NULL; }
-
-Val *pugs_PvToVal ( char *pv ) { return NULL; }
-
 SV  *pugs_ValToSv ( Val *val ) { return NULL; }

src/perl5/pugsembed.h

@@ -12 +12 @@
 PUGS_EXTERN Val *pugs_Apply ( Val *sub, Val *inv, Val **args );
 
-PUGS_EXTERN Val *pugs_IvToVal ( IV iv );
-PUGS_EXTERN Val *pugs_NvToVal ( NV iv );
-PUGS_EXTERN Val *pugs_PvToVal ( char *pv );
+extern Val *pugs_IvToVal ( IV iv );
+extern Val *pugs_NvToVal ( NV iv );
+extern Val *pugs_PvToVal ( char *pv );
 
 PUGS_EXTERN SV  *pugs_ValToSv ( Val *val );