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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [libiberty/] [rename.c] - Blame information for rev 258

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

Line No. Rev Author Line
1 38 julius
/* rename -- rename a file
2
   This function is in the public domain. */
3
 
4
/*
5
 
6
@deftypefn Supplemental int rename (const char *@var{old}, const char *@var{new})
7
 
8
Renames a file from @var{old} to @var{new}.  If @var{new} already
9
exists, it is removed.
10
 
11
@end deftypefn
12
 
13
*/
14
 
15
#include "ansidecl.h"
16
#ifdef HAVE_CONFIG_H
17
#include "config.h"
18
#endif
19
#include <errno.h>
20
#ifdef HAVE_UNISTD_H
21
#include <unistd.h>
22
#endif
23
 
24
int
25
rename (const char *zfrom, const char *zto)
26
{
27
  if (link (zfrom, zto) < 0)
28
    {
29
      if (errno != EEXIST)
30
        return -1;
31
      if (unlink (zto) < 0
32
          || link (zfrom, zto) < 0)
33
        return -1;
34
    }
35
  return unlink (zfrom);
36
}

powered by: WebSVN 2.1.0

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