diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-13 21:26:20 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-13 21:26:20 (GMT) |
commit | 6789ffe9781b0b50525b2f71eca17709f5a1540e (patch) | |
tree | f5818cd8e0292e8c29504caaf966f3daab987ec1 /ds9/library/sia.tcl | |
parent | a05e03dc6a6b011f0ca615c8abf26962df5ca8a2 (diff) | |
download | blt-6789ffe9781b0b50525b2f71eca17709f5a1540e.zip blt-6789ffe9781b0b50525b2f71eca17709f5a1540e.tar.gz blt-6789ffe9781b0b50525b2f71eca17709f5a1540e.tar.bz2 |
add ds9 sia parser
Diffstat (limited to 'ds9/library/sia.tcl')
-rw-r--r-- | ds9/library/sia.tcl | 23 |
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 |