From cc194ebc389108dc1cf02ee4500e0bb0106f36cd Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 2 Mar 2018 18:02:24 -0500
Subject: yylval in namespace

---
 fickle/fickle.tcl | 4 ++++
 taccle/taccle.tcl | 3 +--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/fickle/fickle.tcl b/fickle/fickle.tcl
index b230cb6..9636581 100644
--- a/fickle/fickle.tcl
+++ b/fickle/fickle.tcl
@@ -328,6 +328,8 @@ proc write_scanner_utils {} {
 ######
 "
     puts $::dest "namespace eval ${::p} \{
+    variable yylval
+
     variable yytext {}
     variable yyleng 0
     variable yyin stdin
@@ -612,6 +614,8 @@ proc write_scanner {} {
 # one of its actions executes a return statement.
 #   -- from the flex(1) man page
 proc ${::p}::yylex \{\} \{
+    variable yylval
+
     variable yytext
     variable yylineno
     variable yyleng
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl
index 8ed3639..661303f 100644
--- a/taccle/taccle.tcl
+++ b/taccle/taccle.tcl
@@ -1021,10 +1021,9 @@ proc write_header_file {} {
         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 ${token} $tok_id"
+            puts $::header "variable ${token} $tok_id"
         }
     }
-    puts $::header "set yylval \{\}"
     puts $::header "\}"
 }
 
-- 
cgit v0.12