Changeset 3924 for src/perl5

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.

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -160 +160 @@
 
 SV *
+perl5_newSVnv ( double iv )
+{
+    return(newSVnv(iv));
+}
+
+SV *
 perl5_call(char *subname, int argc, SV** args, int cxt)
 {

src/perl5/perl5.h

@@ -10 +10 @@
 SV * perl5_newSVpv ( char * pv );
 SV * perl5_newSViv ( int iv );
+SV * perl5_newSVnv ( double iv );
 SV * perl5_call(char *subname, int argc, SV** args, int cxt);
 bool perl5_can(SV *inv, char *subname);

src/perl5/pugsembed.c

@@ -20 +20 @@
 
 Val *pugs_Eval ( char *code ) { return NULL; }
-
 Val *pugs_Apply ( Val *sub, Val *inv, Val **args ) { return NULL; }
-
-SV  *pugs_ValToSv ( Val *val ) { return NULL; }

src/perl5/pugsembed.h

@@ -16 +16 @@
 extern Val *pugs_PvToVal ( char *pv );
 
-PUGS_EXTERN SV  *pugs_ValToSv ( Val *val );
-
 Val *pugs_SvToVal ( SV *sv );
 SV  *pugs_MkValRef ( Val *val );
 
 extern Val *pugs_MkSvRef  ( SV *sv );
+extern SV  *pugs_ValToSv ( Val *val );
+