zephyr/lib/ZClosePort.c

   1 /* This file is part of the Project Athena Zephyr Notification System.
   2  * It contains source for the ZClosePort function.
   3  *
   4  *      Created by:     Robert French
   5  *
   6  *      $Id$
   7  *
   8  *      Copyright (c) 1987 by the Massachusetts Institute of Technology.
   9  *      For copying and distribution information, see the file
  10  *      "mit-copyright.h".
  11  */
  12
  13 #include <internal.h>
  14
  15 #ifndef lint
  16 static const char rcsid_ZClosePort_c[] = "$Id$";
  17 #endif
  18
  19 Code_t
  20 ZClosePort(void)
  21 {
  22     if (__Zephyr_fd >= 0 && __Zephyr_open)
  23         (void) close(__Zephyr_fd);
  24
  25     __Zephyr_fd = -1;
  26     __Zephyr_open = 0;
  27
  28     return (ZERR_NONE);
  29 }