diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:37:39 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:37:39 (GMT) |
commit | e8fb71f1376d02c92b39c9d14df1053f3026197a (patch) | |
tree | abe4a5e4f6a3407b3562d2601085c9a8cdd87df2 /taccle/taccle.tcl | |
parent | ef8de2e3b106bd31a21f023cc8a16b60956f4f27 (diff) | |
download | blt-e8fb71f1376d02c92b39c9d14df1053f3026197a.zip blt-e8fb71f1376d02c92b39c9d14df1053f3026197a.tar.gz blt-e8fb71f1376d02c92b39c9d14df1053f3026197a.tar.bz2 |
add namespace
Diffstat (limited to 'taccle/taccle.tcl')
-rw-r--r-- | taccle/taccle.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index 270510d..fb50933 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -891,7 +891,7 @@ proc write_parser {} { variable token set state_stack {0} - set ${::p}value_stack {{}} + set value_stack {{}} set token \"\" set ${::p}accepted 0 while {\$${::p}accepted == 0} { @@ -906,7 +906,7 @@ proc write_parser {} { while {\[llength \$state_stack\] > 0 && \\ !\[info exists table(\$state:error)]} { set state_stack \[lrange \$state_stack 0 end-1\] - set ${::p}value_stack \[lrange $${::p}value_stack 0 \\ + set value_stack \[lrange \$value_stack 0 \\ \[expr {\[llength \$state_stack\] - 1}\]\] set state \[lindex \$state_stack end\] } @@ -915,7 +915,7 @@ proc write_parser {} { return 1 } lappend state_stack \[set state \$table(\$state:error,target)\] - lappend ${::p}value_stack {} + lappend value_stack {} \# consume tokens until it finds an acceptable one while {!\[info exists table(\$state:\$token)]} { if {\$token == 0} { @@ -931,7 +931,7 @@ proc write_parser {} { switch -- \$table(\$state:\$token) { shift { lappend state_stack \$table(\$state:\$token,target) - lappend ${::p}value_stack \$${::p}buflval + lappend value_stack \$${::p}buflval set token \"\" } reduce { @@ -943,9 +943,9 @@ proc write_parser {} { set ${::p}dc \$rules(\$rule,dc) \} set ${::p}stackpointer \[expr {\[llength \$state_stack\]-\$${::p}dc}\] - ${::p}::setupvalues \$${::p}value_stack \$${::p}stackpointer \$${::p}dc + ${::p}::setupvalues \$value_stack \$${::p}stackpointer \$${::p}dc set _ \$1 - set yylval \[lindex \$${::p}value_stack end\] + set yylval \[lindex \$value_stack end\] switch -- \$rule {" for {set i 0} {$i < $::rule_count} {incr i} { if {[info exists ::rule_table($i,a)] && [string trim $::rule_table($i,a)] != ""} { @@ -959,11 +959,11 @@ proc write_parser {} { if \{!\[info exists rules(\$rule,e)\]\} \{ incr ${::p}stackpointer -1 set state_stack \[lrange \$state_stack 0 \$${::p}stackpointer\] - set ${::p}value_stack \[lrange \$${::p}value_stack 0 \$${::p}stackpointer\] + set value_stack \[lrange \$value_stack 0 \$${::p}stackpointer\] \} # now do the goto transition lappend state_stack \$table(\[lindex \$state_stack end\]:\$${::p}l,target) - lappend ${::p}value_stack \$_ + lappend value_stack \$_ } accept { set ${::p}accepted 1 |