From 119471842b7169d7d21aae6f3252362accafe52d Mon Sep 17 00:00:00 2001 From: William Joye Date: Wed, 20 Jun 2018 14:28:04 -0400 Subject: update ds9 parsers --- ds9/doc/ref/command.html | 53 ++++++++++++++++++++- ds9/doc/ref/samp.html | 93 +++++++++++++++++++++++++++++++++++-- ds9/doc/ref/xpa.html | 83 ++++++++++++++++++++++++++++++++- ds9/library/analysis.tcl | 50 +------------------- ds9/library/cat.tcl | 8 ++++ ds9/library/marker.tcl | 3 +- ds9/library/util.tcl | 21 ++------- ds9/parsers/catsendparser.tac | 2 +- ds9/parsers/magnifiersendparser.tac | 4 +- 9 files changed, 240 insertions(+), 77 deletions(-) diff --git a/ds9/doc/ref/command.html b/ds9/doc/ref/command.html index 2d5beea..d22e6a3 100644 --- a/ds9/doc/ref/command.html +++ b/ds9/doc/ref/command.html @@ -528,6 +528,7 @@ + [crosshair]
        [<ref>] [dec <col>]
@@ -648,6 +649,7 @@ + [match error <value> degrees|arcmin|arcsec]
        [<ref>] @@ -750,6 +752,7 @@ + [match function 1and2|1not2|2not1]
        [<ref>] @@ -852,6 +855,7 @@ + [match return 1and2|1only|2only]
        [<ref>] @@ -954,6 +958,7 @@ + [match unique yes|no]
        [<ref>] [maxrows <number>]
