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 */
71717Smckusick
840865Sbostic #ifndef lint
9*62096Sbostic static char sccsid[] = "@(#)WRITES.c 8.1 (Berkeley) 06/06/93";
1040865Sbostic #endif /* not lint */
111717Smckusick
121717Smckusick #include "h00vars.h"
131717Smckusick
WRITES(curfile,d1,d2,d3,d4)141717Smckusick WRITES(curfile, d1, d2, d3, d4)
151717Smckusick
161717Smckusick register struct iorec *curfile;
173041Smckusic FILE *d1;
183169Smckusic int d2, d3;
193041Smckusic char *d4;
201717Smckusick {
211717Smckusick if (curfile->funit & FREAD) {
223869Smckusic ERROR("%s: Attempt to write, but open for reading\n",
233869Smckusic curfile->pfname);
241717Smckusick return;
251717Smckusick }
263169Smckusic fwrite(d1, d2, d3, d4);
271717Smckusick if (ferror(curfile->fbuf)) {
283869Smckusic PERROR("Could not write to ", curfile->pfname);
291717Smckusick return;
301717Smckusick }
311717Smckusick }
32