diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:39:48 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:39:48 (GMT) |
commit | 9693bb5ede034f5a46ac9e677ed390630381b6cf (patch) | |
tree | faacdf87f8801004278412b785bdf17bb308a716 | |
parent | a084ed270335d390e6bf8748b1f40d51eaff5c17 (diff) | |
download | blt-9693bb5ede034f5a46ac9e677ed390630381b6cf.zip blt-9693bb5ede034f5a46ac9e677ed390630381b6cf.tar.gz blt-9693bb5ede034f5a46ac9e677ed390630381b6cf.tar.bz2 |
add namespace
-rw-r--r-- | taccle/taccle.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index 51b4448..71f594e 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -899,7 +899,7 @@ proc write_parser {} { if {\$token == \"\"} { set yylval \"\" set token \[yylex\] - set ${::p}buflval \$yylval + set buflval \$yylval } if {!\[info exists table(\$state:\$token)\]} { \# pop off states until error token accepted @@ -924,14 +924,14 @@ proc write_parser {} { } set yylval {} set token \[yylex\] - set ${::p}buflval \$yylval + set buflval \$yylval } continue } switch -- \$table(\$state:\$token) { shift { lappend state_stack \$table(\$state:\$token,target) - lappend value_stack \$${::p}buflval + lappend value_stack \$buflval set token \"\" } reduce { @@ -943,7 +943,7 @@ proc write_parser {} { set ${::p}dc \$rules(\$rule,dc) \} set ${::p}stackpointer \[expr {\[llength \$state_stack\]-\$${::p}dc}\] - ${::p}::setupvalues \$value_stack \$${::p}stackpointer \$${::p}dc + setupvalues \$value_stack \$${::p}stackpointer \$${::p}dc set _ \$1 set yylval \[lindex \$value_stack end\] switch -- \$rule {" @@ -954,7 +954,7 @@ proc write_parser {} { } puts $::dest " } - ${::p}::unsetupvalues \$${::p}dc + unsetupvalues \$${::p}dc # pop off tokens from the stack if normal rule if \{!\[info exists rules(\$rule,e)\]\} \{ incr ${::p}stackpointer -1 |