1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)PCLOSE.c 1.6 1/21/83";
4:
5: /*
6: * Close all files associated with the topmost stack frame.
7: */
8:
9: #include "h00vars.h"
10: #include "libpc.h"
11:
12: PCLOSE(level)
13:
14: struct iorec *level;
15: {
16: register struct iorec *next;
17:
18: next = _fchain.fchain;
19: while(next != FILNIL && next->flev <= level) {
20: next = PFCLOSE(next, TRUE);
21: }
22: _fchain.fchain = next;
23: }
Defined functions
Defined variables
sccsid
defined in line
3;
never used