add ds9 pixeltable parser

2 files changed, 19 insertions, 0 deletions

diff --git a/ds9/library/pixel.tcl b/ds9/library/pixel.tcl
index 594bab0..5445841 100644
--- a/ds9/library/pixel.tcl
+++ b/ds9/library/pixel.tcl
@@ -266,6 +266,14 @@ proc ProcessPixelTableCmd {varname iname} {
     upvar $varname var
     upvar $iname i
 
+    global debug
+    if {$debug(tcl,parser)} {
+	pixeltable::YY_FLUSH_BUFFER
+	pixeltable::yy_scan_string [lrange $var $i end]
+	pixeltable::yyparse
+	incr i [expr $pixeltable::yycnt-1]
+    } else {
+
     switch -- [string tolower [lindex $var $i]] {
 	open -
 	yes -
@@ -285,6 +293,15 @@ proc ProcessPixelTableCmd {varname iname} {
 	}
     }
 }
+}
+
+proc PixelTableCmd {which} {
+    if {$which} {
+	PixelTableDialog
+    } else {
+	PixelTableDestroyDialog
+    }
+}
 
 proc ProcessSendPixelTableCmd {proc id param sock fn} {
     PixelTableDialog
diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl
index fe0220c..511ac15 100644
--- a/ds9/library/source.tcl
+++ b/ds9/library/source.tcl
@@ -246,6 +246,8 @@ source $ds9(root)/library/rotateparser.tcl
 source $ds9(root)/library/rotatelex.tcl
 source $ds9(root)/library/panparser.tcl
 source $ds9(root)/library/panlex.tcl
+source $ds9(root)/library/pixeltableparser.tcl
+source $ds9(root)/library/pixeltablelex.tcl
 source $ds9(root)/library/plotparser.tcl
 source $ds9(root)/library/plotlex.tcl
 source $ds9(root)/library/prefsparser.tcl