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