Changeset 3865 for src/perl5

Timestamp:

05/25/05 07:33:47 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* new perl5_can API to test whether a method can be found

in perl5 land, or fallback to perl6.

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -167 +167 @@
     return rv;
 }
+
+bool
+perl5_can(SV *inv, char *subname)
+{
+    int rv;
+
+    dSP;
+
+    ENTER;
+    SAVETMPS;
+
+    PUSHMARK(SP);
+    XPUSHs(inv);
+    XPUSHs(newSVpv(subname, 0));
+    PUTBACK;
+
+    call_pv("UNIVERSAL::can", G_SCALAR);
+
+    SPAGAIN;
+
+    rv = POPi;
+    /* printf("Checking: %s->can(%s), ret %d\n", SvPV_nolen(inv), subname, rv); */
+
+    PUTBACK;
+    FREETMPS;
+    LEAVE;
+
+    return rv;
+}
+

src/perl5/perl5.h

@@ -8 +8 @@
 SV * perl5_newSViv ( int iv );
 SV * perl5_call(char *subname, int argc, SV** args);
-
+bool perl5_can(SV *inv, char *subname);