diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-06 23:08:48 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-06 23:08:48 (GMT) |
| commit | 021d6756d52f544b8db23ec1f0995afdfe550d80 (patch) | |
| tree | 40f37874406c9c89709edde0fca3eda99030cc02 /ds9/library/2mass.tcl | |
| parent | cca94f4a7bd7d29d942ff6e4ac522f10bf07d50f (diff) | |
| download | blt-021d6756d52f544b8db23ec1f0995afdfe550d80.zip blt-021d6756d52f544b8db23ec1f0995afdfe550d80.tar.gz blt-021d6756d52f544b8db23ec1f0995afdfe550d80.tar.bz2 | |
add ds9 parsers
Diffstat (limited to 'ds9/library/2mass.tcl')
| -rw-r--r-- | ds9/library/2mass.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ds9/library/2mass.tcl b/ds9/library/2mass.tcl index df4004c..24b9644 100644 --- a/ds9/library/2mass.tcl +++ b/ds9/library/2mass.tcl @@ -129,6 +129,18 @@ Foundation. proc Process2MASSCmd {varname iname} { upvar $varname var + upvar $iname ii + + 2MASSDialog + + twomass::YY_FLUSH_BUFFER + twomass::yy_scan_string [lrange $var $ii end] + twomass::yyparse + incr ii [expr $twomass::yycnt-1] +} + +proc oProcess2MASSCmd {varname iname} { + upvar $varname var upvar $iname i 2MASSDialog |