new -prefs yes/no command line option

3 files changed, 988 insertions, 0 deletions

diff --git a/ds9/parsers/prefsfirstlex.tcl b/ds9/parsers/prefsfirstlex.tcl
new file mode 100644
index 0000000..312f2d6
--- /dev/null
+++ b/ds9/parsers/prefsfirstlex.tcl
@@ -0,0 +1,429 @@
+package provide DS9 1.0
+
+######
+# Begin autogenerated fickle (version 2.1) routines.
+# Although fickle itself is protected by the GNU Public License (GPL)
+# all user-supplied functions are protected by their respective
+# author's license.  See http://mini.net/tcl/fickle for other details.
+######
+
+namespace eval prefsfirst {
+    variable yylval
+
+    variable yytext {}
+    variable yyleng 0
+    variable yyin stdin
+    variable yyout stdout
+    variable yy_current_buffer {}
+
+    variable yylineno 1
+
+    variable index_ 0
+    variable done_ 0
+}
+
+# ECHO copies yytext to the scanner's output if no arguments are
+# given.  The scanner writes its ECHO output to the yyout global
+# (default, stdout), which may be redefined by the user simply by
+# assigning it to some other channel.
+#   -- from the flex(1) man page
+proc prefsfirst::ECHO {{s ""}} {
+    variable yytext
+    variable yyout
+
+    if {$s == ""} {
+        puts -nonewline $yyout $yytext
+    } else {
+        puts -nonewline $yyout $s
+    }
+}
+
+# YY_FLUSH_BUFFER flushes the scanner's internal buffer so that the
+# next time the scanner attempts to match a token, it will first
+# refill the buffer using YY_INPUT.
+#   -- from the flex(1) man page
+proc prefsfirst::YY_FLUSH_BUFFER {} {
+    variable yy_current_buffer
+    variable index_
+    variable done_
+
+    set yy_current_buffer ""
+    set index_ 0
+    set done_ 0
+}
+
+# yyrestart(new_file) may be called to point yyin at the new input
+# file.  The switch-over to the new file is immediate (any previously
+# buffered-up input is lost).  Note that calling yyrestart with yyin
+# as an argument thus throws away the current input buffer and
+# continues scanning the same input file.
+#   -- from the flex(1) man page
+proc prefsfirst::yyrestart {new_file} {
+    variable yyin
+
+    set yyin $new_file
+    YY_FLUSH_BUFFER
+}
+
+# The nature of how it gets its input can be controlled by defining
+# the YY_INPUT macro.  YY_INPUT's calling sequence is
+# "YY_INPUT(buf,result,max_size)".  Its action is to place up to
+# max_size characters in the character array buf and return in the
+# integer variable result either the number of characters read or the
+# constant YY_NULL (0 on Unix systems) to indicate EOF.  The default
+# YY_INPUT reads from the global file-pointer "yyin".
+#   -- from the flex(1) man page
+proc prefsfirst::YY_INPUT {buf result max_size} {
+    variable yyin
+
+    upvar $result ret_val
+    upvar $buf new_data
+    if {$yyin != ""} {
+        set new_data [read $yyin $max_size]
+        set ret_val [string length $new_data]
+    } else {
+        set new_data ""
+        set ret_val 0
+    }
+}
+
+# yy_scan_string sets up input buffers for scanning in-memory
+# strings instead of files.  Note that switching input sources does
+# not change the start condition.
+#   -- from the flex(1) man page
+proc prefsfirst::yy_scan_string {str} {
+    variable yy_current_buffer
+    variable yyin
+
+    append yy_current_buffer $str
+    set yyin ""
+}
+
+# unput(c) puts the character c back onto the input stream.  It will
+# be the next character scanned.
+#   -- from the flex(1) man page
+proc prefsfirst::unput {c} {
+    variable yy_current_buffer
+    variable index_
+
+    set s [string range $yy_current_buffer 0 [expr {$index_ - 1}]]
+    append s $c
+    set yy_current_buffer [append s [string range $yy_current_buffer $index_ end]]
+}
+
+# Returns all but the first n characters of the current token back to
+# the input stream, where they will be rescanned when the scanner
+# looks for the next match.  yytext and yyleng are adjusted
+# appropriately.
+#   -- from the flex(1) man page
+proc prefsfirst::yyless {n} {
+    variable yy_current_buffer
+    variable index_
+    variable yytext
+    variable yyleng
+
+    set s [string range $yy_current_buffer 0 [expr {$index_ - 1}]]
+    append s [string range $yytext $n end]
+    set yy_current_buffer [append s [string range $yy_current_buffer $index_ end]]
+    set yytext [string range $yytext 0 [expr {$n - 1}]]
+    set yyleng [string length $yytext]
+}
+
+# input() reads the next character from the input stream.
+#   -- from the flex(1) man page
+proc prefsfirst::input {} {
+    variable yy_current_buffer
+    variable index_
+    variable done_
+
+    if {[string length $yy_current_buffer] - $index_ < 1024} {
+       set new_buffer ""
+       set new_buffer_size 0
+       if {$done_ == 0} {
+           YY_INPUT new_buffer new_buffer_size 1024
+           append yy_current_buffer $new_buffer
+           if {$new_buffer_size == 0} {
+               set done_ 1
+           }
+       }
+       if $done_ {
+           if {[string length $yy_current_buffer] - $index_ == 0} {
+               return {}
+           }
+        }
+    }
+    set c [string index $yy_current_buffer $index_]
+    incr index_
+    return $c
+}
+
+######
+# autogenerated yylex function created by fickle
+######
+
+# Whenever yylex() is called, it scans tokens from the global input
+# file yyin (which defaults to stdin).  It continues until it either
+# reaches an end-of-file (at which point it returns the value 0) or
+# one of its actions executes a return statement.
+#   -- from the flex(1) man page
+proc prefsfirst::yylex {} {
+    variable yylval
+
+    variable yytext
+    variable yylineno
+    variable yyleng
+    variable yy_current_buffer
+    variable yy_flex_debug
+
+    variable index_
+    variable done_
+    variable state_table_
+
+set YES_ 257
+set NO_ 258
+set ON_ 259
+set OFF_ 260
+set TRUE_ 261
+set FALSE_ 262
+set INT_ 263
+set STRING_ 264
+set BGCOLOR_ 265
+set CLEAR_ 266
+set IRAFALIGN_ 267
+set NANCOLOR_ 268
+set PRECISION_ 269
+set THREADS_ 270
+
+    while {1} {
+        if {[string length $yy_current_buffer] - $index_ < 1024} {
+            if {$done_ == 0} {
+	        set buffer_size 0
+                set new_buffer ""
+                YY_INPUT new_buffer buffer_size 1024
+                append yy_current_buffer $new_buffer
+                if {$buffer_size == 0 && \
+                        [string length $yy_current_buffer] - $index_ == 0} {
+                    set done_ 1
+                }
+            }
+            if $done_ {
+                if {[string length $yy_current_buffer] - $index_ == 0} {
+                    break
+                }
+            }            
+        }
+        set yyleng 0
+        set matched_rule -1
+        # rule 0: bgcolor
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(bgcolor)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 0
+        }
+        # rule 1: clear
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(clear)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 1
+        }
+        # rule 2: irafalign
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(irafalign)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 2
+        }
+        # rule 3: nancolor
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(nancolor)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 3
+        }
+        # rule 4: precision
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(precision)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 4
+        }
+        # rule 5: threads
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(threads)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 5
+        }
+        # rule 6: yes
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(yes)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 6
+        }
+        # rule 7: no
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(no)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 7
+        }
+        # rule 8: on
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(on)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 8
+        }
+        # rule 9: off
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(off)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 9
+        }
+        # rule 10: true
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(true)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 10
+        }
+        # rule 11: false
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(false)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 11
+        }
+        # rule 12: [+-]?{D}+
+        if {[regexp -start $index_ -indices -line -nocase -- {\A([+-]?([0-9])+)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 12
+        }
+        # rule 13: \"[^\"]*\"
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(\"[^\"]*\")} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 13
+        }
+        # rule 14: \'[^\']*\'
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(\'[^\']*\')} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 14
+        }
+        # rule 15: \{[^\}]*\}
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(\{[^\}]*\})} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 15
+        }
+        # rule 16: \S+\S+
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(\S+\S+)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 16
+        }
+        # rule 17: \s
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(\s)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 17
+        }
+        # rule 18: .
+        if {[regexp -start $index_ -indices -line -nocase -- {\A(.)} $yy_current_buffer match] > 0 && \
+                [lindex $match 1] - $index_ + 1 > $yyleng} {
+            set yytext [string range $yy_current_buffer $index_ [lindex $match 1]]
+            set yyleng [string length $yytext]
+            set matched_rule 18
+        }
+        if {$matched_rule == -1} {
+            set yytext [string index $yy_current_buffer $index_]
+            set yyleng 1
+        }
+        incr index_ $yyleng
+        # workaround for Tcl's circumflex behavior
+        if {[string index $yytext end] == "\n"} {
+            set yy_current_buffer [string range $yy_current_buffer $index_ end]
+            set index_ 0
+        }
+        set numlines [expr {[llength [split $yytext "\n"]] - 1}]
+        switch -- $matched_rule {
+            0 {
+return $BGCOLOR_
+            }
+            1 {
+return $CLEAR_
+            }
+            2 {
+return $IRAFALIGN_
+            }
+            3 {
+return $NANCOLOR_
+            }
+            4 {
+return $PRECISION_
+            }
+            5 {
+return $THREADS_
+            }
+            6 {
+return $YES_
+            }
+            7 {
+return $NO_
+            }
+            8 {
+return $ON_
+            }
+            9 {
+return $OFF_
+            }
+            10 {
+return $TRUE_
+            }
+            11 {
+return $FALSE_
+            }
+            12 {
+set yylval $yytext; return $INT_
+            }
+            13 {
+set yylval [string range $yytext 1 end-1]; return $STRING_
+            }
+            14 {
+set yylval [string range $yytext 1 end-1]; return $STRING_
+            }
+            15 {
+set yylval [string range $yytext 1 end-1]; return $STRING_
+            }
+            16 {
+set yylval $yytext; return $STRING_
+            }
+            17 {
+# ignore whitespace
+            }
+            18 {
+set yylval $yytext; return $yylval
+            }
+            default
+                { puts stderr "unmatched token: $yytext"; exit -1 }
+        }
+        incr yylineno $numlines
+    }
+    return 0
+}
+######
+# end autogenerated fickle functions
+######
+
diff --git a/ds9/parsers/prefsfirstparser.tab.tcl b/ds9/parsers/prefsfirstparser.tab.tcl
new file mode 100644
index 0000000..0301bd4
--- /dev/null
+++ b/ds9/parsers/prefsfirstparser.tab.tcl
@@ -0,0 +1,14 @@
+set YES_ 257
+set NO_ 258
+set ON_ 259
+set OFF_ 260
+set TRUE_ 261
+set FALSE_ 262
+set INT_ 263
+set STRING_ 264
+set BGCOLOR_ 265
+set CLEAR_ 266
+set IRAFALIGN_ 267
+set NANCOLOR_ 268
+set PRECISION_ 269
+set THREADS_ 270
diff --git a/ds9/parsers/prefsfirstparser.tcl b/ds9/parsers/prefsfirstparser.tcl
new file mode 100644
index 0000000..905a55b
--- /dev/null
+++ b/ds9/parsers/prefsfirstparser.tcl
@@ -0,0 +1,545 @@
+package provide DS9 1.0
+
+######
+# Begin autogenerated taccle (version 1.3) routines.
+# Although taccle itself is protected by the GNU Public License (GPL)
+# all user-supplied functions are protected by their respective
+# author's license.  See http://mini.net/tcl/taccle for other details.
+######
+
+namespace eval prefsfirst {
+    variable yylval {}
+    variable table
+    variable rules
+    variable token {}
+    variable yycnt 0
+    variable yyerr 0
+    variable save_state 0
+
+    namespace export yylex
+}
+
+proc prefsfirst::YYABORT {} {
+    return -code return 1
+}
+
+proc prefsfirst::YYACCEPT {} {
+    return -code return 0
+}
+
+proc prefsfirst::YYERROR {} {
+    variable yyerr
+    set yyerr 1
+}
+
+proc prefsfirst::yyclearin {} {
+    variable token
+    variable yycnt
+    set token {}
+    incr yycnt -1
+}
+
+proc prefsfirst::yyerror {s} {
+    puts stderr $s
+}
+
+proc prefsfirst::setupvalues {stack pointer numsyms} {
+    upvar 1 1 y
+    set y {}
+    for {set i 1} {$i <= $numsyms} {incr i} {
+        upvar 1 $i y
+        set y [lindex $stack $pointer]
+        incr pointer
+    }
+}
+
+proc prefsfirst::unsetupvalues {numsyms} {
+    for {set i 1} {$i <= $numsyms} {incr i} {
+        upvar 1 $i y
+        unset y
+    }
+}
+
+array set prefsfirst::table {
+  9:262,target 6
+  7:264,target 16
+  0:257 shift
+  0:258 shift
+  23:0,target 10
+  13:264 reduce
+  11:263,target 19
+  5:0,target 4
+  0:259 shift
+  0:260 shift
+  27:0 reduce
+  20:264,target 16
+  15:0,target 8
+  9:0 reduce
+  0:266,target 8
+  0:261 shift
+  2:264,target 5
+  15:264 reduce
+  0:262 shift
+  17:264 reduce
+  0:264 reduce
+  25:263,target 26
+  19:263 shift
+  9:261,target 5
+  0:265 shift
+  20:264 reduce
+  15:0 reduce
+  9:271,target 17
+  0:266 shift
+  2:264 reduce
+  22:263 shift
+  0:267 shift
+  19:263,target 22
+  4:264 reduce
+  0:265,target 7
+  0:268 shift
+  24:263 shift
+  6:0,target 7
+  0:269 shift
+  0:270 shift
+  20:0 reduce
+  16:0,target 14
+  15:273 goto
+  6:264 reduce
+  0:271 goto
+  2:0 reduce
+  26:263 shift
+  0:272 goto
+  9:260,target 4
+  9:259,target 3
+  8:264 reduce
+  5:264,target 4
+  0:274 goto
+  6:0 reduce
+  17:264,target 17
+  0:264,target 1
+  0:274,target 15
+  17:0,target 17
+  9:258,target 2
+  0:0,target 1
+  16:0 reduce
+  8:264,target 12
+  12:263,target 20
+  21:264,target 23
+  9:257,target 1
+  3:264,target 3
+  8:0,target 12
+  3:0 reduce
+  18:0,target 15
+  1:0,target 2
+  15:264,target 9
+  10:264 shift
+  0:262,target 6
+  26:263,target 27
+  12:263 shift
+  0:272,target 14
+  10:264,target 18
+  16:264 reduce
+  27:0,target 13
+  13:0 reduce
+  9:0,target 1
+  0:261,target 5
+  20:0,target 16
+  18:264 reduce
+  15:273,target 21
+  6:264,target 7
+  0:271,target 13
+  1:264 reduce
+  2:0,target 5
+  21:264 shift
+  9:257 shift
+  3:264 reduce
+  18:264,target 15
+  17:0 reduce
+  9:258 shift
+  0:0 reduce
+  1:264,target 2
+  9:260 shift
+  9:259 shift
+  5:264 reduce
+  25:263 shift
+  9:261 shift
+  13:264,target 11
+  9:262 shift
+  7:264 shift
+  0:259,target 3
+  0:260,target 4
+  24:263,target 25
+  0:269,target 11
+  0:270,target 12
+  4:0 reduce
+  27:264 reduce
+  9:264 reduce
+  3:0,target 3
+  13:0,target 11
+  27:264,target 13
+  9:264,target 1
+  8:0 reduce
+  0:258,target 2
+  9:271 goto
+  4:264,target 6
+  0:268,target 10
+  14:0 accept
+  16:264,target 14
+  4:0,target 6
+  14:0,target 0
+  18:0 reduce
+  0:257,target 1
+  1:0 reduce
+  22:263,target 24
+  0:267,target 9
+  23:0 reduce
+  11:263 shift
+  5:0 reduce
+}
+
+array set prefsfirst::rules {
+  9,l 273
+  11,l 274
+  15,l 274
+  2,l 271
+  6,l 271
+  12,l 274
+  16,l 274
+  3,l 271
+  7,l 271
+  13,l 274
+  0,l 275
+  17,l 274
+  4,l 271
+  8,l 272
+  10,l 272
+  14,l 274
+  1,l 271
+  5,l 271
+}
+
+array set prefsfirst::rules {
+  5,dc 1
+  0,dc 1
+  17,dc 2
+  12,dc 1
+  8,dc 1
+  3,dc 1
+  15,dc 2
+  10,dc 3
+  6,dc 1
+  1,dc 0
+  13,dc 7
+  9,dc 0
+  4,dc 1
+  16,dc 2
+  11,dc 1
+  7,dc 1
+  2,dc 1
+  14,dc 2
+}
+
+array set prefsfirst::rules {
+  13,line 53
+  7,line 44
+  10,line 48
+  4,line 41
+  1,line 38
+  15,line 55
+  9,line 47
+  12,line 52
+  6,line 43
+  3,line 40
+  17,line 57
+  14,line 54
+  8,line 47
+  11,line 51
+  5,line 42
+  2,line 39
+  9,e 1
+  16,line 56
+}
+
+array set prefsfirst::lr1_table {
+  14,trans {}
+  1,trans {}
+  18,trans {}
+  23,trans {}
+  5,trans {}
+  27,trans {}
+  9,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {271 17}}
+  13,trans {}
+  0,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {265 7} {266 8} {267 9} {268 10} {269 11} {270 12} {271 13} {272 14} {274 15}}
+  17,trans {}
+  4,trans {}
+  22,trans {{263 24}}
+  26,trans {{263 27}}
+  8,trans {}
+  12,trans {{263 20}}
+  16,trans {}
+  3,trans {}
+  21,trans {{264 23}}
+  10 {{15 {0 264} 1}}
+  11 {{13 {0 264} 1}}
+  25,trans {{263 26}}
+  12 {{16 {0 264} 1}}
+  7,trans {{264 16}}
+  13 {{11 {0 264} 1}}
+  14 {{0 0 1}}
+  15 {{8 0 1} {10 0 1} {9 264 0}}
+  11,trans {{263 19}}
+  16 {{14 {0 264} 2}}
+  0 {{0 0 0} {8 0 0} {10 0 0} {11 {0 264} 0} {12 {0 264} 0} {13 {0 264} 0} {14 {0 264} 0} {15 {0 264} 0} {16 {0 264} 0} {17 {0 264} 0} {1 {0 264} 0} {2 {0 264} 0} {3 {0 264} 0} {4 {0 264} 0} {5 {0 264} 0} {6 {0 264} 0} {7 {0 264} 0}}
+  17 {{17 {0 264} 2}}
+  1 {{2 {0 264} 1}}
+  18 {{15 {0 264} 2}}
+  2 {{5 {0 264} 1}}
+  19 {{13 {0 264} 2}}
+  20 {{16 {0 264} 2}}
+  15,trans {{273 21}}
+  3 {{3 {0 264} 1}}
+  21 {{10 0 2}}
+  4 {{6 {0 264} 1}}
+  22 {{13 {0 264} 3}}
+  5 {{4 {0 264} 1}}
+  23 {{10 0 3}}
+  6 {{7 {0 264} 1}}
+  2,trans {}
+  19,trans {{263 22}}
+  20,trans {}
+  24 {{13 {0 264} 4}}
+  25 {{13 {0 264} 5}}
+  7 {{14 {0 264} 1}}
+  26 {{13 {0 264} 6}}
+  8 {{12 {0 264} 1}}
+  27 {{13 {0 264} 7}}
+  9 {{17 {0 264} 1} {1 {0 264} 0} {2 {0 264} 0} {3 {0 264} 0} {4 {0 264} 0} {5 {0 264} 0} {6 {0 264} 0} {7 {0 264} 0}}
+  24,trans {{263 25}}
+  6,trans {}
+  10,trans {{264 18}}
+}
+
+array set prefsfirst::token_id_table {
+  264,line 16
+  270,t 0
+  269,t 0
+  265,title BGCOLOR
+  274,t 1
+  261,line 11
+  257,t 0
+  270,title THREADS
+  269,title PRECISION
+  273,line 47
+  257,line 7
+  262,t 0
+  274,title {}
+  270,line 25
+  269,line 24
+  259,title ON
+  260,title OFF
+  266,t 0
+  271,t 1
+  error error
+  264,title string
+  266,line 21
+  275,t 1
+  error,line 36
+  268,title NANCOLOR
+  258,t 0
+  263,line 14
+  error,title {}
+  275,line 58
+  273,title {}
+  263,t 0
+  259,line 9
+  260,line 10
+  258,title NO
+  272,line 46
+  267,t 0
+  263,title integer
+  272,t 1
+  268,line 23
+  267,title IRAFALIGN
+  257 YES_
+  258 NO_
+  259,t 0
+  259 ON_
+  260 OFF_
+  260,t 0
+  272,title {}
+  261 TRUE_
+  265,line 20
+  262 FALSE_
+  263 INT_
+  257,title YES
+  264 STRING_
+  264,t 0
+  265 BGCOLOR_
+  262,line 12
+  266 CLEAR_
+  267 IRAFALIGN_
+  0,t 0
+  0 {$}
+  262,title FALSE
+  268 NANCOLOR_
+  268,t 0
+  274,line 50
+  270 THREADS_
+  269 PRECISION_
+  271 yesno
+  error,t 0
+  272 command
+  258,line 8
+  273,t 1
+  273 @PSEUDO1
+  266,title CLEAR
+  274 prefs
+  275 start'
+  271,line 37
+  271,title {}
+  261,t 0
+  267,line 22
+  275,title {}
+  265,t 0
+  261,title TRUE
+}
+
+proc prefsfirst::yyparse {} {
+    variable yylval
+    variable table
+    variable rules
+    variable token
+    variable yycnt
+    variable lr1_table
+    variable token_id_table
+    variable yyerr
+    variable save_state
+
+    set yycnt 0
+    set state_stack {0}
+    set value_stack {{}}
+    set token ""
+    set accepted 0
+    set yyerr 0
+    set save_state 0
+
+    while {$accepted == 0} {
+        set state [lindex $state_stack end]
+        if {$token == ""} {
+            set yylval ""
+            set token [yylex]
+            set buflval $yylval
+	    if {$token>0} {
+	        incr yycnt
+            }
+        }
+        if {![info exists table($state:$token)] || $yyerr} {
+	    if {!$yyerr} {
+	        set save_state $state
+	    }
+            # pop off states until error token accepted
+            while {[llength $state_stack] > 0 && \
+                       ![info exists table($state:error)]} {
+                set state_stack [lrange $state_stack 0 end-1]
+                set value_stack [lrange $value_stack 0 \
+                                       [expr {[llength $state_stack] - 1}]]
+                set state [lindex $state_stack end]
+            }
+            if {[llength $state_stack] == 0} {
+ 
+	        set rr { }
+                if {[info exists lr1_table($save_state,trans)] && [llength $lr1_table($save_state,trans)] >= 1} {
+                    foreach trans $lr1_table($save_state,trans) {
+                        foreach {tok_id nextstate} $trans {
+			    set ss $token_id_table($tok_id,title)
+			    if {$ss != {}} {
+			        append rr "$ss, "
+                            }
+                        }
+                    }
+                }
+		set rr [string trimleft $rr { }]
+		set rr [string trimright $rr {, }]
+                yyerror "parse error, expecting: $rr"
+
+
+                return 1
+            }
+            lappend state_stack [set state $table($state:error,target)]
+            lappend value_stack {}
+            # consume tokens until it finds an acceptable one
+            while {![info exists table($state:$token)]} {
+                if {$token == 0} {
+                    yyerror "end of file while recovering from error"
+                    return 1
+                }
+                set yylval {}
+                set token [yylex]
+                set buflval $yylval
+            }
+            continue
+        }
+        switch -- $table($state:$token) {
+            shift {
+                lappend state_stack $table($state:$token,target)
+                lappend value_stack $buflval
+                set token ""
+            }
+            reduce {
+                set rule $table($state:$token,target)
+                set ll $rules($rule,l)
+                if {[info exists rules($rule,e)]} {
+                    set dc $rules($rule,e)
+                } else {
+                    set dc $rules($rule,dc)
+                }
+                set stackpointer [expr {[llength $state_stack]-$dc}]
+                setupvalues $value_stack $stackpointer $dc
+                set _ $1
+                set yylval [lindex $value_stack end]
+                switch -- $rule {
+                    1 { set _ 1 }
+                    2 { set _ 1 }
+                    3 { set _ 1 }
+                    4 { set _ 1 }
+                    5 { set _ 0 }
+                    6 { set _ 0 }
+                    7 { set _ 0 }
+                    9 { global ds9; if {!$ds9(init)} {YYERROR} else {yyclearin; YYACCEPT} }
+                    11 { ProcessCmdSet ds9 prefs $1 }
+                }
+                unsetupvalues $dc
+                # pop off tokens from the stack if normal rule
+                if {![info exists rules($rule,e)]} {
+                    incr stackpointer -1
+                    set state_stack [lrange $state_stack 0 $stackpointer]
+                    set value_stack [lrange $value_stack 0 $stackpointer]
+                }
+                # now do the goto transition
+                lappend state_stack $table([lindex $state_stack end]:$ll,target)
+                lappend value_stack $_
+            }
+            accept {
+                set accepted 1
+            }
+            goto -
+            default {
+                puts stderr "Internal parser error: illegal command $table($state:$token)"
+                return 2
+            }
+        }
+    }
+    return 0
+}
+
+######
+# end autogenerated taccle functions
+######
+
+proc prefsfirst::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}