diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-19 19:38:05 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-19 19:38:05 (GMT) |
commit | 4530b547880bded9b583ed9b73cbfdb34fb5209a (patch) | |
tree | 8ebc8f4ac79085234176a775856c6484f4317b10 /ds9/parsers/pansendparser.tcl | |
parent | 5dcb7f4de642a0c2580066fd1e1b7efd58b9f6b7 (diff) | |
download | blt-4530b547880bded9b583ed9b73cbfdb34fb5209a.zip blt-4530b547880bded9b583ed9b73cbfdb34fb5209a.tar.gz blt-4530b547880bded9b583ed9b73cbfdb34fb5209a.tar.bz2 |
parser scripts now in repo
Diffstat (limited to 'ds9/parsers/pansendparser.tcl')
-rw-r--r-- | ds9/parsers/pansendparser.tcl | 1422 |
1 files changed, 1422 insertions, 0 deletions
diff --git a/ds9/parsers/pansendparser.tcl b/ds9/parsers/pansendparser.tcl new file mode 100644 index 0000000..f158e92 --- /dev/null +++ b/ds9/parsers/pansendparser.tcl @@ -0,0 +1,1422 @@ +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 pansend { + variable yylval {} + variable table + variable rules + variable token {} + variable yycnt 0 + variable yyerr 0 + variable save_state 0 + + namespace export yylex +} + +proc pansend::YYABORT {} { + return -code return 1 +} + +proc pansend::YYACCEPT {} { + return -code return 0 +} + +proc pansend::YYERROR {} { + variable yyerr + set yyerr 1 +} + +proc pansend::yyclearin {} { + variable token + variable yycnt + set token {} + incr yycnt -1 +} + +proc pansend::yyerror {s} { + puts stderr $s +} + +proc pansend::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 pansend::unsetupvalues {numsyms} { + for {set i 1} {$i <= $numsyms} {incr i} { + upvar 1 $i y + unset y + } +} + +array set pansend::table { + 31:294,target 31 + 21:290 reduce + 21:289 reduce + 21:291 reduce + 21:292 reduce + 14:295,target 14 + 30:290,target 30 + 30:289,target 30 + 29:290,target 29 + 29:289,target 29 + 27:0 reduce + 21:293 reduce + 9:292,target 9 + 21:294 reduce + 21:295 reduce + 13:291,target 13 + 9:288 reduce + 48:0 reduce + 21:296 reduce + 20:294,target 20 + 19:294,target 19 + 9:289 reduce + 9:290 reduce + 30:288 reduce + 29:288 reduce + 9:291 reduce + 30:290 reduce + 30:289 reduce + 29:290 reduce + 29:289 reduce + 9:292 reduce + 30:291 reduce + 29:291 reduce + 18:290,target 18 + 18:289,target 18 + 9:293 reduce + 30:292 reduce + 29:292 reduce + 25:293,target 25 + 5:295,target 5 + 9:294 reduce + 32:296,target 32 + 30:293 reduce + 29:293 reduce + 0:275,target 19 + 6:0,target 6 + 9:295 reduce + 30:294 reduce + 29:294 reduce + 9:296 reduce + 2:0 reduce + 30:295 reduce + 29:295 reduce + 24:288,target 24 + 31:292,target 31 + 30:296 reduce + 29:296 reduce + 37:295,target 37 + 24:0 reduce + 14:293,target 14 + 48:0,target 48 + 21:296,target 21 + 9:289,target 9 + 9:290,target 9 + 41:0,target 44 + 45:0 reduce + 33:0,target 33 + 13:288,target 13 + 25:0,target 25 + 20:292,target 20 + 19:292,target 19 + 0:294,target 38 + 38:295 reduce + 26:295,target 26 + 17:0,target 17 + 38:296 reduce + 10:0,target 10 + 10:296,target 10 + 25:291,target 25 + 5:293,target 5 + 0:273,target 17 + 15:295,target 15 + 31:290,target 31 + 31:289,target 31 + 17:288 reduce + 21:0 reduce + 17:290 reduce + 17:289 reduce + 17:291 reduce + 14:291,target 14 + 21:294,target 21 + 17:292 reduce + 42:0 accept + 17:293 reduce + 17:294 reduce + 20:290,target 20 + 20:289,target 20 + 19:290,target 19 + 19:289,target 19 + 17:295 reduce + 0:292,target 36 + 6:288 reduce + 26:293,target 26 + 17:296 reduce + 6:289 reduce + 6:290 reduce + 6:295,target 6 + 33:296,target 33 + 26:288 reduce + 6:291 reduce + 40:299,target 45 + 26:290 reduce + 26:289 reduce + 10:294,target 10 + 6:292 reduce + 26:291 reduce + 25:288,target 25 + 5:291,target 5 + 6:293 reduce + 26:292 reduce + 0:271,target 15 + 6:294 reduce + 38:295,target 38 + 26:293 reduce + 6:295 reduce + 26:294 reduce + 15:293,target 15 + 6:296 reduce + 26:295 reduce + 22:296,target 22 + 17:0 reduce + 26:296 reduce + 14:288,target 14 + 38:0 reduce + 21:292,target 21 + 27:295,target 27 + 11:296,target 11 + 0:289,target 33 + 0:290,target 34 + 3:0,target 3 + 26:291,target 26 + 6:293,target 6 + 35:295 reduce + 35:296 reduce + 10:292,target 10 + 16:295,target 16 + 5:288,target 5 + 0:268,target 12 + 45:0,target 45 + 45:296,target 44 + 37:0,target 37 + 15:291,target 15 + 14:0 reduce + 30:0,target 30 + 29:0,target 29 + 22:294,target 22 + 22:0,target 22 + 14:288 reduce + 35:0 reduce + 14:290 reduce + 14:289 reduce + 14:0,target 14 + 21:290,target 21 + 21:289,target 21 + 14:291 reduce + 27:293,target 27 + 14:292 reduce + 7:295,target 7 + 34:296,target 34 + 14:293 reduce + 14:294 reduce + 11:294,target 11 + 0:287,target 31 + 26:288,target 26 + 14:295 reduce + 6:291,target 6 + 14:296 reduce + 0:257 shift + 40:295,target 43 + 23:288 reduce + 10:290,target 10 + 10:289,target 10 + 0:258 shift + 23:290 reduce + 23:289 reduce + 16:293,target 16 + 0:260 shift + 0:259 shift + 23:296,target 23 + 23:291 reduce + 0:266,target 10 + 0:261 shift + 9:0 reduce + 23:292 reduce + 11:0 reduce + 0:262 shift + 23:293 reduce + 15:288,target 15 + 0:263 shift + 23:294 reduce + 22:292,target 22 + 0:264 shift + 32:0 reduce + 28:295,target 28 + 23:295 reduce + 0:265 shift + 23:296 reduce + 0:266 shift + 12:296,target 12 + 0:267 shift + 27:291,target 27 + 0:268 shift + 7:293,target 7 + 0:270 shift + 0:269 shift + 11:292,target 11 + 0:271 shift + 0:285,target 29 + 17:295,target 17 + 0:272 shift + 6:288,target 6 + 0:273 shift + 40:293,target 37 + 32:295 reduce + 0:274 shift + 32:296 reduce + 16:291,target 16 + 0:275 shift + 6:0 reduce + 23:294,target 23 + 0:264,target 8 + 0:276 shift + 41:300 goto + 0:277 shift + 0:278 shift + 28:0 reduce + 22:290,target 22 + 22:289,target 22 + 0:279 shift + 0:280 shift + 7:0,target 7 + 28:293,target 28 + 0:0,target 41 + 0:281 shift + 8:295,target 8 + 35:296,target 35 + 11:288 reduce + 0:282 shift + 41:295 shift + 12:294,target 12 + 11:290 reduce + 11:289 reduce + 0:283 shift + 41:296 shift + 27:288,target 27 + 11:291 reduce + 0:284 shift + 7:291,target 7 + 11:292 reduce + 0:285 shift + 41:295,target 43 + 11:293 reduce + 11:290,target 11 + 11:289,target 11 + 0:283,target 27 + 0:286 shift + 42:0,target 0 + 17:293,target 17 + 11:294 reduce + 0:287 shift + 34:0,target 34 + 24:296,target 24 + 11:295 reduce + 0:288 shift + 40:291,target 35 + 26:0,target 26 + 11:296 reduce + 0:289 shift + 0:290 shift + 3:0 reduce + 20:288 reduce + 19:288 reduce + 18:0,target 18 + 16:288,target 16 + 0:301 goto + 0:291 shift + 23:292,target 23 + 20:290 reduce + 20:289 reduce + 19:290 reduce + 19:289 reduce + 11:0,target 11 + 0:262,target 6 + 0:292 shift + 30:295,target 30 + 29:295,target 29 + 20:291 reduce + 19:291 reduce + 0:293 shift + 45:300,target 48 + 25:0 reduce + 20:292 reduce + 19:292 reduce + 0:294 shift + 20:293 reduce + 19:293 reduce + 13:296,target 13 + 28:291,target 28 + 20:294 reduce + 19:294 reduce + 8:293,target 8 + 46:0 reduce + 20:295 reduce + 19:295 reduce + 0:297 goto + 8:288 reduce + 20:296 reduce + 19:296 reduce + 12:292,target 12 + 0:298 goto + 8:289 reduce + 8:290 reduce + 28:288 reduce + 18:295,target 18 + 0:299 goto + 7:288,target 7 + 8:291 reduce + 28:290 reduce + 28:289 reduce + 8:292 reduce + 28:291 reduce + 0:281,target 25 + 8:293 reduce + 28:292 reduce + 17:291,target 17 + 8:294 reduce + 28:293 reduce + 24:294,target 24 + 0:0 reduce + 8:295 reduce + 40:288,target 32 + 28:294 reduce + 8:296 reduce + 28:295 reduce + 28:296 reduce + 23:290,target 23 + 23:289,target 23 + 0:260,target 4 + 0:259,target 3 + 30:293,target 30 + 29:293,target 29 + 22:0 reduce + 9:295,target 9 + 36:296,target 36 + 13:294,target 13 + 43:0 reduce + 28:288,target 28 + 0:299,target 41 + 8:291,target 8 + 12:290,target 12 + 12:289,target 12 + 37:295 reduce + 18:293,target 18 + 37:296 reduce + 25:296,target 25 + 0:278,target 22 + 17:288,target 17 + 24:292,target 24 + 31:295,target 31 + 4:0,target 4 + 18:0 reduce + 16:288 reduce + 14:296,target 14 + 0:257,target 1 + 30:291,target 30 + 29:291,target 29 + 16:290 reduce + 16:289 reduce + 9:293,target 9 + 16:291 reduce + 40:0 reduce + 39:0 reduce + 16:292 reduce + 13:292,target 13 + 46:0,target 46 + 20:295,target 20 + 19:295,target 19 + 16:293 reduce + 0:297,target 39 + 8:288,target 8 + 38:0,target 38 + 16:294 reduce + 31:0,target 31 + 16:295 reduce + 5:288 reduce + 23:0,target 23 + 18:291,target 18 + 16:296 reduce + 5:289 reduce + 5:290 reduce + 25:294,target 25 + 25:288 reduce + 15:0,target 15 + 5:291 reduce + 5:296,target 5 + 25:290 reduce + 25:289 reduce + 0:276,target 20 + 5:292 reduce + 25:291 reduce + 5:293 reduce + 25:292 reduce + 24:290,target 24 + 24:289,target 24 + 5:294 reduce + 31:293,target 31 + 25:293 reduce + 5:295 reduce + 37:296,target 37 + 25:294 reduce + 15:0 reduce + 5:296 reduce + 25:295 reduce + 14:294,target 14 + 30:288,target 30 + 29:288,target 29 + 25:296 reduce + 9:291,target 9 + 36:0 reduce + 13:290,target 13 + 13:289,target 13 + 20:293,target 20 + 19:293,target 19 + 26:296,target 26 + 18:288,target 18 + 34:295 reduce + 25:292,target 25 + 5:294,target 5 + 34:296 reduce + 32:295,target 32 + 0:274,target 18 + 15:296,target 15 + 31:291,target 31 + 12:0 reduce + 14:292,target 14 + 33:0 reduce + 21:295,target 21 + 13:288 reduce + 9:288,target 9 + 13:290 reduce + 13:289 reduce + 13:291 reduce + 20:291,target 20 + 19:291,target 19 + 13:292 reduce + 0:293,target 37 + 26:294,target 26 + 13:293 reduce + 6:296,target 6 + 13:294 reduce + 8:0,target 8 + 13:295 reduce + 10:295,target 10 + 1:0,target 1 + 25:290,target 25 + 25:289,target 25 + 13:296 reduce + 5:292,target 5 + 22:288 reduce + 0:272,target 16 + 38:296,target 38 + 22:290 reduce + 22:289 reduce + 7:0 reduce + 22:291 reduce + 15:294,target 15 + 31:288,target 31 + 22:292 reduce + 43:0,target 39 + 22:293 reduce + 35:0,target 35 + 30:0 reduce + 29:0 reduce + 22:294 reduce + 14:290,target 14 + 14:289,target 14 + 27:0,target 27 + 22:295 reduce + 21:293,target 21 + 27:296,target 27 + 22:296 reduce + 20:0,target 20 + 19:0,target 19 + 31:288 reduce + 12:0,target 12 + 31:290 reduce + 31:289 reduce + 20:288,target 20 + 19:288,target 19 + 0:301,target 42 + 0:291,target 35 + 31:291 reduce + 26:292,target 26 + 6:294,target 6 + 33:295,target 33 + 31:292 reduce + 31:293 reduce + 10:293,target 10 + 31:294 reduce + 16:296,target 16 + 5:289,target 5 + 5:290,target 5 + 31:295 reduce + 0:270,target 14 + 0:269,target 13 + 4:0 reduce + 31:296 reduce + 40:288 shift + 15:292,target 15 + 40:290 shift + 40:289 shift + 40:300 goto + 22:295,target 22 + 40:291 shift + 26:0 reduce + 40:292 shift + 40:293 shift + 21:291,target 21 + 47:0 reduce + 40:294 shift + 27:294,target 27 + 10:288 reduce + 7:296,target 7 + 40:295 shift + 10:290 reduce + 10:289 reduce + 40:296 shift + 11:295,target 11 + 10:291 reduce + 0:288,target 32 + 26:290,target 26 + 26:289,target 26 + 10:292 reduce + 6:292,target 6 + 10:293 reduce + 40:296,target 44 + 40:299 goto + 10:294 reduce + 10:291,target 10 + 16:294,target 16 + 10:295 reduce + 1:0 reduce + 10:296 reduce + 0:267,target 11 + 18:288 reduce + 45:295,target 43 + 18:290 reduce + 18:289 reduce + 15:290,target 15 + 15:289,target 15 + 23:0 reduce + 22:293,target 22 + 18:291 reduce + 28:296,target 28 + 18:292 reduce + 18:293 reduce + 44:0 reduce + 21:288,target 21 + 18:294 reduce + 5:0,target 5 + 27:292,target 27 + 18:295 reduce + 7:288 reduce + 7:294,target 7 + 34:295,target 34 + 18:296 reduce + 7:289 reduce + 7:290 reduce + 27:288 reduce + 11:293,target 11 + 0:286,target 30 + 7:291 reduce + 27:290 reduce + 27:289 reduce + 17:296,target 17 + 6:289,target 6 + 6:290,target 6 + 7:292 reduce + 27:291 reduce + 7:293 reduce + 47:0,target 47 + 40:294,target 38 + 27:292 reduce + 10:288,target 10 + 7:294 reduce + 40:0,target 43 + 39:0,target 42 + 27:293 reduce + 16:292,target 16 + 7:295 reduce + 32:0,target 32 + 27:294 reduce + 23:295,target 23 + 0:265,target 9 + 7:296 reduce + 27:295 reduce + 24:0,target 24 + 27:296 reduce + 20:0 reduce + 19:0 reduce + 16:0,target 16 + 22:291,target 22 + 28:294,target 28 + 8:296,target 8 + 41:0 reduce + 12:295,target 12 + 27:290,target 27 + 27:289,target 27 + 7:292,target 7 + 41:296,target 44 + 36:295 reduce + 11:291,target 11 + 0:284,target 28 + 36:296 reduce + 17:294,target 17 + 45:300 goto + 40:292,target 36 + 16:290,target 16 + 16:289,target 16 + 23:293,target 23 + 0:263,target 7 + 30:296,target 30 + 29:296,target 29 + 16:0 reduce + 15:288 reduce + 45:295 shift + 22:288,target 22 + 15:290 reduce + 15:289 reduce + 45:296 shift + 37:0 reduce + 28:292,target 28 + 15:291 reduce + 8:294,target 8 + 35:295,target 35 + 15:292 reduce + 15:293 reduce + 12:293,target 12 + 18:296,target 18 + 15:294 reduce + 7:289,target 7 + 7:290,target 7 + 15:295 reduce + 15:296 reduce + 11:288,target 11 + 0:282,target 26 + 24:288 reduce + 17:292,target 17 + 24:295,target 24 + 24:290 reduce + 24:289 reduce + 40:290,target 34 + 40:289,target 33 + 40:300,target 46 + 24:291 reduce + 24:292 reduce + 24:293 reduce + 23:291,target 23 + 13:0 reduce + 0:261,target 5 + 9:0,target 9 + 30:294,target 30 + 29:294,target 29 + 24:294 reduce + 9:296,target 9 + 2:0,target 2 + 24:295 reduce + 34:0 reduce + 24:296 reduce + 13:295,target 13 + 28:290,target 28 + 28:289,target 28 + 8:292,target 8 + 12:291,target 12 + 44:0,target 40 + 18:294,target 18 + 36:0,target 36 + 28:0,target 28 + 0:279,target 23 + 0:280,target 24 + 33:295 reduce + 21:0,target 21 + 17:290,target 17 + 17:289,target 17 + 33:296 reduce + 24:293,target 24 + 13:0,target 13 + 31:296,target 31 + 8:0 reduce + 10:0 reduce + 23:288,target 23 + 0:258,target 2 + 30:292,target 30 + 29:292,target 29 + 9:294,target 9 + 36:295,target 36 + 31:0 reduce + 13:293,target 13 + 12:288 reduce + 20:296,target 20 + 19:296,target 19 + 12:290 reduce + 12:289 reduce + 0:298,target 40 + 8:289,target 8 + 8:290,target 8 + 12:291 reduce + 12:292 reduce + 12:288,target 12 + 18:292,target 18 + 12:293 reduce + 25:295,target 25 + 12:294 reduce + 41:300,target 47 + 12:295 reduce + 0:277,target 21 + 12:296 reduce + 24:291,target 24 + 21:288 reduce + 5:0 reduce +} + +array set pansend::rules { + 9,l 298 + 11,l 298 + 32,l 299 + 6,l 298 + 28,l 298 + 3,l 297 + 25,l 298 + 46,l 301 + 0,l 302 + 22,l 298 + 43,l 301 + 18,l 298 + 40,l 300 + 39,l 300 + 15,l 298 + 36,l 299 + 12,l 298 + 33,l 299 + 7,l 298 + 29,l 298 + 30,l 298 + 4,l 297 + 26,l 298 + 47,l 301 + 1,l 297 + 23,l 298 + 44,l 301 + 19,l 298 + 20,l 298 + 41,l 301 + 16,l 298 + 37,l 299 + 13,l 298 + 34,l 299 + 8,l 298 + 10,l 298 + 31,l 298 + 5,l 298 + 27,l 298 + 48,l 301 + 2,l 297 + 24,l 298 + 45,l 301 + 21,l 298 + 42,l 301 + 17,l 298 + 38,l 299 + 14,l 298 + 35,l 299 +} + +array set pansend::rules { + 12,dc 1 + 26,dc 1 + 3,dc 1 + 41,dc 0 + 18,dc 1 + 33,dc 1 + 9,dc 1 + 47,dc 2 + 11,dc 1 + 25,dc 1 + 2,dc 1 + 40,dc 1 + 39,dc 1 + 17,dc 1 + 32,dc 1 + 8,dc 1 + 46,dc 2 + 10,dc 1 + 24,dc 1 + 1,dc 1 + 38,dc 1 + 16,dc 1 + 31,dc 1 + 7,dc 1 + 45,dc 2 + 23,dc 1 + 0,dc 1 + 37,dc 1 + 15,dc 1 + 29,dc 1 + 30,dc 1 + 6,dc 1 + 44,dc 1 + 22,dc 1 + 36,dc 1 + 14,dc 1 + 28,dc 1 + 5,dc 1 + 43,dc 1 + 21,dc 1 + 35,dc 1 + 13,dc 1 + 27,dc 1 + 4,dc 1 + 42,dc 1 + 19,dc 1 + 20,dc 1 + 34,dc 1 + 48,dc 3 +} + +array set pansend::rules { + 41,line 147 + 7,line 108 + 37,line 139 + 4,line 104 + 34,line 136 + 1,line 101 + 31,line 132 + 27,line 128 + 24,line 125 + 21,line 122 + 17,line 118 + 14,line 115 + 11,line 112 + 46,line 152 + 43,line 149 + 9,line 110 + 40,line 143 + 39,line 142 + 6,line 107 + 36,line 138 + 3,line 103 + 33,line 135 + 29,line 130 + 30,line 131 + 26,line 127 + 23,line 124 + 19,line 120 + 20,line 121 + 16,line 117 + 13,line 114 + 10,line 111 + 48,line 154 + 45,line 151 + 42,line 148 + 8,line 109 + 38,line 140 + 5,line 106 + 35,line 137 + 2,line 102 + 32,line 134 + 28,line 129 + 25,line 126 + 22,line 123 + 18,line 119 + 15,line 116 + 12,line 113 + 47,line 153 + 44,line 150 +} + +array set pansend::lr1_table { + 35 {{35 {0 295 296} 1}} + 14,trans {} + 36 {{36 {0 295 296} 1}} + 33,trans {} + 37 {{37 {0 295 296} 1}} + 38 {{38 {0 295 296} 1}} + 39 {{42 0 1}} + 40 {{43 0 1} {45 0 1} {46 0 1} {48 0 1} {32 {0 295 296} 0} {33 {0 295 296} 0} {34 {0 295 296} 0} {35 {0 295 296} 0} {36 {0 295 296} 0} {37 {0 295 296} 0} {38 {0 295 296} 0} {39 0 0} {40 0 0}} + 18,trans {} + 41 {{44 0 1} {47 0 1} {39 0 0} {40 0 0}} + 1,trans {} + 37,trans {} + 42 {{0 0 1}} + 43 {{39 0 1}} + 44 {{40 0 1}} + 45 {{45 0 2} {48 0 2} {39 0 0} {40 0 0}} + 23,trans {} + 5,trans {} + 42,trans {} + 46 {{46 0 2}} + 47 {{47 0 2}} + 48 {{48 0 3}} + 27,trans {} + 9,trans {} + 46,trans {} + 13,trans {} + 32,trans {} + 17,trans {} + 0,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6} {263 7} {264 8} {265 9} {266 10} {267 11} {268 12} {269 13} {270 14} {271 15} {272 16} {273 17} {274 18} {275 19} {276 20} {277 21} {278 22} {279 23} {280 24} {281 25} {282 26} {283 27} {284 28} {285 29} {286 30} {287 31} {288 32} {289 33} {290 34} {291 35} {292 36} {293 37} {294 38} {297 39} {298 40} {299 41} {301 42}} + 36,trans {} + 22,trans {} + 4,trans {} + 41,trans {{295 43} {296 44} {300 47}} + 26,trans {} + 8,trans {} + 45,trans {{295 43} {296 44} {300 48}} + 12,trans {} + 31,trans {} + 16,trans {} + 35,trans {} + 21,trans {} + 3,trans {} + 40,trans {{288 32} {289 33} {290 34} {291 35} {292 36} {293 37} {294 38} {295 43} {296 44} {299 45} {300 46}} + 39,trans {} + 10 {{10 {0 288 289 290 291 292 293 294 295 296} 1}} + 11 {{11 {0 288 289 290 291 292 293 294 295 296} 1}} + 25,trans {} + 7,trans {} + 12 {{12 {0 288 289 290 291 292 293 294 295 296} 1}} + 44,trans {} + 13 {{13 {0 288 289 290 291 292 293 294 295 296} 1}} + 14 {{14 {0 288 289 290 291 292 293 294 295 296} 1}} + 11,trans {} + 15 {{15 {0 288 289 290 291 292 293 294 295 296} 1}} + 30,trans {} + 29,trans {} + 16 {{16 {0 288 289 290 291 292 293 294 295 296} 1}} + 48,trans {} + 0 {{0 0 0} {41 0 0} {42 0 0} {43 0 0} {44 0 0} {45 0 0} {46 0 0} {47 0 0} {48 0 0} {1 0 0} {2 0 0} {3 0 0} {4 0 0} {5 {0 288 289 290 291 292 293 294 295 296} 0} {6 {0 288 289 290 291 292 293 294 295 296} 0} {7 {0 288 289 290 291 292 293 294 295 296} 0} {8 {0 288 289 290 291 292 293 294 295 296} 0} {9 {0 288 289 290 291 292 293 294 295 296} 0} {10 {0 288 289 290 291 292 293 294 295 296} 0} {11 {0 288 289 290 291 292 293 294 295 296} 0} {12 {0 288 289 290 291 292 293 294 295 296} 0} {13 {0 288 289 290 291 292 293 294 295 296} 0} {14 {0 288 289 290 291 292 293 294 295 296} 0} {15 {0 288 289 290 291 292 293 294 295 296} 0} {16 {0 288 289 290 291 292 293 294 295 296} 0} {17 {0 288 289 290 291 292 293 294 295 296} 0} {18 {0 288 289 290 291 292 293 294 295 296} 0} {19 {0 288 289 290 291 292 293 294 295 296} 0} {20 {0 288 289 290 291 292 293 294 295 296} 0} {21 {0 288 289 290 291 292 293 294 295 296} 0} {22 {0 288 289 290 291 292 293 294 295 296} 0} {23 {0 288 289 290 291 292 293 294 295 296} 0} {24 {0 288 289 290 291 292 293 294 295 296} 0} {25 {0 288 289 290 291 292 293 294 295 296} 0} {26 {0 288 289 290 291 292 293 294 295 296} 0} {27 {0 288 289 290 291 292 293 294 295 296} 0} {28 {0 288 289 290 291 292 293 294 295 296} 0} {29 {0 288 289 290 291 292 293 294 295 296} 0} {30 {0 288 289 290 291 292 293 294 295 296} 0} {31 {0 288 289 290 291 292 293 294 295 296} 0} {32 {0 295 296} 0} {33 {0 295 296} 0} {34 {0 295 296} 0} {35 {0 295 296} 0} {36 {0 295 296} 0} {37 {0 295 296} 0} {38 {0 295 296} 0}} + 17 {{17 {0 288 289 290 291 292 293 294 295 296} 1}} + 1 {{1 0 1}} + 18 {{18 {0 288 289 290 291 292 293 294 295 296} 1}} + 15,trans {} + 2 {{2 0 1}} + 19 {{19 {0 288 289 290 291 292 293 294 295 296} 1}} + 20 {{20 {0 288 289 290 291 292 293 294 295 296} 1}} + 34,trans {} + 3 {{3 0 1}} + 21 {{21 {0 288 289 290 291 292 293 294 295 296} 1}} + 4 {{4 0 1}} + 22 {{22 {0 288 289 290 291 292 293 294 295 296} 1}} + 5 {{5 {0 288 289 290 291 292 293 294 295 296} 1}} + 23 {{23 {0 288 289 290 291 292 293 294 295 296} 1}} + 20,trans {} + 19,trans {} + 6 {{6 {0 288 289 290 291 292 293 294 295 296} 1}} + 24 {{24 {0 288 289 290 291 292 293 294 295 296} 1}} + 2,trans {} + 38,trans {} + 7 {{7 {0 288 289 290 291 292 293 294 295 296} 1}} + 25 {{25 {0 288 289 290 291 292 293 294 295 296} 1}} + 8 {{8 {0 288 289 290 291 292 293 294 295 296} 1}} + 26 {{26 {0 288 289 290 291 292 293 294 295 296} 1}} + 9 {{9 {0 288 289 290 291 292 293 294 295 296} 1}} + 27 {{27 {0 288 289 290 291 292 293 294 295 296} 1}} + 24,trans {} + 6,trans {} + 28 {{28 {0 288 289 290 291 292 293 294 295 296} 1}} + 43,trans {} + 29 {{29 {0 288 289 290 291 292 293 294 295 296} 1}} + 30 {{30 {0 288 289 290 291 292 293 294 295 296} 1}} + 31 {{31 {0 288 289 290 291 292 293 294 295 296} 1}} + 10,trans {} + 32 {{32 {0 295 296} 1}} + 28,trans {} + 33 {{33 {0 295 296} 1}} + 47,trans {} + 34 {{34 {0 295 296} 1}} +} + +array set pansend::token_id_table { + 286,t 0 + 286 WCSY_ + 280,title WCSS + 279,title WCSR + 264,line 15 + 302,line 155 + 298,title {} + 292,line 44 + 287 WCSZ_ + 270,t 0 + 269,t 0 + 288 FK4_ + 300 skyformat + 290 FK5_ + 289 B1950_ + 276,line 27 + 265,title WCSD + 301,t 1 + 301 pansend + 291,t 0 + 291 J2000_ + 284,title WCSW + 302 start' + 292 ICRS_ + 274,t 0 + 261,line 12 + 293 GALACTIC_ + 288,line 40 + 257,t 0 + 294 ECLIPTIC_ + 270,title WCSI + 269,title WCSH + 295,t 0 + 295 DEGREES_ + 288,title FK4 + 273,line 24 + 296 SEXAGESIMAL_ + 278,t 0 + 297 coordsys + 257,line 7 + 262,t 0 + 298 wcssys + 285,line 36 + 274,title WCSM + 299,t 1 + 299 skyframe + 293,title GALACTIC + 283,t 0 + 270,line 21 + 269,line 20 + 297,line 100 + 259,title AMPLIFIER + 260,title DETECTOR + 266,t 0 + 278,title WCSQ + 297,title {} + 282,line 33 + 287,t 0 + error error + 271,t 0 + 264,title WCSC + 266,line 17 + 294,line 46 + 283,title WCSV + 302,t 1 + 292,t 0 + 278,line 29 + error,line 99 + 275,t 0 + 268,title WCSG + 287,title WCSZ + 258,t 0 + 263,line 14 + 301,line 146 + error,title {} + 291,line 43 + 296,t 0 + 280,t 0 + 279,t 0 + 275,line 26 + 273,title WCSL + 302,title {} + 292,title ICRS + 263,t 0 + 259,line 9 + 260,line 10 + 287,line 38 + 258,title PHYSICAL + 284,t 0 + 277,title WCSP + 296,title SEXAGESIMAL + 272,line 23 + 267,t 0 + 299,line 133 + 263,title WCSB + 288,t 0 + 284,line 35 + 282,title WCSU + 272,t 0 + 268,line 19 + 296,line 49 + 267,title WCSF + 293,t 0 + 286,title WCSY + 257 IMAGE_ + 281,line 32 + 276,t 0 + 258 PHYSICAL_ + 259,t 0 + 259 AMPLIFIER_ + 260 DETECTOR_ + 260,t 0 + 272,title WCSK + 261 WCS_ + 265,line 16 + 301,title {} + 297,t 1 + 293,line 45 + 291,title J2000 + 262 WCSA_ + 281,t 0 + 263 WCSB_ + 277,line 28 + 257,title IMAGE + 264 WCSC_ + 264,t 0 + 276,title WCSO + 265 WCSD_ + 295,title DEGREES + 262,line 13 + 266 WCSE_ + 300,line 141 + 290,line 42 + 289,line 41 + 285,t 0 + 267 WCSF_ + 0,t 0 + 0 {$} + 262,title WCSA + 268 WCSG_ + 268,t 0 + 281,title WCST + 274,line 25 + 270 WCSI_ + 269 WCSH_ + 299,title {} + error,t 0 + 271 WCSJ_ + 300,t 1 + 290,t 0 + 289,t 0 + 272 WCSK_ + 258,line 8 + 286,line 37 + 273,t 0 + 273 WCSL_ + 266,title WCSE + 285,title WCSX + 274 WCSM_ + 275 WCSN_ + 271,line 22 + 298,line 105 + 294,t 0 + 276 WCSO_ + 277,t 0 + 277 WCSP_ + 271,title WCSJ + 300,title {} + 290,title FK5 + 289,title B1950 + 283,line 34 + 278 WCSQ_ + 261,t 0 + 280 WCSS_ + 279 WCSR_ + 298,t 1 + 281 WCST_ + 267,line 18 + 295,line 48 + 282,t 0 + 282 WCSU_ + 275,title WCSN + 294,title ECLIPTIC + 283 WCSV_ + 265,t 0 + 284 WCSW_ + 280,line 31 + 279,line 30 + 285 WCSX_ + 261,title WCS +} + +proc pansend::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 _ image } + 2 { set _ physical } + 3 { set _ amplifier } + 4 { set _ detector } + 5 { set _ wcs } + 6 { set _ wcsa } + 7 { set _ wcsb } + 8 { set _ wcsc } + 9 { set _ wcsd } + 10 { set _ wcse } + 11 { set _ wcsf } + 12 { set _ wcsg } + 13 { set _ wcsh } + 14 { set _ wcsi } + 15 { set _ wcsj } + 16 { set _ wcsk } + 17 { set _ wcsl } + 18 { set _ wcsm } + 19 { set _ wcsn } + 20 { set _ wcso } + 21 { set _ wcsp } + 22 { set _ wcsq } + 23 { set _ wcsr } + 24 { set _ wcss } + 25 { set _ wcst } + 26 { set _ wcsu } + 27 { set _ wcsv } + 28 { set _ wcsw } + 29 { set _ wcsx } + 30 { set _ wcsy } + 31 { set _ wcsz } + 32 { set _ fk4 } + 33 { set _ fk4 } + 34 { set _ fk5 } + 35 { set _ fk5 } + 36 { set _ icrs } + 37 { set _ galactic } + 38 { set _ ecliptic } + 39 { set _ degrees } + 40 { set _ sexagesimal } + 41 { ProcessSendCmdCurrent "get cursor physical fk5 degrees" } + 42 { ProcessSendCmdCurrent "get cursor $1 fk5 degrees" } + 43 { ProcessSendCmdCurrent "get cursor $1 fk5 degrees" } + 44 { ProcessSendCmdCurrent "get cursor wcs $1 degrees" } + 45 { ProcessSendCmdCurrent "get cursor $1 $2 degrees" } + 46 { ProcessSendCmdCurrent "get cursor $1 fk5 $2" } + 47 { ProcessSendCmdCurrent "get cursor wcs $1 $2" } + 48 { ProcessSendCmdCurrent "get cursor $1 $2 $3" } + } + 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 pansend::yyerror {msg} { + variable yycnt + variable yy_current_buffer + variable index_ + + ParserError $msg $yycnt $yy_current_buffer $index_ +} |