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

PCLOSE defined in line 12; used 3 times

Defined variables

sccsid defined in line 3; never used
Last modified: 1983-02-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 781
Valid CSS Valid XHTML 1.0 Strict