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 contoursend { variable yylval {} variable table variable rules variable token {} variable yycnt 0 variable yyerr 0 variable save_state 0 namespace export yylex } proc contoursend::YYABORT {} { return -code return 1 } proc contoursend::YYACCEPT {} { return -code return 0 } proc contoursend::YYERROR {} { variable yyerr set yyerr 1 } proc contoursend::yyclearin {} { variable token variable yycnt set token {} incr yycnt -1 } proc contoursend::yyerror {s} { puts stderr $s } proc contoursend::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 contoursend::unsetupvalues {numsyms} { for {set i 1} {$i <= $numsyms} {incr i} { upvar 1 $i y unset y } } array set contoursend::table { 31:294,target 31 21:290 reduce 21:289 reduce 21:291 reduce 21:292 reduce 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 13:291,target 13 9:288 reduce 48:0 reduce 20:294,target 20 19:294,target 19 0:306,target 49 0:296,target 40 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 9:294 reduce 30:293 reduce 29:293 reduce 0:275,target 19 6:0,target 6 30:294 reduce 29:294 reduce 2:0 reduce 24:288,target 24 31:292,target 31 56:0,target 56 24:0 reduce 14:293,target 14 48:0,target 50 9:289,target 9 9:290,target 9 41:0,target 52 45:0 reduce 33:0,target 33 13:288,target 13 25:0,target 25 20:292,target 20 19:292,target 19 0:304,target 47 0:294,target 38 17:0,target 17 10:0,target 10 25:291,target 25 5:293,target 5 0:273,target 17 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 reduce 17:293 reduce 17:294 reduce 20:290,target 20 20:289,target 20 19:290,target 19 19:289,target 19 0:302,target 45 0:292,target 36 6:288 reduce 26:293,target 26 6:289 reduce 6:290 reduce 26:288 reduce 6:291 reduce 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 26:293 reduce 26:294 reduce 15:293,target 15 17:0 reduce 14:288,target 14 38:0 reduce 21:292,target 21 0:300,target 43 0:289,target 33 0:290,target 34 3:0,target 3 26:291,target 26 6:293,target 6 10:292,target 10 5:288,target 5 53:0,target 55 0:268,target 12 45:0,target 49 37:0,target 37 15:291,target 15 14:0 reduce 52:310,target 56 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 56:0 reduce 14:293 reduce 14:294 reduce 11:294,target 11 0:287,target 31 26:288,target 26 6:291,target 6 0:257 shift 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:291 reduce 0:261 shift 0:266,target 10 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 0:265 shift 0:266 shift 0:267 shift 53:0 reduce 27:291,target 27 0:268 shift 7:293,target 7 0:269 shift 0:270 shift 11:292,target 11 0:271 shift 0:285,target 29 0:272 shift 6:288,target 6 0:273 shift 0:274 shift 16:291,target 16 0:275 shift 6:0 reduce 23:294,target 23 0:264,target 8 0:276 shift 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 39 0:281 shift 11:288 reduce 0:282 shift 50:0 reduce 49:0 reduce 12:294,target 12 11:290 reduce 11:289 reduce 0:283 shift 27:288,target 27 11:291 reduce 0:284 shift 7:291,target 7 11:292 reduce 0:285 shift 50:0,target 41 49:0,target 43 11:293 reduce 11:290,target 11 11:289,target 11 0:283,target 27 0:286 shift 42:0,target 51 17:293,target 17 11:294 reduce 0:287 shift 34:0,target 34 0:288 shift 26:0,target 26 0:300 shift 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 shift 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:302 shift 0:292 shift 20:291 reduce 19:291 reduce 0:303 shift 0:293 shift 25:0 reduce 20:292 reduce 19:292 reduce 0:304 shift 0:294 shift 52:293,target 37 20:293 reduce 19:293 reduce 0:305 shift 0:295 shift 28:291,target 28 20:294 reduce 19:294 reduce 0:296 shift 0:306 shift 8:293,target 8 46:0 reduce 0:307 shift 8:288 reduce 12:292,target 12 0:308 goto 0:298 shift 8:289 reduce 8:290 reduce 28:288 reduce 0:310 goto 0:309 goto 0:299 shift 7:288,target 7 8:291 reduce 28:290 reduce 28:289 reduce 0:311 goto 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 28:294 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 52:291,target 35 13:294,target 13 43:0 reduce 28:288,target 28 0:310,target 53 0:309,target 52 0:299,target 42 8:291,target 8 12:290,target 12 12:289,target 12 18:293,target 18 0:278,target 22 17:288,target 17 24:292,target 24 4:0,target 4 18:0 reduce 16:288 reduce 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 54:0,target 0 52:288,target 32 43:297,target 55 40:0 reduce 39:0 reduce 16:292 reduce 13:292,target 13 46:0,target 45 16:293 reduce 0:307,target 50 8:288,target 8 38:0,target 38 16:294 reduce 31:0,target 31 5:288 reduce 23:0,target 23 18:291,target 18 5:289 reduce 5:290 reduce 25:294,target 25 25:288 reduce 15:0,target 15 5:291 reduce 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 25:294 reduce 15:0 reduce 14:294,target 14 30:288,target 30 29:288,target 29 9:291,target 9 36:0 reduce 13:290,target 13 13:289,target 13 20:293,target 20 19:293,target 19 0:305,target 48 0:295,target 39 18:288,target 18 25:292,target 25 5:294,target 5 0:274,target 18 31:291,target 31 12:0 reduce 14:292,target 14 33:0 reduce 13:288 reduce 9:288,target 9 13:290 reduce 13:289 reduce 13:291 reduce 54:0 accept 52:288 shift 43:297 shift 20:291,target 20 19:291,target 19 13:292 reduce 0:303,target 46 0:293,target 37 52:290 shift 52:289 shift 26:294,target 26 13:293 reduce 52:291 shift 13:294 reduce 8:0,target 8 52:292 shift 1:0,target 1 52:293 shift 25:290,target 25 25:289,target 25 5:292,target 5 52:294 shift 22:288 reduce 0:272,target 16 22:290 reduce 22:289 reduce 7:0 reduce 22:291 reduce 15:294,target 15 51:0,target 53 31:288,target 31 22:292 reduce 43:0,target 48 22:293 reduce 52:310 goto 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 21:293,target 21 20:0,target 20 19:0,target 19 51:0 reduce 31:288 reduce 12:0,target 12 31:290 reduce 31:289 reduce 20:288,target 20 19:288,target 19 0:301,target 44 0:291,target 35 31:291 reduce 26:292,target 26 6:294,target 6 31:292 reduce 31:293 reduce 10:293,target 10 31:294 reduce 5:289,target 5 5:290,target 5 0:269,target 13 0:270,target 14 4:0 reduce 15:292,target 15 26:0 reduce 21:291,target 21 47:0 reduce 27:294,target 27 10:288 reduce 10:290 reduce 10:289 reduce 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 10:294 reduce 10:291,target 10 16:294,target 16 1:0 reduce 0:267,target 11 18:288 reduce 18:290 reduce 18:289 reduce 15:290,target 15 15:289,target 15 23:0 reduce 22:293,target 22 18:291 reduce 18:292 reduce 18:293 reduce 44:0 reduce 21:288,target 21 18:294 reduce 5:0,target 5 27:292,target 27 7:288 reduce 7:294,target 7 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 6:289,target 6 6:290,target 6 7:292 reduce 55:0,target 47 27:291 reduce 7:293 reduce 47:0,target 46 27:292 reduce 10:288,target 10 7:294 reduce 40:0,target 42 39:0,target 40 27:293 reduce 16:292,target 16 32:0,target 32 27:294 reduce 0:265,target 9 24:0,target 24 20:0 reduce 19:0 reduce 16:0,target 16 22:291,target 22 28:294,target 28 41:0 reduce 27:290,target 27 27:289,target 27 7:292,target 7 11:291,target 11 0:284,target 28 17:294,target 17 16:290,target 16 16:289,target 16 23:293,target 23 0:263,target 7 16:0 reduce 15:288 reduce 52:294,target 38 22:288,target 22 15:290 reduce 15:289 reduce 37:0 reduce 28:292,target 28 15:291 reduce 8:294,target 8 15:292 reduce 15:293 reduce 12:293,target 12 15:294 reduce 7:289,target 7 7:290,target 7 11:288,target 11 0:282,target 26 24:288 reduce 17:292,target 17 24:290 reduce 24:289 reduce 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 2:0,target 2 52:292,target 36 34:0 reduce 28:290,target 28 28:289,target 28 0:311,target 54 8:292,target 8 55:0 reduce 52:0,target 54 12:291,target 12 44:0,target 44 18:294,target 18 36:0,target 36 28:0,target 28 0:279,target 23 0:280,target 24 21:0,target 21 17:290,target 17 17:289,target 17 24:293,target 24 13:0,target 13 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 31:0 reduce 52:290,target 34 52:289,target 33 13:293,target 13 12:288 reduce 12:290 reduce 12:289 reduce 0:308,target 51 0:298,target 41 8:289,target 8 8:290,target 8 52:0 reduce 12:291 reduce 12:292 reduce 12:288,target 12 18:292,target 18 12:293 reduce 12:294 reduce 0:277,target 21 24:291,target 24 21:288 reduce 5:0 reduce } array set contoursend::rules { 9,l 309 11,l 309 32,l 310 53,l 311 6,l 309 28,l 309 50,l 311 49,l 311 3,l 308 25,l 309 46,l 311 0,l 312 22,l 309 43,l 311 18,l 309 40,l 311 39,l 311 15,l 309 36,l 310 12,l 309 33,l 310 54,l 311 7,l 309 29,l 309 30,l 309 51,l 311 4,l 308 26,l 309 47,l 311 1,l 308 23,l 309 44,l 311 19,l 309 20,l 309 41,l 311 16,l 309 37,l 310 13,l 309 34,l 310 55,l 311 8,l 309 10,l 309 31,l 309 52,l 311 5,l 309 27,l 309 48,l 311 2,l 308 24,l 309 45,l 311 21,l 309 42,l 311 17,l 309 38,l 310 14,l 309 35,l 310 56,l 311 } array set contoursend::rules { 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 2 11,dc 1 25,dc 1 2,dc 1 40,dc 1 39,dc 0 54,dc 1 17,dc 1 32,dc 1 8,dc 1 46,dc 1 10,dc 1 24,dc 1 1,dc 1 38,dc 1 53,dc 1 16,dc 1 31,dc 1 7,dc 1 45,dc 1 23,dc 1 0,dc 1 37,dc 1 52,dc 1 15,dc 1 29,dc 1 30,dc 1 6,dc 1 44,dc 1 22,dc 1 36,dc 1 51,dc 1 14,dc 1 28,dc 1 5,dc 1 43,dc 1 21,dc 1 35,dc 1 50,dc 1 49,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 contoursend::rules { 41,line 152 7,line 115 37,line 146 4,line 111 34,line 143 1,line 108 31,line 139 27,line 135 24,line 132 21,line 129 17,line 125 14,line 122 11,line 119 56,line 169 53,line 166 50,line 162 49,line 161 46,line 157 43,line 154 9,line 117 40,line 151 39,line 150 6,line 114 36,line 145 3,line 110 33,line 142 29,line 137 30,line 138 26,line 134 23,line 131 19,line 127 20,line 128 16,line 124 13,line 121 10,line 118 55,line 168 52,line 165 48,line 160 45,line 156 42,line 153 8,line 116 38,line 147 5,line 113 35,line 144 2,line 109 32,line 141 28,line 136 25,line 133 22,line 130 18,line 126 15,line 123 12,line 120 54,line 167 51,line 163 47,line 159 44,line 155 } array set contoursend::lr1_table { 35 {{35 0 1}} 14,trans {} 36 {{36 0 1}} 33,trans {} 37 {{37 0 1}} 52,trans {{288 32} {289 33} {290 34} {291 35} {292 36} {293 37} {294 38} {310 56}} 38 {{38 0 1}} 39 {{40 0 1}} 40 {{42 0 1}} 18,trans {} 1,trans {} 41 {{52 0 1}} 37,trans {} 42 {{51 0 1}} 56,trans {} 43 {{47 0 1} {48 0 1}} 44 {{44 0 1}} 23,trans {} 5,trans {} 45 {{49 0 1}} 42,trans {} 46 {{45 0 1}} 47 {{46 0 1}} 48 {{50 0 1}} 27,trans {} 9,trans {} 50 {{41 0 1}} 49 {{43 0 1}} 46,trans {} 51 {{53 0 1}} 52 {{54 0 1} {56 0 1} {32 0 0} {33 0 0} {34 0 0} {35 0 0} {36 0 0} {37 0 0} {38 0 0}} 13,trans {} 53 {{55 0 1}} 32,trans {} 54 {{0 0 1}} 51,trans {} 55 {{47 0 2}} 56 {{56 0 2}} 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} {295 39} {296 40} {298 41} {299 42} {300 43} {301 44} {302 45} {303 46} {304 47} {305 48} {306 49} {307 50} {308 51} {309 52} {310 53} {311 54}} 36,trans {} 55,trans {} 22,trans {} 4,trans {} 41,trans {} 26,trans {} 8,trans {} 45,trans {} 12,trans {} 31,trans {} 50,trans {} 49,trans {} 16,trans {} 35,trans {} 54,trans {} 21,trans {} 3,trans {} 40,trans {} 39,trans {} 10 {{10 {0 288 289 290 291 292 293 294} 1}} 11 {{11 {0 288 289 290 291 292 293 294} 1}} 25,trans {} 7,trans {} 12 {{12 {0 288 289 290 291 292 293 294} 1}} 44,trans {} 13 {{13 {0 288 289 290 291 292 293 294} 1}} 14 {{14 {0 288 289 290 291 292 293 294} 1}} 11,trans {} 15 {{15 {0 288 289 290 291 292 293 294} 1}} 30,trans {} 29,trans {} 16 {{16 {0 288 289 290 291 292 293 294} 1}} 48,trans {} 0 {{0 0 0} {39 0 0} {40 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} {49 0 0} {50 0 0} {51 0 0} {52 0 0} {53 0 0} {54 0 0} {55 0 0} {56 0 0} {1 0 0} {2 0 0} {3 0 0} {4 0 0} {5 {0 288 289 290 291 292 293 294} 0} {6 {0 288 289 290 291 292 293 294} 0} {7 {0 288 289 290 291 292 293 294} 0} {8 {0 288 289 290 291 292 293 294} 0} {9 {0 288 289 290 291 292 293 294} 0} {10 {0 288 289 290 291 292 293 294} 0} {11 {0 288 289 290 291 292 293 294} 0} {12 {0 288 289 290 291 292 293 294} 0} {13 {0 288 289 290 291 292 293 294} 0} {14 {0 288 289 290 291 292 293 294} 0} {15 {0 288 289 290 291 292 293 294} 0} {16 {0 288 289 290 291 292 293 294} 0} {17 {0 288 289 290 291 292 293 294} 0} {18 {0 288 289 290 291 292 293 294} 0} {19 {0 288 289 290 291 292 293 294} 0} {20 {0 288 289 290 291 292 293 294} 0} {21 {0 288 289 290 291 292 293 294} 0} {22 {0 288 289 290 291 292 293 294} 0} {23 {0 288 289 290 291 292 293 294} 0} {24 {0 288 289 290 291 292 293 294} 0} {25 {0 288 289 290 291 292 293 294} 0} {26 {0 288 289 290 291 292 293 294} 0} {27 {0 288 289 290 291 292 293 294} 0} {28 {0 288 289 290 291 292 293 294} 0} {29 {0 288 289 290 291 292 293 294} 0} {30 {0 288 289 290 291 292 293 294} 0} {31 {0 288 289 290 291 292 293 294} 0} {32 0 0} {33 0 0} {34 0 0} {35 0 0} {36 0 0} {37 0 0} {38 0 0}} 17 {{17 {0 288 289 290 291 292 293 294} 1}} 1 {{1 0 1}} 18 {{18 {0 288 289 290 291 292 293 294} 1}} 15,trans {} 2 {{2 0 1}} 19 {{19 {0 288 289 290 291 292 293 294} 1}} 20 {{20 {0 288 289 290 291 292 293 294} 1}} 34,trans {} 3 {{3 0 1}} 21 {{21 {0 288 289 290 291 292 293 294} 1}} 53,trans {} 4 {{4 0 1}} 22 {{22 {0 288 289 290 291 292 293 294} 1}} 5 {{5 {0 288 289 290 291 292 293 294} 1}} 23 {{23 {0 288 289 290 291 292 293 294} 1}} 20,trans {} 19,trans {} 2,trans {} 6 {{6 {0 288 289 290 291 292 293 294} 1}} 24 {{24 {0 288 289 290 291 292 293 294} 1}} 38,trans {} 7 {{7 {0 288 289 290 291 292 293 294} 1}} 25 {{25 {0 288 289 290 291 292 293 294} 1}} 8 {{8 {0 288 289 290 291 292 293 294} 1}} 26 {{26 {0 288 289 290 291 292 293 294} 1}} 9 {{9 {0 288 289 290 291 292 293 294} 1}} 27 {{27 {0 288 289 290 291 292 293 294} 1}} 24,trans {} 6,trans {} 28 {{28 {0 288 289 290 291 292 293 294} 1}} 43,trans {{297 55}} 29 {{29 {0 288 289 290 291 292 293 294} 1}} 30 {{30 {0 288 289 290 291 292 293 294} 1}} 31 {{31 {0 288 289 290 291 292 293 294} 1}} 10,trans {} 32 {{32 0 1}} 28,trans {} 33 {{33 0 1}} 47,trans {} 34 {{34 0 1}} } array set contoursend::token_id_table { 286 WCSY_ 286,t 0 287 WCSZ_ 292,line 44 302,line 57 288 FK4_ 265,title WCSD 289 B1950_ 290 FK5_ 300 LOG_ 284,title WCSW 291 J2000_ 301 METHOD_ 292 ICRS_ 302 MODE_ 288,line 40 293 GALACTIC_ 303 NLEVELS_ 294 ECLIPTIC_ 304 SCALE_ 305 SCOPE_ 295 COLOR_ 306 SMOOTH_ 296 DASH_ 307 WIDTH_ 262,t 0 297 EXP_ 308 coordsys 285,line 36 298 LEVELS_ 310 skyframe 309 wcssys 299 LIMITS_ 311 contoursend 283,t 0 312 start' 282,line 33 264,title WCSC 283,title WCSV 312,title {} 278,line 29 error,line 106 258,t 0 275,line 26 279,t 0 280,t 0 311,t 1 272,line 23 263,title WCSB 282,title WCSU 311,title {} 268,line 19 276,t 0 265,line 16 307,t 0 297,t 0 262,line 13 0,t 0 0 {$} 262,title WCSA 281,title WCST 310,title {} 309,title {} error,t 0 299,title LIMITS 258,line 8 273,t 0 294,t 0 304,t 0 261,title WCS 279,title WCSR 280,title WCSS 308,title {} 269,t 0 270,t 0 298,title LEVELS 291,t 0 301,t 0 311,line 149 307,line 62 266,t 0 260,title DETECTOR 259,title AMPLIFIER 297,line 52 278,title WCSQ 307,title WIDTH 297,title EXP 287,t 0 294,line 46 304,line 59 error,title {} 291,line 43 301,line 56 263,t 0 258,title PHYSICAL 287,line 38 277,title WCSP 284,t 0 306,title SMOOTH 296,title DASH 284,line 35 281,line 32 260,t 0 259,t 0 281,t 0 257,title IMAGE 277,line 28 276,title WCSO 312,t 1 305,title SCOPE 295,title COLOR 274,line 25 271,line 22 277,t 0 308,t 1 267,line 18 298,t 0 275,title WCSN 294,title ECLIPTIC 304,title SCALE 264,line 15 261,line 12 274,t 0 305,t 0 295,t 0 257,line 7 274,title WCSM 293,title GALACTIC 303,title NLEVELS error error 271,t 0 292,t 0 302,t 0 273,title WCSL 292,title ICRS 302,title MODE 267,t 0 310,line 140 309,line 112 299,line 54 288,t 0 306,line 61 296,line 51 272,title WCSK 291,title J2000 293,line 45 301,title METHOD 303,line 58 264,t 0 285,t 0 289,line 41 290,line 42 300,line 55 286,line 37 271,title WCSJ 261,t 0 283,line 34 289,title B1950 290,title FK5 300,title LOG 282,t 0 279,line 30 280,line 31 276,line 27 257,t 0 269,title WCSH 270,title WCSI 273,line 24 288,title FK4 278,t 0 310,t 1 309,t 1 299,t 0 269,line 20 270,line 21 266,line 17 268,title WCSG 275,t 0 263,line 14 287,title WCSZ 306,t 0 296,t 0 260,line 10 259,line 9 272,t 0 267,title WCSF 257 IMAGE_ 286,title WCSY 293,t 0 303,t 0 258 PHYSICAL_ 260 DETECTOR_ 259 AMPLIFIER_ 261 WCS_ 262 WCSA_ 263 WCSB_ 264 WCSC_ 265 WCSD_ 266 WCSE_ 267 WCSF_ 268,t 0 268 WCSG_ 269 WCSH_ 270 WCSI_ 312,line 170 271 WCSJ_ 272 WCSK_ 289,t 0 290,t 0 300,t 0 266,title WCSE 273 WCSL_ 274 WCSM_ 285,title WCSX 275 WCSN_ 308,line 107 276 WCSO_ 298,line 53 277 WCSP_ 278 WCSQ_ 279 WCSR_ 280 WCSS_ 281 WCST_ 305,line 60 282 WCSU_ 295,line 50 265,t 0 283 WCSV_ 284 WCSW_ 285 WCSX_ } proc contoursend::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 { ProcessSendCmdYesNo contour view } 40 { ProcessSendCmdGet contour color } 41 { ProcessSendCmdGet contour width } 42 { ProcessSendCmdYesNo contour dash } 43 { ProcessSendCmdGet contour smooth } 44 { ProcessSendCmdGet contour method } 45 { ProcessSendCmdGet contour numlevel } 46 { ProcessSendCmdGet contour scale } 47 { ProcessSendCmdGet contour log } 48 { ProcessSendCmdGet contour log } 49 { ProcessSendCmdGet contour mode } 50 { ProcessSendCmdGet contour scope } 51 { ContourSendCmdLimits } 52 { ContourSendCmdLevels } 53 { ProcessSendCmdSend {.ctr} "get contour $1 fk5" } 54 { ProcessSendCmdSend {.ctr} "get contour $1 fk5" } 55 { ProcessSendCmdSend {.ctr} "get contour wcs $1" } 56 { ProcessSendCmdSend {.ctr} "get contour $1 $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 contoursend::yyerror {msg} { variable yycnt variable yy_current_buffer variable index_ ParserError $msg $yycnt $yy_current_buffer $index_ }