diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
commit | b8395e8e32cccb75565a170160772857087901de (patch) | |
tree | 2494425c02897874ba1a957a51224522c4a2e10a /ds9/library/mosaicimageiraf.tcl | |
parent | 41505b4129a005e96c6afc3344ccf61097884fbd (diff) | |
download | blt-b8395e8e32cccb75565a170160772857087901de.zip blt-b8395e8e32cccb75565a170160772857087901de.tar.gz blt-b8395e8e32cccb75565a170160772857087901de.tar.bz2 |
update parsers
Diffstat (limited to 'ds9/library/mosaicimageiraf.tcl')
-rw-r--r-- | ds9/library/mosaicimageiraf.tcl | 51 |
1 files changed, 7 insertions, 44 deletions
diff --git a/ds9/library/mosaicimageiraf.tcl b/ds9/library/mosaicimageiraf.tcl index f12db74..c6deea7 100644 --- a/ds9/library/mosaicimageiraf.tcl +++ b/ds9/library/mosaicimageiraf.tcl @@ -47,51 +47,14 @@ proc ProcessMosaicImageIRAFCmd {varname iname sock fn} { upvar $varname var upvar $iname i - global debug - if {$debug(tcl,parser)} { - global parse - set parse(sock) $sock - set parse(fn) $fn - - mosaicimageiraf::YY_FLUSH_BUFFER - mosaicimageiraf::yy_scan_string [lrange $var $i end] - mosaicimageiraf::yyparse - incr i [expr $mosaicimageiraf::yycnt-1] - } else { - - set layer {} - switch -- [string tolower [lindex $var $i]] { - new { - incr i - CreateFrame - } - mask { - incr i - set layer mask - } - slice { - incr i - # not supported - } - } - set param [lindex $var $i] + global parse + set parse(sock) $sock + set parse(fn) $fn - if {$sock != {}} { - # xpa - if {![LoadMosaicImageIRAFSocket $sock $param $layer]} { - InitError xpa - LoadMosaicImageIRAFFile $param $layer - } - } else { - # comm - if {$fn != {}} { - LoadMosaicImageIRAFAlloc $fn $param $layer - } else { - LoadMosaicImageIRAFFile $param $layer - } - } - FinishLoad -} + mosaicimageiraf::YY_FLUSH_BUFFER + mosaicimageiraf::yy_scan_string [lrange $var $i end] + mosaicimageiraf::yyparse + incr i [expr $mosaicimageiraf::yycnt-1] } proc MosaicImageIRAFCmdLoad {param layer} { |