/* Copyright (c) 1979 Regents of the University of California */
static char sccsid
[] = "@(#)WRITLN.c 1.2 6/10/81";
register struct iorec
*curfile
;
if (curfile
->funit
& FREAD
) {
ERROR("%s: Attempt to write, but open for reading\n",
if (++curfile
->lcount
>= curfile
->llimit
) {
ERROR("%s: Line limit exceeded\n", curfile
->pfname
);
fputc('\n', curfile
->fbuf
);
if (ferror(curfile
->fbuf
)) {
PERROR("Could not write to ", curfile
->pfname
);