140865Sbostic /*-
2*62096Sbostic * Copyright (c) 1979, 1993
3*62096Sbostic * The Regents of the University of California. All rights reserved.
440865Sbostic *
540865Sbostic * %sccs.include.redist.c%
640865Sbostic */
71716Smckusick
840865Sbostic #ifndef lint
9*62096Sbostic static char sccsid[] = "@(#)WRITEF.c 8.1 (Berkeley) 06/06/93";
1040865Sbostic #endif /* not lint */
111716Smckusick
121716Smckusick #include "h00vars.h"
131716Smckusick
WRITEF(curfile,d1,d2,d3,d4,d5,d6,d7,d8)143168Smckusic WRITEF(curfile, d1, d2, d3, d4, d5, d6, d7, d8)
151716Smckusick
161716Smckusick register struct iorec *curfile;
173040Smckusic FILE *d1;
183040Smckusic char *d2;
193168Smckusic int d3, d4, d5, d6, d7, d8;
201716Smckusick {
211716Smckusick if (curfile->funit & FREAD) {
223869Smckusic ERROR("%s: Attempt to write, but open for reading\n",
233869Smckusic curfile->pfname);
241716Smckusick return;
251716Smckusick }
263168Smckusic fprintf(d1, d2, d3, d4, d5, d6, d7, d8);
271716Smckusick if (ferror(curfile->fbuf)) {
283869Smckusic PERROR("Could not write to ", curfile->pfname);
291716Smckusick return;
301716Smckusick }
311716Smckusick }
32