kolibrios-fun/contrib/sdk/sources/newlib/libc/sys/close.c
Sergey Semyonov (Serge) 7315bb05c0 newlib-2.1.0
git-svn-id: svn://kolibrios.org@4921 a494cfbc-eb01-0410-851d-a64ba20cac60
2014-05-10 22:12:19 +00:00

44 lines
1.1 KiB
C

/* close.c -- close a file descriptor.
*
* Copyright (c) 1995 Cygnus Support
*
* The authors hereby grant permission to use, copy, modify, distribute,
* and license this software and its documentation for any purpose, provided
* that existing copyright notices are retained in all copies and that this
* notice is included verbatim in any distributions. No written agreement,
* license, or royalty fee is required for any of the authorized uses.
* Modifications to this software may be copyrighted by their authors
* and need not follow the licensing terms described here, provided that
* the new terms are clearly indicated on the first page of each file where
* they apply.
*/
#include <errno.h>
#include <stdlib.h>
#include <sys/unistd.h>
#include <sys/kos_io.h>
#include "glue.h"
#include "io.h"
int
_DEFUN (close ,(fd),
int fd)
{
__io_handle *ioh;
if( (fd < 0) || (fd >=64) )
{
errno = EBADF;
return (-1);
};
ioh = &__io_tab[fd];
if( fd > STDERR_FILENO )
{
free(ioh->name);
__io_free(fd);
}
return (0);
}