diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:35:47 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:35:47 (GMT) |
commit | ef8de2e3b106bd31a21f023cc8a16b60956f4f27 (patch) | |
tree | 7368b48dbca9fbdfe6e1868ebe8cf7713c7f8ddb /taccle | |
parent | 5df5f1de22bd8bd9e86b44caac8b00e6d79e9496 (diff) | |
download | blt-ef8de2e3b106bd31a21f023cc8a16b60956f4f27.zip blt-ef8de2e3b106bd31a21f023cc8a16b60956f4f27.tar.gz blt-ef8de2e3b106bd31a21f023cc8a16b60956f4f27.tar.bz2 |
add namespace
Diffstat (limited to 'taccle')
-rw-r--r-- | taccle/taccle.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index dfb221f..270510d 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -935,18 +935,18 @@ proc write_parser {} { set token \"\" } reduce { - set ${::p}rule \$table(\$state:\$token,target) - set ${::p}l \$rules(\$${::p}rule,l) - if \{\[info exists rules(\$${::p}rule,e)\]\} \{ - set ${::p}dc \$rules(\$${::p}rule,e) + set rule \$table(\$state:\$token,target) + set ${::p}l \$rules(\$rule,l) + if \{\[info exists rules(\$rule,e)\]\} \{ + set ${::p}dc \$rules(\$rule,e) \} else \{ - set ${::p}dc \$rules(\$${::p}rule,dc) + set ${::p}dc \$rules(\$rule,dc) \} set ${::p}stackpointer \[expr {\[llength \$state_stack\]-\$${::p}dc}\] ${::p}::setupvalues \$${::p}value_stack \$${::p}stackpointer \$${::p}dc set _ \$1 set yylval \[lindex \$${::p}value_stack end\] - switch -- \$${::p}rule {" + switch -- \$rule {" for {set i 0} {$i < $::rule_count} {incr i} { if {[info exists ::rule_table($i,a)] && [string trim $::rule_table($i,a)] != ""} { puts $::dest " $i { $::rule_table($i,a) }" @@ -956,7 +956,7 @@ proc write_parser {} { puts $::dest " } ${::p}::unsetupvalues \$${::p}dc # pop off tokens from the stack if normal rule - if \{!\[info exists ::${::p}rules(\$${::p}rule,e)\]\} \{ + 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\] |