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 {
  11:263,target 1
  17:263 reduce
  2:263,target 5
  0:275,target 13
  6:0,target 7
  6:263 reduce
  2:0 reduce
  26:263 reduce
  34:263,target 14
  11:261,target 5
  24:0 reduce
  33:0,target 28
  25:0,target 19
  17:0,target 24
  23:263,target 21
  10:0,target 16
  7:281,target 19
  11:280,target 25
  12:263,target 26
  16:278,target 31
  21:0 reduce
  11:258,target 2
  14:263 reduce
  3:263,target 3
  12:282,target 29
  0:271,target 12
  8:262,target 6
  3:263 reduce
  17:0 reduce
  23:263 reduce
  24:263,target 13
  3:0,target 3
  32:263 reduce
  30:262,target 6
  0:268,target 11
  8:259,target 3
  8:260,target 4
  14:0 reduce
  30:0,target 1
  29:0,target 18
  22:0,target 20
  35:0 reduce
  11:257 shift
  14:0,target 11
  11:258 shift
  4:263,target 6
  11:259 shift
  11:260 shift
  11:261 shift
  11:262 shift
  11:263 reduce
  30:260,target 4
  30:259,target 3
  0:257 shift
  0:258 shift
  7:274,target 18
  0:260 shift
  0:259 shift
  0:261 shift
  0:266,target 9
  8:257,target 1
  9:0 reduce
  11:273,target 23
  0:262 shift
  11:0 reduce
  0:263 reduce
  11:270 shift
  0:264 shift
  32:0 reduce
  0:265 shift
  11:272 shift
  19:263 reduce
  20:263 reduce
  25:263,target 19
  0:266 shift
  8:257 shift
  11:273 shift
  0:267 shift
  8:258 shift
  0:268 shift
  8:259 shift
  8:260 shift
  8:261 shift
  11:276 goto
  0:271 shift
  8:276,target 20
  8:262 shift
  8:263 reduce
  14:263,target 11
  30:257,target 1
  11:280 goto
  28:263 shift
  0:275 shift
  6:0 reduce
  0:264,target 7
  0:276 goto
  0:277 goto
  0:279 goto
  7:0,target 23
  0:0,target 1
  5:263,target 4
  30:276,target 34
  8:276 goto
  34:0,target 14
  3:0 reduce
  7:269,target 17
  26:0,target 26
  18:0,target 25
  0:262,target 6
  11:0,target 1
  26:263,target 26
  25:0 reduce
  16:263 reduce
  0:0 reduce
  5:263 reduce
  25:263 reduce
  0:260,target 4
  0:259,target 3
  6:263,target 7
  22:0 reduce
  16:278 goto
  34:263 reduce
  4:0,target 6
  27:263,target 32
  0:257,target 1
  18:0 reduce
  16:263,target 9
  23:0,target 21
  15:0,target 0
  0:276,target 14
  13:268 shift
  2:263 reduce
  7:263,target 23
  15:0 accept
  11:262,target 6
  22:263 reduce
  31:263 shift
  13:268,target 30
  28:263,target 33
  11:259,target 3
  11:260,target 4
  33:0 reduce
  17:263,target 24
  8:0,target 1
  1:0,target 2
  10:263 reduce
  8:263,target 1
  7:0 reduce
  35:0,target 10
  30:0 reduce
  11:257,target 1
  29:0 reduce
  18:263 reduce
  19:0,target 17
  20:0,target 12
  30:263,target 1
  29:263,target 18
  7:263 reduce
  4:0 reduce
  8:261,target 5
  11:276,target 24
  27:263 shift
  18:263,target 25
  7:269 shift
  26:0 reduce
  7:274 shift
  30:261,target 5
  9:263,target 15
  1:0 reduce
  0:267,target 10
  7:281 goto
  8:258,target 2
  23:0 reduce
  5:0,target 4
  31:263,target 35
  30:258,target 2
  4:263 reduce
  32:0,target 27
  0:265,target 8
  11:272,target 22
  19:263,target 17
  20:263,target 12
  24:0,target 13
  24:263 reduce
  16:0,target 8
  19:0 reduce
  20:0 reduce
  33:263 reduce
  12:274,target 28
  0:263,target 1
  11:270,target 21
  16:0 reduce
  32:263,target 27
  12:263 shift
  21:263,target 22
  1:263 reduce
  0:261,target 5
  9:0,target 15
  12:269 shift
  2:0,target 5
  21:263 reduce
  34:0 reduce
  10:263,target 16
  12:274 shift
  30:257 shift
  30:258 shift
  30:260 shift
  30:259 shift
  30:261 shift
  9:263 reduce
  30:262 shift
  0:279,target 16
  30:263 reduce
  21:0,target 22
  29:263 reduce
  1:263,target 2
  12:282 goto
  12:269,target 27
  8:0 reduce
  10:0 reduce
  0:258,target 2
  33:263,target 28
  30:276 goto
  22:263,target 20
  0:277,target 15
  5:0 reduce
}

