add ds9 rgbcube parser

1 files changed, 33 insertions, 0 deletions

diff --git a/ds9/library/rgbcube.tcl b/ds9/library/rgbcube.tcl
index dfd2e2f..76424ce 100644
--- a/ds9/library/rgbcube.tcl
+++ b/ds9/library/rgbcube.tcl
@@ -111,6 +111,18 @@ proc ProcessRGBCubeCmd {varname iname sock fn} {
     upvar $varname var
     upvar $iname i
 
+    global debug
+    if {$debug(tcl,parser)} {
+	global rgbcube
+	set rgbcube(load,sock) $sock
+	set rgbcube(load,fn) $fn
+
+	rgbcube::YY_FLUSH_BUFFER
+	rgbcube::yy_scan_string [lrange $var $i end]
+	rgbcube::yyparse
+	incr i [expr $rgbcube::yycnt-1]
+    } else {
+
     switch -- [string tolower [lindex $var $i]] {
 	new {
 	    incr i
@@ -143,6 +155,27 @@ proc ProcessRGBCubeCmd {varname iname sock fn} {
     }
     FinishLoad
 }
+}
+
+proc RGBCubeCmdLoad {param} {
+    global rgbcube
+
+    if {$rgbcube(load,sock) != {}} {
+	# xpa
+	if {![LoadRGBCubeSocket $rgbcube(load,sock) $param]} {
+	    InitError xpa
+	    LoadRGBCubeFile $param
+	}
+    } else {
+	# comm
+	if {$rgbcube(load,fn) != {}} {
+	    LoadRGBCubeAlloc $rgbcube(load,fn) $param
+	} else {
+	    LoadRGBCubeFile $param
+	}
+    }
+    FinishLoad
+}
 
 proc ProcessSendRGBCubeCmd {proc id param sock fn} {
     global current