Author: coke
Date: Tue Aug 2 06:03:47 2005
New Revision: 8767
Modified:
trunk/languages/tcl/tcl.pl
Log:
Try to simplify things for the p6r engine when reading in the tcl rules.
Modified: trunk/languages/tcl/tcl.pl
==============================================================================
--- trunk/languages/tcl/tcl.pl (original)
+++ trunk/languages/tcl/tcl.pl Tue Aug 2 06:03:47 2005
@@ -66,10 +66,11 @@ EOH
my $rule = join("",<RULES>);
$rule =~ s/\n//g;
-while ($rule =~ m/rule\s+(\w+)\s*{(.*?)};/g) {
+while ($rule =~ m/rule\s+(\w+)\s*{\s*(.*?)\s*};?/g) {
my $rule_name = $1;
my $rule_def = $2;
- $rule_def =~ s:\\:\\\\:g;
+ $rule_def =~ s:\s+: :g; # remove extra whitespace
+ $rule_def =~ s:\\:\\\\:g;
$rule_def =~ s:":\\":g;
$rules .= <<EORULE
