UNIX 6th Ed. - /usr/source/iolib/cclose.c

   1: # include "ciodec.c"
   2: cclose (fn)
   3: int fn;
   4: {
   5: struct fileps *fp;
   6: extern char *IEH3olbf[10];
   7: if (fn < 0 || fn > 20) return;
   8: fp = &IEH3fpts[fn];
   9: if (fp->nchars > 0 || fp->wrflag == 3)
  10:     switch (fp->wrflag)
  11:         {
  12:         case 3: seek(fn,0,2);
  13:         case 2: write (fn, fp->buff, fp->nchars);
  14:             break;
  15:         case 1: seek(fn, -(fp->nchars), 1);
  16:         }
  17: fp -> nchars = fp->eoferr = 0;
  18: fp -> wrflag = 0;
  19: if ( IEH3olbf[fn] != 0 && fp->bsize >4)
  20:     free(IEH3olbf[fn]);
  21: IEH3olbf[fn] = 0;
  22: close (fn);
  23: }
  24: char *IEH3olbf[10] {0,0,0,0,0,0,0,0,0,0};

Defined functions

Defined variables