array set samp::rules {
  27,l 282
  9,l 278
  11,l 279
  15,l 279
  20,l 280
  19,l 279
  2,l 276
  24,l 281
  6,l 276
  28,l 282
  12,l 279
  16,l 279
  21,l 280
  3,l 276
  25,l 281
  7,l 276
  13,l 279
  0,l 283
  17,l 279
  22,l 280
  4,l 276
  26,l 282
  8,l 277
  10,l 277
  14,l 279
  18,l 279
  1,l 276
  23,l 281
  5,l 276
}

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

array set samp::rules {
  13,line 57
  25,line 74
  7,line 48
  10,line 52
  22,line 69
  4,line 45
  18,line 63
  1,line 42
  15,line 60
  27,line 78
  9,line 51
  12,line 56
  24,line 73
  6,line 47
  21,line 68
  3,line 44
  17,line 62
  14,line 59
  26,line 77
  8,line 51
  11,line 55
  23,line 72
  5,line 46
  20,line 67
  19,line 64
  2,line 43
  9,e 1
  16,line 61
  28,line 79
}

array set samp::lr1_table {
  35 {{10 0 3}}
  14,trans {}
  33,trans {}
  18,trans {}
  1,trans {}
  23,trans {}
  5,trans {}
  27,trans {{263 32}}
  9,trans {}
  13,trans {{268 30}}
  32,trans {}
  17,trans {}
  0,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {264 7} {265 8} {266 9} {267 10} {268 11} {271 12} {275 13} {276 14} {277 15} {279 16}}
  22,trans {}
  4,trans {}
  26,trans {}
  8,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {276 20}}
  12,trans {{263 26} {269 27} {274 28} {282 29}}
  31,trans {{263 35}}
  16,trans {{278 31}}
  35,trans {}
  21,trans {}
  3,trans {}
  10 {{16 {0 263} 1}}
  11 {{13 {0 263} 1} {19 {0 263} 1} {1 {0 263} 0} {2 {0 263} 0} {3 {0 263} 0} {4 {0 263} 0} {5 {0 263} 0} {6 {0 263} 0} {7 {0 263} 0} {20 {0 263} 0} {21 {0 263} 0} {22 {0 263} 0}}
  25,trans {}
  12 {{18 {0 263} 1} {26 {0 263} 0} {27 {0 263} 0} {28 {0 263} 0}}
  7,trans {{269 17} {274 18} {281 19}}
  13 {{14 {0 263} 1}}
  14 {{11 {0 263} 1}}
  15 {{0 0 1}}
  11,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {270 21} {272 22} {273 23} {276 24} {280 25}}
  30,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {276 34}}
  29,trans {}
  16 {{8 0 1} {10 0 1} {9 263 0}}
  0 {{0 0 0} {8 0 0} {10 0 0} {11 {0 263} 0} {12 {0 263} 0} {13 {0 263} 0} {14 {0 263} 0} {15 {0 263} 0} {16 {0 263} 0} {17 {0 263} 0} {18 {0 263} 0} {19 {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} {7 {0 263} 0}}
  17 {{24 {0 263} 1}}
  1 {{2 {0 263} 1}}
  18 {{25 {0 263} 1}}
  2 {{5 {0 263} 1}}
  19 {{17 {0 263} 2}}
  20 {{12 {0 263} 2}}
  15,trans {}
  34,trans {}
  3 {{3 {0 263} 1}}
  21 {{22 {0 263} 1}}
  4 {{6 {0 263} 1}}
  22 {{20 {0 263} 1}}
  5 {{4 {0 263} 1}}
  23 {{21 {0 263} 1}}
  20,trans {}
  19,trans {}
  6 {{7 {0 263} 1}}
  2,trans {}
  24 {{13 {0 263} 2}}
  7 {{17 {0 263} 1} {23 {0 263} 0} {24 {0 263} 0} {25 {0 263} 0}}
  25 {{19 {0 263} 2}}
  8 {{12 {0 263} 1} {1 {0 263} 0} {2 {0 263} 0} {3 {0 263} 0} {4 {0 263} 0} {5 {0 263} 0} {6 {0 263} 0} {7 {0 263} 0}}
  26 {{26 {0 263} 1}}
  9 {{15 {0 263} 1}}
  27 {{27 {0 263} 1}}
  24,trans {}
  6,trans {}
  28 {{28 {0 263} 1}}
  29 {{18 {0 263} 2}}
  30 {{14 {0 263} 2} {1 {0 263} 0} {2 {0 263} 0} {3 {0 263} 0} {4 {0 263} 0} {5 {0 263} 0} {6 {0 263} 0} {7 {0 263} 0}}
  31 {{10 0 2}}
  32 {{27 {0 263} 2}}
  10,trans {}
  28,trans {{263 33}}
  33 {{28 {0 263} 2}}
  34 {{14 {0 263} 3}}
}

