compiler/clib/getcwd.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX.1-2008 function getcwd().
   6 */
   7
   8 #include <stdlib.h>
   9 #include <errno.h>
  10 #include <stdio.h>
  11 #include <string.h>
  12 #include "__upath.h"
  13 #include <proto/exec.h>
  14 #include <proto/dos.h>
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <unistd.h>
  20
  21         char *getcwd (
  22
  23 /*  SYNOPSIS */
  24         char *buf,
  25         size_t size)
  26
  27 /*  FUNCTION
  28         Get the current working directory.
  29
  30     INPUTS
  31         buf - Pointer of the buffer where the path is to be stored
  32         size - The size of the above buffer
  33
  34     RESULT
  35         Copies the absolute pathname of the current working directory
  36         to the buffer. If the pathname is longer than the buffer
  37         (with lenght "size") NULL is returned and errno set to ERANGE.
  38         Otherwise the pointer to the buffer is returned.
  39
  40     NOTES
  41         If buf is NULL this function will allocate the buffer itself
  42         using malloc() and the specified size "size". If size is
  43         0, too, the buffer is allocated to hold the whole path.
  44         It is possible and recommended to free() this buffer yourself!
  45         The path returned does not have to be literally the same as the
  46         one given to chdir. See NOTES from chdir for more explanation.
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53         chdir()
  54
  55     INTERNALS
  56
  57 ******************************************************************************/
  58 {
  59     char pathname[FILENAME_MAX];
  60     const char *tpath;
  61     BPTR lock;
  62
  63     lock = CurrentDir(BNULL);
  64     CurrentDir(lock);
  65     if (NameFromLock (lock, pathname, FILENAME_MAX) == 0)
  66     {
  67         errno = __arosc_ioerr2errno (IoErr ());
  68         return NULL;
  69     }
  70
  71     tpath = __path_a2u(pathname);
  72     strcpy(pathname, tpath);
  73
  74     if (buf != NULL)
  75     {
  76         if (strlen(pathname) < size)
  77         {
  78             strcpy (buf, pathname);
  79         }
  80         else
  81         {
  82             errno = ERANGE;
  83             return NULL;
  84         }
  85     }
  86     else
  87     {
  88         int len;
  89         char *newbuf;
  90
  91         len = strlen(pathname);
  92
  93         if (size == 0)
  94         {
  95             size = len+1;
  96         }
  97
  98         if (len < size)
  99         {
 100             newbuf = (char *)malloc (size*sizeof(char));
 101             strcpy (newbuf, pathname);
 102             return newbuf;
 103         }
 104         else
 105         {
 106             errno = ERANGE;
 107             return NULL;
 108         }
 109     }
 110
 111     return buf;
 112
 113 } /* getcwd */
 114