add ds9 mosaicimagewfpc2 parser

1 files changed, 30 insertions, 2 deletions

diff --git a/ds9/library/mosaicimagewfpc2.tcl b/ds9/library/mosaicimagewfpc2.tcl
index 1fe23fc..ac59f98 100644
--- a/ds9/library/mosaicimagewfpc2.tcl
+++ b/ds9/library/mosaicimagewfpc2.tcl
@@ -53,8 +53,17 @@ proc ProcessMosaicImageWFPC2Cmd {varname iname sock fn} {
     upvar $varname var
     upvar $iname i
 
-    global loadParam
-    global current
+    global debug
+    if {$debug(tcl,parser)} {
+	global parse
+	set parse(sock) $sock
+	set parse(fn) $fn
+
+	mosaicimagewfpc2::YY_FLUSH_BUFFER
+	mosaicimagewfpc2::yy_scan_string [lrange $var $i end]
+	mosaicimagewfpc2::yyparse
+	incr i [expr $mosaicimagewfpc2::yycnt-1]
+    } else {
 
     switch -- [string tolower [lindex $var $i]] {
 	new {
@@ -88,5 +97,24 @@ proc ProcessMosaicImageWFPC2Cmd {varname iname sock fn} {
     }
     FinishLoad
 }
+}
 
+proc MosaicImageWFPC2CmdLoad {param} {
+    global parse
 
+    if {$parse(sock) != {}} {
+	# xpa
+	if {![LoadMosaicImageWFPC2Socket $parse(sock) $param]} {
+	    InitError xpa
+	    LoadMosaicImageWFPC2File $param
+	}
+    } else {
+	# comm
+	if {$parse(fn) != {}} {
+	    LoadMosaicImageWFPC2Alloc $parse(fn) $param
+	} else {
+	    LoadMosaicImageWFPC2File $param
+	}
+    }
+    FinishLoad
+}