add ds9 2mass send parser

3 files changed, 26 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
 }
diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl
index 6f52cac..6d7c950 100644
--- a/ds9/library/source.tcl
+++ b/ds9/library/source.tcl
@@ -370,6 +370,8 @@ source $ds9(root)/library/tileparser.tcl
 source $ds9(root)/library/tilelex.tcl
 source $ds9(root)/library/twomassparser.tcl
 source $ds9(root)/library/twomasslex.tcl
+source $ds9(root)/library/twomasssendparser.tcl
+source $ds9(root)/library/twomasssendlex.tcl
 source $ds9(root)/library/updateparser.tcl
 source $ds9(root)/library/updatelex.tcl
 source $ds9(root)/library/urlfitsparser.tcl
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl
index b2fdc8d..b72eb2a 100644
--- a/ds9/library/util.tcl
+++ b/ds9/library/util.tcl
@@ -202,6 +202,22 @@ proc ProcessSendCmdGet {varname key} {
     $parse(proc) $parse(id) "$var($key)\n"
 }
 
+proc ProcessSendCmdGet2 {varname key key2} {
+    upvar #0 $varname var
+    global $varname
+
+    global parse
+    $parse(proc) $parse(id) "$var($key) $var($key2)\n"
+}
+
+proc ProcessSendCmdGet3 {varname key key2 key3} {
+    upvar #0 $varname var
+    global $varname
+
+    global parse
+    $parse(proc) $parse(id) "$var($key) $var($key2) $var($key3)\n"
+}
+
 proc ProcessSendCmdYesNo {varname key} {
     upvar #0 $varname var
     global $varname