1*1696Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1696Smckusick 
3*1696Smckusick static char sccsid[] = "@(#)REWRITE.c 1.1 10/30/80";
4*1696Smckusick 
5*1696Smckusick #include "h00vars.h"
6*1696Smckusick #include "h01errs.h"
7*1696Smckusick 
8*1696Smckusick REWRITE(filep, name, maxnamlen, datasize)
9*1696Smckusick 
10*1696Smckusick 	register struct iorec	*filep;
11*1696Smckusick 	char			*name;
12*1696Smckusick 	int			maxnamlen;
13*1696Smckusick 	int			datasize;
14*1696Smckusick {
15*1696Smckusick 	filep = GETNAME (filep, name, maxnamlen, datasize);
16*1696Smckusick 	filep->fbuf = fopen(filep->fname, "w");
17*1696Smckusick 	if (filep->fbuf == NULL) {
18*1696Smckusick 		ERROR(ECREATE, filep->pfname);
19*1696Smckusick 		return;
20*1696Smckusick 	}
21*1696Smckusick 	filep->funit |= (EOFF | FWRITE);
22*1696Smckusick 	if (filep->fblk > PREDEF) {
23*1696Smckusick 		setbuf(filep->fbuf, &filep->buf[0]);
24*1696Smckusick 	}
25*1696Smckusick }
26