From f503c9ee3374f07764864b5db1f8dc6eab10f43a Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 18 Jun 2018 14:19:04 -0400
Subject: add ds9 frame send parser

---
 ds9/library/frame.tcl | 73 ---------------------------------------------------
 1 file changed, 73 deletions(-)

diff --git a/ds9/library/frame.tcl b/ds9/library/frame.tcl
index b1d3719..9b2d5a5 100644
--- a/ds9/library/frame.tcl
+++ b/ds9/library/frame.tcl
@@ -2070,79 +2070,6 @@ proc ProcessSendFrameCmd {proc id param {sock {}} {fn {}}} {
     framesend::YY_FLUSH_BUFFER
     framesend::yy_scan_string $param
     framesend::yyparse
-    return
-    
-    global ds9
-    global current
-    global rgb
-    global panzoom
-
-    switch -- [lindex $param 0] {
-	lock {$proc $id "$panzoom(lock)\n"}
-	active {
-	    set r {}
-	    foreach f $ds9(active) {
-		append r "[string range $f 5 end] "
-	    }
-	    $proc $id "$r\n"
-	}
-	all {
-	    set r {}
-	    foreach f $ds9(frames) {
-		append r "[string range $f 5 end] "
-	    }
-	    $proc $id "$r\n"
-	}
-	has {
-	    if {$current(frame) == {}} {
-		Error [msgcat::mc {No current frame}]
-		return
-	    }
-
-	    switch [lindex $param 1] {
-		amplifier -
-		datamin -
-		datasec -
-		detector -
-		grid -
-		iis -
-		irafmin -
-		physical -
-		smooth {$proc $id [ToYesNo [$current(frame) has [lindex $param 1]]]}
-		contour {
-		    switch [lindex $param 2] {
-			aux {$proc $id [ToYesNo [$current(frame) has contour aux]]}
-			default {$proc $id [ToYesNo [$current(frame) has contour]]}
-		    }
-		}
-		fits {
-		    switch [lindex $param 2] {
-			bin -
-			cube -
-			mosaic {$proc $id [ToYesNo [$current(frame) has fits [lindex $param 2]]]}
-			default {$proc $id [ToYesNo [$current(frame) has fits]]}
-		    }
-		}
-		marker {
-		    switch [lindex $param 2] {
-			highlite -
-			paste -
-			select -
-			undo {$proc $id [ToYesNo [$current(frame) has marker [lindex $param 2]]]}
-		    }
-		}
-		system {$proc $id [ToYesNo [$current(frame) has system [lindex $param 2]]]}
-		wcs {
-		    switch [lindex $param 2] {
-			equatorial -
-			linear {$proc $id [ToYesNo [$current(frame) has wcs [lindex $param 2] [lindex $param 3]]]}
-			default {$proc $id [ToYesNo [$current(frame) has wcs [lindex $param 2]]]}
-		    }
-		}
-	    }
-	}
-	default {$proc $id "[string range $current(frame) 5 end]\n"}
-    }
 }
 
 proc FrameSendCmd {} {
-- 
cgit v0.12