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 | |
parent | 008b58aed410034000a2398ef97e93ea8d5eb549 (diff) | |
download | blt-675120595dcaf84e838665df8f69dc4f0073dfb9.zip blt-675120595dcaf84e838665df8f69dc4f0073dfb9.tar.gz blt-675120595dcaf84e838665df8f69dc4f0073dfb9.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/command.tcl | 11 | ||||
-rw-r--r-- | ds9/library/source.tcl | 4 |
2 files changed, 5 insertions, 10 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] } } diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index feba385..bf947cc 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -188,8 +188,8 @@ source $ds9(root)/library/xmfbox.tcl source $ds9(root)/library/xmlrpc.tcl source $ds9(root)/library/xpa.tcl -source $ds9(root)/library/zoomparser.tcl -source $ds9(root)/library/zoomlex.tcl +#source $ds9(root)/library/zoomparser.tcl +#source $ds9(root)/library/zoomlex.tcl switch [tk windowingsystem] { x11 {} |