Repatch (from linux) of OSX IRAF

1 files changed, 23 insertions, 0 deletions

diff --git a/noao/twodspec/apextract/apdelete.x b/noao/twodspec/apextract/apdelete.x
new file mode 100644
index 00000000..1956a331
--- /dev/null
+++ b/noao/twodspec/apextract/apdelete.x
@@ -0,0 +1,23 @@
+# AP_DELETE -- Delete the specified aperture and return a new current aperture.
+
+procedure ap_delete (current, aps, naps)
+
+int	current			# Return current aperture index
+pointer	aps[ARB]		# Aperture data
+int	naps			# Number of apertures
+
+int	i
+
+begin
+	if (current < 1)
+	    return
+
+	call ap_free (aps[current])
+	for (i = current; i < naps; i = i + 1)
+	    aps[i] = aps[i+1]
+
+	aps[naps] = NULL
+
+	naps = naps - 1
+	current = min (naps, current)
+end