@@ -1011,6 +1016,7 @@ + [symbol shape circle @@ -1019,6 +1025,7 @@ + point|box point|diamond point|cross @@ -1027,6 +1034,7 @@ + point|x point|arrow point|boxcircle point]
         [<ref>] [symbol add| [#] remove]
@@ -1135,6 +1143,7 @@ + [update]
        [<ref>] [x <col>]
@@ -1270,6 +1279,7 @@ + [match]
          [lock [yes|no]]
@@ -1540,6 +1550,7 @@ + [match <coordsys>]
           [lock <coordsys>|none]
@@ -1709,6 +1720,7 @@ + -envi foo.hdr foo.bsq

exit
@@ -2461,6 +2473,7 @@ + [pan]
            @@ -2606,6 +2619,7 @@ + [crosshair]
            @@ -2751,6 +2765,7 @@ + [open|close]
 
Example:
@@ -3000,6 +3015,7 @@ + [yes|open]
            [no|close]
@@ -3108,6 +3124,7 @@ + duplicate [#]]
   @@ -3116,6 +3133,7 @@ +    [[<plotname>] stats yes|no]
      [[<plotname>] @@ -3193,6 +3211,7 @@ + list yes|no]
      [[<plotname>] @@ -3269,6 +3288,7 @@ + loadconfig <filename>]
      [[<plotname>] saveconfig <filename>]
@@ -3377,6 +3397,7 @@ + legend yes|no]
      [[<plotname>] legend position right|left|top|bottom]
@@ -3464,6 +3485,7 @@ + barmode normal|stacked|aligned|overlap]

# configure current dataset
@@ -3543,6 +3565,7 @@ + shape circle|square|diamond|plus|splus|scross|triangle|arrow]
      [[<plotname>] @@ -3620,6 +3643,7 @@ + shape fill yes|no]
      [[<plotname>] shape @@ -3631,6 +3655,7 @@ + [[<plotname>] @@ -3706,6 +3731,7 @@ + smooth step|linear|cubic|quadratic|catrom]
      @@ -3715,6 +3741,7 @@ + [[<plotname>] @@ -3790,6 +3817,7 @@ + color <value>]
      @@ -3799,6 +3827,7 @@ + [[<plotname>] @@ -3874,6 +3903,7 @@ + width <value>]
      @@ -3951,6 +3981,7 @@ + [[<plotname>] @@ -4026,6 +4057,7 @@ + dash yes|no]
      @@ -4103,6 +4135,7 @@ + [[<plotname>] @@ -4178,6 +4211,7 @@ + error yes|no]
      @@ -4255,6 +4289,7 @@ + [[<plotname>] @@ -4330,6 +4365,7 @@ + error color <value>]
      @@ -4408,6 +4444,7 @@ + [[<plotname>] @@ -4483,6 +4520,7 @@ + color <value>]
      @@ -4561,6 +4599,7 @@ + [[<plotname>] @@ -4636,6 +4675,7 @@ + error width <value>]
      @@ -4714,6 +4754,7 @@ + [[<plotname>] @@ -4789,6 +4830,7 @@ + name <string>]

@@ -4845,6 +4887,7 @@ + -plot title 'This is a Title'
$ds9 -plot title x 'X Axis'
$ds9 -plot title y 'Y Axis'
@@ -4918,6 +4961,7 @@ + <dms> <arcmin> <arcsec>

@@ -4964,7 +5008,7 @@ Example:
$ds9 -print
$ds9 -print destination file
- $ds9 -print command 'gv -'
+ $ds9 -print command lp
$ds9 -print filename foo.ps
$ds9 -print color cmyk
$ds9 -print level 2
@@ -5323,6 +5367,7 @@ + <filename> [image|table|slice]
 
Example:
@@ -5573,6 +5618,7 @@ + [sigma <value>]
        @@ -5590,6 +5636,7 @@ + [sigmaminor <value>]
        @@ -5607,6 +5654,7 @@ + [angle <value>]
        @@ -5624,6 +5672,7 @@ + [match]
        [lock [yes|no]]
        @@ -5651,6 +5700,7 @@ + -smooth sigmaminor 2.0
$ds9 @@ -5668,6 +5718,7 @@ + -smooth angle 45
$ds9 -smooth match
diff --git a/ds9/doc/ref/samp.html b/ds9/doc/ref/samp.html index 924bb56..e85b6e1 100644 --- a/ds9/doc/ref/samp.html +++ b/ds9/doc/ref/samp.html @@ -584,6 +584,7 @@ + [crosshair]
        [<ref>] [dec <col>]
@@ -704,6 +705,7 @@ + [match error <value> degrees|arcmin|arcsec]
        [<ref>] @@ -806,6 +808,7 @@ + [match function 1and2|1not2|2not1]
        [<ref>] @@ -908,6 +911,7 @@ + [match return 1and2|1only|2only]
        [<ref>] @@ -1010,6 +1014,7 @@ + [match unique yes|no]
        [<ref>] [maxrows <number>]
@@ -1068,6 +1073,7 @@ + [symbol shape circle @@ -1078,6 +1084,7 @@ + point|box point|diamond point|cross @@ -1088,6 +1095,7 @@ + point|x point|arrow point|boxcircle point]
        [<ref>] [symbol add| [#] remove]
@@ -1196,6 +1204,7 @@ + [update]
        [<ref>] [x <col>]
@@ -1461,7 +1470,7 @@ contour mode zscale
contour scope local
contour limits 1 100
- contour levels "{1 10 100 1000}"
+ contour levels {1 10 100 1000}
contour open
contour close
@@ -1782,8 +1791,8 @@ fits header # primary
fits header 2 # hdu 2
fits header -2 # hdu 2 with inherit
- fits header keyword "'BITPIX'"
- fits header 1 keyword "'BITPIX'"
+ fits header keyword BITPIX
+ fits header 1 keyword BITPIX
fits image
fits table
fits slice
@@ -2248,6 +2257,7 @@ + Macros for more information.

Syntax:
iexam []
@@ -2375,6 +2385,7 @@ + quality (1-100)

Syntax:
jpeg [new|slice] [<filename>] [1-100]
@@ -2826,6 +2837,7 @@ + [new name <plotname> line|bar|scatter]

# load data into existing plot from @@ -2915,6 +2927,7 @@ + duplicate [#]]
     @@ -2994,6 +3007,7 @@ + [[<plotname>] stats yes|no]
     [[<plotname>] @@ -3072,6 +3086,7 @@ + list yes|no]
     [[<plotname>] @@ -3150,6 +3165,7 @@ + loadconfig <filename>]
     [[<plotname>] saveconfig <filename>]
@@ -3230,6 +3246,7 @@ + [[<plotname>] pagesetup orient portrait|landscape]
     [[<plotname>] pagesetup size letter|legal|tabloid|poster|a4]
@@ -3310,6 +3327,7 @@ + [[<plotname>] print]
     [[<plotname>] print destination printer|file]
@@ -3412,6 +3430,7 @@ + legend yes|no]
     [[<plotname>] legend position right|left|top|bottom]
@@ -3501,6 +3520,7 @@ + barmode normal|stacked|aligned|overlap]

 # configure current dataset
@@ -3582,6 +3602,7 @@ + shape circle|square|diamond|plus|splus|scross|triangle|arrow]
     [[<plotname>] @@ -3661,6 +3682,7 @@ + shape fill yes|no]
     [[<plotname>] @@ -3743,6 +3765,7 @@ + [[<plotname>] @@ -3820,6 +3843,7 @@ + smooth step|linear|cubic|quadratic|catrom]
     @@ -3900,6 +3924,7 @@ + [[<plotname>] @@ -3977,6 +4002,7 @@ + color <value>]
     @@ -4057,6 +4083,7 @@ + [[<plotname>] @@ -4134,6 +4161,7 @@ + width <value>]
     @@ -4214,6 +4242,7 @@ + [[<plotname>] @@ -4291,6 +4320,7 @@ + dash yes|no]
     @@ -4370,6 +4400,7 @@ + [[<plotname>] @@ -4447,6 +4478,7 @@ + error yes|no]
     @@ -4526,6 +4558,7 @@ + [[<plotname>] @@ -4603,6 +4636,7 @@ + error color <value>]
     @@ -4683,6 +4717,7 @@ + [[<plotname>] @@ -4760,6 +4795,7 @@ + color <value>]
     @@ -4840,6 +4876,7 @@ + [[<plotname>] @@ -4917,6 +4954,7 @@ + error width <value>]
     @@ -4997,6 +5035,7 @@ + [[<plotname>] @@ -5074,6 +5113,7 @@ + name <string>]

@@ -5171,6 +5211,7 @@ + value = ds9.get(string cmd)
plot stats
@@ -5276,6 +5317,7 @@ + axis x auto
plot @@ -5349,6 +5391,7 @@ + axis x min
plot @@ -5422,6 +5465,7 @@ + axis x max
plot @@ -5495,6 +5539,7 @@ + axis x format
plot @@ -5568,6 +5613,7 @@ + legend
plot legend position
@@ -5649,6 +5695,7 @@ + font numbers size
plot @@ -5726,6 +5773,7 @@ + font numbers weight
plot @@ -5803,6 +5851,7 @@ + font numbers slant
plot @@ -5880,6 +5929,7 @@ + title
plot @@ -5957,6 +6007,7 @@ + title x
plot barmode
 @@ -5984,6 +6035,7 @@ + cmd)
