/* Copyright (c) 1979 Regents of the University of California */
static char sccsid
[] = "@(#)REWRITE.c 1.3 %G%";
REWRITE(filep
, name
, maxnamlen
, datasize
)
register struct iorec
*filep
;
filep
= GETNAME (filep
, name
, maxnamlen
, datasize
);
filep
->fbuf
= fopen(filep
->fname
, "w");
if (filep
->fbuf
== NULL
) {
PERROR("Could not create ",filep
->pfname
);
filep
->funit
|= (EOFF
| FWRITE
);
if (filep
->fblk
> PREDEF
) {
setbuf(filep
->fbuf
, &filep
->buf
[0]);