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

    namespace export yylex
}

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

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

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

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

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

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

array set fitssend::table {
  21:289 reduce
  21:290 reduce
  21:291 reduce
  21:292 reduce
  21:293 reduce
  48:0 reduce
  28:285,target 12
  25:293,target 9
  41:287,target 25
  9:298 reduce
  64:0,target 51
  23:284,target 7
  33:0,target 17
  19:292,target 3
  20:292,target 4
  35:286,target 19
  7:260,target 20
  7:259,target 19
  21:0 reduce
  29:285,target 13
  30:285,target 14
  26:284 reduce
  26:285 reduce
  26:286 reduce
  63:0 reduce
  26:287 reduce
  26:293,target 10
  26:288 reduce
  42:287,target 26
  26:289 reduce
  26:290 reduce
  26:291 reduce
  26:292 reduce
  26:293 reduce
  54:290,target 50
  54:289,target 49
  24:284,target 8
  21:292,target 5
  36:286,target 20
  7:276,target 36
  61:0,target 56
  29:0,target 13
  30:0,target 14
  31:285,target 15
  35:0 reduce
  27:293,target 11
  43:287,target 27
  25:284,target 9
  9:0 reduce
  32:284 reduce
  22:292,target 6
  32:285 reduce
  32:286 reduce
  37:286,target 21
  32:287 reduce
  32:288 reduce
  7:293,target 53
  32:289 reduce
  32:290 reduce
  32:291 reduce
  32:292 reduce
  32:293 reduce
  32:285,target 16
  13:298,target 58
  28:293,target 12
  50:0 reduce
  49:0 reduce
  57:0,target 43
  26:284,target 10
  26:0,target 10
  23:292,target 7
  38:286,target 22
  17:291,target 1
  63:291,target 51
  33:285,target 17
  37:284 reduce
  7:267,target 27
  37:285 reduce
  37:286 reduce
  3:302,target 15
  37:287 reduce
  22:0 reduce
  29:293,target 13
  30:293,target 14
  37:288 reduce
  37:289 reduce
  37:290 reduce
  37:291 reduce
  0:299,target 3
  37:292 reduce
  37:293 reduce
  64:0 reduce
  27:284,target 11
  24:292,target 8
  39:286,target 23
  40:286,target 24
  54:0,target 47
  7:284,target 44
  18:291,target 2
  23:0,target 7
  34:285,target 18
  31:293,target 15
  36:0 reduce
  28:284,target 12
  43:284 reduce
  43:285 reduce
  25:292,target 9
  43:286 reduce
  41:286,target 25
  43:287 reduce
  43:288 reduce
  43:289 reduce
  43:290 reduce
  43:291 reduce
  43:292 reduce
  43:293 reduce
  7:311,target 56
  19:291,target 3
  20:291,target 4
  35:285,target 19
  8:0,target 63
  32:293,target 16
  13:298 shift
  51:0,target 35
  13:316,target 59
  7:258,target 18
  29:284,target 13
  30:284,target 14
  7:257 shift
  19:0,target 3
  20:0,target 4
  51:0 reduce
  13:316 goto
  7:258 shift
  7:260 shift
  7:259 shift
  0:301,target 5
  7:261 shift
  26:292,target 10
  7:262 shift
  42:286,target 26
  7:263 shift
  7:264 shift
  7:265 shift
  7:266 shift
  54:288,target 48
  7:267 shift
  7:268 shift
  7:270 shift
  7:269 shift
  7:271 shift
  7:272 shift
  21:291,target 5
  7:273 shift
  36:285,target 20
  7:274 shift
  7:275 shift
  7:276 shift
  18:284 reduce
  7:277 shift
  33:293,target 17
  48:291 reduce
  7:278 shift
  7:275,target 35
  18:285 reduce
  48:292 reduce
  7:280 shift
  7:279 shift
  18:286 reduce
  48:293 reduce
  7:281 shift
  18:287 reduce
  7:282 shift
  18:288 reduce
  7:283 shift
  18:289 reduce
  18:290 reduce
  7:284 shift
  18:291 reduce
  23:0 reduce
  31:284,target 15
  7:285 shift
  18:292 reduce
  7:286 shift
  18:293 reduce
  7:287 shift
  5:0,target 62
  7:288 shift
  27:292,target 11
  7:290 shift
  7:289 shift
  43:286,target 27
  65:0 reduce
  7:291 shift
  7:292 shift
  7:293 shift
  47:0,target 31
  16:0,target 44
  7:310 goto
  7:309 goto
  22:291,target 6
  7:311 goto
  37:285,target 21
  7:313 goto
  7:292,target 52
  34:293,target 18
  32:284,target 16
  54:284 shift
  54:285 shift
  54:286 shift
  54:287 shift
  28:292,target 12
  37:0 reduce
  54:288 shift
  54:290 shift
  54:289 shift
  24:284 reduce
  54:291 shift
  24:285 reduce
  54:292 shift
  24:286 reduce
  54:293 shift
  24:287 reduce
  24:288 reduce
  24:289 reduce
  24:290 reduce
  24:291 reduce
  24:292 reduce
  23:291,target 7
  24:293 reduce
  54:310 goto
  2:0,target 40
  38:285,target 22
  54:311 goto
  35:293,target 19
  44:0,target 28
  17:290,target 1
  17:289,target 1
  13:0,target 65
  33:284,target 17
  7:266,target 26
  10:0 reduce
  29:292,target 13
  30:292,target 14
  0:308,target 11
  0:298,target 60
  52:0 reduce
  24:291,target 8
  39:285,target 23
  40:285,target 24
  29:284 reduce
  30:284 reduce
  29:285 reduce
  30:285 reduce
  36:293,target 20
  29:286 reduce
  30:286 reduce
  29:287 reduce
  30:287 reduce
  29:288 reduce
  30:288 reduce
  60:295 shift
  29:289 reduce
  29:290 reduce
  30:289 reduce
  30:290 reduce
  60:296 shift
  7:283,target 43
  18:289,target 2
  18:290,target 2
  29:291 reduce
  30:291 reduce
  29:292 reduce
  30:292 reduce
  34:284,target 18
  29:293 reduce
  30:293 reduce
  31:292,target 15
  24:0 reduce
  41:0,target 25
  66:0 reduce
  10:0,target 42
  25:291,target 9
  41:285,target 25
  37:293,target 21
  7:310,target 55
  7:309,target 54
  19:289,target 3
  19:290,target 3
  20:289,target 4
  20:290,target 4
  35:284,target 19
  32:292,target 16
  35:284 reduce
  35:285 reduce
  7:257,target 17
  35:286 reduce
  35:287 reduce
  35:288 reduce
  35:289 reduce
  35:290 reduce
  38:0 reduce
  35:291 reduce
  35:292 reduce
  0:300,target 4
  35:293 reduce
  26:291,target 10
  42:285,target 26
  68:0,target 53
  38:293,target 22
  54:287,target 47
  37:0,target 21
  21:289,target 5
  21:290,target 5
  36:284,target 20
  33:292,target 17
  7:274,target 34
  11:0 reduce
  53:0 reduce
  27:291,target 11
  43:285,target 27
  41:284 reduce
  41:285 reduce
  39:293,target 23
  40:293,target 24
  41:286 reduce
  41:287 reduce
  41:288 reduce
  41:289 reduce
  41:290 reduce
  41:291 reduce
  22:289,target 6
  22:290,target 6
  41:292 reduce
  37:284,target 21
  41:293 reduce
  65:0,target 52
  7:291,target 51
  34:292,target 18
  34:0,target 18
  0:300 shift
  0:301 shift
  0:303 shift
  0:304 shift
  25:0 reduce
  0:305 shift
  0:296 shift
  0:306 shift
  28:291,target 12
  0:307 shift
  0:297 shift
  0:308 shift
  0:298 reduce
  0:299 shift
  67:0 reduce
  0:312 goto
  41:293,target 25
  0:0 reduce
  0:315 goto
  23:289,target 7
  23:290,target 7
  38:284,target 22
  35:292,target 19
  5:298,target 62
  17:288,target 1
  46:291 reduce
  46:292 reduce
  7:265,target 25
  46:293 reduce
  60:296,target 67
  29:291,target 13
  30:291,target 14
  62:0,target 58
  39:0 reduce
  40:0 reduce
  0:297,target 2
  0:307,target 10
  31:0,target 15
  42:293,target 26
  24:289,target 8
  24:290,target 8
  39:284,target 23
  40:284,target 24
  5:298 reduce
  36:292,target 20
  6:298,target 64
  7:282,target 42
  18:288,target 2
  15:296,target 62
  12:0 accept
  31:291,target 15
  43:293,target 27
  54:0 reduce
  22:284 reduce
  22:285 reduce
  22:286 reduce
  22:287 reduce
  25:289,target 9
  25:290,target 9
  22:288 reduce
  41:284,target 25
  22:289 reduce
  22:290 reduce
  58:0,target 66
  22:291 reduce
  22:292 reduce
  22:293 reduce
  37:292,target 21
  27:0,target 11
  19:288,target 3
  20:288,target 4
  32:291,target 16
  26:0 reduce
  44:293,target 28
  68:0 reduce
  26:289,target 10
  26:290,target 10
  42:284,target 26
  1:0 reduce
  38:292,target 22
  54:286,target 46
  8:298,target 63
  27:284 reduce
  21:288,target 5
  27:285 reduce
  27:286 reduce
  27:287 reduce
  27:288 reduce
  27:289 reduce
  27:290 reduce
  55:0,target 48
  27:291 reduce
  33:291,target 17
  7:273,target 33
  27:292 reduce
  27:293 reduce
  24:0,target 8
  45:293,target 29
  0:315,target 13
  41:0 reduce
  27:289,target 11
  27:290,target 11
  43:284,target 27
  39:292,target 23
  40:292,target 24
  9:298,target 61
  22:288,target 6
  7:290,target 50
  7:289,target 49
  34:291,target 18
  46:293,target 30
  13:0 reduce
  9:0,target 61
  33:284 reduce
  63:291 shift
  33:285 reduce
  63:292 shift
  33:286 reduce
  63:293 shift
  33:287 reduce
  28:289,target 12
  28:290,target 12
  33:288 reduce
  33:289 reduce
  33:290 reduce
  55:0 reduce
  52:0,target 36
  33:291 reduce
  33:292 reduce
  33:293 reduce
  41:292,target 25
  63:311 goto
  21:0,target 5
  23:288,target 7
  35:291,target 19
  47:293,target 31
  17:287,target 1
  7:264,target 24
  60:295,target 66
  27:0 reduce
  29:289,target 13
  29:290,target 13
  30:289,target 14
  30:290,target 14
  0:296,target 1
  0:306,target 9
  42:292,target 26
  6:0,target 64
  38:284 reduce
  2:0 reduce
  38:285 reduce
  24:288,target 8
  38:286 reduce
  38:287 reduce
  38:288 reduce
  38:289 reduce
  38:290 reduce
  48:0,target 32
  38:291 reduce
  36:291,target 20
  38:292 reduce
  38:293 reduce
  17:0,target 1
  48:293,target 32
  7:281,target 41
  18:287,target 2
  15:295,target 61
  31:289,target 15
  31:290,target 15
  42:0 reduce
  43:292,target 27
  25:288,target 9
  37:291,target 21
  50:293,target 34
  49:293,target 33
  3:0,target 54
  19:287,target 3
  20:287,target 4
  32:289,target 16
  32:290,target 16
  45:0,target 29
  44:291 reduce
  14:0 reduce
  44:292 reduce
  44:293 reduce
  14:0,target 55
  44:292,target 28
  14:302 shift
  56:0 reduce
  26:288,target 10
  3:302 shift
  3:294 shift
  38:291,target 22
  54:285,target 45
  21:287,target 5
  3:314 goto
  33:289,target 17
  33:290,target 17
  7:272,target 32
  45:292,target 29
  28:0 reduce
  0:0,target 60
  27:288,target 11
  19:284 reduce
  20:284 reduce
  50:291 reduce
  49:291 reduce
  19:285 reduce
  20:285 reduce
  42:0,target 26
  50:292 reduce
  49:292 reduce
  19:286 reduce
  20:286 reduce
  50:293 reduce
  49:293 reduce
  3:0 reduce
  19:287 reduce
  20:287 reduce
  39:291,target 23
  40:291,target 24
  19:288 reduce
  20:288 reduce
  11:0,target 38
  19:289 reduce
  19:290 reduce
  20:289 reduce
  20:290 reduce
  19:291 reduce
  20:291 reduce
  19:292 reduce
  20:292 reduce
  19:293 reduce
  20:293 reduce
  22:287,target 6
  7:288,target 48
  34:289,target 18
  34:290,target 18
  46:292,target 30
  8:298 reduce
  28:288,target 12
  43:0 reduce
  41:291,target 25
  23:287,target 7
  25:284 reduce
  55:291 shift
  25:285 reduce
  35:289,target 19
  35:290,target 19
  38:0,target 22
  55:292 shift
  25:286 reduce
  55:293 shift
  25:287 reduce
  25:288 reduce
  25:289 reduce
  25:290 reduce
  47:292,target 31
  17:286,target 1
  25:291 reduce
  25:292 reduce
  7:263,target 23
  25:293 reduce
  55:311 goto
  29:288,target 13
  30:288,target 14
  0:305,target 8
  57:0 reduce
  42:291,target 26
  54:293,target 53
  24:287,target 8
  36:289,target 20
  36:290,target 20
  48:292,target 32
  7:280,target 40
  7:279,target 39
  18:286,target 2
  3:314,target 16
  66:0,target 57
  31:288,target 15
  31:284 reduce
  29:0 reduce
  30:0 reduce
  31:285 reduce
  35:0,target 19
  31:286 reduce
  31:287 reduce
  31:288 reduce
  43:291,target 27
  31:289 reduce
  31:290 reduce
  31:291 reduce
  31:292 reduce
  31:293 reduce
  55:293,target 53
  25:287,target 9
  4:0 reduce
  37:289,target 21
  37:290,target 21
  50:292,target 34
  49:292,target 33
  19:286,target 3
  20:286,target 4
  32:288,target 16
  44:291,target 28
  44:0 reduce
  63:0,target 50
  26:287,target 10
  36:284 reduce
  32:0,target 16
  36:285 reduce
  36:286 reduce
  38:289,target 22
  38:290,target 22
  54:284,target 44
  36:287 reduce
  36:288 reduce
  36:289 reduce
  36:290 reduce
  36:291 reduce
  21:286,target 5
  36:292 reduce
  36:293 reduce
  33:288,target 17
  7:271,target 31
  16:0 reduce
  45:291,target 29
  58:0 reduce
  27:287,target 11
  54:311,target 64
  39:289,target 23
  39:290,target 23
  40:289,target 24
  40:290,target 24
  22:286,target 6
  59:0,target 45
  7:287,target 47
  34:288,target 18
  42:284 reduce
  28:0,target 12
  42:285 reduce
  42:286 reduce
  42:287 reduce
  42:288 reduce
  46:291,target 30
  42:289 reduce
  42:290 reduce
  42:291 reduce
  42:292 reduce
  31:0 reduce
  42:293 reduce
  28:287,target 12
  55:311,target 65
  41:289,target 25
  41:290,target 25
  5:0 reduce
  23:286,target 7
  35:288,target 19
  47:291,target 31
  17:285,target 1
  7:262,target 22
  56:0,target 49
  29:287,target 13
  30:287,target 14
  45:0 reduce
  0:304,target 7
  25:0,target 9
  42:289,target 26
  42:290,target 26
  17:284 reduce
  47:291 reduce
  17:285 reduce
  47:292 reduce
  17:286 reduce
  54:292,target 52
  47:293 reduce
  17:287 reduce
  24:286,target 8
  17:288 reduce
  17:290 reduce
  17:289 reduce
  17:291 reduce
  17:292 reduce
  17:293 reduce
  36:288,target 20
  48:291,target 32
  7:278,target 38
  18:285,target 2
  17:0 reduce
  31:287,target 15
  6:298 reduce
  43:289,target 27
  43:290,target 27
  59:0 reduce
  55:292,target 52
  25:286,target 9
  53:0,target 37
  22:0,target 6
  37:288,target 21
  23:284 reduce
  50:291,target 34
  49:291,target 33
  19:285,target 3
  20:285,target 4
  23:285 reduce
  23:286 reduce
  23:287 reduce
  23:288 reduce
  23:289 reduce
  23:290 reduce
  23:291 reduce
  32:287,target 16
  23:292 reduce
  23:293 reduce
  32:0 reduce
  26:286,target 10
  6:0 reduce
  38:288,target 22
  7:0,target 46
  21:285,target 5
  50:0,target 34
  49:0,target 33
  17:293,target 1
  63:293,target 53
  33:287,target 17
  7:270,target 30
  7:269,target 29
  18:0,target 2
  3:294,target 14
  28:284 reduce
  0:312,target 12
  28:285 reduce
  46:0 reduce
  28:286 reduce
  28:287 reduce
  27:286,target 11
  28:288 reduce
  28:289 reduce
  28:290 reduce
  28:291 reduce
  28:292 reduce
  54:310,target 63
  28:293 reduce
  39:288,target 23
  40:288,target 24
  22:285,target 6
  7:286,target 46
  18:293,target 2
  34:287,target 18
  4:0,target 39
  18:0 reduce
  46:0,target 30
  28:286,target 12
  61:0 reduce
  41:288,target 25
  34:284 reduce
  34:285 reduce
  23:285,target 7
  34:286 reduce
  34:287 reduce
  7:313,target 57
  34:288 reduce
  34:289 reduce
  34:290 reduce
  19:293,target 3
  20:293,target 4
  34:291 reduce
  34:292 reduce
  35:287,target 19
  34:293 reduce
  17:284,target 1
  7:261,target 21
  14:302,target 60
  29:286,target 13
  30:286,target 14
  33:0 reduce
  0:303,target 6
  42:288,target 26
  1:0,target 41
  7:0 reduce
  54:291,target 51
  24:285,target 8
  43:0,target 27
  21:293,target 5
  36:287,target 20
  12:0,target 0
  63:311,target 68
  7:277,target 37
  18:284,target 2
  39:284 reduce
  40:284 reduce
  39:285 reduce
  40:285 reduce
  39:286 reduce
  40:286 reduce
  39:287 reduce
  40:287 reduce
  39:288 reduce
  40:288 reduce
  31:286,target 15
  39:289 reduce
  39:290 reduce
  40:289 reduce
  40:290 reduce
  39:291 reduce
  40:291 reduce
  39:292 reduce
  40:292 reduce
  39:293 reduce
  40:293 reduce
  47:0 reduce
  43:288,target 27
  55:291,target 51
  25:285,target 9
  22:293,target 6
  37:287,target 21
  19:284,target 3
  20:284,target 4
  39:0,target 23
  40:0,target 24
  32:286,target 16
  19:0 reduce
  20:0 reduce
  62:0 reduce
  26:285,target 10
  45:291 reduce
  45:292 reduce
  23:293,target 7
  45:293 reduce
  38:287,target 22
  21:284,target 5
  15:295 shift
  15:296 shift
  17:292,target 1
  63:292,target 52
  33:286,target 17
  7:268,target 28
  34:0 reduce
  67:0,target 59
  27:285,target 11
  36:0,target 20
  24:293,target 8
  8:0 reduce
  39:287,target 23
  40:287,target 24
  22:284,target 6
  7:285,target 45
  18:292,target 2
  21:284 reduce
  21:285 reduce
  34:286,target 18
  21:286 reduce
  21:287 reduce
  21:288 reduce
}

