home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / iolib / cclose.c < prev    next >
Encoding:
C/C++ Source or Header  |  1975-05-13  |  508 b   |  25 lines
  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};
  25.