File: ZClosePort.c

package info (click to toggle)
zephyr 3.1.2-1.1
  • links: PTS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 4,836 kB
  • sloc: ansic: 41,382; sh: 10,723; makefile: 872; python: 438; yacc: 250; lisp: 127
file content (29 lines) | stat: -rw-r--r-- 672 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
/* This file is part of the Project Athena Zephyr Notification System.
 * It contains source for the ZClosePort function.
 *
 *	Created by:	Robert French
 *
 *	$Id: bd212b4844a52b73d9c0e06ec6e736f67f548759 $
 *
 *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
 *	For copying and distribution information, see the file
 *	"mit-copyright.h". 
 */

#include <internal.h>

#ifndef lint
static const char rcsid_ZClosePort_c[] = "$Id: bd212b4844a52b73d9c0e06ec6e736f67f548759 $";
#endif

Code_t
ZClosePort(void)
{
    if (__Zephyr_fd >= 0 && __Zephyr_open)
	(void) close(__Zephyr_fd);

    __Zephyr_fd = -1;
    __Zephyr_open = 0;
	
    return (ZERR_NONE);
}