diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-10 19:57:46 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-10 19:57:46 (GMT) |
commit | 17f9645239b888c3e47dab5dde0edc86068f59eb (patch) | |
tree | 8099c4afee593e7e9806c19d58cc3a0544e79cf6 /ds9/library/multiframe.tcl | |
parent | 5681a3943cf5cde897b43d786cbf588698e79647 (diff) | |
download | blt-17f9645239b888c3e47dab5dde0edc86068f59eb.zip blt-17f9645239b888c3e47dab5dde0edc86068f59eb.tar.gz blt-17f9645239b888c3e47dab5dde0edc86068f59eb.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/multiframe.tcl')
-rw-r--r-- | ds9/library/multiframe.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ds9/library/multiframe.tcl b/ds9/library/multiframe.tcl index 89342cb..cc5a9bc 100644 --- a/ds9/library/multiframe.tcl +++ b/ds9/library/multiframe.tcl @@ -138,9 +138,9 @@ proc ProcessMultiFrameCmd {varname iname sock fn} { global debug if {$debug(tcl,parser)} { - global multiframe - set multiframe(load,sock) $sock - set multiframe(load,fn) $fn + global parse + set parse(sock) $sock + set parse(fn) $fn multiframe::YY_FLUSH_BUFFER multiframe::yy_scan_string [lrange $var $i end] @@ -191,16 +191,16 @@ proc ProcessMultiFrameCmd {varname iname sock fn} { } proc MultiframeCmdLoad {param} { - global multiframe + global parse - if {$multiframe(load,sock) != {}} { + if {$parse(sock) != {}} { # xpa global tcl_platform switch $tcl_platform(os) { Linux - Darwin - SunOS { - if {![LoadMultiFrameSocket $multiframe(load,sock) $param]} { + if {![LoadMultiFrameSocket $parse(sock) $param]} { InitError xpa LoadMultiFrameFile $param } @@ -209,8 +209,8 @@ proc MultiframeCmdLoad {param} { } } else { # comm - if {$multiframe(load,fn) != {}} { - LoadMultiFrameAlloc $multiframe(load,fn) $param + if {$parse(fn) != {}} { + LoadMultiFrameAlloc $parse(fn) $param } else { LoadMultiFrameFile $param } |