]> pd.if.org Git - pdclib/blob - platform/example/functions/_PDCLIB/close.c
Ad-hoc solutions for perror() and strerror().
[pdclib] / platform / example / functions / _PDCLIB / close.c
1 /* $Id$ */
2
3 /* _PDCLIB_close( _PDCLIB_fd_t fd )
4
5    This file is part of the Public Domain C Library (PDCLib).
6    Permission is granted to use, modify, and / or redistribute at will.
7 */
8
9 /* This is an example implementation of _PDCLIB_close() fit for use with POSIX
10    kernels.
11 */
12
13 #include <stdio.h>
14
15 #ifndef REGTEST
16 #include <_PDCLIB_glue.h>
17
18 extern int close( int fd );
19
20 int _PDCLIB_close( int fd )
21 {
22     return close( fd );
23 }
24
25 #endif
26
27 #ifdef TEST
28 #include <_PDCLIB_test.h>
29
30 int main( void )
31 {
32     /* No testdriver; tested in driver for _PDCLIB_open(). */
33     return TEST_RESULTS;
34 }
35
36 #endif