1*1717Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1717Smckusick 
3*1717Smckusick static char sccsid[] = "@(#)WRITES.c 1.1 10/30/80";
4*1717Smckusick 
5*1717Smckusick #include "h00vars.h"
6*1717Smckusick #include "h01errs.h"
7*1717Smckusick 
8*1717Smckusick WRITES(curfile, d1, d2, d3, d4)
9*1717Smckusick 
10*1717Smckusick 	register struct iorec	*curfile;
11*1717Smckusick 	int			d1, d2, d3, d4;
12*1717Smckusick {
13*1717Smckusick 	if (curfile->funit & FREAD) {
14*1717Smckusick 		ERROR(EWRITEIT, curfile->pfname);
15*1717Smckusick 		return;
16*1717Smckusick 	}
17*1717Smckusick 	fwrite(d1, d2, d3, d4);
18*1717Smckusick 	if (ferror(curfile->fbuf)) {
19*1717Smckusick 		ERROR(EWRITE, curfile->pfname);
20*1717Smckusick 		return;
21*1717Smckusick 	}
22*1717Smckusick }
23