array set fitssend::rules {
  9,l 309
  11,l 309
  32,l 310
  53,l 313
  6,l 309
  28,l 310
  50,l 313
  49,l 313
  3,l 309
  25,l 309
  46,l 313
  0,l 317
  22,l 309
  43,l 312
  64,l 315
  18,l 309
  40,l 312
  39,l 312
  61,l 315
  15,l 309
  36,l 311
  57,l 314
  12,l 309
  33,l 310
  54,l 314
  7,l 309
  29,l 310
  30,l 310
  51,l 313
  4,l 309
  26,l 309
  47,l 313
  1,l 309
  23,l 309
  44,l 312
  65,l 316
  19,l 309
  20,l 309
  41,l 312
  62,l 315
  16,l 309
  37,l 311
  58,l 314
  13,l 309
  34,l 310
  55,l 314
  8,l 309
  10,l 309
  31,l 310
  52,l 313
  5,l 309
  27,l 309
  48,l 313
  2,l 309
  24,l 309
  45,l 312
  66,l 316
  21,l 309
  42,l 312
  63,l 315
  17,l 309
  38,l 312
  60,l 315
  59,l 314
  14,l 309
  35,l 311
  56,l 314
}

array set fitssend::rules {
  63,dc 1
  12,dc 1
  26,dc 1
  3,dc 1
  41,dc 1
  55,dc 1
  18,dc 1
  33,dc 1
  9,dc 1
  47,dc 1
  62,dc 1
  11,dc 1
  25,dc 1
  2,dc 1
  40,dc 1
  39,dc 1
  54,dc 0
  17,dc 1
  32,dc 1
  8,dc 1
  46,dc 0
  61,dc 1
  10,dc 1
  24,dc 1
  1,dc 1
  38,dc 1
  53,dc 3
  16,dc 1
  31,dc 1
  7,dc 1
  45,dc 2
  60,dc 0
  59,dc 3
  23,dc 1
  0,dc 1
  37,dc 1
  52,dc 2
  66,dc 1
  15,dc 1
  29,dc 1
  30,dc 1
  6,dc 1
  44,dc 2
  58,dc 2
  22,dc 1
  36,dc 1
  51,dc 2
  65,dc 0
  14,dc 1
  28,dc 1
  5,dc 1
  43,dc 2
  57,dc 3
  21,dc 1
  35,dc 1
  50,dc 2
  49,dc 1
  64,dc 1
  13,dc 1
  27,dc 1
  4,dc 1
  42,dc 1
  56,dc 2
  19,dc 1
  20,dc 1
  34,dc 1
  48,dc 1
}

