11672Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21672Smckusick 3*10563Smckusick static char sccsid[] = "@(#)PCLOSE.c 1.6 01/21/83"; 41672Smckusick 57969Smckusick /* 67969Smckusick * Close all files associated with the topmost stack frame. 77969Smckusick */ 87969Smckusick 91672Smckusick #include "h00vars.h" 107969Smckusick #include "libpc.h" 111672Smckusick 121672Smckusick PCLOSE(level) 131672Smckusick 141672Smckusick struct iorec *level; 151672Smckusick { 161672Smckusick register struct iorec *next; 171672Smckusick 181672Smckusick next = _fchain.fchain; 191672Smckusick while(next != FILNIL && next->flev <= level) { 20*10563Smckusick next = PFCLOSE(next, TRUE); 211672Smckusick } 221672Smckusick _fchain.fchain = next; 231672Smckusick } 24