Changeset 3863 for src/perl5

Timestamp:

05/25/05 05:35:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* string and integer parameter passing.

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -127 +127 @@
 
 SV *
+perl5_newSVpv ( char * pv )
+{
+    return(newSVpv(pv, 0));
+}
+
+SV *
+perl5_newSViv ( int iv )
+{
+    return(newSViv(iv));
+}
+
+SV *
 perl5_call(char *subname, int argc, SV** args)
 {

src/perl5/perl5.h

@@ -5 +5 @@
 PerlInterpreter * perl5_init ( int argc, char **argv );
 char * perl5_SvPV ( SV * sv );
+SV * perl5_newSVpv ( char * pv );
+SV * perl5_newSViv ( int iv );
 SV * perl5_call(char *subname, int argc, SV** args);
+