update parsers

1 files changed, 4 insertions, 117 deletions

diff --git a/ds9/library/saveimage.tcl b/ds9/library/saveimage.tcl
index 45ac769..4729deb 100644
--- a/ds9/library/saveimage.tcl
+++ b/ds9/library/saveimage.tcl
@@ -154,123 +154,10 @@ proc ProcessSaveImageCmd {varname iname} {
     UpdateDS9
     RealizeDS9
 
-    global debug
-    if {$debug(tcl,parser)} {
-	saveimage::YY_FLUSH_BUFFER
-	saveimage::yy_scan_string [lrange $var $i end]
-	saveimage::yyparse
-	incr i [expr $saveimage::yycnt-1]
-    } else {
-
-    set format {}
-    set param {}
-    set fn [lindex $var $i]
-    if {$fn == {}} {
-	return
-    }
-
-    # backward compatibility
-    switch $fn {
-	fits -
-	eps -
-	gif -
-	tiff -
-	jpeg -
-	png {
-	    set format $fn
-	    set fn {}
-	    incr i
-	}
-	jpg {
-	    set format jpeg
-	    set fn {}
-	    incr i
-	}
-	tif {
-	    set format tiff
-	    set fn {}
-	    incr i
-	}
-	mpeg {
-	    # backward compatibility
-	    global movie
-	    incr i
-	    set fn [lindex $var $i]
-	    if {[string is integer -strict $fn]} {
-		incr i
-		set fn [lindex $var $i]
-	    }
-	    set movie(action) slice
-	    Movie $fn
-	}
-    }
-
-    # try again
-    if {$fn == {}} {
-	set fn [lindex $var $i]
-	if {$fn == {}} {
-	    return
-	}
-
-	if {[string is integer -strict $fn] || 
-	    $fn == {none} || $fn == {jpeg} || 
-	    $fn == {backbits} || $fn == {deflate}} {
-	    set param $fn
-	    set fn {}
-	    incr i
-	}
-    }
-
-    # one last time
-    if {$fn == {}} {
-	set fn [lindex $var $i]
-	if {$fn == {}} {
-	    return
-	}
-    }
-
-    global saveimage
-    if {$format == {}} {
-	set format [ExtToFormat $fn]
-    }
-
-    if {$param == {}} {
-	set param [string tolower [lindex $var [expr $i+1]]]
-	switch $format {
-	    fits -
-	    eps -
-	    gif -
-	    png {}
-	    jpeg {
-		if {[string is integer -strict $param]} {
-		    set saveimage(jpeg,quality) $param
-		    incr i
-		}
-	    }
-	    tiff {
-		switch $param {
-		    none -
-		    jpeg -
-		    packbits -
-		    deflate {
-			set saveimage(tiff,compress) $param
-			incr i
-		    }
-		}
-	    }
-	}
-    }
-
-    switch -- $format {
-	fits {FileLast fitsfbox $fn}
-	eps {FileLast epsfbox $fn}
-	gif {FileLast giffbox $fn}
-	jpeg {FileLast jpegfbox $fn}
-	tiff {FileLast tifffbox $fn}
-	png {FileLast pngfbox $fn}
-    }
-    SaveImage $fn $format
-}
+    saveimage::YY_FLUSH_BUFFER
+    saveimage::yy_scan_string [lrange $var $i end]
+    saveimage::yyparse
+    incr i [expr $saveimage::yycnt-1]
 }
 
 proc SaveimageCmdSet {which value {cmd {}}} {