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 <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     BPTR lock;
  61
  62     lock = CurrentDir(NULL);
  63     CurrentDir(lock);
  64     if (NameFromLock (lock, pathname, FILENAME_MAX) == 0)
  65     {
  66         errno = IoErr2errno (IoErr ());
  67         return NULL;
  68     }
  69
  70     if (buf != NULL)
  71     {
  72         if (strlen(pathname) < size)
  73         {
  74             strcpy (buf, pathname);
  75         }
  76         else
  77         {
  78             errno = ERANGE;
  79             return NULL;
  80         }
  81     }
  82     else
  83     {
  84         int len;
  85         char *newbuf;
  86
  87         len = strlen(pathname);
  88
  89         if (size == 0)
  90         {
  91             size = len+1;
  92         }
  93
  94         if (len < size)
  95         {
  96             newbuf = (char *)malloc (size*sizeof(char));
  97             strcpy (newbuf, pathname);
  98             return newbuf;
  99         }
 100         else
 101         {
 102             errno = ERANGE;
 103             return NULL;
 104         }
 105     }
 106
 107     return buf;
 108
 109 } /* getcwd */
 110