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 *
getcwd(buf,len)41 getcwd (buf, len)
42   char *buf;
43   size_t len;
44 {
45   char ourbuf[MAXPATHLEN];
46   char *result;
47 
48   result = getwd (ourbuf);
49   if (result) {
50     if (strlen (ourbuf) >= len) {
51       errno = ERANGE;
52       return 0;
53     }
54     if (!buf) {
55        buf = (char*)malloc(len);
56        if (!buf) {
57            errno = ENOMEM;
58 	   return 0;
59        }
60     }
61     strcpy (buf, ourbuf);
62   }
63   return buf;
64 }
65