plot legend yes
plot legend position left
@@ -5997,6 +6049,7 @@ + value = ds9.get(string cmd)
plot font numbers font
@@ -6009,6 +6062,7 @@ + font numbers size
plot @@ -6019,6 +6073,7 @@ + font numbers weight
plot @@ -6029,6 +6084,7 @@ + font numbers slant
ds9.set(string @@ -6039,6 +6095,7 @@ + cmd)
plot font numbers font times
plot font numbers size 12
@@ -6054,6 +6111,7 @@ + value = ds9.get(string cmd)
plot @@ -6065,6 +6123,7 @@ + title
plot @@ -6075,6 +6134,7 @@ + title xaxis
plot @@ -6085,6 +6145,7 @@ + title yaxis
ds9.set(string @@ -6095,6 +6156,7 @@ + cmd)
plot title "This is a Title"
plot title x "X Axis"
@@ -6110,6 +6172,7 @@ + value = ds9.get(string cmd)
@@ -6122,6 +6185,7 @@ + barmode
 ds9.set(string @@ -6133,6 +6197,7 @@ + cmd)
plot barmode aligned

@@ -6223,6 +6288,7 @@ + dash
plot @@ -6300,6 +6366,7 @@ + error
plot @@ -6377,6 +6444,7 @@ + error color
plot @@ -6454,6 +6522,7 @@ + error width
plot @@ -6531,6 +6600,7 @@ + name
ds9.set(string @@ -6608,6 +6678,7 @@ + cmd)
plot show yes
plot shape circle
@@ -6660,6 +6731,7 @@ + <dms> <arcmin> <arcsec>

