path: root/ds9/parsers/sampparser.tcl

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 samp {
    variable yylval {}
    variable table
    variable rules
    variable token {}
    variable yycnt 0
    variable yyerr 0
    variable save_state 0

    namespace export yylex
}

proc samp::YYABORT {} {
    return -code return 1
}

proc samp::YYACCEPT {} {
    return -code return 0
}

proc samp::YYERROR {} {
    variable yyerr
    set yyerr 1
}

proc samp::yyclearin {} {
    variable token
    variable yycnt
    set token {}
    incr yycnt -1
}

proc samp::yyerror {s} {
    puts stderr $s
}

proc samp::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 samp::unsetupvalues {numsyms} {
    for {set i 1} {$i <= $numsyms} {incr i} {
        upvar 1 $i y
        unset y
    }
}

array set samp::table {
  0:257 shift
  0:258 shift
  23:0,target 20
  11:263,target 10
  0:259 shift
  0:260 shift
  5:0,target 3
  15:263 reduce
  15:0,target 17
  9:0 reduce
  0:266,target 9
  0:261 shift
  11:0 reduce
  0:262 shift
  17:263 reduce
  0:264 shift
  20:263 shift
  19:263 shift
  7:263,target 16
  0:265 shift
  2:263 reduce
  15:0 reduce
  0:266 shift
  22:263 shift
  4:263 reduce
  20:263,target 24
  19:263,target 23
  0:265,target 8
  0:268 shift
  2:263,target 4
  24:263 reduce
  24:0,target 21
  6:263 reduce
  6:0,target 6
  0:270 goto
  16:0,target 18
  0:271 goto
  2:0 reduce
  14:263,target 8
  10:267,target 19
  8:263 reduce
  0:272 goto
  14:273,target 22
  0:274 goto
  24:0 reduce
  6:0 reduce
  0:264,target 7
  0:274,target 14
  25:0,target 9
  7:0,target 16
  23:263,target 20
  17:0,target 14
  12:0 reduce
  10:276,target 21
  5:263,target 3
  17:263,target 14
  16:0 reduce
  12:263,target 11
  21:0 reduce
  8:0,target 12
  7:269,target 16
  3:0 reduce
  18:0,target 19
  10:263 shift
  1:0,target 1
  11:0,target 10
  0:262,target 6
  12:263 reduce
  8:263,target 12
  0:272,target 13
  25:0 reduce
  7:0 reduce
  14:263 reduce
  10:267 shift
  21:263,target 15
  3:263,target 2
  16:263 reduce
  10:269 shift
  18:263 reduce
  15:263,target 17
  13:0 accept
  9:0,target 13
  0:261,target 5
  1:263 reduce
  0:271,target 12
  2:0,target 4
  21:263 reduce
  12:0,target 11
  3:263 reduce
  10:263,target 18
  23:263 reduce
  17:0 reduce
  10:276 goto
  5:263 reduce
  14:273 goto
  7:267,target 15
  7:263 reduce
  0:259,target 3
  0:260,target 4
  24:263,target 21
  9:263 reduce
  6:263,target 6
  0:270,target 11
  4:0 reduce
  21:0,target 15
  7:267 shift
  3:0,target 2
  18:263,target 19
  13:0,target 0
  1:263,target 1
  8:0 reduce
  7:269 shift
  0:258,target 2
  0:268,target 10
  14:0 reduce
  7:275 goto
  9:263,target 13
  4:0,target 5
  14:0,target 7
  7:275,target 17
  18:0 reduce
  0:257,target 1
  1:0 reduce
  22:263,target 25
  4:263,target 5
  23:0 reduce
  16:263,target 18
  11:263 reduce
  10:269,target 20
  5:0 reduce
}

array set samp::rules {
  9,l 272
  11,l 274
  15,l 274
  20,l 276
  19,l 276
  2,l 270
  6,l 271
  12,l 274
  16,l 275
  21,l 276
  3,l 270
  7,l 272
  13,l 274
  0,l 277
  17,l 275
  4,l 271
  8,l 273
  10,l 274
  14,l 274
  18,l 275
  1,l 270
  5,l 271
}

array set samp::rules {
  5,dc 1
  0,dc 1
  17,dc 1
  12,dc 1
  8,dc 0
  21,dc 2
  3,dc 1
  15,dc 2
  10,dc 1
  6,dc 1
  18,dc 1
  1,dc 1
  13,dc 1
  9,dc 3
  4,dc 1
  16,dc 0
  11,dc 1
  7,dc 1
  20,dc 2
  19,dc 1
  2,dc 1
  14,dc 2
}

array set samp::rules {
  13,line 54
  7,line 47
  10,line 51
  4,line 42
  18,line 61
  1,line 37
  15,line 56
  9,line 48
  12,line 53
  6,line 44
  21,line 66
  3,line 39
  17,line 60
  14,line 55
  8,e 1
  8,line 47
  11,line 52
  5,line 43
  20,line 65
  19,line 64
  2,line 38
  16,line 59
}

