diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-09 18:36:19 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-09 18:36:19 (GMT) |
| commit | c56fc146b06bab65ab04ebc337f19bb347f15f11 (patch) | |
| tree | 0becfe977f846177646fb0d7f7a711ef8eb0e1a2 /ds9/library/bin.tcl | |
| parent | dc1c107ac6d51fab16940a4c197438c46ca68f2e (diff) | |
| download | blt-c56fc146b06bab65ab04ebc337f19bb347f15f11.zip blt-c56fc146b06bab65ab04ebc337f19bb347f15f11.tar.gz blt-c56fc146b06bab65ab04ebc337f19bb347f15f11.tar.bz2 | |
add bin ds9 parser
Diffstat (limited to 'ds9/library/bin.tcl')
| -rw-r--r-- | ds9/library/bin.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ds9/library/bin.tcl b/ds9/library/bin.tcl index b527f3b..96345ee 100644 --- a/ds9/library/bin.tcl +++ b/ds9/library/bin.tcl @@ -721,6 +721,16 @@ proc BinBackupRGB {ch which} { proc ProcessBinCmd {varname iname} { upvar $varname var + upvar $iname ii + + bin::YY_FLUSH_BUFFER + bin::yy_scan_string [lrange $var $ii end] + bin::yyparse + incr ii [expr $bin::yycnt-1] +} + +proc oProcessBinCmd {varname iname} { + upvar $varname var upvar $iname i global bin |