|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)FLUSH.c 1.2 6/10/81";
4:
5: #include "h00vars.h"
6:
7: FLUSH(curfile)
8:
9: register struct iorec *curfile;
10: {
11: if (curfile->fblk >= MAXFILES || _actfile[curfile->fblk] != curfile) {
12: ERROR("Reference to an inactive file\n", 0);
13: return;
14: }
15: if (curfile->funit & FWRITE) {
16: fflush(curfile->fbuf);
17: }
18: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.