11727Smckusick /* Copyright (c) 1979 Regents of the University of California */
21727Smckusick 
3*3869Smckusic static char sccsid[] = "@(#)APPEND.c 1.2 06/10/81";
41727Smckusick 
51727Smckusick #include "h00vars.h"
61727Smckusick 
71727Smckusick APPEND(filep)
81727Smckusick 
91727Smckusick 	register struct iorec	*filep;
101727Smckusick {
111727Smckusick 	filep = GETNAME (filep, 0, 0, 0);
121727Smckusick 	filep->fbuf = fopen(filep->fname, "a");
131727Smckusick 	if (filep->fbuf == NULL) {
14*3869Smckusic 		PERROR("Could not open ", filep->pfname);
151727Smckusick 		return;
161727Smckusick 	}
171727Smckusick 	filep->funit |= (EOFF | FWRITE);
181727Smckusick 	if (filep->fblk > PREDEF) {
191727Smckusick 		setbuf(filep->fbuf, &filep->buf[0]);
201727Smckusick 	}
211727Smckusick }
22