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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
 */

#include "ratdef.h"

int PUTCH(c, fd)
register RCHAR *c;
register FINT  *fd;
{
	register FILE *file;

	file = _fdtofile[*fd];
	putc(*c, file);
	return 0;
}