diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-08 18:39:29 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-08 18:39:29 (GMT) |
commit | bef231e411516b6453f9c7addf9863b0ce0d93c6 (patch) | |
tree | 3e88e7f7b145d8589fecf385552114717363c8ff /ds9/library/vlss.tcl | |
parent | 8f16be81d8537a9719436104ff9198c33510b8ed (diff) | |
download | blt-bef231e411516b6453f9c7addf9863b0ce0d93c6.zip blt-bef231e411516b6453f9c7addf9863b0ce0d93c6.tar.gz blt-bef231e411516b6453f9c7addf9863b0ce0d93c6.tar.bz2 |
add vla/vlss parsers
Diffstat (limited to 'ds9/library/vlss.tcl')
-rw-r--r-- | ds9/library/vlss.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ds9/library/vlss.tcl b/ds9/library/vlss.tcl index ac1093c..cf2ba36 100644 --- a/ds9/library/vlss.tcl +++ b/ds9/library/vlss.tcl @@ -120,6 +120,18 @@ Naval Research Lab. proc ProcessVLSSCmd {varname iname} { upvar $varname var + upvar $iname ii + + VLSSDialog + + vlss::YY_FLUSH_BUFFER + vlss::yy_scan_string [lrange $var $ii end] + vlss::yyparse + incr ii [expr $vlss::yycnt-1] +} + +proc oProcessVLSSCmd {varname iname} { + upvar $varname var upvar $iname i VLSSDialog |