summaryrefslogtreecommitdiffstats
path: root/ds9/library/url.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'ds9/library/url.tcl')
-rw-r--r--ds9/library/url.tcl31
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]
}