Mercurial > hg > octave-kai > gnulib-hg
annotate lib/xgetcwd.c @ 3343:1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Simply `return getcwd (NULL, 0);'.
[! (defined __GLIBC__ && __GLIBC__ >= 2)]:
Use 1300 as initial value for length, not PATH_MAX.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sun, 12 Aug 2001 20:11:39 +0000 |
| parents | 308ad15a7eab |
| children | 2d4af41566eb |
| rev | line source |
|---|---|
| 212 | 1 /* xgetcwd.c -- return current directory with unlimited length |
|
3343
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
2 Copyright (C) 1992, 1996, 2000, 2001 Free Software Foundation, Inc. |
| 212 | 3 |
| 4 This program is free software; you can redistribute it and/or modify | |
| 5 it under the terms of the GNU General Public License as published by | |
| 6 the Free Software Foundation; either version 2, or (at your option) | |
| 7 any later version. | |
| 8 | |
| 9 This program is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 GNU General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU General Public License | |
|
650
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
212
diff
changeset
|
15 along with this program; if not, write to the Free Software Foundation, |
|
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
212
diff
changeset
|
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
| 212 | 17 |
|
650
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
212
diff
changeset
|
18 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */ |
| 212 | 19 |
| 778 | 20 #if HAVE_CONFIG_H |
| 653 | 21 # include <config.h> |
| 212 | 22 #endif |
| 23 | |
| 24 #include <stdio.h> | |
| 25 #include <errno.h> | |
| 26 #ifndef errno | |
| 27 extern int errno; | |
| 28 #endif | |
| 778 | 29 |
| 212 | 30 #include <sys/types.h> |
| 31 #include "pathmax.h" | |
| 32 | |
| 778 | 33 #if HAVE_GETCWD |
| 34 char *getcwd (); | |
| 35 #else | |
| 212 | 36 char *getwd (); |
| 778 | 37 # define getcwd(Buf, Max) getwd (Buf) |
| 212 | 38 #endif |
| 39 | |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
40 extern void *xmalloc (); |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
41 extern char *xstrdup (); |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
42 extern void free (); |
| 212 | 43 |
| 44 /* Return the current directory, newly allocated, arbitrarily long. | |
| 45 Return NULL and set errno on error. */ | |
| 46 | |
| 47 char * | |
| 48 xgetcwd () | |
| 49 { | |
|
3343
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
50 #if defined __GLIBC__ && __GLIBC__ >= 2 |
|
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
51 return getcwd (NULL, 0); |
|
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
52 #else |
| 212 | 53 char *ret; |
| 54 unsigned path_max; | |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
55 char buf[1024]; |
| 212 | 56 |
| 57 errno = 0; | |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
58 ret = getcwd (buf, sizeof (buf)); |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
59 if (ret != NULL) |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
60 return xstrdup (buf); |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
61 if (errno != ERANGE) |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
62 return NULL; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
63 |
|
3343
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
64 path_max = 1300; |
| 212 | 65 path_max += 2; /* The getcwd docs say to do this. */ |
| 66 | |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
67 for (;;) |
| 212 | 68 { |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
69 char *cwd = (char *) xmalloc (path_max); |
| 212 | 70 |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
71 errno = 0; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
72 ret = getcwd (cwd, path_max); |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
73 if (ret != NULL) |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
74 return ret; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
75 if (errno != ERANGE) |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
76 { |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
77 int save_errno = errno; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
78 free (cwd); |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
79 errno = save_errno; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
80 return NULL; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
81 } |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
82 |
| 212 | 83 free (cwd); |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
84 |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
85 path_max += path_max / 16; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
86 path_max += 32; |
| 212 | 87 } |
|
3343
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
88 #endif |
| 212 | 89 } |