diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-20 22:27:32 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-20 22:27:32 (GMT) |
commit | a7a968e8c26018a637b62edea4d1cb2f75a26e47 (patch) | |
tree | db20d84fb1cacc0954b924ea8543533246a1a5d7 /ds9/library/command.tcl | |
parent | 5250e7df363efceadeb1323e6619af81ee28ce17 (diff) | |
download | blt-a7a968e8c26018a637b62edea4d1cb2f75a26e47.zip blt-a7a968e8c26018a637b62edea4d1cb2f75a26e47.tar.gz blt-a7a968e8c26018a637b62edea4d1cb2f75a26e47.tar.bz2 |
setup tcl parser
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 221ea12..71462dd 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -96,6 +96,16 @@ proc ProcessCommand {argv argc} { while {$i < $argc} { set item [lindex $argv $i] switch -- $item { + -foo { + YY_FLUSH_BUFFER + yy_scan_string $argv + yyparse + set argc 0 + } +# YY_FLUSH_BUFFER +# yy_scan_string $argv +# yyparse + -- {set noopts 1} -? - -help - @@ -165,7 +175,7 @@ proc ProcessCommand {argv argc} { -geometry { # already processed } - -gif {set file(type) gif} +p -gif {set file(type) gif} -green {set current(rgb) green; RGBChannel} -grid {incr i; ProcessGridCmd argv i} -nogrid {set grid(view) 0; GridUpdateCurrent} |