diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-24 19:21:53 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-24 19:21:53 (GMT) |
commit | 9bfe0e4b83c2b315ead079a9e6c746173878f0af (patch) | |
tree | b27da73b31fb3726391576b43970ba43bdf8dfc0 /ds9/library/command.tcl | |
parent | 64443ae4af0357574ac3108258ac0f315e2a3bc9 (diff) | |
download | blt-9bfe0e4b83c2b315ead079a9e6c746173878f0af.zip blt-9bfe0e4b83c2b315ead079a9e6c746173878f0af.tar.gz blt-9bfe0e4b83c2b315ead079a9e6c746173878f0af.tar.bz2 |
add support for namespaces
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 26d9b14..63395d0 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -96,13 +96,6 @@ proc ProcessCommand {argv argc} { while {$i < $argc} { set item [lindex $argv $i] switch -- $item { - -foo { - puts "argc: $argc" - yy::YY_FLUSH_BUFFER - yy::yy_scan_string [string range $argv $i end] - yy::yyparse - set argc 0 - } -- {set noopts 1} -? - -help - @@ -457,7 +450,22 @@ proc ProcessCommand {argv argc} { } -zscale {incr i; ProcessZScaleCmd argv i} -zmax {set scale(mode) zmax; ChangeScaleMode} - -zoom {incr i; ProcessZoomCmd argv i} + -zoom { + incr i; + puts "***b: $i [lrange $argv $i end]***" +# ProcessZoomCmd argv i + + if {1} { + puts "start: $i out of $argc" + yy::YY_FLUSH_BUFFER + yy::yy_scan_string [lrange $argv $i end] + yy::yyparse + puts "found $yy::yycnt" + set cnt [expr $yy::yycnt-1] + incr i $cnt + puts "***a: $i [lrange $argv $i end]***" + } + } default { # allow abc, -, and -[foo] but not -abc |