Repatch (from linux) of OSX IRAF

1 files changed, 34 insertions, 0 deletions

diff --git a/sys/libc/freadline.c b/sys/libc/freadline.c
new file mode 100644
index 00000000..b335ee20
--- /dev/null
+++ b/sys/libc/freadline.c
@@ -0,0 +1,34 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+*/
+
+#define	import_spp
+#define	import_libc
+#define	import_stdio
+#include <iraf.h>
+
+
+/*  FREADLINE -- Get a line from a user with editing.  This is a libc 
+ *  interface to the host readline() interface.  The host readline()
+ *  returns a buffer allocated which we free here, what's returned to
+ *  the caller is a static buffer containing the input string.
+ */
+char *
+freadline (
+  char	*prompt				/* user supplied output buffer	*/
+)
+{
+	char  *cmd = (char *) NULL;
+	static char line[SZ_LINE];
+	char  *readline (char *prompt);
+
+
+	memset (line, 0, SZ_LINE);
+        if ((cmd = readline (prompt)) == (char *) NULL) {
+            return ((char *) NULL);
+	} else {
+	    strcpy (line, cmd);		/* save to static buffer	*/
+	    zfree_ ((void *) cmd);	/* free readline() buffer	*/
+	}
+
+	return ((char *) line);
+}