compiler/clib/symlink.c

   1 /*
   2     Copyright © 2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX function symlink().
   6 */
   7
   8 #include <aros/debug.h>
   9
  10 #include <stdlib.h>
  11 #include <unistd.h>
  12 #include <proto/dos.h>
  13 #include <errno.h>
  14 #include "__errno.h"
  15 #include "__upath.h"
  16 #include <aros/debug.h>
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21
  22         int symlink(
  23
  24 /*  SYNOPSIS */
  25         const char *oldpath,
  26         const char *newpath)
  27
  28 /*  FUNCTION
  29
  30     INPUTS
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45 {
  46         int retval = -1;
  47     BPTR lock;
  48     struct FileInfoBlock *fib;
  49     int errorset = FALSE;
  50     LONG ioerr;
  51     UBYTE *buffer;
  52     int bufferincrease = 256;
  53     int buffersize = bufferincrease;
  54
  55     if (!oldpath || !newpath) /*safety check */
  56     {
  57         errno = EFAULT;
  58         return -1;
  59     }
  60
  61     if(oldpath = strdup(__path_u2a(oldpath)))
  62     {
  63             newpath = __path_u2a(newpath);
  64             if (!newpath)
  65             {
  66                 free(oldpath);
  67                 return -1;
  68             }
  69
  70                 if(lock = Lock((STRPTR)oldpath, SHARED_LOCK)) {
  71                         do
  72                         {
  73                                 if(!(buffer = AllocVec(buffersize, MEMF_ANY)))
  74                         {
  75                                         ioerr = ERROR_NO_FREE_STORE;
  76                                         errorset = TRUE;
  77                             break;
  78                         }
  79
  80                         /* Get the full path of oldpath */
  81                         if(NameFromLock(lock, buffer, buffersize))
  82                         {
  83                                         if(MakeLink((STRPTR)newpath,
  84                                                     (STRPTR)buffer,
  85                                                     TRUE) == DOSTRUE)
  86                                             retval = RETURN_OK;
  87                                         else
  88                                         {
  89                                                 ioerr = IoErr();
  90                                                 errorset = TRUE;
  91                                                 break;
  92                                         }
  93                         }
  94                         else if(IoErr() != ERROR_LINE_TOO_LONG)
  95                                 {
  96                                         ioerr = IoErr();
  97                                         errorset = TRUE;
  98                                         break;
  99                                 }
 100                         FreeVec(buffer);
 101                         buffersize += bufferincrease;
 102                         }
 103                         while(retval != RETURN_OK);
 104                     UnLock(lock);
 105                 }
 106                 else
 107                 {
 108                         ioerr = IoErr();
 109                         /* I'm not sure if MakeLink is allowed to create symlinks to
 110                            non-existing files or directories. If yes, then it's fine to
 111                            enable the following code */
 112 #if 0
 113                         if(ioerr == ERROR_OBJECT_NOT_FOUND)
 114                         {
 115                                 /* On Unices it's perfectly fine to create symlinks to
 116                                    non-existing files or directories, however in this case it
 117                                    may be difficult to get the full absolute path, so we are
 118                                    simply trusting the user here for now */
 119                                 if(MakeLink((STRPTR)newpath,
 120                                             (STRPTR)oldpath,
 121                                             TRUE) == DOSTRUE)
 122                                     retval = RETURN_OK;
 123                                 else
 124                                 {
 125                                         ioerr = IoErr();
 126                                         errorset = TRUE;
 127                                 }
 128                         }
 129                         else
 130 #endif
 131                                 errorset = TRUE;
 132                 }
 133                 free(oldpath);
 134     }
 135
 136         if(errorset) errno = IoErr2errno(ioerr);
 137     return retval;
 138 } /* symlink */
 139