source: rtems/cpukit/libcsupport/src/close.c @ 4bf1801

4.104.114.84.95
Last change on this file since 4bf1801 was 08311cc3, checked in by Joel Sherrill <joel.sherrill@…>, on 11/17/99 at 17:51:34

Updated copyright notice.

  • Property mode set to 100644
File size: 879 bytes
Line 
1/*
2 *  close() - POSIX 1003.1b 6.3.1 - Close a File
3 *
4 *  COPYRIGHT (c) 1989-1999.
5 *  On-Line Applications Research Corporation (OAR).
6 *
7 *  The license and distribution terms for this file may be
8 *  found in the file LICENSE in this distribution or at
9 *  http://www.OARcorp.com/rtems/license.html.
10 *
11 *  $Id$
12 */
13
14#include "libio_.h"
15
16int close(
17  int  fd
18)
19{
20  rtems_libio_t      *iop;
21  rtems_status_code   rc;
22
23  rtems_libio_check_fd(fd);
24  iop = rtems_libio_iop(fd);
25  rtems_libio_check_is_open(iop);
26
27  rc = RTEMS_SUCCESSFUL;
28  if ( iop->handlers->close )
29    rc = (*iop->handlers->close)( iop );
30
31  rtems_libio_free( iop );
32
33  return rc;
34}
35
36/*
37 *  _close_r
38 *
39 *  This is the Newlib dependent reentrant version of close().
40 */
41
42#if defined(RTEMS_NEWLIB)
43
44#include <reent.h>
45
46int _close_r(
47  struct _reent *ptr,
48  int            fd
49)
50{
51  return close( fd );
52}
53#endif
Note: See TracBrowser for help on using the repository browser.