diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
commit | b8395e8e32cccb75565a170160772857087901de (patch) | |
tree | 2494425c02897874ba1a957a51224522c4a2e10a /ds9/library/iis.tcl | |
parent | 41505b4129a005e96c6afc3344ccf61097884fbd (diff) | |
download | blt-b8395e8e32cccb75565a170160772857087901de.zip blt-b8395e8e32cccb75565a170160772857087901de.tar.gz blt-b8395e8e32cccb75565a170160772857087901de.tar.bz2 |
update parsers
Diffstat (limited to 'ds9/library/iis.tcl')
-rw-r--r-- | ds9/library/iis.tcl | 30 |
1 files changed, 4 insertions, 26 deletions
diff --git a/ds9/library/iis.tcl b/ds9/library/iis.tcl index 54b6ed6..1cda226 100644 --- a/ds9/library/iis.tcl +++ b/ds9/library/iis.tcl @@ -362,32 +362,10 @@ proc ProcessIISCmd {varname iname} { upvar $varname var upvar $iname i - 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]]]} { - if {$current(frame) != {}} { - $current(frame) iis set file name \ - [lindex $var [expr $i+1]] [lindex $var [expr $i+2]] - } - incr i 2 - } else { - if {$current(frame) != {}} { - $current(frame) iis set file name [lindex $var [expr $i+1]] - } - incr i - } - } - } -} + iis::YY_FLUSH_BUFFER + iis::yy_scan_string [lrange $var $i end] + iis::yyparse + incr i [expr $iis::yycnt-1] } proc IISCmd {filename {which {}}} { |