array set samp::lr1_table {
  14,trans {{273 22}}
  1,trans {}
  18,trans {}
  23,trans {}
  5,trans {}
  9,trans {}
  13,trans {}
  0,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {264 7} {265 8} {266 9} {268 10} {270 11} {271 12} {272 13} {274 14}}
  17,trans {}
  22,trans {{263 25}}
  4,trans {}
  8,trans {}
  12,trans {}
  16,trans {}
  3,trans {}
  21,trans {}
  10 {{15 {0 263} 1} {19 {0 263} 0} {20 {0 263} 0} {21 {0 263} 0}}
  11 {{10 {0 263} 1}}
  25,trans {}
  12 {{11 {0 263} 1}}
  7,trans {{267 15} {269 16} {275 17}}
  13 {{0 0 1}}
  14 {{7 0 1} {9 0 1} {8 263 0}}
  15 {{17 {0 263} 1}}
  11,trans {}
  16 {{18 {0 263} 1}}
  0 {{0 0 0} {7 0 0} {9 0 0} {10 {0 263} 0} {11 {0 263} 0} {12 {0 263} 0} {13 {0 263} 0} {14 {0 263} 0} {15 {0 263} 0} {1 {0 263} 0} {2 {0 263} 0} {3 {0 263} 0} {4 {0 263} 0} {5 {0 263} 0} {6 {0 263} 0}}
  17 {{14 {0 263} 2}}
  1 {{1 {0 263} 1}}
  18 {{19 {0 263} 1}}
  2 {{4 {0 263} 1}}
  19 {{20 {0 263} 1}}
  20 {{21 {0 263} 1}}
  15,trans {}
  3 {{2 {0 263} 1}}
  21 {{15 {0 263} 2}}
  4 {{5 {0 263} 1}}
  22 {{9 0 2}}
  5 {{3 {0 263} 1}}
  23 {{20 {0 263} 2}}
  6 {{6 {0 263} 1}}
  2,trans {}
  19,trans {{263 23}}
  24 {{21 {0 263} 2}}
  20,trans {{263 24}}
  7 {{14 {0 263} 1} {16 {0 263} 0} {17 {0 263} 0} {18 {0 263} 0}}
  25 {{9 0 3}}
  8 {{12 {0 263} 1}}
  9 {{13 {0 263} 1}}
  24,trans {}
  6,trans {}
  10,trans {{263 18} {267 19} {269 20} {276 21}}
}

array set samp::token_id_table {
  264,line 18
  270,t 1
  269,t 0
  276,line 63
  265,title CONNECT
  274,t 1
  261,line 11
  257,t 0
  270,title {}
  269,title TABLE
  273,line 47
  257,line 7
  262,t 0
  274,title {}
  270,line 36
  269,line 23
  259,title ON
  260,title OFF
  266,t 0
  271,t 1
  error error
  264,title BROADCAST
  266,line 20
  275,t 1
  error,line 35
  268,title SEND
  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
  277,title {}
  272,line 46
  267,t 0
  263,title string
  272,t 1
  268,line 22
  267,title IMAGE
  257 YES_
  276,t 1
  258 NO_
  259,t 0
  259 ON_
  260 OFF_
  260,t 0
  272,title {}
  261 TRUE_
  265,line 19
  262 FALSE_
  263 STRING_
  277,line 67
  257,title YES
  264 BROADCAST_
  264,t 0
  276,title {}
  265 CONNECT_
  262,line 12
  266 DISCONNECT_
  267 IMAGE_
  0,t 0
  0 {$}
  262,title FALSE
  268 SEND_
  268,t 0
  274,line 50
  270 yes
  269 TABLE_
  271 no
  error,t 0
  272 command
  258,line 8
  273,t 1
  273 @PSEUDO1
  266,title DISCONNECT
  274 samp
  275 broadcast
  271,line 41
  276 send
  277,t 1
  277 start'
  271,title {}
  261,t 0
  267,line 21
  275,title {}
  265,t 0
  261,title TRUE
}

proc samp::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 _ 0 }
                    5 { set _ 0 }
                    6 { set _ 0 }
                    8 { global ds9; if {!$ds9(init)} {YYERROR} else {yyclearin; YYACCEPT} }
                    10 { SAMPConnect }
                    11 { SAMPDisconnect }
                    12 { SAMPConnect }
                    13 { SAMPDisconnect }
                    16 { SAMPSendImageLoadFits {} }
                    17 { SAMPSendImageLoadFits {} }
                    18 { SAMPSendTableLoadFits {} }
                    19 { SAMPCmdSendImage $1 }
                    20 { SAMPCmdSendImage $2 }
                    21 { SAMPCmdSendTable $2 }
                }
                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 samp::yyerror {msg} {
     variable yycnt
     variable yy_current_buffer
     variable index_

     ParserError $msg $yycnt $yy_current_buffer $index_
}