add ds9 crosshair send parser

1 files changed, 6 insertions, 15 deletions

diff --git a/ds9/library/crosshair.tcl b/ds9/library/crosshair.tcl
index c74c659..d2fca4b 100644
--- a/ds9/library/crosshair.tcl
+++ b/ds9/library/crosshair.tcl
@@ -270,21 +270,12 @@ proc ProcessCrosshairCmd {varname iname} {
 }
 
 proc ProcessSendCrosshairCmd {proc id param {sock {}} {fn {}}} {
-    global crosshair
-    global current
-
-    switch -- [string tolower $param] {
-	lock {$proc $id "$crosshair(lock)\n"}
-	default {
-	    set sys [lindex $param 0]
-	    set sky [lindex $param 1]
-	    set format [lindex $param 2]
-	    FixSpec sys sky format physical fk5 degrees
+    global parse
+    set parse(proc) $proc
+    set parse(id) $id
 
-	    if {$current(frame) != {}} {
-		$proc $id "[$current(frame) get crosshair $sys $sky $format]\n"
-	    }
-	}
-    }
+    crosshairsend::YY_FLUSH_BUFFER
+    crosshairsend::yy_scan_string $param
+    crosshairsend::yyparse
 }