/* Copyright (c) 1979 Regents of the University of California */
static char sccsid
[] = "@(#)WRITEF.c 1.4 %G%";
WRITEF(curfile
, d1
, d2
, d3
, d4
, d5
, d6
, d7
, d8
)
register struct iorec
*curfile
;
int d3
, d4
, d5
, d6
, d7
, d8
;
if (curfile
->funit
& FREAD
) {
ERROR("%s: Attempt to write, but open for reading\n",
fprintf(d1
, d2
, d3
, d4
, d5
, d6
, d7
, d8
);
if (ferror(curfile
->fbuf
)) {
PERROR("Could not write to ", curfile
->pfname
);