aboutsummaryrefslogtreecommitdiff
path: root/unix/boot/spp/rpp/ratlibc/putlin.c
diff options
context:
space:
mode:
Diffstat (limited to 'unix/boot/spp/rpp/ratlibc/putlin.c')
-rw-r--r--unix/boot/spp/rpp/ratlibc/putlin.c16
1 files changed, 16 insertions, 0 deletions
diff --git a/unix/boot/spp/rpp/ratlibc/putlin.c b/unix/boot/spp/rpp/ratlibc/putlin.c
new file mode 100644
index 00000000..0da6c4d9
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibc/putlin.c
@@ -0,0 +1,16 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratdef.h"
+
+void PUTLIN(line, fd)
+RCHAR *line;
+FINT *fd;
+{
+ register FILE *fp;
+ register int c;
+
+ fp = _fdtofile[*fd];
+ while((c = *line++) != REOS)
+ putc(c, fp);
+}