Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/vo/handlers/overhandler.cl b/vo/handlers/overhandler.cl
new file mode 100644
index 00000000..e197a70e
--- /dev/null
+++ b/vo/handlers/overhandler.cl
@@ -0,0 +1,26 @@
+#{ OVERHANDLER -- VOTable SAMP message handler to overlay a catalog on the
+#  image display.
+
+procedure overhandler (url)
+
+string	url 			{ prompt = "VOTable URL"		}
+int	fnum  = 0		{ prompt = "Test number"		}
+
+begin
+	string  tcat
+
+	# Get the currently displayed image.
+	dispname (1)
+	if (dispname.status != 0)
+	    error (0, "No image displayed")
+	else
+	    wcsinfo (dispname.name)
+
+
+	tcat = mktemp ("/tmp/cat")
+
+	votpos (url, out="STDOUT", verb-, number+, header-, >& tcat)
+	taboverlay (dispname.name, tcat, lab=1, ra=2, dec=3)
+
+	delete (tcat, verify-, >& "dev$null")
+end