diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-15 17:24:16 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-15 17:24:16 (GMT) |
commit | 720c6f7b2a8513c433d09fad4d73b5a25e0baa52 (patch) | |
tree | 49cb9be41161f16b917be34eb6685ae936661ea9 /ds9/library/grid.tcl | |
parent | 3bee48236745ecc6fe30d480bc2adcef49ea8e39 (diff) | |
download | blt-720c6f7b2a8513c433d09fad4d73b5a25e0baa52.zip blt-720c6f7b2a8513c433d09fad4d73b5a25e0baa52.tar.gz blt-720c6f7b2a8513c433d09fad4d73b5a25e0baa52.tar.bz2 |
add ds9 grid parser
Diffstat (limited to 'ds9/library/grid.tcl')
-rw-r--r-- | ds9/library/grid.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index 083127d..139f24b 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1138,6 +1138,16 @@ proc GridBackup {ch which} { proc ProcessGridCmd {varname iname} { upvar $varname var + upvar $iname ii + + grid::YY_FLUSH_BUFFER + grid::yy_scan_string [lrange $var $ii end] + grid::yyparse + incr ii [expr $grid::yycnt-1] +} + +proc oProcessGridCmd {varname iname} { + upvar $varname var upvar $iname i global grid |