blob: e720c99a6f551f303eb6bf23c262694bb6609d45 [file] [log] [blame]
Guido van Rossumf70e43a1991-02-19 12:39:46 +00001/***********************************************************
Guido van Rossum6d023c91995-01-04 19:12:13 +00002Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
3The Netherlands.
Guido van Rossumf70e43a1991-02-19 12:39:46 +00004
5 All Rights Reserved
6
Guido van Rossumd266eb41996-10-25 14:44:06 +00007Permission to use, copy, modify, and distribute this software and its
8documentation for any purpose and without fee is hereby granted,
Guido van Rossumf70e43a1991-02-19 12:39:46 +00009provided that the above copyright notice appear in all copies and that
Guido van Rossumd266eb41996-10-25 14:44:06 +000010both that copyright notice and this permission notice appear in
Guido van Rossumf70e43a1991-02-19 12:39:46 +000011supporting documentation, and that the names of Stichting Mathematisch
Guido van Rossumd266eb41996-10-25 14:44:06 +000012Centrum or CWI or Corporation for National Research Initiatives or
13CNRI not be used in advertising or publicity pertaining to
14distribution of the software without specific, written prior
15permission.
Guido van Rossumf70e43a1991-02-19 12:39:46 +000016
Guido van Rossumd266eb41996-10-25 14:44:06 +000017While CWI is the initial source for this software, a modified version
18is made available by the Corporation for National Research Initiatives
19(CNRI) at the Internet address ftp://ftp.python.org.
20
21STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
22REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
23MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
24CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
25DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
26PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
27TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
28PERFORMANCE OF THIS SOFTWARE.
Guido van Rossumf70e43a1991-02-19 12:39:46 +000029
30******************************************************************/
31
Guido van Rossum79273841991-02-19 12:28:18 +000032/* Two PD getcwd() implementations.
33 Author: Guido van Rossum, CWI Amsterdam, Jan 1991, <guido@cwi.nl>. */
Guido van Rossumde9775a1991-01-21 14:27:52 +000034
Guido van Rossum79273841991-02-19 12:28:18 +000035#include <stdio.h>
36#include <errno.h>
Guido van Rossumde9775a1991-01-21 14:27:52 +000037
Guido van Rossum1d5735e1994-08-30 08:27:36 +000038#ifdef HAVE_GETWD
Guido van Rossum79273841991-02-19 12:28:18 +000039
Guido van Rossum1d5735e1994-08-30 08:27:36 +000040/* Version for BSD systems -- use getwd() */
Guido van Rossum79273841991-02-19 12:28:18 +000041
Guido van Rossum1d5735e1994-08-30 08:27:36 +000042#ifdef HAVE_SYS_PARAM_H
43#include <sys/param.h>
44#endif
45
46#ifndef MAXPATHLEN
47#define MAXPATHLEN 1024
48#endif
Guido van Rossum79273841991-02-19 12:28:18 +000049
Guido van Rossumde9775a1991-01-21 14:27:52 +000050extern char *getwd();
51
52char *
53getcwd(buf, size)
54 char *buf;
55 int size;
56{
57 char localbuf[MAXPATHLEN+1];
58 char *ret;
59
60 if (size <= 0) {
61 errno = EINVAL;
62 return NULL;
63 }
64 ret = getwd(localbuf);
65 if (ret != NULL && strlen(localbuf) >= size) {
66 errno = ERANGE;
67 return NULL;
68 }
69 if (ret == NULL) {
70 errno = EACCES; /* Most likely error */
71 return NULL;
72 }
73 strncpy(buf, localbuf, size);
74 return buf;
75}
76
Guido van Rossum1d5735e1994-08-30 08:27:36 +000077#else /* !HAVE_GETWD */
Guido van Rossum79273841991-02-19 12:28:18 +000078
Guido van Rossum1d5735e1994-08-30 08:27:36 +000079/* Version for really old UNIX systems -- use pipe from pwd */
Guido van Rossum79273841991-02-19 12:28:18 +000080
Guido van Rossum1d5735e1994-08-30 08:27:36 +000081#ifndef PWD_CMD
Guido van Rossum79273841991-02-19 12:28:18 +000082#define PWD_CMD "/bin/pwd"
Guido van Rossum1d5735e1994-08-30 08:27:36 +000083#endif
Guido van Rossum79273841991-02-19 12:28:18 +000084
85char *
86getcwd(buf, size)
87 char *buf;
88 int size;
89{
90 FILE *fp;
91 char *p;
92 int sts;
93 if (size <= 0) {
94 errno = EINVAL;
95 return NULL;
96 }
97 if ((fp = popen(PWD_CMD, "r")) == NULL)
98 return NULL;
99 if (fgets(buf, size, fp) == NULL || (sts = pclose(fp)) != 0) {
100 errno = EACCES; /* Most likely error */
101 return NULL;
102 }
103 for (p = buf; *p != '\n'; p++) {
104 if (*p == '\0') {
105 errno = ERANGE;
106 return NULL;
107 }
108 }
109 *p = '\0';
110 return buf;
111}
112
Guido van Rossum1d5735e1994-08-30 08:27:36 +0000113#endif /* !HAVE_GETWD */