diff options
Diffstat (limited to 'ds9/library/url.tcl')
-rw-r--r-- | ds9/library/url.tcl | 31 |
1 files changed, 4 insertions, 27 deletions
diff --git a/ds9/library/url.tcl b/ds9/library/url.tcl index 8a65ab7..3d30abc 100644 --- a/ds9/library/url.tcl +++ b/ds9/library/url.tcl @@ -313,32 +313,9 @@ proc ProcessURLFitsCmd {varname iname} { upvar $varname var upvar $iname i - global debug - if {$debug(tcl,parser)} { - urlfits::YY_FLUSH_BUFFER - urlfits::yy_scan_string [lrange $var $i end] - urlfits::yyparse - incr i [expr $urlfits::yycnt-1] - } else { - - set layer {} - set mode {} - switch -- [string tolower [lindex $var $i]] { - new { - incr i - CreateFrame - } - mask { - incr i - set layer mask - } - slice { - incr i - set mode slice - } - } - - LoadURLFits [lindex $var $i] $layer $mode -} + urlfits::YY_FLUSH_BUFFER + urlfits::yy_scan_string [lrange $var $i end] + urlfits::yyparse + incr i [expr $urlfits::yycnt-1] } |