Changeset 3918 for src/perl5

Timestamp:

05/26/05 17:22:54 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* new pugsembed API with code!

Location:

src/perl5

Files:

• perl5.c (modified) (4 diffs)
• perl5.h (modified) (1 diff)
• pugsembed.c (modified) (1 diff)
• pugsembed.h (modified) (1 diff)

src/perl5/perl5.c

@@ -2 +2 @@
 #include <XSUB.h>
 #include "perlxsi.c"
+#include "pugsembed.c"
 
 /* Workaround for mapstart: the only op which needs a different ppaddr */
@@ -126 +127 @@
 }
 
+int
+perl5_SvIV ( SV *sv )
+{
+    return((int)SvIV(sv));
+}
+
+double
+perl5_SvNV ( SV *sv )
+{
+    return((double)SvNV(sv));
+}
+
 bool
 perl5_SvTRUE ( SV * sv )
@@ -134 +147 @@
 }
 
-void *
-perl5_SvPtr ( SV *sv )
-{
-    if (!sv_isa(sv, "pugs")) {
-        return NULL;
-    }
-    IV tmp = SvIV((SV*)SvRV(sv));
-    return((void *)tmp);
-}
-
 SV *
 perl5_newSVpv ( char * pv )
@@ -154 +157 @@
 {
     return(newSViv(iv));
-}
-
-SV *
-perl5_newSVptr ( void * ptr )
-{
-    SV *sv = newSV(0);
-    sv_setref_pv(sv, "pugs", ptr);
-    return(sv);
 }
 

src/perl5/perl5.h

@@ -5 +5 @@
 PerlInterpreter * perl5_init ( int argc, char **argv );
 char * perl5_SvPV ( SV * sv );
+int perl5_SvIV ( SV * sv );
+double perl5_SvNV ( SV * sv );
 bool perl5_SvTRUE ( SV * sv );
-void * perl5_SvPtr ( SV * sv );
 SV * perl5_newSVpv ( char * pv );
 SV * perl5_newSViv ( int iv );
-SV * perl5_newSVptr ( void * ptr );
 SV * perl5_call(char *subname, int argc, SV** args, int cxt);
 bool perl5_can(SV *inv, char *subname);

src/perl5/pugsembed.c

@@ -18 +18 @@
     return (sv);
 }
+
+Val *pugs_Eval ( char *code ) { return NULL; }
+
+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; }
+
+Val *pugs_MkSvRef  ( SV *sv ) { return NULL; }
+
+SV  *pugs_ValToSv ( Val *val ) { return NULL; }

src/perl5/pugsembed.h

@@ -1 +1 @@
 #include "perl5.h"
+#include <HsFFI.h>
 
-typedef void Val;
+#ifndef PugsValDefined
+#define PugsValDefined 1
+/* #define PUGS_EXTERN extern */
+#define PUGS_EXTERN  
+typedef HsStablePtr Val;
+#endif
 
-extern Val *pugs_Eval ( char *code );
-extern Val *pugs_Apply ( Val *sub, Val *inv, Val **args );
+PUGS_EXTERN Val *pugs_Eval ( char *code );
+PUGS_EXTERN Val *pugs_Apply ( Val *sub, Val *inv, Val **args );
 
-extern Val *pugs_IvToVal ( IV iv );
-extern Val *pugs_NvToVal ( NV iv );
-extern Val *pugs_PvToVal ( char *pv );
+PUGS_EXTERN Val *pugs_IvToVal ( IV iv );
+PUGS_EXTERN Val *pugs_NvToVal ( NV iv );
+PUGS_EXTERN Val *pugs_PvToVal ( char *pv );
 
-extern Val *pugs_MkSvRef  ( SV *sv );
-extern SV  *pugs_ValToSv ( Val *val );
+PUGS_EXTERN Val *pugs_MkSvRef  ( SV *sv );
+PUGS_EXTERN SV  *pugs_ValToSv ( Val *val );
 
 Val *pugs_SvToVal ( SV *sv );