@@ -6722,7 +6794,7 @@ ds9.set(string cmd)
print
print destination file
- print command '{gv -}'
+ print command lp
print filename foo.ps
print color cmyk
print level 2
@@ -7283,6 +7355,7 @@ + [crosshair]
        [<ref>] [export sb|tsv <filename>]
@@ -7402,6 +7475,7 @@ + [update]
 
Example:
@@ -7527,6 +7601,7 @@ + [sigma <value>]
       @@ -7545,6 +7620,7 @@ + [sigmaminor <value>]
       @@ -7564,6 +7640,7 @@ + [angle <value>]
       @@ -7583,6 +7660,7 @@ + [match]
       [lock [yes|no]]
       [open|close]
@@ -7621,6 +7699,7 @@ + sigma 2.0
smooth @@ -7640,6 +7719,7 @@ + sigmaminor 2.0
smooth @@ -7659,6 +7739,7 @@ + angle 45
smooth @@ -7678,6 +7759,7 @@ + open
smooth close
smooth match
@@ -7701,7 +7783,7 @@  
Example:
ds9.set(string cmd)
- tcl puts "Hello, World"
+ tcl {puts {Hello, World}}

threads

Set number of process threads for functions which are @@ -7806,6 +7888,7 @@ + compression method.

Syntax:
tiff [new|slice] [<filename>] [none|jpeg|packbits|deflate]
diff --git a/ds9/doc/ref/xpa.html b/ds9/doc/ref/xpa.html index 444592f..3a2fc75 100644 --- a/ds9/doc/ref/xpa.html +++ b/ds9/doc/ref/xpa.html @@ -221,6 +221,7 @@ + -p ds9 3d match
$xpaset -p ds9 3d lock yes
@@ -241,6 +242,7 @@ + -p ds9 3d open
$xpaset -p ds9 3d close
 @@ -581,6 +583,7 @@ + [crosshair]
        [<ref>] [dec <col>]
@@ -706,6 +709,7 @@ + [match error <value> degrees|arcmin|arcsec]
        [<ref>] @@ -813,6 +817,7 @@ + [match function 1and2|1not2|2not1]
        [<ref>] @@ -920,6 +925,7 @@ + [match return 1and2|1only|2only]
        [<ref>] @@ -1027,6 +1033,7 @@ + [match unique yes|no]
        [<ref>] [maxrows <number>]
@@ -1084,6 +1091,7 @@ + [symbol shape circle point|box point|diamond point|cross point|x point|arrow point|boxcircle point]
@@ -1199,6 +1207,7 @@ + [update]
        [<ref>] [x <col>]
@@ -1795,6 +1804,7 @@ + -p ds9 export envi foo.hdr foo.bsq little
$xpaset -p ds9 export tiff foo.tiff jpeg
@@ -2336,6 +2346,7 @@ + quality (1-100)

Syntax:
jpeg [new|slice] [<filename>] [1-100]
@@ -2762,6 +2773,7 @@ + [new name <plotname> line|bar|scatter]

# create new plot with data from stdin
@@ -2775,6 +2787,7 @@ + [new <title> <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]
@@ -2793,6 +2806,7 @@ + [new name @@ -2803,6 +2817,7 @@ + <plotname> <title> @@ -2813,6 +2828,7 @@ + <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]
     [new name @@ -2824,6 +2840,7 @@ + <plotname> line|bar|scatter @@ -2834,6 +2851,7 @@ + <title> <xaxis label> <yaxis label> xy|xyex|xyey|xyexey]

@@ -2851,6 +2869,7 @@ + [line|bar|scatter] @@ -2861,6 +2880,7 @@ + stdin]
     @@ -2873,6 +2893,7 @@ + [new name <plotname> stdin]
     @@ -2886,6 +2907,7 @@ + stdin]

# load data into existing plot from @@ -2976,6 +2998,7 @@ + duplicate [#]]
     @@ -3056,6 +3079,7 @@ + [[<plotname>] stats yes|no]
     [[<plotname>] @@ -3135,6 +3159,7 @@ + list yes|no]
     [[<plotname>] @@ -3214,6 +3239,7 @@ + loadconfig <filename>]
     [[<plotname>] saveconfig <filename>]
