Changeset 14571 for src/Pugs/Eval.hs

Timestamp:

11/01/06 17:37:57 (2 years ago)

Author:

audreyt

Message:

* Pugs.Parser: Implement "use v5" blocks:

use v6-alpha;
# ...some Perl 6 code...
{

use v5;
# ...some Perl 5 code...
{

use v6-alpha;
# ...more Perl 6 code...

}

}

Thanks to fglock++ for prompting this.

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -426 +426 @@
     | otherwise = enterBlock $ reduce exp
     
+reduceSyn "block-perl5" [Val p5code] = do
+    -- XXX - 0th approximation.
+    op1 "Pugs::Internals::eval_perl5" p5code
+
 reduceSyn "sub" [exp] = do
     (VCode sub) <- enterEvalContext (cxtItem "Code") exp