compiler/clib/rename.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function rename().
   6 */
   7
   8 #include <proto/dos.h>
   9 #include <stdlib.h>
  10 #include <string.h>
  11 #include "__errno.h"
  12 #include "__upath.h"
  13
  14 #define DEBUG 0
  15 #include <aros/debug.h>
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <stdio.h>
  21
  22         int rename (
  23
  24 /*  SYNOPSIS */
  25         const char * oldpath,
  26         const char * newpath)
  27
  28 /*  FUNCTION
  29         Renames a file or directory.
  30
  31     INPUTS
  32         oldpath - Complete path to existing file or directory.
  33         newpath - Complete path to the new file or directory.
  34
  35     RESULT
  36         0 on success and -1 on error. In case of an error, errno is set.
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 ******************************************************************************/
  49 {
  50           STRPTR aoldpath = (STRPTR)strdup((const char*)__path_u2a(oldpath));
  51     CONST_STRPTR anewpath = __path_u2a(newpath);
  52     BPTR oldlock, newlock;
  53
  54     /* __path_u2a has resolved paths like /toto/../a */
  55     if (anewpath[0] == '.')
  56     {
  57         if (anewpath[1] == '\0' || (anewpath[1] == '.' && anewpath[2] == '\0'))
  58         {
  59             errno = EEXIST;
  60             free(aoldpath);
  61             return -1;
  62         }
  63     }
  64
  65     /* try to delete newpath first */
  66     Forbid();
  67
  68     newlock = Lock(anewpath, SHARED_LOCK);
  69     if (newlock)
  70     {
  71         UnLock(newlock);
  72
  73         oldlock = Lock(aoldpath, EXCLUSIVE_LOCK);
  74         if (oldlock)
  75         {
  76             UnLock(oldlock);
  77
  78             /* DeleteFile returns an error if directory is non-empty */
  79             if (!DeleteFile(anewpath))
  80             {
  81                 LONG ioerr = IoErr();
  82                 errno = IoErr2errno(ioerr);
  83                 D(bug("rename(%s, %s) delete errno=%d, IoErr=%d\n",
  84                         aoldpath, anewpath, errno, ioerr));
  85                 free(aoldpath);
  86                 Permit();
  87                 return -1;
  88             }
  89         }
  90     }
  91
  92     if (!Rename (aoldpath, anewpath))
  93     {
  94         LONG ioerr = IoErr();
  95         errno = IoErr2errno(ioerr);
  96         D(bug("rename(%s, %s) errno=%d, IoErr=%d\n",
  97                 aoldpath, anewpath, errno, ioerr));
  98         free(aoldpath);
  99         Permit();
 100         return -1;
 101     }
 102
 103     free(aoldpath);
 104     Permit();
 105     return 0;
 106
 107 } /* rename */
 108