Repatch (from linux) of OSX IRAF

1 files changed, 22 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibc/r4tocstr.c b/unix/boot/spp/rpp/ratlibc/r4tocstr.c
new file mode 100644
index 00000000..36924353
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibc/r4tocstr.c
@@ -0,0 +1,22 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratdef.h"
+
+/* Convert a Ratfor string (one character per integer, terminated
+ * by an EOS) to a C string (one character per 8-bit byte, terminated
+ * by a byte of zero).
+ */
+void r4tocstr(rstr, cstr)
+register RCHAR  *rstr;
+register char   *cstr;
+{
+	while (*rstr != REOS) {
+	    if (*rstr > 0177) {
+		*cstr++ = *((char *)rstr);
+		rstr++;
+	    } else
+		*cstr++ = *rstr++;
+	}
+	*cstr = '\0';
+}