diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-08 18:39:12 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-08 18:39:12 (GMT) |
| commit | b421d4bcf45cee1188634abf1838961bb0532034 (patch) | |
| tree | ccea6689d27a5322796a2200fad68490203bb04c /ds9/library | |
| parent | f5bce74eabb0a4389fc885baf0b15a1a89655b86 (diff) | |
| download | blt-b421d4bcf45cee1188634abf1838961bb0532034.zip blt-b421d4bcf45cee1188634abf1838961bb0532034.tar.gz blt-b421d4bcf45cee1188634abf1838961bb0532034.tar.bz2 | |
add ds9 iis parser
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/iis.tcl | 16 | ||||
| -rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 17 insertions, 1 deletions
diff --git a/ds9/library/iis.tcl b/ds9/library/iis.tcl index 5bc8554..54b6ed6 100644 --- a/ds9/library/iis.tcl +++ b/ds9/library/iis.tcl @@ -362,8 +362,15 @@ proc ProcessIISCmd {varname iname} { upvar $varname var upvar $iname i - global current + global debug + if {$debug(tcl,parser)} { + iis::YY_FLUSH_BUFFER + iis::yy_scan_string [lrange $var $i end] + iis::yyparse + incr i [expr $iis::yycnt-1] + } else { + global current switch -- [string tolower [lindex $var $i]] { filename { if {[string is integer [lindex $var [expr $i+2]]]} { @@ -381,6 +388,13 @@ proc ProcessIISCmd {varname iname} { } } } +} + +proc IISCmd {filename {which {}}} { + global current + + $current(frame) iis set file name $filename $which +} proc ProcessSendIISCmd {proc id param} { global current diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 32896c0..7ca3f64 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -238,6 +238,8 @@ source $ds9(root)/library/heightparser.tcl source $ds9(root)/library/heightlex.tcl source $ds9(root)/library/iconifyparser.tcl source $ds9(root)/library/iconifylex.tcl +source $ds9(root)/library/iisparser.tcl +source $ds9(root)/library/iislex.tcl source $ds9(root)/library/lockparser.tcl source $ds9(root)/library/locklex.tcl source $ds9(root)/library/magnifierparser.tcl |