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 ZClosePort()
  20 {
  21     if (__Zephyr_fd >= 0 && __Zephyr_open)
  22         (void) close(__Zephyr_fd);
  23
  24     __Zephyr_fd = -1;
  25     __Zephyr_open = 0;
  26
  27     return (ZERR_NONE);
  28 }