11717Smckusick /* Copyright (c) 1979 Regents of the University of California */
21717Smckusick 
3*3041Smckusic static char sccsid[] = "@(#)WRITES.c 1.2 03/07/81";
41717Smckusick 
51717Smckusick #include "h00vars.h"
61717Smckusick #include "h01errs.h"
71717Smckusick 
81717Smckusick WRITES(curfile, d1, d2, d3, d4)
91717Smckusick 
101717Smckusick 	register struct iorec	*curfile;
11*3041Smckusic 	FILE			*d1;
12*3041Smckusic 	long			d2, d3;
13*3041Smckusic 	char			*d4;
141717Smckusick {
151717Smckusick 	if (curfile->funit & FREAD) {
161717Smckusick 		ERROR(EWRITEIT, curfile->pfname);
171717Smckusick 		return;
181717Smckusick 	}
19*3041Smckusic 	fwrite(d1, (int)d2, (int)d3, d4);
201717Smckusick 	if (ferror(curfile->fbuf)) {
211717Smckusick 		ERROR(EWRITE, curfile->pfname);
221717Smckusick 		return;
231717Smckusick 	}
241717Smckusick }
25