array set samp::token_id_table {
  280,title {}
  279,title {}
  264,line 18
  270,t 0
  269,t 0
  276,line 41
  265,title CLIENT
  274,t 0
  261,line 11
  257,t 0
  270,title INFO
  269,title IMAGE
  273,line 27
  278,t 1
  257,line 7
  262,t 0
  274,title TABLE
  283,t 1
  270,line 24
  269,line 23
  259,title ON
  260,title OFF
  266,t 0
  278,title {}
  282,line 76
  error error
  271,t 0
  264,title BROADCAST
  266,line 20
  283,title {}
  278,line 51
  error,line 40
  275,t 0
  268,title HUB
  258,t 0
  263,line 14
  error,title {}
  280,t 1
  279,t 1
  275,line 29
  273,title STOP
  263,t 0
  259,line 9
  260,line 10
  258,title NO
  277,title {}
  272,line 26
  267,t 0
  263,title string
  282,title {}
  272,t 0
  268,line 22
  267,title DISCONNECT
  257 YES_
  281,line 71
  276,t 1
  258 NO_
  259,t 0
  259 ON_
  260 OFF_
  260,t 0
  272,title START
  261 TRUE_
  265,line 19
  262 FALSE_
  281,t 1
  263 STRING_
  277,line 50
  257,title YES
  264 BROADCAST_
  264,t 0
  276,title {}
  265 CLIENT_
  262,line 12
  266 CONNECT_
  267 DISCONNECT_
  0,t 0
  0 {$}
  262,title FALSE
  268 HUB_
  268,t 0
  281,title {}
  274,line 28
  270 INFO_
  269 IMAGE_
  error,t 0
  271 SEND_
  272 START_
  258,line 8
  273,t 0
  273 STOP_
  266,title CONNECT
  274 TABLE_
  275 WEB_
  271,line 25
  276 yesno
  277,t 1
  277 command
  271,title SEND
  283,line 80
  278 @PSEUDO1
  261,t 0
  280 hub
  279 samp
  281 broadcast
  267,line 21
  282,t 1
  282 send
  275,title WEB
  283 start'
  265,t 0
  280,line 66
  279,line 54
  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 _ 1 }
                    5 { set _ 0 }
                    6 { set _ 0 }
                    7 { set _ 0 }
                    9 { global ds9; if {!$ds9(init)} {YYERROR} else {yyclearin; YYACCEPT} }
                    15 { SAMPConnect 1 }
                    16 { SAMPDisconnect }
                    20 {  SAMPHubStart 1 }
                    21 { SAMPHubStop }
                    22 { SAMPHubDialog }
                    23 { SAMPSendImageLoadFits {} }
                    24 { SAMPSendImageLoadFits {} }
                    25 { SAMPSendTableLoadFits {} }
                    26 { SAMPCmdSendImage $1 }
                    27 { SAMPCmdSendImage $2 }
                    28 { 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_
}
