diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-26 21:49:38 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-26 21:49:38 (GMT) |
commit | 675120595dcaf84e838665df8f69dc4f0073dfb9 (patch) | |
tree | bb7b279aaa4a54aab01f06ea4d6db826317bc449 /ds9/library/command.tcl | |
parent | 008b58aed410034000a2398ef97e93ea8d5eb549 (diff) | |
download | blt-675120595dcaf84e838665df8f69dc4f0073dfb9.zip blt-675120595dcaf84e838665df8f69dc4f0073dfb9.tar.gz blt-675120595dcaf84e838665df8f69dc4f0073dfb9.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 216e966..20afa4b 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -452,18 +452,13 @@ proc ProcessCommand {argv argc} { -zmax {set scale(mode) zmax; ChangeScaleMode} -zoom { incr i; -# ProcessZoomCmd argv i + ProcessZoomCmd argv i - if {1} { - puts "***b: $i [lrange $argv $i end]***" - puts "start: $i out of $argc" + if {0} { zoom::YY_FLUSH_BUFFER zoom::yy_scan_string [lrange $argv $i end] zoom::yyparse - puts "found $zoom::yycnt" - set cnt [expr $zoom::yycnt-1] - incr i $cnt - puts "***a: $i [lrange $argv $i end]***" + incr i [expr $zoom::yycnt-1] } } |