11716Smckusick /* Copyright (c) 1979 Regents of the University of California */
21716Smckusick 
3*3869Smckusic static char sccsid[] = "@(#)WRITEF.c 1.4 06/10/81";
41716Smckusick 
51716Smckusick #include "h00vars.h"
61716Smckusick 
73168Smckusic WRITEF(curfile, d1, d2, d3, d4, d5, d6, d7, d8)
81716Smckusick 
91716Smckusick 	register struct iorec	*curfile;
103040Smckusic 	FILE			*d1;
113040Smckusic 	char			*d2;
123168Smckusic 	int			d3, d4, d5, d6, d7, d8;
131716Smckusick {
141716Smckusick 	if (curfile->funit & FREAD) {
15*3869Smckusic 		ERROR("%s: Attempt to write, but open for reading\n",
16*3869Smckusic 			curfile->pfname);
171716Smckusick 		return;
181716Smckusick 	}
193168Smckusic 	fprintf(d1, d2, d3, d4, d5, d6, d7, d8);
201716Smckusick 	if (ferror(curfile->fbuf)) {
21*3869Smckusic 		PERROR("Could not write to ", curfile->pfname);
221716Smckusick 		return;
231716Smckusick 	}
241716Smckusick }
25