Command Line Options

From c2c04641988c66df65c942153103ea53089a3573 Mon Sep 17 00:00:00 2001 From: William Joye Date: Thu, 25 Apr 2019 16:12:12 -0400 Subject: CUBE: add 'get cube command --- ds9/doc/ref/command.html | 47 +- ds9/doc/ref/samp.html | 56 +- ds9/doc/ref/xpa.html | 60 +- ds9/doc/release/r8.1.html | 1 + ds9/parsers/cubesendlex.fcl | 3 + ds9/parsers/cubesendlex.tcl | 417 +++++++++++++- ds9/parsers/cubesendparser.tab.tcl | 45 +- ds9/parsers/cubesendparser.tac | 10 + ds9/parsers/cubesendparser.tcl | 1112 ++++++++++++++++++++++++++++++++---- 9 files changed, 1605 insertions(+), 146 deletions(-) diff --git a/ds9/doc/ref/command.html b/ds9/doc/ref/command.html index 9675b7a..ef5a8c9 100644 --- a/ds9/doc/ref/command.html +++ b/ds9/doc/ref/command.html @@ -9,9 +9,9 @@ 2.4.7-10 i686) [Netscape]"> Command Line Options - -

Command Line Options

+ +

Command Line Options

DS9 will process each command line option, one at a time, as the last step in the initialization process. Therefore, it is @@ -458,6 +458,7 @@ + [<ref>] [filter <string>]        [<ref>] [filter load <filename>]@@ -480,6 +481,7 @@ + [<ref>] [match]        [<ref>] [match error <value> @@ -506,6 +508,7 @@ + [<ref>] [panto yes|no]         [<ref>] [plot <xcol> <ycol> <xerrcol> @@ -540,6 +543,7 @@ + [<ref>] [save <filename>]         [<ref>] [server cds|adac|cadc|cambridge|sao|ukirt|iucaa|bejing|saao]@@ -574,6 +578,7 @@ + [symbol shape circle point|box point|diamond point|cross point|x point|arrow point|boxcircle point]         @@ -588,6 +593,7 @@ + [<ref>] [symbol add| [#] remove]        [<ref>] [symbol save|load <filename>]@@ -644,6 +650,7 @@ + '\$Hmag' '\$e_Jmag' '\$e_Hmag' $ds9 -catalog print $ds9 -catalog psky fk5@@ -746,6 +753,7 @@ + [match]           [lock [yes|no]]
@@ -887,6 +895,7 @@ + <coordsys>]
           [lock <coordsys>|none]
@@ -905,7 +914,7 @@ -cube []
      [play|stop|next|prev|first|last]
      [<slice> - [<coordsys>][<axis>]]
+ [<coordsys>]]
      [interval <numeric>]
      [match <coordsys>]       [lock <coordsys>|none] @@ -918,7 +927,7 @@ $ds9 -cube play $ds9 -cube last $ds9 -cube 3 - $ds9 -cube 4.5 wcs 3 + $ds9 -cube 4.5 wcs $ds9 -cube interval 2 $ds9 -cube match wcs $ds9 -cube lock wcs @@ -1057,6 +1066,7 @@ + -envi foo.hdr foo.bsq
exit
@@ -1097,6 +1107,7 @@ + [1-100] -export <filename>.tiff @@ -1110,6 +1121,7 @@ + [none|jpeg|packbits|deflate] Example:@@ -1583,6 +1595,7 @@ + <coordsys>]        @@ -1595,6 +1608,7 @@ + [crop <coordsys>]        [slice <coordsys>]@@ -1616,6 +1630,7 @@ + [3d] Example:@@ -1744,6 +1759,7 @@ + [pan]             @@ -1758,6 +1774,7 @@ + [crosshair]             @@ -1772,6 +1789,7 @@ + [open|close] Example: @@ -1890,6 +1908,7 @@ + [yes|open]             [no|close] @@ -1929,6 +1948,7 @@ + load <filename> xy|xyex|xyey|xyexey]       [[<plotname>] save <filename>]@@ -1952,6 +1972,7 @@ + loadconfig <filename>] [[<plotname>] saveconfig <filename>]@@ -1982,6 +2003,7 @@ + close] [[<plotname>] @@ -1994,6 +2016,7 @@ + mode pointer|zoom]
# export image @@ -2008,6 +2031,7 @@ + export [gif|tiff|jpeg|png] <filename>      [[<plotname>] @@ -2020,6 +2044,7 @@ + export jpeg <filename> [1-100]      [[<plotname>] @@ -2032,6 +2057,7 @@ + export tiff <filename> [none|jpeg|packbits|deflate] # configure graph @@ -2063,6 +2089,7 @@ + legend yes|no]       [[<plotname>] legend position right|left|top|bottom] @@ -2094,6 +2121,7 @@ + barmode normal|stacked|aligned|overlap] # configure current dataset @@ -2294,6 +2322,7 @@ + [color rgb|cmyk|gray]        [level 1|2|3]        [resolution 72|screen|96|144|150|225|300|600|1200] @@ -2583,6 +2612,7 @@ + [image|table|slice] Example: @@ -2709,6 +2739,7 @@ + [crosshair]      [<ref>] [export sb|tsv <filename>] @@ -2740,6 +2771,7 @@ + [update] Example: @@ -2858,6 +2890,7 @@ + [sigma <value>]         @@ -2872,6 +2905,7 @@ + [sigmaminor <value>]         [angle @@ -2887,6 +2921,7 @@ + <value>]         [match] @@ -2915,6 +2950,7 @@ + sigmaminor 2.0 $ds9 @@ -2928,6 +2964,7 @@ + -smooth angle 45 $ds9 -smooth match diff --git a/ds9/doc/ref/samp.html b/ds9/doc/ref/samp.html index 7c9195c..b2c47d8 100644 --- a/ds9/doc/ref/samp.html +++ b/ds9/doc/ref/samp.html @@ -9,9 +9,9 @@ 2.4.7-10 i686) [Netscape]"> SAMP - -
SAMP
+ +
SAMP

