path: root/ds9/parsers/xpaparser.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 xpa {
    variable yylval {}
    variable table
    variable rules
    variable token {}
    variable yycnt 0
    variable yyerr 0
    variable save_state 0

    namespace export yylex
}

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

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

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

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

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

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

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

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

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

array set xpa::rules {
  13,line 55
  7,line 45
  10,line 49
  4,line 42
  18,line 63
  1,line 39
  15,line 57
  9,line 48
  12,line 53
  6,line 44
  21,line 66
  3,line 41
  17,line 60
  14,line 56
  8,line 48
  11,line 52
  5,line 43
  20,line 65
  19,line 64
  2,line 40
  9,e 1
  16,line 59
}

array set xpa::lr1_table {
  13,trans {}
  17 {{0 0 1}}
  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} {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} {18 {0 263} 0} {19 {0 263} 0} {20 {0 263} 0} {21 {0 263} 0}}
  14,trans {}
  18 {{8 0 1} {10 0 1} {9 263 0}}
  1 {{2 {0 263} 1}}
  20 {{10 0 2}}
  15,trans {}
  19 {{12 {0 263} 1}}
  2 {{5 {0 263} 1}}
  21 {{10 0 3}}
  16,trans {}
  3 {{3 {0 263} 1}}
  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} {269 12} {270 13} {271 14} {272 15} {273 16} {274 17} {276 18} {277 19}}
  4 {{6 {0 263} 1}}
  18,trans {{275 20}}
  1,trans {}
  5 {{4 {0 263} 1}}
  20,trans {{263 21}}
  19,trans {}
  2,trans {}
  6 {{7 {0 263} 1}}
  21,trans {}
  3,trans {}
  7 {{14 {0 263} 1}}
  4,trans {}
  8 {{15 {0 263} 1}}
  5,trans {}
  9 {{19 {0 263} 1}}
  10 {{16 {0 263} 1}}
  6,trans {}
  11 {{20 {0 263} 1}}
  7,trans {}
  12 {{21 {0 263} 1}}
  8,trans {}
  13 {{13 {0 263} 1}}
  10,trans {}
  9,trans {}
  14 {{17 {0 263} 1}}
  11,trans {}
  15 {{18 {0 263} 1}}
  12,trans {}
  16 {{11 {0 263} 1}}
}

array set xpa::token_id_table {
  264,line 18
  270,t 0
  269,t 0
  276,line 51
  265,title DISCONNECT
  274,t 1
  261,line 11
  257,t 0
  270,title NOXPANS
  269,title LOCALHOST
  273,line 38
  278,t 1
  257,line 7
  262,t 0
  274,title {}
  270,line 24
  269,line 23
  259,title ON
  260,title OFF
  266,t 0
  278,title {}
  error error
  271,t 0
  264,title CONNECT
  266,line 20
  278,line 67
  275,t 1
  error,line 37
  268,title LOCAL
  258,t 0
  263,line 14
  error,title {}
  275,line 48
  273,title {}
  263,t 0
  259,line 9
  260,line 10
  258,title NO
  277,title {}
  272,line 26
  267,t 0
  263,title string
  272,t 0
  268,line 22
  267,title INFO
  257 YES_
  276,t 1
  258 NO_
  259,t 0
  259 ON_
  260 OFF_
  260,t 0
  272,title UNIX
  261 TRUE_
  265,line 19
  262 FALSE_
  263 STRING_
  277,line 62
  257,title YES
  264 CONNECT_
  264,t 0
  276,title {}
  265 DISCONNECT_
  262,line 12
  266 INET_
  267 INFO_
  0,t 0
  0 {$}
  262,title FALSE
  268 LOCAL_
  268,t 0
  274,line 47
  270 NOXPANS_
  269 LOCALHOST_
  error,t 0
  271 TCL_
  272 UNIX_
  258,line 8
  273,t 1
  273 yesno
  266,title INET
  274 command
  275 @PSEUDO1
  271,line 25
  276 xpa
  277,t 1
  277 method
  271,title TCL
  278 start'
  261,t 0
  267,line 21
  275,title {}
  265,t 0
  261,title TRUE
}

proc xpa::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} }
                    14 { XPAConnect }
                    15 { XPADisconnect }
                    16 { XPAInfo }
                    18 { set _ unix }
                    19 { set _ inet }
                    20 { set _ local }
                    21 { set _ localhost }
                }
                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 xpa::yyerror {msg} {
     variable yycnt
     variable yy_current_buffer
     variable index_

     ParserError $msg $yycnt $yy_current_buffer $index_
}