1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)PCLOSE.c 1.5 08/29/82"; 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); 21 } 22 _fchain.fchain = next; 23 } 24