Changeset 3919 for src/perl5

Timestamp:

05/26/05 23:10:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* marshall pugs execution environment into $pugs::env.

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -190 +190 @@
 
 SV *
-perl5_eval(char *code, int cxt)
+perl5_eval(char *code, SV *env, int cxt)
 {
     dSP;
-    SV* sv = newSVpv(code, 0);
-
+    SV* sv;
+
+    ENTER;
+
+    if (env != NULL) {
+        sv = get_sv("pugs::env", 1);
+        save_item(sv);
+        sv_setsv(sv, env);
+    }
+
+    sv = newSVpv(code, 0);
     eval_sv(sv, cxt);
     SvREFCNT_dec(sv);
@@ -200 +209 @@
     SPAGAIN;
     sv = POPs;
-    PUTBACK;
+    SvREFCNT_inc(sv);
+    PUTBACK;
+
+    FREETMPS;
+    LEAVE;
 
     return sv;

src/perl5/perl5.h

@@ -12 +12 @@
 SV * perl5_call(char *subname, int argc, SV** args, int cxt);
 bool perl5_can(SV *inv, char *subname);
-SV * perl5_eval(char *code, int cxt);
+SV * perl5_eval(char *code, SV *env, int cxt);