Changeset 21809 for perl5

Timestamp:

08/06/08 15:52:25 (4 months ago)

Author:

fglock

Message:

[PCR] added an optional ast optimizer; enable with PCR_OPTIMIZE=1

Location:

perl5/Pugs-Compiler-Rule

Files:

• MANIFEST (modified) (1 diff)
• lib/Pugs/AST/Regex.pm (added)
• lib/Pugs/Compiler/Regex.pm (modified) (2 diffs)

perl5/Pugs-Compiler-Rule/MANIFEST

@@ -27 +27 @@
 inc/Test/More.pm
 lib/Pugs/AST/Expression.pm
+lib/Pugs/AST/Regex.pm
 lib/Pugs/Compiler/Grammar.pm
 lib/Pugs/Compiler/Regex.pm

perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm

@@ -10 +10 @@
 use Pugs::Grammar::Rule;
 use Pugs::Compiler::RegexPerl5;
-
 use Pugs::Emitter::Rule::Perl5;
 use Pugs::Emitter::Rule::Perl5::Ratchet;
-
 use Pugs::Runtime::Regex;
+use Pugs::AST::Regex;
 
 # complete the dependency circularity
@@ -101 +100 @@
         }
         ### rule AST: $ast
+
+        Pugs::AST::Regex::optimize($ast)
+            if $ENV{PCR_OPTIMIZE};
 
         # save the ast for debugging