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 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