@@ -3295,6 +3321,7 @@ + [[<plotname>] pagesetup orient portrait|landscape]
     [[<plotname>] pagesetup size letter|legal|tabloid|poster|a4]
@@ -3376,6 +3403,7 @@ + [[<plotname>] print]
     [[<plotname>] print destination printer|file]
@@ -3479,6 +3507,7 @@ + legend yes|no]
     [[<plotname>] legend position right|left|top|bottom]
@@ -3569,6 +3598,7 @@ + barmode normal|stacked|aligned|overlap]

 # configure current dataset
@@ -3651,6 +3681,7 @@ + shape circle|square|diamond|plus|splus|scross|triangle|arrow]
     [[<plotname>] @@ -3731,6 +3762,7 @@ + shape fill yes|no]
     [[<plotname>] @@ -3814,6 +3846,7 @@ + [[<plotname>] @@ -3892,6 +3925,7 @@ + smooth step|linear|cubic|quadratic|catrom]
     @@ -3973,6 +4007,7 @@ + [[<plotname>] @@ -4051,6 +4086,7 @@ + color <value>]
     @@ -4132,6 +4168,7 @@ + [[<plotname>] @@ -4210,6 +4247,7 @@ + width <value>]
     @@ -4291,6 +4329,7 @@ + [[<plotname>] @@ -4369,6 +4408,7 @@ + dash yes|no]
     @@ -4449,6 +4489,7 @@ + [[<plotname>] @@ -4527,6 +4568,7 @@ + error yes|no]
     @@ -4607,6 +4649,7 @@ + [[<plotname>] @@ -4685,6 +4728,7 @@ + error color <value>]
     @@ -4766,6 +4810,7 @@ + [[<plotname>] @@ -4844,6 +4889,7 @@ + color <value>]
     @@ -4925,6 +4971,7 @@ + [[<plotname>] @@ -5003,6 +5050,7 @@ + error width <value>]
     @@ -5084,6 +5132,7 @@ + [[<plotname>] @@ -5162,6 +5211,7 @@ + name <string>]

@@ -5210,6 +5260,7 @@ + data into existing plot from stdin
$cat xy.dat | xpaset ds9 plot data xy
$cat xy.dat | xpaset ds9 plot foo data xy
@@ -5322,6 +5373,7 @@ + ds9 plot axis x min
$xpaget @@ -5401,6 +5453,7 @@ + ds9 plot axis x max
$xpaget ds9 plot axis x format
$xpaset @@ -5413,6 +5466,7 @@ + -p ds9 plot axis x grid yes
$xpaset -p ds9 plot axis x log yes
$xpaset -p ds9 plot axis x flip yes
@@ -5507,6 +5561,7 @@ + ds9 plot font numbers size
$xpaget @@ -5586,6 +5641,7 @@ + ds9 plot font numbers weight
$xpaget @@ -5665,6 +5721,7 @@ + ds9 plot font numbers slant
$xpaset @@ -5676,6 +5733,7 @@ + -p ds9 plot font numbers font times
$xpaset -p ds9 plot font numbers size 12
$xpaset -p ds9 plot font numbers weight bold
@@ -5760,6 +5818,7 @@ + ds9 plot title xaxis
$xpaget @@ -5839,6 +5898,7 @@ + ds9 plot title yaxis
$xpaset @@ -5850,6 +5910,7 @@ + -p ds9 plot title {This is a Title}
$xpaset -p ds9 plot title x {X Axis}
$xpaset -p ds9 plot title y {Y Axis}
@@ -5948,6 +6009,7 @@ + ds9 plot dash
$xpaget @@ -6027,6 +6089,7 @@ + ds9 plot error
$xpaget @@ -6106,6 +6169,7 @@ + ds9 plot error color
$xpaget @@ -6186,6 +6250,7 @@ + ds9 plot error width
$xpaget @@ -6266,6 +6331,7 @@ + ds9 plot name
$xpaset @@ -6345,6 +6411,7 @@ + -p ds9 plot show yes
$xpaset -p ds9 plot shape circle
$xpaset -p ds9 plot shape fill no
@@ -6395,6 +6462,7 @@ + <dms> <arcmin> <arcsec>

@@ -6448,7 +6516,7 @@ $xpaget ds9 print resolution
$xpaset -p ds9 print
$xpaset -p ds9 print destination file
- $xpaset -p ds9 print command '{gv -}'
+ $xpaset -p ds9 print command lp
$xpaset -p ds9 print filename foo.ps
$xpaset -p ds9 print color cmyk
$xpaset -p ds9 print level 2
@@ -6895,6 +6963,7 @@ + method.

Syntax:
saveimage [fits|eps|gif|tiff|jpeg|png] <filename>
@@ -7131,6 +7200,7 @@ + [sigma <value>]
       @@ -7151,6 +7221,7 @@ + [sigmaminor <value>]
       @@ -7171,6 +7242,7 @@ + [angle <value>]
    @@ -7191,6 +7263,7 @@ +    [match]
       [lock [yes|no]]
       [open|close]
@@ -7219,6 +7292,7 @@ + ds9 smooth sigmaminor
$xpaget ds9 smooth lock
@@ -7247,6 +7321,7 @@ + -p ds9 smooth sigma 2.0
$xpaset @@ -7267,6 +7342,7 @@ + -p ds9 smooth sigmaminor 2.0
$xpaset @@ -7287,6 +7363,7 @@ + -p ds9 smooth angle 45
$xpaset @@ -7307,6 +7384,7 @@ + -p ds9 smooth match
$xpaset -p ds9 smooth lock yes
$xpaset -p ds9 smooth open
@@ -7328,7 +7406,7 @@  
Example:
$echo 'puts "Hello, World"' | xpaset ds9 tcl
- $xpaset -p ds9 tcl 'puts "Hello, World"'
+ $xpaset -p ds9 tcl {puts {Hello, World}}

threads

Set number of process threads for functions which are @@ -7435,6 +7513,7 @@ + compression method.

Syntax:
tiff [new|slice] [<filename>] [none|jpeg|packbits|deflate]
diff --git a/ds9/library/analysis.tcl b/ds9/library/analysis.tcl index 927ee02..2a9ba78 100644 --- a/ds9/library/analysis.tcl +++ b/ds9/library/analysis.tcl @@ -1860,56 +1860,10 @@ proc ProcessSendAnalysisCmd {proc id param sock fn} { analysissend::YY_FLUSH_BUFFER analysissend::yy_scan_string $param analysissend::yyparse - return - - global ianalysis - global ime - - set result {} - switch -- [string tolower [lindex $param 0]] { - entry { - AnalysisEntry [lrange $param 1 end] result - append result "\n" - $proc $id $result - } - mode {$proc $id "$ime(task)\n"} - task { - # invoke by name - for {set ii 0} {$ii<$ianalysis(menu,count)} {incr ii} { - append result "$ii $ianalysis(menu,$ii,item)\n" - } - $proc $id $result - } - lock {$proc $id "$ime(lock)\n"} - default { - for {set i 0} {$i<$ianalysis(menu,count)} {incr i} { - append result "\#$i menu" - append result "\n$ianalysis(menu,$i,item)" - append result "\n$ianalysis(menu,$i,template)" - if {$ianalysis(menu,$i,cmd) != {web}} { - append result "\nmenu" - append result "\n$ianalysis(menu,$i,cmd)" - } else { - append result "\n$ianalysis(menu,$i,cmd)" - append result "\n$ianalysis(menu,$i,var)" - } - append result "\n\n" - } - for {set i 0} {$i<$ianalysis(bind,count)} {incr i} { - set key [string range $ianalysis(bind,$i,item) 1 1] - append result "\#$i bind" - append result "\nbind key $ianalysis(bind,$i,item)" - append result "\n$ianalysis(bind,$i,template)" - append result "\nbind $key" - append result "\n$ianalysis(bind,$i,cmd)" - append result "\n\n" - } - ProcessSend $proc $id $sock $fn {.ans} $result - } - } } proc AnalysisSendCmd {} { + global parse global ianalysis for {set ii 0} {$ii<$ianalysis(menu,count)} {incr ii} { @@ -1935,7 +1889,7 @@ proc AnalysisSendCmd {} { append result "\n\n" } - ProcessSendCmdResult {.ans} $result + ProcessSend $parse(proc) $parse(id) $parse(sock) $parse(fn) {.ans} $result } proc AnalysisSendCmdEntry {txt} { diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl index dac57ec..a875a36 100644 --- a/ds9/library/cat.tcl +++ b/ds9/library/cat.tcl @@ -1518,6 +1518,14 @@ proc ProcessSendCatalogCmd {proc id param sock fn} { catsend::yyparse } +proc CatalogSendCmdHeader {} { + global parse + global cvarname + + ProcessSend $parse(proc) $parse(id) $parse(sock) $parse(fn) \ + {.txt} [CATGetHeader $cvarname] +} + proc CatalogSendCmdRef {ref} { global icat global cvarname diff --git a/ds9/library/marker.tcl b/ds9/library/marker.tcl index a9c8f9e..4c2ebf6 100644 --- a/ds9/library/marker.tcl +++ b/ds9/library/marker.tcl @@ -1581,6 +1581,7 @@ proc ProcessSendRegionsCmd {proc id param sock fn} { } proc RegionSendCmd {} { + global parse global marker global current @@ -1595,5 +1596,5 @@ proc RegionSendCmd {} { set rr [$current(frame) marker list $marker(load,select) $marker(load,format) $marker(load,system) $marker(load,sky) $marker(load,skyformat) $marker(load,strip) $marker(load,props) $marker(load,tags)] - ProcessSendCmdResult $ext $rr + ProcessSend $parse(proc) $parse(id) $parse(sock) $parse(fn) $ext $rr } diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 1bf0be1..9e26186 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -372,25 +372,11 @@ proc ProcessSendCmdSend {ext cmd} { global current if {$current(frame) == {}} { - ProcessSendCmdResult $ext [$current(frame) $cmd] + ProcessSend $parse(proc) $parse(id) $parse(sock) $parse(fn) \ + $ext [$current(frame) $cmd] } } -proc ProcessSendCmdResult {ext rr} { - global parse - - if {$parse(fn) != {}} { - append parse(fn) $ext - set ch [open $parse(fn) w] - puts $ch $rr - close $ch - $parse(proc) $parse(id) {} $parse(fn) - } else { - $parse(proc) $parse(id) $rr - } -} - -# old proc ProcessSend {proc id sock fn ext rr} { if {$fn != {}} { append fn $ext @@ -1507,6 +1493,7 @@ proc ProcessSendDataCmd {proc id param sock fn} { } proc DataSendCmd {sys sky xx yy ww hh strip} { + global parse global current if {$current(frame) == {}} { @@ -1522,7 +1509,7 @@ proc DataSendCmd {sys sky xx yy ww hh strip} { append ss "$ii = $rr($ii)\n" } } - ProcessSendCmdResult {.dat} $ss + ProcessSend $parse(proc) $parse(id) $parse(sock) $parse(fn) {.dat} $ss } proc ProcessIconifyCmd {varname iname} { diff --git a/ds9/parsers/catsendparser.tac b/ds9/parsers/catsendparser.tac index 7a7a831..3ba77f2 100644 --- a/ds9/parsers/catsendparser.tac +++ b/ds9/parsers/catsendparser.tac @@ -14,7 +14,7 @@ catsend : {if {![CatalogCmdCheck]} {catsend::YYABORT}} catsendCmd ; catsendCmd : {ProcessSendCmdGet icat cats} - | HEADER_ {global cvarname; ProcessSendCmdResult {.txt} [CATGetHeader $cvarname]} + | HEADER_ {CatalogSendCmdHeader} ; %% diff --git a/ds9/parsers/magnifiersendparser.tac b/ds9/parsers/magnifiersendparser.tac index 31124a5..3c4393e 100644 --- a/ds9/parsers/magnifiersendparser.tac +++ b/ds9/parsers/magnifiersendparser.tac @@ -12,8 +12,8 @@ magnifiersend : COLOR_ {ProcessSendCmdGet pmagnifier color} | ZOOM_ {ProcessSendCmdGet pmagnifier zoom} - | CURSOR_ {ProcessSendCmdGet pmagnifier cursor} - | REGION_ {ProcessSendCmdGet pmagnifier region} + | CURSOR_ {ProcessSendCmdYesNo pmagnifier cursor} + | REGION_ {ProcessSendCmdYesNo pmagnifier region} # backward compatibility | {ProcessSendCmdYesNo view magnifier} ; -- cgit v0.12