Changeset 3932 for src/perl5

Timestamp:

05/27/05 00:52:37 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5515

Message:

WIP p5 ducktape.

Location:

src/perl5

Files:

• perl5.c (modified) (2 diffs)
• pugsembed.c (modified) (1 diff)

src/perl5/perl5.c

@@ -11 +11 @@
 
 static PerlInterpreter *my_perl;
+
+const char eval_file_code[] =
+"use strict;"
+"package pugs;"
+
+"our $AUTOLOAD;"
+"sub AUTOLOAD { }"
+"warn 'perl5 glue compiled';"
+//"pugs::guts::test();"
+
+"package pugs::code;"
+"sub new { }"
+"1;";
+
+XS(_pugs_guts_test) {
+    dXSARGS;
+    if (items != 1)
+        Perl_croak(aTHX_ "hate software");
+
+    XSRETURN(1);
+}
+
 
 #ifdef HAS_PROCSELFEXE
@@ -98 +120 @@
     if (exitstatus == 0)
         exitstatus = perl_run( my_perl );
-
+    return exitstatus;
+
+    fprintf(stderr, "hello, perl5\n");
+
+    newXS((char*) "pugs::guts::test", _pugs_guts_test, (char*)__FILE__);
+
+    eval_pv(eval_file_code, FALSE);
+
+    if (SvTRUE(ERRSV)) {
+        STRLEN n_a;
+        printf("Error init perl: %s\n", SvPV(ERRSV,n_a));
+        exit(1);
+    }
     return my_perl;
-    /*
-    perl_destruct( my_perl );
-
-    if ( par_getenv("PAR_SPAWNED") == NULL ) {
-        if ( stmpdir == NULL ) {
-            stmpdir = par_getenv("PAR_TEMP");
-        }
-        if ( stmpdir != NULL ) {
-            par_cleanup(stmpdir);
-        }
-    }
-
-    perl_free( my_perl );
-    PERL_SYS_TERM();
-
-    return exitstatus;
-    */
 }
 

src/perl5/pugsembed.c

@@ -15 +15 @@
 {
     SV *sv = newSV(0);
+    fprintf(stderr, "pugs mkvalref: %p\n", val);
+    Val *isa[2];
+    isa[0] = pugs_PvToVal("Code");
+    isa[1] = NULL;
+    if (pugs_ValToIv(pugs_Apply("&isa", val, isa))) {
+        fprintf(stderr, "got a code!!\n");
+    }
     sv_setref_pv(sv, "pugs", val);
     return (sv);