Changeset 4227 for src/perl5

Timestamp:

06/01/05 00:57:55 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5801

Message:

* add pugs::guts::eval() to perl5 prims

Files:

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

src/perl5/perl5.c

@@ -26 +26 @@
 "          sub { pugs::guts::invoke($val, undef, @_) } }"
 "1;";
+
+XS(_pugs_guts_eval) {
+    Val *val;
+
+    dXSARGS;
+    if (items < 1)
+        Perl_croak(aTHX_ "hate software");
+    val = pugs_Eval ( SvPV_nolen(ST(0)) );
+    ST(0) = pugs_ValToSv ( val );
+
+    XSRETURN(1);
+}
 
 XS(_pugs_guts_invoke) {
@@ -152 +164 @@
 
     newXS((char*) "pugs::guts::invoke", _pugs_guts_invoke, (char*)__FILE__);
+    newXS((char*) "pugs::guts::eval", _pugs_guts_eval, (char*)__FILE__);
 
     eval_pv(pugs_guts_code, TRUE);