Initial commit

1 files changed, 43 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibc/remark.c b/unix/boot/spp/rpp/ratlibc/remark.c
new file mode 100644
index 00000000..23e30213
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibc/remark.c
@@ -0,0 +1,43 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratdef.h"
+
+void REMARK (strarg)
+int	*strarg;		/* hollerith string is an integer array */
+{
+	register char  *strin = (char *)strarg;
+	register char  c;
+
+	while (((c = *strin++) != '.') && (c != '\0'))
+	    if (c == '@') {
+		switch (*strin) {
+		case '.':
+		    putc ('.', stderr);
+		    strin++;
+		    break;
+
+		case 't':
+		    putc ('\t', stderr);
+		    strin++;
+		    break;
+
+		case 'b':
+		    putc ('\b', stderr);
+		    strin++;
+		    break;
+
+		case 'n':
+		    putc ('\n', stderr);
+		    strin++;
+		    break;
+
+		default:
+		    putc ('@', stderr);
+		    break;
+		}
+	    } else
+		putc (c, stderr);
+
+	putc ('\n', stderr);
+}