Changeset 3857 for src/perl5

Timestamp:

05/25/05 04:38:31 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* add perl5 callconv

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -125 +125 @@
     return rv;
 }
+
+char *
+perl5_call(char *subname, int argc, SV** args)
+{
+    int i;
+    dSP;
+
+    ENTER;
+    SAVETMPS;
+
+    PUSHMARK(SP);
+    for (i = 0; i <= argc; i++) {
+        XPUSHs(args[i]);
+    }
+    PUTBACK;
+
+    call_method(subname, G_SCALAR);
+
+    FREETMPS;
+    LEAVE;
+
+    return(POPs);
+}

src/perl5/perl5.h

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