compiler/clib/getcwd.c

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