add ds9 sia parser

1 files changed, 23 insertions, 0 deletions

diff --git a/ds9/library/sia.tcl b/ds9/library/sia.tcl
index 43637a8..116f715 100644
--- a/ds9/library/sia.tcl
+++ b/ds9/library/sia.tcl
@@ -333,6 +333,19 @@ proc ProcessSIACmd {varname iname} {
 
     global isia
 
+    global debug
+    if {$debug(tcl,parser)} {
+	set ref [lindex $isia(sias) end]
+	global cvarname
+	set cvarname $ref
+
+	sia::YY_FLUSH_BUFFER
+	sia::yy_scan_string [lrange $var $i end]
+	sia::yyparse
+	incr i [expr $sia::yycnt-1]
+    } else {
+
+
     # we need to be realized
     ProcessRealizeDS9
 
@@ -402,6 +415,7 @@ proc ProcessSIACmd {varname iname} {
 	}
     }
 }
+}
 
 proc ProcessSIA {varname iname cvarname} {
     upvar 2 $varname var
@@ -492,6 +506,15 @@ proc ProcessSIA {varname iname cvarname} {
     }
 }
 
+proc SIACmdSet {which value {cmd {}}} {
+    global sia
+
+    set sia($which) $value
+    if {$cmd != {}} {
+	eval $cmd
+    }
+}
+
 proc ProcessSendSIACmd {proc id param sock fn} {
     global isia