diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 21:03:01 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 21:03:01 (GMT) |
| commit | 64443ae4af0357574ac3108258ac0f315e2a3bc9 (patch) | |
| tree | 4ef9a36e76bc596aec60cb1f17b1df4ac104ac34 /taccle | |
| parent | ea5e6ca2e6523f0b2a585112b5fd5f18e9fcf969 (diff) | |
| download | blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.zip blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.tar.gz blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.tar.bz2 | |
add namespace
Diffstat (limited to 'taccle')
| -rw-r--r-- | taccle/taccle.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index 3cae470..e3d11fe 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -1002,16 +1002,16 @@ proc write_array {fd name values} { # Writes a header file that should be [source]d by the lexer. proc write_header_file {} { # scan through token_table and write out all non-implicit terminals - puts $::header "namespace eval ${::p} \{\}" - puts $::header "" + puts $::header "namespace eval ${::p} \{" foreach tok_id $::token_list { if {$::token_id_table($tok_id,t) == $::TERMINAL && \ [string is integer $tok_id] && $tok_id >= 256} { set token $::token_id_table($tok_id) - puts $::header "set ${::p}::${token} $tok_id" + puts $::header "set ${token} $tok_id" } } puts $::header "set yylval \{\}" + puts $::header "\}" } ###################################################################### |