diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-13 18:42:51 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-13 18:42:51 (GMT) |
commit | e5ce79e94828eba8e30e4375a0b2604acad2ec94 (patch) | |
tree | 5dde219f6b0f3c0bd835912ba43dc2fb009ad9e9 /ds9/library/frame.tcl | |
parent | b200b4fc6ca872f7de8a5b19adce2f24f3db8ac3 (diff) | |
download | blt-e5ce79e94828eba8e30e4375a0b2604acad2ec94.zip blt-e5ce79e94828eba8e30e4375a0b2604acad2ec94.tar.gz blt-e5ce79e94828eba8e30e4375a0b2604acad2ec94.tar.bz2 |
add ds9 tile parser
Diffstat (limited to 'ds9/library/frame.tcl')
-rw-r--r-- | ds9/library/frame.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ds9/library/frame.tcl b/ds9/library/frame.tcl index 21f3754..d36ac41 100644 --- a/ds9/library/frame.tcl +++ b/ds9/library/frame.tcl @@ -2308,6 +2308,16 @@ proc ProcessSendSingleCmd {proc id param} { proc ProcessTileCmd {varname iname} { upvar $varname var + upvar $iname ii + + tile::YY_FLUSH_BUFFER + tile::yy_scan_string [lrange $var $ii end] + tile::yyparse + incr ii [expr $tile::yycnt-1] +} + +proc oProcessTileCmd {varname iname} { + upvar $varname var upvar $iname i global current |