OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libc/] [dup2.c] - Blame information for rev 507

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback
/*
2
 *  dup2() - POSIX 1003.1b 6.2.1 Duplicate an Open File Descriptor
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: dup2.c,v 1.2 2001-09-27 12:01:15 chris Exp $
12
 */
13
 
14
#include <unistd.h>
15
#include <fcntl.h>
16
 
17
#include "libio_.h"
18
 
19
int dup2(
20
  int fildes,
21
  int fildes2
22
)
23
{
24
  int          status;
25
  struct stat  buf;
26
 
27
  /*
28
   *  If fildes is not valid, then fildes2 should not be closed.
29
   */
30
 
31
  status = fstat( fildes, &buf );
32
  if ( status == -1 )
33
    return -1;
34
 
35
  /*
36
   *  If fildes2 is not valid, then we should not do anything either.
37
   */
38
 
39
  status = fstat( fildes2, &buf );
40
  if ( status == -1 )
41
    return -1;
42
 
43
  /*
44
   *  This fcntl handles everything else.
45
   */
46
 
47
  return fcntl( fildes, F_DUPFD, fildes2 );
48
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.