|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)APPEND.c 1.2 6/10/81"; ! 4: ! 5: #include "h00vars.h" ! 6: ! 7: APPEND(filep) ! 8: ! 9: register struct iorec *filep; ! 10: { ! 11: filep = GETNAME (filep, 0, 0, 0); ! 12: filep->fbuf = fopen(filep->fname, "a"); ! 13: if (filep->fbuf == NULL) { ! 14: PERROR("Could not open ", filep->pfname); ! 15: return; ! 16: } ! 17: filep->funit |= (EOFF | FWRITE); ! 18: if (filep->fblk > PREDEF) { ! 19: setbuf(filep->fbuf, &filep->buf[0]); ! 20: } ! 21: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.