Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
4921 | Serge | 1 | /* close.c -- close a file descriptor. |
2 | * |
||
3 | * Copyright (c) 1995 Cygnus Support |
||
4 | * |
||
5 | * The authors hereby grant permission to use, copy, modify, distribute, |
||
6 | * and license this software and its documentation for any purpose, provided |
||
7 | * that existing copyright notices are retained in all copies and that this |
||
8 | * notice is included verbatim in any distributions. No written agreement, |
||
9 | * license, or royalty fee is required for any of the authorized uses. |
||
10 | * Modifications to this software may be copyrighted by their authors |
||
11 | * and need not follow the licensing terms described here, provided that |
||
12 | * the new terms are clearly indicated on the first page of each file where |
||
13 | * they apply. |
||
14 | */ |
||
15 | #include |
||
16 | #include |
||
17 | #include |
||
18 | #include |
||
19 | #include "glue.h" |
||
20 | #include "io.h" |
||
21 | |||
22 | int |
||
23 | _DEFUN (close ,(fd), |
||
24 | int fd) |
||
25 | { |
||
26 | __io_handle *ioh; |
||
27 | |||
28 | if( (fd < 0) || (fd >=64) ) |
||
29 | { |
||
30 | errno = EBADF; |
||
31 | return (-1); |
||
32 | }; |
||
33 | |||
34 | ioh = &__io_tab[fd]; |
||
35 | |||
36 | if( fd > STDERR_FILENO ) |
||
37 | { |
||
38 | free(ioh->name); |
||
39 | __io_free(fd); |
||
40 | } |
||
41 | |||
42 | return (0); |
||
43 | }> |