modules/src/system/close.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: close.c,v 1.6 1994/06/24 11:24:17 ceriel Exp $ */
   6
   7 #include <system.h>
   8
   9 void
  10 sys_close(fp)
  11         register File *fp;
  12 {
  13         if (fp) {
  14                 fp->o_flags = 0;
  15                 close(fp->o_fd);
  16                 fp->o_fd = -1;
  17         }
  18 }