update ds9 parsers

1 files changed, 9 insertions, 13 deletions

diff --git a/ds9/library/block.tcl b/ds9/library/block.tcl
index e18f452..3df2223 100644
--- a/ds9/library/block.tcl
+++ b/ds9/library/block.tcl
@@ -284,24 +284,19 @@ proc BlockBackupRGB {ch which} {
 
 proc ProcessBlockCmd {varname iname} {
     upvar $varname var
-    upvar $iname ii
-
-    # we need to be realized
-    ProcessRealizeDS9
-
-    block::YY_FLUSH_BUFFER
-    block::yy_scan_string [lrange $var $ii end]
-    block::yyparse
-    incr ii [expr $block::yycnt-1]
-}
-
-proc oProcessBlockCmd {varname iname} {
-    upvar $varname var
     upvar $iname i
 
     # we need to be realized
     ProcessRealizeDS9
 
+    global debug
+    if {$debug(tcl,parser)} {
+	block::YY_FLUSH_BUFFER
+	block::yy_scan_string [lrange $var $i end]
+	block::yyparse
+	incr i [expr $block::yycnt-1]
+    } else {
+
     global block
     switch -- [string tolower [lindex $var $i]] {
 	open {BlockDialog}
@@ -351,6 +346,7 @@ proc oProcessBlockCmd {varname iname} {
 	}
     }
 }
+}
 
 proc ProcessSendBlockCmd {proc id param} {
     global block