1  /* Emulate getcwd using getwd.
       2     This function is in the public domain. */
       3  
       4  /*
       5  
       6  @deftypefn Supplemental char* getcwd (char *@var{pathname}, int @var{len})
       7  
       8  Copy the absolute pathname for the current working directory into
       9  @var{pathname}, which is assumed to point to a buffer of at least
      10  @var{len} bytes, and return a pointer to the buffer.  If the current
      11  directory's path doesn't fit in @var{len} characters, the result is
      12  @code{NULL} and @code{errno} is set.  If @var{pathname} is a null pointer,
      13  @code{getcwd} will obtain @var{len} bytes of space using
      14  @code{malloc}.
      15  
      16  @end deftypefn
      17  
      18  */
      19  
      20  #include "config.h"
      21  
      22  #ifdef HAVE_SYS_PARAM_H
      23  #include <sys/param.h>
      24  #endif
      25  #include <errno.h>
      26  #ifdef HAVE_STRING_H
      27  #include <string.h>
      28  #endif
      29  #ifdef HAVE_STDLIB_H
      30  #include <stdlib.h>
      31  #endif
      32  
      33  extern char *getwd ();
      34  extern int errno;
      35  
      36  #ifndef MAXPATHLEN
      37  #define MAXPATHLEN 1024
      38  #endif
      39  
      40  char *
      41  getcwd (char *buf, size_t len)
      42  {
      43    char ourbuf[MAXPATHLEN];
      44    char *result;
      45  
      46    result = getwd (ourbuf);
      47    if (result) {
      48      if (strlen (ourbuf) >= len) {
      49        errno = ERANGE;
      50        return 0;
      51      }
      52      if (!buf) {
      53         buf = (char*)malloc(len);
      54         if (!buf) {
      55             errno = ENOMEM;
      56  	   return 0;
      57         }
      58      }
      59      strcpy (buf, ourbuf);
      60    }
      61    return buf;
      62  }