Repatch (from linux) of OSX IRAF

1 files changed, 21 insertions, 0 deletions

diff --git a/noao/onedspec/identify/autoid/aidget.x b/noao/onedspec/identify/autoid/aidget.x
new file mode 100644
index 00000000..ba3c9342
--- /dev/null
+++ b/noao/onedspec/identify/autoid/aidget.x
@@ -0,0 +1,21 @@
+include	"autoid.h"
+
+define	AIDGET "|best|"
+
+
+# AID_GETR -- Get AID parameters by name.
+
+real procedure aid_getr (aid, param)
+
+pointer	aid		#I AID object
+char	param[ARB]	#I Parameter name
+
+char	temp[10]
+int	strdic()
+
+begin
+	switch (strdic (param, temp, 10, AIDGET)) {
+	case 1:
+	    return (AID_BEST(aid))
+	}
+end