diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 18:19:04 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 18:19:04 (GMT) |
commit | f503c9ee3374f07764864b5db1f8dc6eab10f43a (patch) | |
tree | d5163dcca60f4a8e0f3a32fd2f45db429284931d /ds9/library/frame.tcl | |
parent | 671eda8b795f09fa708fb36c5212c9b8c339eb83 (diff) | |
download | blt-f503c9ee3374f07764864b5db1f8dc6eab10f43a.zip blt-f503c9ee3374f07764864b5db1f8dc6eab10f43a.tar.gz blt-f503c9ee3374f07764864b5db1f8dc6eab10f43a.tar.bz2 |
add ds9 frame send parser
Diffstat (limited to 'ds9/library/frame.tcl')
-rw-r--r-- | ds9/library/frame.tcl | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/ds9/library/frame.tcl b/ds9/library/frame.tcl index b1d3719..9b2d5a5 100644 --- a/ds9/library/frame.tcl +++ b/ds9/library/frame.tcl @@ -2070,79 +2070,6 @@ proc ProcessSendFrameCmd {proc id param {sock {}} {fn {}}} { framesend::YY_FLUSH_BUFFER framesend::yy_scan_string $param framesend::yyparse - return - - global ds9 - global current - global rgb - global panzoom - - switch -- [lindex $param 0] { - lock {$proc $id "$panzoom(lock)\n"} - active { - set r {} - foreach f $ds9(active) { - append r "[string range $f 5 end] " - } - $proc $id "$r\n" - } - all { - set r {} - foreach f $ds9(frames) { - append r "[string range $f 5 end] " - } - $proc $id "$r\n" - } - has { - if {$current(frame) == {}} { - Error [msgcat::mc {No current frame}] - return - } - - switch [lindex $param 1] { - amplifier - - datamin - - datasec - - detector - - grid - - iis - - irafmin - - physical - - smooth {$proc $id [ToYesNo [$current(frame) has [lindex $param 1]]]} - contour { - switch [lindex $param 2] { - aux {$proc $id [ToYesNo [$current(frame) has contour aux]]} - default {$proc $id [ToYesNo [$current(frame) has contour]]} - } - } - fits { - switch [lindex $param 2] { - bin - - cube - - mosaic {$proc $id [ToYesNo [$current(frame) has fits [lindex $param 2]]]} - default {$proc $id [ToYesNo [$current(frame) has fits]]} - } - } - marker { - switch [lindex $param 2] { - highlite - - paste - - select - - undo {$proc $id [ToYesNo [$current(frame) has marker [lindex $param 2]]]} - } - } - system {$proc $id [ToYesNo [$current(frame) has system [lindex $param 2]]]} - wcs { - switch [lindex $param 2] { - equatorial - - linear {$proc $id [ToYesNo [$current(frame) has wcs [lindex $param 2] [lindex $param 3]]]} - default {$proc $id [ToYesNo [$current(frame) has wcs [lindex $param 2]]]} - } - } - } - } - default {$proc $id "[string range $current(frame) 5 end]\n"} - } } proc FrameSendCmd {} { |