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

include	<config.h>
include	<fio.h>

# PUTCI -- Put a character constant (passed as an integer) to a file.

procedure putci (fd, ch)

int	fd			# output file
int	ch			# character to be output
int	and()
errchk	flsbuf
include	<fio.com>

begin
	if (iop[fd] < bufptr[fd] || iop[fd] >= otop[fd])
	    call flsbuf (fd, 0)

	Memc[iop[fd]] = ch
	iop[fd] = iop[fd] + 1

	if (ch == '\n')				# end of line of text?
	    if (and (FF_FLUSH, fflags[fd]) != 0)
		call flsbuf (fd, 0)
end