add ds9 cube parser

1 files changed, 33 insertions, 2 deletions

diff --git a/ds9/library/cube.tcl b/ds9/library/cube.tcl
index dec7868..e43bc4b 100644
--- a/ds9/library/cube.tcl
+++ b/ds9/library/cube.tcl
@@ -705,6 +705,16 @@ proc ProcessCubeCmd {varname iname} {
     upvar $varname var
     upvar $iname i
 
+    CubeDialog
+
+    global debug
+    if {$debug(tcl,parser)} {
+	cube::YY_FLUSH_BUFFER
+	cube::yy_scan_string [lrange $var $i end]
+	cube::yyparse
+	incr i [expr $cube::yycnt-1]
+    } else {
+
     global cube
     global dcube
 
@@ -712,8 +722,6 @@ proc ProcessCubeCmd {varname iname} {
     global current
     global rgb
 
-    CubeDialog
-
     switch -- [string tolower [lindex $var $i]] {
 	match {
 	    incr i
@@ -840,6 +848,29 @@ proc ProcessCubeCmd {varname iname} {
 	}
     }
 }
+}
+
+proc CubeCmdCoord {ss sys axis} {
+    global dcube
+    global cube
+
+    set dcube(wcs,$axis) $ss
+    set cube(system) $sys
+    set cube(axis) $axis
+    if {$cube(axis) < 2} {
+	set cube(axis) 2
+    }
+    CubeApply $cube(axis)
+}
+
+proc CubeCmdSet {which value {cmd {}}} {
+    global cube
+
+    set cube($which) $value
+    if {$cmd != {}} {
+	eval $cmd
+    }
+}
 
 proc ProcessSendCubeCmd {proc id param} {
     global cube