home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / compiler / small_c / byte_sc / fclose.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-04  |  512 b   |  19 lines
  1. #define NOCCARGC  /* no argument count passing */
  2. #include stdio.h
  3. #include clib.def
  4. /*
  5. ** Close fd 
  6. ** Entry: fd = File descriptor for file to be closed.
  7. ** Returns NULL for success, otherwise ERR
  8. */
  9. extern int Ustatus[], Udevice[], Ufd[];
  10. fclose(fd) int fd; {
  11.   if(!Umode(fd)) return (ERR);
  12.   if(!isatty(fd)) {
  13.     if(Umsdos(0,0,Ufd[fd],CLOFIL)==ERR)
  14.       return (ERR);
  15.     }
  16.   return (Ustatus[fd]=Udevice[fd]=NULL);
  17.   }
  18.  
  19.