1 /*-
2 * Copyright (c) 1979, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * %sccs.include.redist.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)WRITES.c 8.1 (Berkeley) 06/06/93";
10 #endif /* not lint */
11
12 #include "h00vars.h"
13
WRITES(curfile,d1,d2,d3,d4)14 WRITES(curfile, d1, d2, d3, d4)
15
16 register struct iorec *curfile;
17 FILE *d1;
18 int d2, d3;
19 char *d4;
20 {
21 if (curfile->funit & FREAD) {
22 ERROR("%s: Attempt to write, but open for reading\n",
23 curfile->pfname);
24 return;
25 }
26 fwrite(d1, d2, d3, d4);
27 if (ferror(curfile->fbuf)) {
28 PERROR("Could not write to ", curfile->pfname);
29 return;
30 }
31 }
32