Changeset 3955 for src/perl5

Timestamp:

05/27/05 04:25:14 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5515

Message:

pugs method call from p5.

Files:

• src/perl5/perl5.c (modified) (4 diffs)

src/perl5/perl5.c

@@ -19 +19 @@
 
 "our $AUTOLOAD;"
-"sub AUTOLOAD { }"
-
+"sub AUTOLOAD { pugs::guts::invoke($AUTOLOAD, @_) } "
+"sub DESTROY {}"
 "package pugs::guts;"
+"our @ISA=('pugs');"
 "sub code { my ($class, $val) = @_;"
 "          sub { pugs::guts::invoke($val, undef, @_) } }"
@@ -28 +29 @@
 XS(_pugs_guts_invoke) {
     Val *val, *inv, **stack;
-    SV *ret;
+    SV *ret, *sv;
     int i;
     dXSARGS;
@@ -34 +35 @@
         Perl_croak(aTHX_ "hate software");
 
-    val = pugs_SvToVal(ST(0));
+    sv = ST(0);
+    if (sv_isa(sv, "pugs")) {
+        val = pugs_SvToVal(ST(0));
+    }
+    else {
+        sv_dump (sv);
+        val = pugs_PvToVal(SvPV_nolen(sv));
+        fprintf(stderr, "from method\n");
+    }
     inv = pugs_SvToVal(ST(1));
 
@@ -42 +51 @@
     }
     stack[i-2] = NULL;
-
-    /* fprintf(stderr, "back to pugs\n"); */
+    
     ST(0) = pugs_Apply(val, inv, stack);
+    sv_dump (ret);
     free (stack);