SAMP is a messaging protocol that enables astronomy software tools to interoperate and communicate. Broadly speaking, SAMP is @@ -473,6 +473,7 @@ + [2mass|iras]        [csc|xmm|rosat]@@ -522,6 +523,7 @@ + [<ref>] [filter <string>]        [<ref>] [filter load <filename>]@@ -544,6 +546,7 @@ + [<ref>] [match <ref> <ref>]        [<ref>] [match error <value> @@ -570,6 +573,7 @@ + [<ref>] [panto yes|no]         [<ref>] [plot <xcol> <ycol> <xerrcol> @@ -604,6 +608,7 @@ + [<ref>] [save <filename>]         [<ref>] [server cds|adac|cadc|cambridge|sao|ukirt|iucaa|bejing|saao]@@ -639,6 +644,7 @@ + [symbol shape circle point|box point|diamond point|cross point|x point|arrow point|boxcircle point]         @@ -703,6 +709,7 @@ + {$Hmag} {$e_Jmag} {$e_Hmag} catalog print catalog psky fk5@@ -728,6 +735,7 @@ + point} catalog symbol color red catalog symbol font times@@ -879,6 +887,7 @@ + [save levels <filename>]         [copy]
        [paste @@ -970,6 +979,7 @@ + zmax <coordsys>]       [open|close] @@ -1020,8 +1030,7 @@ Syntax: cube []      [play|stop|next|prev|first|last] -      [<slice> - [<coordsys>][<axis>]] +      [<slice> [<coordsys>]]      [interval <numeric>]      [match <coordsys>]      [lock <coordsys>|none] @@ -1032,6 +1041,7 @@ Example: string value = ds9.get(string cmd) cube + cube wcs cube interval cube lock cube order @@ -1041,7 +1051,7 @@ cube play cube last cube 3 - cube 4.5 wcs 3 + cube 4.5 wcs cube interval 2 cube match wcs cube lock wcs @@ -1714,6 +1724,7 @@ + Macros for more information.
Syntax: iexam [] @@ -2232,6 +2243,7 @@ + load <filename> xy|xyex|xyey|xyexey]      [[<plotname>] save <filename>] @@ -2249,6 +2261,7 @@ + duplicate [#]]      [[<plotname>] @@ -2262,6 +2275,7 @@ + stats yes|no]      [[<plotname>] @@ -2275,6 +2289,7 @@ + list yes|no]      [[<plotname>] @@ -2288,6 +2303,7 @@ + loadconfig <filename>]      [[<plotname>] saveconfig <filename>] @@ -2318,6 +2334,7 @@ + close]      [[<plotname>] @@ -2331,6 +2348,7 @@ + mode pointer|zoom] # export image @@ -2345,6 +2363,7 @@ + export [gif|tiff|jpeg|png] <filename>      [[<plotname>] @@ -2358,6 +2377,7 @@ + export jpeg <filename> [1-100]      [[<plotname>] @@ -2370,6 +2390,7 @@ + export tiff <filename> [none|jpeg|packbits|deflate] # configure graph @@ -2390,6 +2411,7 @@      [[<plotname>] + background <value>]      [[<plotname>] @@ -2403,6 +2425,7 @@ + legend yes|no]      [[<plotname>] legend position right|left|top|bottom] @@ -2434,6 +2457,7 @@ + barmode normal|stacked|aligned|overlap] # configure current dataset @@ -2450,6 +2474,7 @@ + shape none|circle|square|diamond|plus|splus|scross|triangle|arrow]      [[<plotname>] @@ -2464,6 +2489,7 @@ + shape fill yes|no]      [[<plotname>] @@ -2477,6 +2503,7 @@ + shape color <value>]      [[<plotname>] @@ -2490,6 +2517,7 @@ + smooth step|linear|cubic|quadratic|catrom]      [[<plotname>] @@ -2503,6 +2531,7 @@ + color <value>]      [[<plotname>] @@ -2516,6 +2545,7 @@ + width <value>]      [[<plotname>] @@ -2529,6 +2559,7 @@ + dash yes|no]      [[<plotname>] @@ -2542,6 +2573,7 @@ + error yes|no]      [[<plotname>] @@ -2555,6 +2587,7 @@ + error color <value>]      [[<plotname>] error cap yes|no] @@ -2570,6 +2603,7 @@ + error width <value>]      [[<plotname>] @@ -2583,6 +2617,7 @@ + name <string>] # select current dataset @@ -2639,6 +2674,7 @@ # export plot ds9.set(string + cmd) plot export tiff foo.tiff jpeg @@ -3311,6 +3347,7 @@ + [<ref>] [save <filename>]       [<ref>] [radius <value> degrees|arcmin|arcsec] @@ -3440,6 +3477,7 @@ + [sigma <value>]        @@ -3454,6 +3492,7 @@ + [sigmaminor <value>]        [angle @@ -3469,6 +3508,7 @@ + <value>]        @@ -3482,6 +3522,7 @@ + [match]        [lock [yes|no]]
       [open|close] @@ -3514,6 +3555,7 @@ + sigma 2.0 smooth @@ -3527,6 +3569,7 @@ + sigmaminor 2.0 smooth @@ -3540,6 +3583,7 @@ + angle 45 smooth open diff --git a/ds9/doc/ref/xpa.html b/ds9/doc/ref/xpa.html index 0649376..fdde311 100644 --- a/ds9/doc/ref/xpa.html +++ b/ds9/doc/ref/xpa.html @@ -9,9 +9,9 @@ 2.4.7-10 i686) [Netscape]"> XPA Access Points - - XPA Access Points + + XPA Access Points The XPA messaging system provides seamless communication between DS9 and @@ -218,6 +218,7 @@ + -p ds9 3d match $xpaset -p ds9 3d lock yes @@ -467,6 +468,7 @@ + [crosshair]         [<ref>] [dec <col>] @@ -497,6 +499,7 @@ + [<ref>] [match <ref> <ref>]         [<ref>] [match @@ -512,6 +515,7 @@ + error <value> degrees|arcmin|arcsec]         [<ref>] @@ -525,6 +529,7 @@ + [match function 1and2|1not2|2not1]         [<ref>] @@ -538,6 +543,7 @@ + [match return 1and2|1only|2only]         [<ref>] @@ -551,6 +557,7 @@ + [match unique yes|no]         [<ref>] [maxrows <number>] @@ -610,6 +617,7 @@ + shape circle point|box point|diamond point|cross @@ -622,6 +630,7 @@ + point|x point|arrow point|boxcircle point]         [<ref>] [symbol add| [#] remove] @@ -641,6 +650,7 @@ + [update]         [<ref>] [x <col>] @@ -955,8 +965,7 @@ Syntax: cube []      [play|stop|next|prev|first|last] -      [<slice> - [<coordsys>][<axis>]] +      [<slice> [<coordsys>]]      [interval <numeric>]      [match <coordsys>]      [lock <coordsys>|none] @@ -966,6 +975,7 @@ Example: $xpaget ds9 cube + $xpaget ds9 cube wcs $xpaget ds9 cube interval $xpaget ds9 cube lock $xpaget ds9 cube order @@ -974,7 +984,7 @@ $xpaset -p ds9 cube play $xpaset -p ds9 cube last $xpaset -p ds9 cube 3 - $xpaset -p ds9 cube 4.4 wcs 3 + $xpaset -p ds9 cube 4.4 wcs $xpaset -p ds9 cube interval 2 $xpaset -p ds9 cube match wcs $xpaset -p ds9 cube lock wcs @@ -1178,6 +1188,7 @@ + -p ds9 export envi foo.hdr foo.bsq little $xpaset -p ds9 export tiff foo.tiff jpeg @@ -2076,6 +2087,7 @@ + [line|bar|scatter] <title> <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]      [new @@ -2101,6 +2113,7 @@ + name <plotname> stdin]      [new @@ -2113,6 +2126,7 @@ + name <plotname> line|bar|scatter stdin] @@ -2133,6 +2147,7 @@ + load <filename> xy|xyex|xyey|xyexey]      [[<plotname>] save <filename>] @@ -2150,6 +2165,7 @@ + duplicate [#]]      [[<plotname>] @@ -2163,6 +2179,7 @@ + stats yes|no]      [[<plotname>] @@ -2176,6 +2193,7 @@ + list yes|no]      [[<plotname>] @@ -2189,6 +2207,7 @@ + loadconfig <filename>]      [[<plotname>] saveconfig <filename>] @@ -2219,6 +2238,7 @@ + close]      [[<plotname>] @@ -2232,6 +2252,7 @@ + mode pointer|zoom] # export image @@ -2246,6 +2267,7 @@ + export [gif|tiff|jpeg|png] <filename>      [[<plotname>] @@ -2258,6 +2280,7 @@ + export jpeg <filename> [1-100]      [[<plotname>] @@ -2270,6 +2293,7 @@ + export tiff <filename> [none|jpeg|packbits|deflate] # configure graph @@ -2301,6 +2325,7 @@ + legend yes|no]      [[<plotname>] legend position right|left|top|bottom] @@ -2332,6 +2357,7 @@ + barmode normal|stacked|aligned|overlap] # configure current dataset @@ -2348,6 +2374,7 @@ + shape none|circle|square|diamond|plus|splus|scross|triangle|arrow]      [[<plotname>] @@ -2362,6 +2389,7 @@ + shape fill yes|no]      [[<plotname>] @@ -2375,6 +2403,7 @@ + shape color <value>]      [[<plotname>] @@ -2388,6 +2417,7 @@ + smooth step|linear|cubic|quadratic|catrom]      [[<plotname>] @@ -2401,6 +2431,7 @@ + color <value>]      [[<plotname>] @@ -2414,6 +2445,7 @@ + width <value>]      [[<plotname>] @@ -2427,6 +2459,7 @@ + dash yes|no]      [[<plotname>] @@ -2440,6 +2473,7 @@ + error yes|no]      [[<plotname>] @@ -2453,6 +2487,7 @@ + error color <value>]      [[<plotname>] @@ -2466,6 +2501,7 @@ + error cap yes|no]      [[<plotname>] @@ -2479,6 +2515,7 @@ + error width <value>]      [[<plotname>] @@ -2492,6 +2529,7 @@ + name <string>] # select current dataset @@ -3197,6 +3235,7 @@ + [crosshair]     [<ref>] [export sb|tsv <filename>] @@ -3226,6 +3265,7 @@ + [update] Example: @@ -3339,6 +3379,7 @@ + [sigma <value>]        @@ -3353,6 +3394,7 @@ + [sigmaminor <value>]        [angle @@ -3368,6 +3410,7 @@ + <value>]     @@ -3381,6 +3424,7 @@ +    [match]        [lock [yes|no]]        [open|close] @@ -3403,6 +3447,7 @@ + ds9 smooth sigmaminor $xpaget ds9 smooth lock @@ -3424,6 +3469,7 @@ + -p ds9 smooth sigma 2.0 $xpaset @@ -3437,6 +3483,7 @@ + -p ds9 smooth sigmaminor 2.0 $xpaset @@ -3450,6 +3497,7 @@ + -p ds9 smooth angle 45 $xpaset -p ds9 smooth match diff --git a/ds9/doc/release/r8.1.html b/ds9/doc/release/r8.1.html index 9206d43..bc0e54b 100644 --- a/ds9/doc/release/r8.1.html +++ b/ds9/doc/release/r8.1.html @@ -78,6 +78,7 @@ 04.23.2019 MASK: default systems is now WCS (similar to RGB). 04.25.2019 MASK: fixed an issue with mask and backups. 04.25.2019 BACKUP: fixed an issue with reading version 6.x backup files. +04.25.2019 CUBE: add 'get cube command. xx.xx.2019 RELEASE version 8.1b1 diff --git a/ds9/parsers/cubesendlex.fcl b/ds9/parsers/cubesendlex.fcl index b13a079..e13875b 100644 --- a/ds9/parsers/cubesendlex.fcl +++ b/ds9/parsers/cubesendlex.fcl @@ -10,9 +10,12 @@ axis {return $AXIS_} axes {return $AXES_} interval {return $INTERVAL_} +image {return $IMAGE_} lock {return $LOCK_} order {return $ORDER_} +#include wcssys.fin +#include skyframe.fin #include ws.fin %% diff --git a/ds9/parsers/cubesendlex.tcl b/ds9/parsers/cubesendlex.tcl index c3fb312..3387db1 100644 --- a/ds9/parsers/cubesendlex.tcl +++ b/ds9/parsers/cubesendlex.tcl @@ -179,11 +179,46 @@ proc cubesend::yylex {} { variable done_ variable state_table_ -set AXIS_ 257 -set AXES_ 258 -set INTERVAL_ 259 -set LOCK_ 260 -set ORDER_ 261 +set WCS_ 257 +set WCSA_ 258 +set WCSB_ 259 +set WCSC_ 260 +set WCSD_ 261 +set WCSE_ 262 +set WCSF_ 263 +set WCSG_ 264 +set WCSH_ 265 +set WCSI_ 266 +set WCSJ_ 267 +set WCSK_ 268 +set WCSL_ 269 +set WCSM_ 270 +set WCSN_ 271 +set WCSO_ 272 +set WCSP_ 273 +set WCSQ_ 274 +set WCSR_ 275 +set WCSS_ 276 +set WCST_ 277 +set WCSU_ 278 +set WCSV_ 279 +set WCSW_ 280 +set WCSX_ 281 +set WCSY_ 282 +set WCSZ_ 283 +set FK4_ 284 +set B1950_ 285 +set FK5_ 286 +set J2000_ 287 +set ICRS_ 288 +set GALACTIC_ 289 +set ECLIPTIC_ 290 +set AXIS_ 291 +set AXES_ 292 +set INTERVAL_ 293 +set IMAGE_ 294 +set LOCK_ 295 +set ORDER_ 296 while {1} { if {[string length $yy_current_buffer] - $index_ < 1024} { @@ -226,34 +261,279 @@ set ORDER_ 261 set yyleng [string length $yytext] set matched_rule 2 } - # rule 3: lock - if {[regexp -start $index_ -indices -line -nocase -- {\A(lock)} $yy_current_buffer match] > 0 && \ + # rule 3: image + if {[regexp -start $index_ -indices -line -nocase -- {\A(image)} $yy_current_buffer match] > 0 && \ [lindex $match 1] - $index_ + 1 > $yyleng} { set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] set yyleng [string length $yytext] set matched_rule 3 } - # rule 4: order - if {[regexp -start $index_ -indices -line -nocase -- {\A(order)} $yy_current_buffer match] > 0 && \ + # rule 4: lock + if {[regexp -start $index_ -indices -line -nocase -- {\A(lock)} $yy_current_buffer match] > 0 && \ [lindex $match 1] - $index_ + 1 > $yyleng} { set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] set yyleng [string length $yytext] set matched_rule 4 } - # rule 5: \s - if {[regexp -start $index_ -indices -line -nocase -- {\A(\s)} $yy_current_buffer match] > 0 && \ + # rule 5: order + if {[regexp -start $index_ -indices -line -nocase -- {\A(order)} $yy_current_buffer match] > 0 && \ [lindex $match 1] - $index_ + 1 > $yyleng} { set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] set yyleng [string length $yytext] set matched_rule 5 } - # rule 6: . - if {[regexp -start $index_ -indices -line -nocase -- {\A(.)} $yy_current_buffer match] > 0 && \ + # rule 6: wcs + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcs)} $yy_current_buffer match] > 0 && \ [lindex $match 1] - $index_ + 1 > $yyleng} { set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] set yyleng [string length $yytext] set matched_rule 6 } + # rule 7: wcsa + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsa)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 7 + } + # rule 8: wcsb + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsb)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 8 + } + # rule 9: wcsc + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsc)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 9 + } + # rule 10: wcsd + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsd)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 10 + } + # rule 11: wcse + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcse)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 11 + } + # rule 12: wcsf + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsf)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 12 + } + # rule 13: wcsg + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsg)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 13 + } + # rule 14: wcsh + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsh)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 14 + } + # rule 15: wcsi + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsi)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 15 + } + # rule 16: wcsj + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsj)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 16 + } + # rule 17: wcsk + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsk)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 17 + } + # rule 18: wcsl + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsl)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 18 + } + # rule 19: wcsm + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsm)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 19 + } + # rule 20: wcsn + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsn)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 20 + } + # rule 21: wcso + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcso)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 21 + } + # rule 22: wcsp + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsp)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 22 + } + # rule 23: wcsq + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsq)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 23 + } + # rule 24: wcsr + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsr)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 24 + } + # rule 25: wcss + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcss)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 25 + } + # rule 26: wcst + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcst)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 26 + } + # rule 27: wcsu + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsu)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 27 + } + # rule 28: wcsv + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsv)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 28 + } + # rule 29: wcsw + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsw)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 29 + } + # rule 30: wcsx + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsx)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 30 + } + # rule 31: wcsy + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsy)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 31 + } + # rule 32: wcsz + if {[regexp -start $index_ -indices -line -nocase -- {\A(wcsz)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 32 + } + # rule 33: fk4 + if {[regexp -start $index_ -indices -line -nocase -- {\A(fk4)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 33 + } + # rule 34: b1950 + if {[regexp -start $index_ -indices -line -nocase -- {\A(b1950)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 34 + } + # rule 35: fk5 + if {[regexp -start $index_ -indices -line -nocase -- {\A(fk5)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 35 + } + # rule 36: j2000 + if {[regexp -start $index_ -indices -line -nocase -- {\A(j2000)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 36 + } + # rule 37: icrs + if {[regexp -start $index_ -indices -line -nocase -- {\A(icrs)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 37 + } + # rule 38: galactic + if {[regexp -start $index_ -indices -line -nocase -- {\A(galactic)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 38 + } + # rule 39: ecliptic + if {[regexp -start $index_ -indices -line -nocase -- {\A(ecliptic)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 39 + } + # rule 40: \s + if {[regexp -start $index_ -indices -line -nocase -- {\A(\s)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 40 + } + # rule 41: . + if {[regexp -start $index_ -indices -line -nocase -- {\A(.)} $yy_current_buffer match] > 0 && \ + [lindex $match 1] - $index_ + 1 > $yyleng} { + set yytext [string range $yy_current_buffer $index_ [lindex $match 1]] + set yyleng [string length $yytext] + set matched_rule 41 + } if {$matched_rule == -1} { set yytext [string index $yy_current_buffer $index_] set yyleng 1 @@ -276,15 +556,120 @@ return $AXES_ return $INTERVAL_ } 3 { -return $LOCK_ +return $IMAGE_ } 4 { -return $ORDER_ +return $LOCK_ } 5 { -# ignore whitespace +return $ORDER_ } 6 { +return $WCS_ + } + 7 { +return $WCSA_ + } + 8 { +return $WCSB_ + } + 9 { +return $WCSC_ + } + 10 { +return $WCSD_ + } + 11 { +return $WCSE_ + } + 12 { +return $WCSF_ + } + 13 { +return $WCSG_ + } + 14 { +return $WCSH_ + } + 15 { +return $WCSI_ + } + 16 { +return $WCSJ_ + } + 17 { +return $WCSK_ + } + 18 { +return $WCSL_ + } + 19 { +return $WCSM_ + } + 20 { +return $WCSN_ + } + 21 { +return $WCSO_ + } + 22 { +return $WCSP_ + } + 23 { +return $WCSQ_ + } + 24 { +return $WCSR_ + } + 25 { +return $WCSS_ + } + 26 { +return $WCST_ + } + 27 { +return $WCSU_ + } + 28 { +return $WCSV_ + } + 29 { +return $WCSW_ + } + 30 { +return $WCSX_ + } + 31 { +return $WCSY_ + } + 32 { +return $WCSZ_ + } + 33 { +return $FK4_ + } + 34 { +return $FK4_ + } + 35 { +return $FK5_ + } + 36 { +return $FK5_ + } + 37 { +return $ICRS_ + } + 38 { +return $GALACTIC_ + } + 39 { +return $ECLIPTIC_ + } + 40 { +# ignore whitespace + } + 41 { set yylval $yytext; return $yylval } default diff --git a/ds9/parsers/cubesendparser.tab.tcl b/ds9/parsers/cubesendparser.tab.tcl index 9d57c1a..a70af11 100644 --- a/ds9/parsers/cubesendparser.tab.tcl +++ b/ds9/parsers/cubesendparser.tab.tcl @@ -1,5 +1,40 @@ -set AXIS_ 257 -set AXES_ 258 -set INTERVAL_ 259 -set LOCK_ 260 -set ORDER_ 261 +set WCS_ 257 +set WCSA_ 258 +set WCSB_ 259 +set WCSC_ 260 +set WCSD_ 261 +set WCSE_ 262 +set WCSF_ 263 +set WCSG_ 264 +set WCSH_ 265 +set WCSI_ 266 +set WCSJ_ 267 +set WCSK_ 268 +set WCSL_ 269 +set WCSM_ 270 +set WCSN_ 271 +set WCSO_ 272 +set WCSP_ 273 +set WCSQ_ 274 +set WCSR_ 275 +set WCSS_ 276 +set WCST_ 277 +set WCSU_ 278 +set WCSV_ 279 +set WCSW_ 280 +set WCSX_ 281 +set WCSY_ 282 +set WCSZ_ 283 +set FK4_ 284 +set B1950_ 285 +set FK5_ 286 +set J2000_ 287 +set ICRS_ 288 +set GALACTIC_ 289 +set ECLIPTIC_ 290 +set AXIS_ 291 +set AXES_ 292 +set INTERVAL_ 293 +set IMAGE_ 294 +set LOCK_ 295 +set ORDER_ 296 diff --git a/ds9/parsers/cubesendparser.tac b/ds9/parsers/cubesendparser.tac index 054734e..9b48c2a 100644 --- a/ds9/parsers/cubesendparser.tac +++ b/ds9/parsers/cubesendparser.tac @@ -2,17 +2,27 @@ %} #include def.tin +#include wcssys.tin +#include skyframe.tin + %start cubesend %token AXIS_ %token AXES_ %token INTERVAL_ +%token IMAGE_ %token LOCK_ %token ORDER_ %% +#include wcssys.trl +#include skyframe.trl + cubesend : {ProcessSendCmdCurrent "get fits slice"} + | IMAGE_ {ProcessSendCmdCurrent "get fits slice"} + | wcssys {ProcessSendCmdCurrent "get fits slice from image $1 FK5"} + | wcssys skyframe {ProcessSendCmdCurrent "get fits slice from image $1 $2"} | LOCK_ {ProcessSendCmdGet cube lock} | INTERVAL_ {BlinkSendCmdInterval} | AXES_ order diff --git a/ds9/parsers/cubesendparser.tcl b/ds9/parsers/cubesendparser.tcl index 384b214..72355b6 100644 --- a/ds9/parsers/cubesendparser.tcl +++ b/ds9/parsers/cubesendparser.tcl @@ -61,145 +61,1004 @@ proc cubesend::unsetupvalues {numsyms} { } array set cubesend::table { - 6:0 accept + 21:290 reduce + 21:289 reduce + 9:284 reduce + 23:286,target 23 + 9:285 reduce + 3:288,target 3 + 29:300,target 37 + 27:0 reduce + 9:286 reduce + 9:287 reduce + 9:288 reduce + 2:284,target 2 + 9:290 reduce + 9:289 reduce + 8:287,target 8 + 0:296,target 33 + 29:300 goto + 12:286,target 12 + 18:290,target 18 + 18:289,target 18 + 34:284,target 39 + 0:275,target 19 + 6:0,target 6 + 17:285,target 17 + 2:0 reduce + 29:295 shift + 24:288,target 24 + 24:0 reduce + 23:284,target 23 + 3:286,target 3 + 9:290,target 9 + 9:289,target 9 + 41:0,target 30 + 45:0 reduce + 33:0,target 44 + 13:288,target 13 + 25:0,target 25 + 0:294,target 31 + 8:285,target 8 + 17:0,target 17 + 12:284,target 12 + 10:0,target 10 + 18:287,target 18 + 17:284 reduce + 17:285 reduce + 0:273,target 17 + 17:286 reduce + 24:286,target 24 + 17:287 reduce + 4:288,target 4 + 17:288 reduce + 21:0 reduce + 17:290 reduce + 17:289 reduce + 3:284,target 3 + 6:284 reduce + 9:287,target 9 + 6:285 reduce + 42:0 reduce + 26:284 reduce + 6:286 reduce + 26:285 reduce + 13:286,target 13 + 6:287 reduce + 26:286 reduce + 20:290,target 20 + 20:289,target 20 + 19:290,target 19 + 19:289,target 19 + 0:292,target 29 + 6:288 reduce + 26:287 reduce + 6:289 reduce + 6:290 reduce + 26:288 reduce + 26:290 reduce + 26:289 reduce + 18:285,target 18 + 25:288,target 25 + 0:271,target 15 + 24:284,target 24 + 4:286,target 4 + 17:0 reduce + 14:288,target 14 + 38:0 reduce + 9:285,target 9 + 34:298,target 46 + 13:284,target 13 + 20:287,target 20 + 19:287,target 19 3:0,target 3 + 25:286,target 25 + 5:288,target 5 + 14:284 reduce + 0:268,target 12 + 45:0,target 34 + 14:285 reduce + 37:0,target 41 + 14:286 reduce + 14:0 reduce + 4:284,target 4 + 30:0,target 40 + 29:0,target 44 + 14:287 reduce + 22:0,target 22 + 14:288 reduce + 35:0 accept + 14:290 reduce + 14:289 reduce + 14:286,target 14 + 14:0,target 14 + 21:290,target 21 + 21:289,target 21 + 3:284 reduce + 3:285 reduce + 23:284 reduce + 3:286 reduce + 23:285 reduce + 20:285,target 20 + 19:285,target 19 + 3:287 reduce + 26:288,target 26 + 23:286 reduce + 3:288 reduce + 23:287 reduce 0:257 shift - 7:0 reduce + 3:289 reduce + 3:290 reduce + 23:288 reduce + 10:290,target 10 + 10:289,target 10 0:258 shift - 8:0 reduce - 5:0,target 7 + 25:284,target 25 + 23:290 reduce + 23:289 reduce 0:260 shift 0:259 shift + 5:286,target 5 9:0 reduce + 0:266,target 10 0:261 shift - 7:0,target 8 - 2:260 shift - 0:262 goto - 0:258,target 2 - 5:263,target 9 - 0:0,target 1 - 9:0,target 5 - 0:261,target 5 - 5:260 shift - 2:0,target 7 - 2:263 goto - 4:0,target 2 - 5:260,target 7 - 5:263 goto - 2:263,target 8 - 0:0 reduce - 6:0,target 0 - 1:0 reduce - 0:257,target 1 - 2:0 reduce - 8:0,target 4 + 11:0 reduce + 0:262 shift + 15:288,target 15 + 0:263 shift + 0:264 shift + 32:0 reduce + 0:265 shift + 14:284,target 14 + 0:266 shift + 21:287,target 21 + 0:267 shift + 1:289,target 1 + 1:290,target 1 + 0:268 shift + 0:270 shift + 0:269 shift + 0:271 shift + 26:286,target 26 + 0:272 shift + 6:288,target 6 + 33:300,target 38 + 0:273 shift + 10:287,target 10 + 0:274 shift + 0:275 shift + 5:284,target 5 + 6:0 reduce + 0:264,target 8 + 0:276 shift + 11:284 reduce + 0:277 shift + 15:286,target 15 + 11:285 reduce + 0:278 shift + 28:0 reduce + 22:290,target 22 + 22:289,target 22 + 11:286 reduce + 0:279 shift + 0:280 shift + 7:0,target 7 + 11:287 reduce + 0:0,target 35 + 0:281 shift + 11:288 reduce + 0:282 shift + 21:285,target 21 + 11:290 reduce + 11:289 reduce + 0:283 shift + 1:287,target 1 + 27:288,target 27 + 20:284 reduce + 19:284 reduce + 11:290,target 11 + 11:289,target 11 + 0:283,target 27 + 42:0,target 31 + 26:284,target 26 + 20:285 reduce + 19:285 reduce + 6:286,target 6 + 34:0,target 37 + 20:286 reduce + 19:286 reduce + 26:0,target 26 + 20:287 reduce + 19:287 reduce + 10:285,target 10 3:0 reduce + 20:288 reduce + 19:288 reduce + 18:0,target 18 + 16:288,target 16 + 0:291 shift + 20:290 reduce + 20:289 reduce + 19:290 reduce + 19:289 reduce + 11:0,target 11 + 0:262,target 6 + 0:292 shift + 29:295,target 36 + 0:293 shift + 8:284 reduce + 25:0 reduce + 15:284,target 15 + 0:294 shift + 8:285 reduce + 22:287,target 22 + 0:295 shift + 2:289,target 2 + 2:290,target 2 + 8:286 reduce + 8:287 reduce + 0:296 shift + 46:0 reduce + 8:288 reduce + 0:297 goto + 8:290 reduce + 8:289 reduce + 1:285,target 1 + 27:286,target 27 + 0:299 goto + 7:288,target 7 + 34:290,target 45 + 34:289,target 44 + 11:287,target 11 + 0:281,target 25 + 6:284,target 6 + 0:0 reduce + 16:286,target 16 + 23:290,target 23 + 23:289,target 23 0:260,target 4 0:259,target 3 + 22:0 reduce + 22:285,target 22 + 2:287,target 2 + 43:0 reduce + 0:299,target 35 + 12:290,target 12 + 12:289,target 12 + 27:284,target 27 + 7:286,target 7 + 34:287,target 42 + 11:285,target 11 + 0:278,target 22 + 17:288,target 17 + 16:284 reduce + 16:285 reduce + 16:286 reduce + 4:0,target 4 + 16:287 reduce + 16:284,target 16 + 23:287,target 23 + 18:0 reduce + 16:288 reduce + 0:257,target 1 + 3:289,target 3 + 3:290,target 3 + 16:290 reduce + 16:289 reduce + 5:284 reduce + 40:0 reduce + 39:0 reduce + 2:285,target 2 + 5:285 reduce + 46:0,target 38 + 25:284 reduce + 8:288,target 8 + 0:297,target 34 + 5:286 reduce + 38:0,target 42 + 25:285 reduce + 5:287 reduce + 31:0,target 36 + 25:286 reduce + 12:287,target 12 + 5:288 reduce + 25:287 reduce + 23:0,target 23 + 5:289 reduce + 5:290 reduce + 7:284,target 7 + 34:285,target 40 + 25:288 reduce + 15:0,target 15 + 25:290 reduce + 25:289 reduce + 0:276,target 20 + 17:286,target 17 + 24:290,target 24 + 24:289,target 24 + 34:284 shift + 34:285 shift + 15:0 reduce + 34:286 shift + 23:285,target 23 + 3:287,target 3 + 34:287 shift + 36:0 reduce + 34:288 shift + 34:290 shift + 34:289 shift + 13:290,target 13 + 13:289,target 13 + 8:286,target 8 + 0:295,target 32 + 12:285,target 12 + 18:288,target 18 + 0:274,target 18 + 17:284,target 17 + 34:298 goto + 24:287,target 24 + 13:284 reduce + 4:289,target 4 + 4:290,target 4 + 13:285 reduce + 12:0 reduce + 13:286 reduce + 13:287 reduce + 3:285,target 3 + 33:0 reduce + 13:288 reduce + 9:288,target 9 + 13:290 reduce + 13:289 reduce + 13:287,target 13 + 2:284 reduce + 0:293,target 30 + 2:285 reduce + 8:284,target 8 + 22:284 reduce + 2:286 reduce + 22:285 reduce + 2:287 reduce + 8:0,target 8 + 22:286 reduce + 18:286,target 18 + 1:0,target 1 + 2:288 reduce + 25:290,target 25 + 25:289,target 25 + 22:287 reduce + 2:289 reduce + 2:290 reduce + 22:288 reduce + 0:272,target 16 + 22:290 reduce + 22:289 reduce + 7:0 reduce + 24:285,target 24 + 4:287,target 4 + 43:0,target 32 + 35:0,target 0 + 30:0 reduce + 29:0 reduce + 14:290,target 14 + 14:289,target 14 + 27:0,target 27 + 9:286,target 9 + 20:0,target 20 + 19:0,target 19 + 13:285,target 13 + 12:0,target 12 + 20:288,target 20 + 19:288,target 19 + 0:291,target 28 + 33:295,target 36 + 18:284,target 18 + 25:287,target 25 + 5:289,target 5 + 5:290,target 5 + 0:270,target 14 + 0:269,target 13 4:0 reduce - 1:0,target 6 + 4:285,target 4 + 10:284 reduce + 26:0 reduce + 10:285 reduce + 14:287,target 14 + 10:286 reduce + 10:287 reduce + 9:284,target 9 + 10:288 reduce + 10:290 reduce + 10:289 reduce + 20:286,target 20 + 19:286,target 19 + 26:290,target 26 + 26:289,target 26 + 18:284 reduce + 18:285 reduce + 25:285,target 25 + 18:286 reduce + 1:0 reduce + 5:287,target 5 + 18:287 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 + 7:284 reduce + 7:285 reduce + 27:284 reduce + 14:285,target 14 + 7:286 reduce + 44:0 reduce + 27:285 reduce + 21:288,target 21 + 5:0,target 5 + 7:287 reduce + 27:286 reduce + 7:288 reduce + 27:287 reduce + 7:289 reduce + 7:290 reduce + 27:288 reduce + 20:284,target 20 + 19:284,target 19 + 27:290 reduce + 27:289 reduce + 26:287,target 26 + 6:289,target 6 + 6:290,target 6 + 10:288,target 10 + 40:0,target 29 + 39:0,target 28 + 5:285,target 5 + 32:0,target 39 + 0:265,target 9 + 24:0,target 24 + 20:0 reduce + 19:0 reduce + 16:0,target 16 + 15:287,target 15 + 41:0 reduce + 21:286,target 21 + 1:288,target 1 + 27:290,target 27 + 27:289,target 27 + 26:285,target 26 + 6:287,target 6 + 15:284 reduce + 10:286,target 10 + 16:290,target 16 + 16:289,target 16 + 15:285 reduce + 15:286 reduce + 0:263,target 7 + 16:0 reduce + 15:287 reduce + 15:288 reduce + 15:285,target 15 + 22:288,target 22 + 15:290 reduce + 15:289 reduce + 37:0 reduce + 4:284 reduce + 4:285 reduce + 24:284 reduce + 21:284,target 21 + 1:286,target 1 + 4:286 reduce + 27:287,target 27 + 24:285 reduce + 4:287 reduce + 7:289,target 7 + 7:290,target 7 + 24:286 reduce + 4:288 reduce + 24:287 reduce + 11:288,target 11 + 0:282,target 26 + 4:289 reduce + 4:290 reduce + 24:288 reduce + 6:285,target 6 + 24:290 reduce + 24:289 reduce + 10:284,target 10 + 16:287,target 16 + 13:0 reduce + 9:0,target 9 + 0:261,target 5 + 2:0,target 2 + 34:0 reduce + 22:286,target 22 + 2:288,target 2 + 33:300 goto + 1:284,target 1 + 44:0,target 33 + 27:285,target 27 + 7:287,target 7 + 36:0,target 45 + 34:288,target 43 + 28:0,target 43 + 11:286,target 11 + 0:279,target 23 + 0:280,target 24 + 33:295 shift + 21:0,target 21 + 17:290,target 17 + 17:289,target 17 + 13:0,target 13 + 8:0 reduce + 16:285,target 16 + 12:284 reduce + 10:0 reduce + 23:288,target 23 + 12:285 reduce + 0:258,target 2 + 12:286 reduce + 31:0 reduce + 12:287 reduce + 22:284,target 22 + 12:288 reduce + 2:286,target 2 + 12:290 reduce + 12:289 reduce + 8:290,target 8 + 8:289,target 8 + 1:284 reduce + 12:288,target 12 + 1:285 reduce + 21:284 reduce + 1:286 reduce + 7:285,target 7 + 34:286,target 41 + 21:285 reduce + 1:287 reduce + 21:286 reduce + 11:284,target 11 + 0:277,target 21 + 1:288 reduce + 21:287 reduce + 17:287,target 17 + 1:289 reduce + 1:290 reduce + 21:288 reduce 5:0 reduce - 2:260,target 7 - 0:262,target 6 } array set cubesend::rules { - 2,l 262 - 6,l 262 - 3,l 262 - 7,l 263 - 0,l 264 - 4,l 262 - 8,l 263 - 1,l 262 - 5,l 262 + 9,l 297 + 11,l 297 + 32,l 298 + 6,l 297 + 28,l 298 + 3,l 297 + 25,l 297 + 0,l 301 + 22,l 297 + 43,l 299 + 18,l 297 + 40,l 299 + 39,l 299 + 15,l 297 + 36,l 299 + 12,l 297 + 33,l 298 + 7,l 297 + 29,l 298 + 30,l 298 + 4,l 297 + 26,l 297 + 1,l 297 + 23,l 297 + 44,l 300 + 19,l 297 + 20,l 297 + 41,l 299 + 16,l 297 + 37,l 299 + 13,l 297 + 34,l 298 + 8,l 297 + 10,l 297 + 31,l 298 + 5,l 297 + 27,l 297 + 2,l 297 + 24,l 297 + 45,l 300 + 21,l 297 + 42,l 299 + 17,l 297 + 38,l 299 + 14,l 297 + 35,l 299 } array set cubesend::rules { - 5,dc 2 - 0,dc 1 - 8,dc 1 + 12,dc 1 + 26,dc 1 3,dc 1 - 6,dc 1 - 1,dc 0 - 4,dc 2 - 7,dc 0 + 41,dc 2 + 18,dc 1 + 33,dc 1 + 9,dc 1 + 11,dc 1 + 25,dc 1 2,dc 1 + 40,dc 1 + 39,dc 1 + 17,dc 1 + 32,dc 1 + 8,dc 1 + 10,dc 1 + 24,dc 1 + 1,dc 1 + 38,dc 2 + 16,dc 1 + 31,dc 1 + 7,dc 1 + 45,dc 1 + 23,dc 1 + 0,dc 1 + 37,dc 1 + 15,dc 1 + 29,dc 1 + 30,dc 1 + 6,dc 1 + 44,dc 0 + 22,dc 1 + 36,dc 1 + 14,dc 1 + 28,dc 1 + 5,dc 1 + 43,dc 1 + 21,dc 1 + 35,dc 0 + 13,dc 1 + 27,dc 1 + 4,dc 1 + 42,dc 2 + 19,dc 1 + 20,dc 1 + 34,dc 1 } array set cubesend::rules { - 7,line 26 - 4,line 20 - 1,line 17 - 6,line 23 - 3,line 19 - 8,line 27 - 5,line 22 - 2,line 18 + 41,line 134 + 7,line 97 + 37,line 130 + 4,line 94 + 34,line 125 + 1,line 91 + 31,line 122 + 27,line 117 + 24,line 114 + 21,line 111 + 17,line 107 + 14,line 104 + 11,line 101 + 43,line 137 + 9,line 99 + 40,line 133 + 39,line 132 + 6,line 96 + 36,line 129 + 3,line 93 + 33,line 124 + 29,line 120 + 30,line 121 + 26,line 116 + 23,line 113 + 19,line 109 + 20,line 110 + 16,line 106 + 13,line 103 + 10,line 100 + 45,line 141 + 42,line 136 + 8,line 98 + 38,line 131 + 5,line 95 + 35,line 128 + 2,line 92 + 32,line 123 + 28,line 119 + 25,line 115 + 22,line 112 + 18,line 108 + 15,line 105 + 12,line 102 + 44,line 140 } array set cubesend::lr1_table { - 0 {{0 0 0} {1 0 0} {2 0 0} {3 0 0} {4 0 0} {5 0 0} {6 0 0}} - 1 {{6 0 1}} - 2 {{4 0 1} {7 0 0} {8 0 0}} - 3 {{3 0 1}} - 4 {{2 0 1}} - 0,trans {{257 1} {258 2} {259 3} {260 4} {261 5} {262 6}} - 5 {{5 0 1} {7 0 0} {8 0 0}} + 35 {{0 0 1}} + 36 {{45 0 1}} + 14,trans {} + 33,trans {{295 36} {300 38}} + 37 {{41 0 2}} + 38 {{42 0 2}} + 40 {{29 0 1}} + 39 {{28 0 1}} + 41 {{30 0 1}} + 18,trans {} 1,trans {} - 6 {{0 0 1}} - 2,trans {{260 7} {263 8}} - 3,trans {} - 7 {{8 0 1}} + 37,trans {} + 42 {{31 0 1}} + 43 {{32 0 1}} + 44 {{33 0 1}} + 45 {{34 0 1}} + 23,trans {} + 5,trans {} + 42,trans {} + 46 {{38 0 2}} + 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} {291 28} {292 29} {293 30} {294 31} {295 32} {296 33} {297 34} {299 35}} + 36,trans {} + 22,trans {} 4,trans {} - 8 {{4 0 2}} - 5,trans {{260 7} {263 9}} - 9 {{5 0 2}} - 6,trans {} - 7,trans {} + 41,trans {} + 26,trans {} 8,trans {} - 9,trans {} + 45,trans {} + 12,trans {} + 31,trans {} + 16,trans {} + 35,trans {} + 21,trans {} + 3,trans {} + 40,trans {} + 39,trans {} + 10 {{10 {0 284 285 286 287 288 289 290} 1}} + 11 {{11 {0 284 285 286 287 288 289 290} 1}} + 25,trans {} + 12 {{12 {0 284 285 286 287 288 289 290} 1}} + 7,trans {} + 44,trans {} + 13 {{13 {0 284 285 286 287 288 289 290} 1}} + 14 {{14 {0 284 285 286 287 288 289 290} 1}} + 15 {{15 {0 284 285 286 287 288 289 290} 1}} + 11,trans {} + 30,trans {} + 29,trans {{295 36} {300 37}} + 16 {{16 {0 284 285 286 287 288 289 290} 1}} + 0 {{0 0 0} {35 0 0} {36 0 0} {37 0 0} {38 0 0} {39 0 0} {40 0 0} {41 0 0} {42 0 0} {43 0 0} {1 {0 284 285 286 287 288 289 290} 0} {2 {0 284 285 286 287 288 289 290} 0} {3 {0 284 285 286 287 288 289 290} 0} {4 {0 284 285 286 287 288 289 290} 0} {5 {0 284 285 286 287 288 289 290} 0} {6 {0 284 285 286 287 288 289 290} 0} {7 {0 284 285 286 287 288 289 290} 0} {8 {0 284 285 286 287 288 289 290} 0} {9 {0 284 285 286 287 288 289 290} 0} {10 {0 284 285 286 287 288 289 290} 0} {11 {0 284 285 286 287 288 289 290} 0} {12 {0 284 285 286 287 288 289 290} 0} {13 {0 284 285 286 287 288 289 290} 0} {14 {0 284 285 286 287 288 289 290} 0} {15 {0 284 285 286 287 288 289 290} 0} {16 {0 284 285 286 287 288 289 290} 0} {17 {0 284 285 286 287 288 289 290} 0} {18 {0 284 285 286 287 288 289 290} 0} {19 {0 284 285 286 287 288 289 290} 0} {20 {0 284 285 286 287 288 289 290} 0} {21 {0 284 285 286 287 288 289 290} 0} {22 {0 284 285 286 287 288 289 290} 0} {23 {0 284 285 286 287 288 289 290} 0} {24 {0 284 285 286 287 288 289 290} 0} {25 {0 284 285 286 287 288 289 290} 0} {26 {0 284 285 286 287 288 289 290} 0} {27 {0 284 285 286 287 288 289 290} 0}} + 17 {{17 {0 284 285 286 287 288 289 290} 1}} + 1 {{1 {0 284 285 286 287 288 289 290} 1}} + 18 {{18 {0 284 285 286 287 288 289 290} 1}} + 15,trans {} + 2 {{2 {0 284 285 286 287 288 289 290} 1}} + 19 {{19 {0 284 285 286 287 288 289 290} 1}} + 20 {{20 {0 284 285 286 287 288 289 290} 1}} + 34,trans {{284 39} {285 40} {286 41} {287 42} {288 43} {289 44} {290 45} {298 46}} + 3 {{3 {0 284 285 286 287 288 289 290} 1}} + 21 {{21 {0 284 285 286 287 288 289 290} 1}} + 4 {{4 {0 284 285 286 287 288 289 290} 1}} + 22 {{22 {0 284 285 286 287 288 289 290} 1}} + 5 {{5 {0 284 285 286 287 288 289 290} 1}} + 23 {{23 {0 284 285 286 287 288 289 290} 1}} + 20,trans {} + 19,trans {} + 6 {{6 {0 284 285 286 287 288 289 290} 1}} + 24 {{24 {0 284 285 286 287 288 289 290} 1}} + 2,trans {} + 38,trans {} + 7 {{7 {0 284 285 286 287 288 289 290} 1}} + 25 {{25 {0 284 285 286 287 288 289 290} 1}} + 8 {{8 {0 284 285 286 287 288 289 290} 1}} + 26 {{26 {0 284 285 286 287 288 289 290} 1}} + 9 {{9 {0 284 285 286 287 288 289 290} 1}} + 27 {{27 {0 284 285 286 287 288 289 290} 1}} + 24,trans {} + 28 {{43 0 1}} + 6,trans {} + 43,trans {} + 29 {{41 0 1} {44 0 0} {45 0 0}} + 30 {{40 0 1}} + 31 {{36 0 1}} + 32 {{39 0 1}} + 10,trans {} + 28,trans {} + 33 {{42 0 1} {44 0 0} {45 0 0}} + 34 {{37 0 1} {38 0 1} {28 0 0} {29 0 0} {30 0 0} {31 0 0} {32 0 0} {33 0 0} {34 0 0}} } array set cubesend::token_id_table { - 264,line 28 - 262,title {} - 0,t 0 - 0 {$} - 263,title {} - 264,title {} - error,t 0 - error error - 258,line 9 - 261,line 12 - error,line 15 - 257 AXIS_ + 286,t 0 + 286 FK5_ + 280,title WCSW + 279,title WCSV + 264,line 14 + 298,title {} + 292,line 46 + 287 J2000_ + 270,t 0 + 269,t 0 + 288 ICRS_ + 300 order + 290 ECLIPTIC_ + 289 GALACTIC_ + 276,line 26 + 265,title WCSH + 301,t 1 + 301 start' + 291,t 0 + 291 AXIS_ + 284,title FK4 + 292 AXES_ + 274,t 0 + 261,line 11 + 293 INTERVAL_ + 288,line 39 257,t 0 - 263,line 25 - 258 AXES_ + 294 IMAGE_ + 270,title WCSM + 269,title WCSL + 295,t 0 + 295 LOCK_ + 288,title ICRS + 273,line 23 + 296 ORDER_ + 278,t 0 + 297 wcssys + 257,line 7 + 262,t 0 + 298 skyframe + 285,line 36 + 274,title WCSQ + 299,t 1 + 299 cubesend + 293,title INTERVAL + 283,t 0 + 270,line 20 + 269,line 19 + 297,line 90 + 259,title WCSB + 260,title WCSC + 266,t 0 + 278,title WCSU + 297,title {} + 282,line 32 + 287,t 0 + error error + 271,t 0 + 264,title WCSG + 266,line 16 + 294,line 48 + 283,title WCSZ + 292,t 0 + 278,line 28 + error,line 89 + 275,t 0 + 268,title WCSK + 287,title J2000 258,t 0 + 263,line 13 + 301,line 142 error,title {} - 260,t 0 - 260 LOCK_ - 259 INTERVAL_ + 291,line 45 + 296,t 0 + 280,t 0 + 279,t 0 + 275,line 25 + 273,title WCSP + 292,title AXES + 263,t 0 + 259,line 9 + 260,line 10 + 287,line 38 + 258,title WCSA + 284,t 0 + 277,title WCST + 296,title ORDER + 272,line 22 + 267,t 0 + 299,line 127 + 263,title WCSF + 288,t 0 + 284,line 35 + 282,title WCSY + 272,t 0 + 268,line 18 + 296,line 50 + 267,title WCSJ + 293,t 0 + 286,title FK5 + 257 WCS_ + 281,line 31 + 276,t 0 + 258 WCSA_ 259,t 0 + 259 WCSB_ + 260 WCSC_ + 260,t 0 + 272,title WCSO + 261 WCSD_ + 265,line 15 + 301,title {} + 297,t 1 + 293,line 47 + 291,title AXIS + 262 WCSE_ + 281,t 0 + 263 WCSF_ + 277,line 27 + 257,title WCS + 264 WCSG_ + 264,t 0 + 276,title WCSS + 265 WCSH_ + 295,title LOCK + 262,line 12 + 266 WCSI_ + 300,line 139 + 290,line 41 + 289,line 40 + 285,t 0 + 267 WCSJ_ + 0,t 0 + 0 {$} + 262,title WCSE + 268 WCSK_ + 268,t 0 + 281,title WCSX + 274,line 24 + 270 WCSM_ + 269 WCSL_ + 299,title {} + error,t 0 + 271 WCSN_ + 300,t 1 + 290,t 0 + 289,t 0 + 272 WCSO_ + 258,line 8 + 286,line 37 + 273,t 0 + 273 WCSP_ + 266,title WCSI + 285,title B1950 + 274 WCSQ_ + 275 WCSR_ + 271,line 21 + 298,line 118 + 294,t 0 + 276 WCSS_ + 277,t 0 + 277 WCST_ + 271,title WCSN + 300,title {} + 290,title ECLIPTIC + 289,title GALACTIC + 283,line 33 + 278 WCSU_ 261,t 0 - 261 ORDER_ - 262,t 1 - 262 cubesend - 257,line 8 - 263,t 1 - 263 order - 264,t 1 - 264 start' - 260,line 11 - 257,title AXIS - 259,line 10 - 258,title AXES - 262,line 16 - 260,title LOCK - 259,title INTERVAL - 261,title ORDER + 280 WCSW_ + 279 WCSV_ + 298,t 1 + 281 WCSX_ + 267,line 17 + 295,line 49 + 282,t 0 + 282 WCSY_ + 275,title WCSR + 294,title IMAGE + 283 WCSZ_ + 265,t 0 + 284 FK4_ + 280,line 30 + 279,line 29 + 285 B1950_ + 261,title WCSD } proc cubesend::yyparse {} { @@ -296,12 +1155,49 @@ proc cubesend::yyparse {} { set _ $1 set yylval [lindex $value_stack end] switch -- $rule { - 1 { ProcessSendCmdCurrent "get fits slice" } - 2 { ProcessSendCmdGet cube lock } - 3 { BlinkSendCmdInterval } - 6 { ProcessSendCmdTxt "2" } - 7 { ProcessSendCmdGet cube axes } - 8 { ProcessSendCmdYesNo cube lock,axes } + 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 { ProcessSendCmdCurrent "get fits slice" } + 36 { ProcessSendCmdCurrent "get fits slice" } + 37 { ProcessSendCmdCurrent "get fits slice from image $1 FK5" } + 38 { ProcessSendCmdCurrent "get fits slice from image $1 $2" } + 39 { ProcessSendCmdGet cube lock } + 40 { BlinkSendCmdInterval } + 43 { ProcessSendCmdTxt "2" } + 44 { ProcessSendCmdGet cube axes } + 45 { ProcessSendCmdYesNo cube lock,axes } } unsetupvalues $dc # pop off tokens from the stack if normal rule -- cgit v0.12