array set fitssend::rules {
  41,line 157
  7,line 117
  37,line 149
  4,line 114
  34,line 145
  1,line 111
  31,line 142
  27,line 137
  24,line 134
  21,line 131
  17,line 127
  14,line 124
  11,line 121
  66,line 193
  63,line 188
  60,line 184
  59,line 181
  56,line 178
  53,line 171
  50,line 168
  49,line 167
  46,line 164
  43,line 159
  9,line 119
  40,line 155
  39,line 154
  6,line 116
  36,line 148
  3,line 113
  33,line 144
  29,line 140
  30,line 141
  26,line 136
  23,line 133
  19,line 129
  20,line 130
  16,line 126
  13,line 123
  10,line 120
  65,line 192
  62,line 186
  58,line 180
  55,line 175
  52,line 170
  48,line 166
  45,line 161
  42,line 158
  8,line 118
  38,line 153
  5,line 115
  35,line 147
  2,line 112
  32,line 143
  28,line 139
  25,line 135
  22,line 132
  18,line 128
  15,line 125
  12,line 122
  64,line 189
  61,line 185
  57,line 179
  54,line 174
  51,line 169
  47,line 165
  44,line 160
}

array set fitssend::lr1_table {
  66,trans {}
  35 {{19 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  14,trans {{302 60}}
  36 {{20 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  33,trans {}
  37 {{21 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  52,trans {}
  38 {{22 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  39 {{23 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  40 {{24 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  18,trans {}
  41 {{25 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  1,trans {}
  37,trans {}
  42 {{26 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  56,trans {}
  43 {{27 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  44 {{28 {0 291 292 293} 1}}
  23,trans {}
  45 {{29 {0 291 292 293} 1}}
  5,trans {}
  42,trans {}
  46 {{30 {0 291 292 293} 1}}
  61,trans {}
  47 {{31 {0 291 292 293} 1}}
  48 {{32 {0 291 292 293} 1}}
  27,trans {}
  9,trans {}
  50 {{34 {0 291 292 293} 1}}
  49 {{33 {0 291 292 293} 1}}
  46,trans {}
  51 {{35 0 1}}
  65,trans {}
  52 {{36 0 1}}
  13,trans {{298 58} {316 59}}
  53 {{37 0 1}}
  32,trans {}
  54 {{47 0 1} {50 0 1} {51 0 1} {53 0 1} {28 {0 291 292 293} 0} {29 {0 291 292 293} 0} {30 {0 291 292 293} 0} {31 {0 291 292 293} 0} {32 {0 291 292 293} 0} {33 {0 291 292 293} 0} {34 {0 291 292 293} 0} {35 0 0} {36 0 0} {37 0 0}}
  51,trans {}
  55 {{48 0 1} {52 0 1} {35 0 0} {36 0 0} {37 0 0}}
  56 {{49 0 1}}
  17,trans {}
  57 {{43 0 2}}
  0,trans {{296 1} {297 2} {299 3} {300 4} {301 5} {303 6} {304 7} {305 8} {306 9} {307 10} {308 11} {312 12} {315 13}}
  36,trans {}
  58 {{66 0 1}}
  55,trans {{291 51} {292 52} {293 53} {311 65}}
  60 {{57 0 2} {59 0 2}}
  59 {{45 0 2}}
  61 {{56 0 2}}
  22,trans {}
  62 {{58 0 2}}
  4,trans {}
  63 {{50 0 2} {53 0 2} {35 0 0} {36 0 0} {37 0 0}}
  41,trans {}
  60,trans {{295 66} {296 67}}
  59,trans {}
  64 {{51 0 2}}
  65 {{52 0 2}}
  66 {{57 0 3}}
  26,trans {}
  8,trans {}
  67 {{59 0 3}}
  45,trans {}
  64,trans {}
  68 {{53 0 3}}
  12,trans {}
  31,trans {}
  50,trans {}
  49,trans {}
  68,trans {}
  16,trans {}
  35,trans {}
  54,trans {{284 44} {285 45} {286 46} {287 47} {288 48} {289 49} {290 50} {291 51} {292 52} {293 53} {310 63} {311 64}}
  21,trans {}
  3,trans {{294 14} {302 15} {314 16}}
  40,trans {}
  39,trans {}
  58,trans {}
  10 {{42 0 1}}
  11 {{38 0 1}}
  25,trans {}
  7,trans {{257 17} {258 18} {259 19} {260 20} {261 21} {262 22} {263 23} {264 24} {265 25} {266 26} {267 27} {268 28} {269 29} {270 30} {271 31} {272 32} {273 33} {274 34} {275 35} {276 36} {277 37} {278 38} {279 39} {280 40} {281 41} {282 42} {283 43} {284 44} {285 45} {286 46} {287 47} {288 48} {289 49} {290 50} {291 51} {292 52} {293 53} {309 54} {310 55} {311 56} {313 57}}
  12 {{0 0 1}}
  44,trans {}
  13 {{45 0 1} {65 0 0} {66 0 0}}
  63,trans {{291 51} {292 52} {293 53} {311 68}}
  14 {{55 0 1} {57 0 1} {59 0 1}}
  11,trans {}
  15 {{56 0 1} {58 0 1}}
  30,trans {}
  29,trans {}
  16 {{44 0 2}}
  48,trans {}
  0 {{0 0 0} {38 0 0} {39 0 0} {40 0 0} {41 0 0} {42 0 0} {43 0 0} {44 0 0} {45 0 0} {60 {0 298} 0} {61 {0 298} 0} {62 {0 298} 0} {63 {0 298} 0} {64 {0 298} 0}}
  17 {{1 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  67,trans {}
  1 {{41 0 1}}
  18 {{2 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  15,trans {{295 61} {296 62}}
  2 {{40 0 1}}
  19 {{3 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  20 {{4 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  34,trans {}
  3 {{44 0 1} {54 0 0} {55 0 0} {56 0 0} {57 0 0} {58 0 0} {59 0 0}}
  21 {{5 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  53,trans {}
  4 {{39 0 1}}
  22 {{6 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  5 {{62 {0 298} 1}}
  23 {{7 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  20,trans {}
  19,trans {}
  6 {{64 {0 298} 1}}
  2,trans {}
  24 {{8 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  38,trans {}
  7 {{43 0 1} {46 0 0} {47 0 0} {48 0 0} {49 0 0} {50 0 0} {51 0 0} {52 0 0} {53 0 0} {1 {0 284 285 286 287 288 289 290 291 292 293} 0} {2 {0 284 285 286 287 288 289 290 291 292 293} 0} {3 {0 284 285 286 287 288 289 290 291 292 293} 0} {4 {0 284 285 286 287 288 289 290 291 292 293} 0} {5 {0 284 285 286 287 288 289 290 291 292 293} 0} {6 {0 284 285 286 287 288 289 290 291 292 293} 0} {7 {0 284 285 286 287 288 289 290 291 292 293} 0} {8 {0 284 285 286 287 288 289 290 291 292 293} 0} {9 {0 284 285 286 287 288 289 290 291 292 293} 0} {10 {0 284 285 286 287 288 289 290 291 292 293} 0} {11 {0 284 285 286 287 288 289 290 291 292 293} 0} {12 {0 284 285 286 287 288 289 290 291 292 293} 0} {13 {0 284 285 286 287 288 289 290 291 292 293} 0} {14 {0 284 285 286 287 288 289 290 291 292 293} 0} {15 {0 284 285 286 287 288 289 290 291 292 293} 0} {16 {0 284 285 286 287 288 289 290 291 292 293} 0} {17 {0 284 285 286 287 288 289 290 291 292 293} 0} {18 {0 284 285 286 287 288 289 290 291 292 293} 0} {19 {0 284 285 286 287 288 289 290 291 292 293} 0} {20 {0 284 285 286 287 288 289 290 291 292 293} 0} {21 {0 284 285 286 287 288 289 290 291 292 293} 0} {22 {0 284 285 286 287 288 289 290 291 292 293} 0} {23 {0 284 285 286 287 288 289 290 291 292 293} 0} {24 {0 284 285 286 287 288 289 290 291 292 293} 0} {25 {0 284 285 286 287 288 289 290 291 292 293} 0} {26 {0 284 285 286 287 288 289 290 291 292 293} 0} {27 {0 284 285 286 287 288 289 290 291 292 293} 0} {28 {0 291 292 293} 0} {29 {0 291 292 293} 0} {30 {0 291 292 293} 0} {31 {0 291 292 293} 0} {32 {0 291 292 293} 0} {33 {0 291 292 293} 0} {34 {0 291 292 293} 0} {35 0 0} {36 0 0} {37 0 0}}
  25 {{9 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  57,trans {}
  8 {{63 {0 298} 1}}
  26 {{10 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  9 {{61 {0 298} 1}}
  27 {{11 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  24,trans {}
  6,trans {}
  28 {{12 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  43,trans {}
  29 {{13 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  30 {{14 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  62,trans {}
  31 {{15 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  10,trans {}
  32 {{16 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  28,trans {}
  33 {{17 {0 284 285 286 287 288 289 290 291 292 293} 1}}
  47,trans {}
  34 {{18 {0 284 285 286 287 288 289 290 291 292 293} 1}}
}

array set fitssend::token_id_table {
  286 FK5_
  286,t 0
  287 J2000_
  292,line 44
  302,line 59
  288 ICRS_
  317,t 1
  265,title WCSH
  289 GALACTIC_
  290 ECLIPTIC_
  300 HEIGHT_
  284,title FK4
  291 DEGREES_
  301 IMAGE_
  313,title {}
  292 ARCMIN_
  302 KEYWORD_
  288,line 39
  293 ARCSEC_
  303 RESAMPLE_
  294 INT_
  304 SIZE_
  305 SLICE_
  295 STRING_
  306 TABLE_
  296 BITPIX_
  307 TYPE_
  262,t 0
  297 DEPTH_
  308 WIDTH_
  285,line 36
  298 GZ_
  310 skyframe
  309 wcssys
  299 HEADER_
  311 rformat
  283,t 0
  312 fitssend
  313 size
  314,t 1
  314 header
  282,line 32
  315 opt
  316 gz
  264,title WCSG
  317 start'
  283,title WCSZ
  312,title {}
  278,line 28
  error,line 109
  258,t 0
  275,line 25
  279,t 0
  280,t 0
  311,t 1
  272,line 22
  263,title WCSF
  282,title WCSY
  311,title {}
  268,line 18
  276,t 0
  265,line 15
  307,t 0
  297,t 0
  262,line 12
  0,t 0
  0 {$}
  262,title WCSE
  281,title WCSX
  310,title {}
  309,title {}
  error,t 0
  299,title HEADER
  258,line 8
  273,t 0
  294,t 0
  304,t 0
  317,line 194
  261,title WCSD
  279,title WCSV
  280,title WCSW
  308,title WIDTH
  269,t 0
  270,t 0
  298,title GZ
  314,line 173
  291,t 0
  301,t 0
  311,line 146
  307,line 64
  266,t 0
  260,title WCSC
  259,title WCSB
  297,line 54
  278,title WCSU
  307,title TYPE
  297,title DEPTH
  287,t 0
  294,line 47
  304,line 61
  error,title {}
  291,line 43
  301,line 58
  263,t 0
  258,title WCSA
  287,line 38
  277,title WCST
  284,t 0
  306,title TABLE
  296,title BITPIX
  315,t 1
  284,line 35
  281,line 31
  260,t 0
  259,t 0
  281,t 0
  257,title WCS
  277,line 27
  276,title WCSS
  312,t 1
  305,title SLICE
  295,title string
  274,line 24
  271,line 21
  277,t 0
  308,t 0
  267,line 17
  298,t 0
  275,title WCSR
  294,title integer
  304,title SIZE
  264,line 14
  261,line 11
  274,t 0
  305,t 0
  295,t 0
  257,line 7
  274,title WCSQ
  293,title ARCSEC
  303,title RESAMPLE
  error error
  271,t 0
  292,t 0
  302,t 0
  316,line 191
  273,title WCSP
  313,line 163
  292,title ARCMIN
  302,title KEYWORD
  267,t 0
  310,line 138
  309,line 110
  299,line 56
  288,t 0
  306,line 63
  296,line 53
  272,title WCSO
  291,title DEGREES
  293,line 45
  301,title IMAGE
  303,line 60
  264,t 0
  285,t 0
  289,line 40
  290,line 41
  300,line 57
  316,t 1
  286,line 37
  271,title WCSN
  261,t 0
  283,line 33
  289,title GALACTIC
  290,title ECLIPTIC
  300,title HEIGHT
  282,t 0
  279,line 29
  280,line 30
  313,t 1
  276,line 26
  257,t 0
  269,title WCSL
  270,title WCSM
  273,line 23
  288,title ICRS
  317,title {}
  278,t 0
  310,t 1
  309,t 1
  299,t 0
  269,line 19
  270,line 20
  266,line 16
  268,title WCSK
  275,t 0
  263,line 13
  287,title J2000
  316,title {}
  306,t 0
  296,t 0
  260,line 10
  259,line 9
  272,t 0
  267,title WCSJ
  257 WCS_
  286,title FK5
  293,t 0
  303,t 0
  315,title {}
  258 WCSA_
  260 WCSC_
  259 WCSB_
  261 WCSD_
  262 WCSE_
  263 WCSF_
  264 WCSG_
  315,line 183
  265 WCSH_
  266 WCSI_
  267 WCSJ_
  268,t 0
  268 WCSK_
  269 WCSL_
  270 WCSM_
  312,line 152
  271 WCSN_
  272 WCSO_
  289,t 0
  290,t 0
  300,t 0
  266,title WCSI
  273 WCSP_
  274 WCSQ_
  285,title B1950
  314,title {}
  275 WCSR_
  308,line 65
  276 WCSS_
  298,line 55
  277 WCST_
  278 WCSU_
  279 WCSV_
  280 WCSW_
  281 WCSX_
  305,line 62
  282 WCSY_
  295,line 49
  265,t 0
  283 WCSZ_
  284 FK4_
  285 B1950_
}

proc fitssend::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 _ wcs }
                    2 { set _ wcsa }
                    3 { set _ wcsb }
                    4 { set _ wcsc }
                    5 { set _ wcsd }
                    6 { set _ wcse }
                    7 { set _ wcsf }
                    8 { set _ wcsg }
                    9 { set _ wcsh }
                    10 { set _ wcsi }
                    11 { set _ wcsj }
                    12 { set _ wcsk }
                    13 { set _ wcsl }
                    14 { set _ wcsm }
                    15 { set _ wcsn }
                    16 { set _ wcso }
                    17 { set _ wcsp }
                    18 { set _ wcsq }
                    19 { set _ wcsr }
                    20 { set _ wcss }
                    21 { set _ wcst }
                    22 { set _ wcsu }
                    23 { set _ wcsv }
                    24 { set _ wcsw }
                    25 { set _ wcsx }
                    26 { set _ wcsy }
                    27 { set _ wcsz }
                    28 { set _ fk4 }
                    29 { set _ fk4 }
                    30 { set _ fk5 }
                    31 { set _ fk5 }
                    32 { set _ icrs }
                    33 { set _ galactic }
                    34 { set _ ecliptic }
                    35 { set _ degrees }
                    36 { set _ arcmin }
                    37 { set _ arcsec }
                    38 { ProcessSendCmdCurrent "get fits width" }
                    39 { ProcessSendCmdCurrent "get fits height" }
                    40 { ProcessSendCmdCurrent "get fits depth" }
                    41 { ProcessSendCmdCurrent "get fits bitpix" }
                    42 { FitsSendCmdType }
                    45 { FitsSendCmd $1 }
                    46 { ProcessSendCmdCurrent "get fits size" }
                    47 { ProcessSendCmdCurrent "get fits size $1 fk5 degrees" }
                    48 { ProcessSendCmdCurrent "get fits size wcs $1 degrees" }
                    49 { ProcessSendCmdCurrent "get fits size wcs fk5 $1" }
                    50 { ProcessSendCmdCurrent "get fits size $1 $2 degrees" }
                    51 { ProcessSendCmdCurrent "get fits size $1 fk5 $2" }
                    52 { ProcessSendCmdCurrent "get fits size wcs $1 $2" }
                    53 { ProcessSendCmdCurrent "get fits size $1 $2 $3" }
                    54 { ProcessSendCmdSend {.txt} "get fits header 1" }
                    55 { ProcessSendCmdSend {.txt} "get fits header $1" }
                    56 { ProcessSendCmdCurrent "get fits header keyword \{$2\}" }
                    57 { ProcessSendCmdCurrent "get fits header $1 keyword \{$3\}" }
                    58 { ProcessSendCmdCurrent "get fits header keyword \{BITPIX\}" }
                    59 { ProcessSendCmdCurrent "get fits header $1 keyword \{BITPIX\}" }
                    60 { set _ image }
                    61 { set _ table }
                    62 { set _ image }
                    63 { set _ slice }
                    64 { set _ resample }
                }
                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 fitssend::yyerror {msg} {
     variable yycnt
     variable yy_current_buffer
     variable index_

     ParserError $msg $yycnt $yy_current_buffer $index_
}