summaryrefslogtreecommitdiffstats
path: root/ds9/library/2mass.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-06-06 15:35:39 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-06-06 15:35:39 (GMT)
commita03f2552f6d9f20d602fc82b139d46fb059c85db (patch)
treeb6d2f35b0f740c02d520d789d643128f1c526ed9 /ds9/library/2mass.tcl
parent5e379797126ae52c57fa5fb8e8d3984e6a0a359e (diff)
downloadblt-a03f2552f6d9f20d602fc82b139d46fb059c85db.zip
blt-a03f2552f6d9f20d602fc82b139d46fb059c85db.tar.gz
blt-a03f2552f6d9f20d602fc82b139d46fb059c85db.tar.bz2
add ds9 2mass send parser
Diffstat (limited to 'ds9/library/2mass.tcl')
-rw-r--r--ds9/library/2mass.tcl9
1 files changed, 8 insertions, 1 deletions
diff --git a/ds9/library/2mass.tcl b/ds9/library/2mass.tcl
index 36158ea..e8697ac 100644
--- a/ds9/library/2mass.tcl
+++ b/ds9/library/2mass.tcl
@@ -141,5 +141,12 @@ proc Process2MASSCmd {varname iname} {
proc ProcessSend2MASSCmd {proc id param {sock {}} {fn {}}} {
2MASSDialog
- IMGSVRProcessSendCmd $proc $id $param dtwomass
+
+ global parse
+ set parse(proc) $proc
+ set parse(id) $id
+
+ twomasssend::YY_FLUSH_BUFFER
+ twomasssend::yy_scan_string $param
+ twomasssend::yyparse
}