unix/boot/spp/rpp/ratlibc/putlin.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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);
}