diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-21 20:48:35 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-21 20:48:35 (GMT) |
commit | 534747dc3111d125b911aa53b784c6b9e58b4218 (patch) | |
tree | 6c9ebbb3defa40b8fbfd58f5cc2342f2215ad4d1 | |
parent | 9d9275c37de63cd905206bf27582d44281b29c8f (diff) | |
download | blt-534747dc3111d125b911aa53b784c6b9e58b4218.zip blt-534747dc3111d125b911aa53b784c6b9e58b4218.tar.gz blt-534747dc3111d125b911aa53b784c6b9e58b4218.tar.bz2 |
add namespace
-rw-r--r-- | fickle/fickle.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fickle/fickle.tcl b/fickle/fickle.tcl index d9e407f..0b96449 100644 --- a/fickle/fickle.tcl +++ b/fickle/fickle.tcl @@ -644,7 +644,7 @@ proc ${::p}::yylex \{\} \{ \} \} set yyleng 0 - set ${::p}_matched_rule -1" + set yy_matched_rule -1" # build up the if statements to determine which rule to execute; # lex is greedy and will use the rule that matches the most @@ -670,7 +670,7 @@ proc ${::p}::yylex \{\} \{ \[lindex \$${::p}_match 1\] - \$yy_index + 1 > \$yyleng\} \{ set yytext \[string range \$yy_buffer \$yy_index \[lindex \$${::p}_match 1\]\] set yyleng \[string length \$yytext\] - set ${::p}_matched_rule $rule_num" + set yy_matched_rule $rule_num" if $::debugmode { puts $::dest " set ${::p}rule_num \"rule at line $rule_line\"" } @@ -678,7 +678,7 @@ proc ${::p}::yylex \{\} \{ incr rule_num } # now add the default case - puts $::dest " if \{\$${::p}_matched_rule == -1\} \{ + puts $::dest " if \{\$yy_matched_rule == -1\} \{ set yytext \[string index \$yy_buffer \$yy_index\] set yyleng 1" if $::debugmode { @@ -699,7 +699,7 @@ proc ${::p}::yylex \{\} \{ if $::linenums { puts $::dest " set numlines \[expr \{\[llength \[split \$yytext \"\\n\"\]\] - 1\}\]" } - puts $::dest " switch -- \$${::p}_matched_rule \{" + puts $::dest " switch -- \$yy_matched_rule \{" set rule_num 0 foreach rule $::rule_table { puts -nonewline $::dest " $rule_num " |