Mercurial > hg > octave-kai > gnulib-hg
annotate lib/xgetcwd.c @ 3435:e587cbb53203
fix typo
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sat, 01 Sep 2001 06:13:08 +0000 |
| parents | 656345934fec |
| children | 95da01de9977 |
| 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> |
| 3431 | 31 |
| 32 #if HAVE_STDLIB_H | |
| 33 # include <stdlib.h> | |
| 34 #endif | |
| 35 #if HAVE_UNISTD_H | |
| 36 # include <unistd.h> | |
| 37 #endif | |
| 212 | 38 |
| 778 | 39 #if HAVE_GETCWD |
| 40 char *getcwd (); | |
| 41 #else | |
| 212 | 42 char *getwd (); |
| 778 | 43 # define getcwd(Buf, Max) getwd (Buf) |
| 212 | 44 #endif |
| 45 | |
| 3431 | 46 #include "xalloc.h" |
| 212 | 47 |
| 48 /* Return the current directory, newly allocated, arbitrarily long. | |
| 49 Return NULL and set errno on error. */ | |
| 50 | |
| 51 char * | |
| 52 xgetcwd () | |
| 53 { | |
|
3343
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
54 #if defined __GLIBC__ && __GLIBC__ >= 2 |
|
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
55 return getcwd (NULL, 0); |
|
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
56 #else |
|
3433
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
57 size_t buf_size = 128; /* must be a power of 2 */ |
|
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
58 char *buf = NULL; |
| 212 | 59 |
|
3433
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
60 while (1) |
| 212 | 61 { |
| 3435 | 62 char *cwd; |
|
3433
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
63 buf = (char *) xrealloc (buf, buf_size); |
| 212 | 64 |
|
3433
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
65 cwd = getcwd (buf, buf_size); |
|
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
66 if (cwd != NULL) |
|
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
67 return cwd; |
|
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
68 if (errno != ERANGE) |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
69 { |
|
3433
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
70 free (buf); |
|
2627
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
71 return NULL; |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
72 } |
|
308ad15a7eab
(xgetcwd): If the required pathname length is smaller
Jim Meyering <jim@meyering.net>
parents:
778
diff
changeset
|
73 |
|
3433
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
74 buf_size *= 2; |
|
656345934fec
(xgetcwd): Reorganize to avoid some duplication.
Jim Meyering <jim@meyering.net>
parents:
3431
diff
changeset
|
75 if (buf_size == 0) |
| 3431 | 76 xalloc_die (); |
| 212 | 77 } |
|
3343
1ff924ca3a9a
(xgetcwd) [defined __GLIBC__ && __GLIBC__ >= 2]:
Jim Meyering <jim@meyering.net>
parents:
2627
diff
changeset
|
78 #endif |
| 212 | 79 } |