1 /* Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
3 This library is free software; you can redistribute it and/or
4 modify it under the terms of the GNU Library General Public License as
5 published by the Free Software Foundation; either version 2 of the
6 License, or (at your option) any later version.
8 This library is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 Library General Public License for more details.
13 You should have received a copy of the GNU Library General Public
14 License along with this library; see the file COPYING.LIB. If
15 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
16 Cambridge, MA 02139, USA. */
18 /* AIX requires this to be the first thing in the file. */
19 #if defined (_AIX) && !defined (__GNUC__)
28 #include <sys/types.h>
31 /* Comment out all this code if we are using the GNU C Library, and are not
32 actually compiling the library itself. This code is part of the GNU C
33 Library, but also included in many other GNU distributions. Compiling
34 and linking in this code is a waste when using the GNU C library
35 (especially if it is a shared library). Rather than having every GNU
36 program understand `configure --with-gnu-libc' and omit the object files,
37 it is simpler to just do this in the source for each such file. */
39 #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
55 #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS)
63 #if defined (POSIX) || defined (DIRENT) || defined (__GNU_LIBRARY__)
65 #ifndef __GNU_LIBRARY__
66 #define D_NAMLEN(d) strlen((d)->d_name)
67 #else /* GNU C library. */
68 #define D_NAMLEN(d) ((d)->d_namlen)
69 #endif /* Not GNU C library. */
70 #else /* Not POSIX or DIRENT. */
72 #define D_NAMLEN(d) ((d)->d_namlen)
82 #endif /* POSIX or DIRENT or __GNU_LIBRARY__. */
84 #if defined (POSIX) && !defined (__GNU_LIBRARY__)
85 /* Posix does not require that the d_ino field be present, and some
86 systems do not provide it. */
87 #define REAL_DIR_ENTRY(dp) 1
89 #define REAL_DIR_ENTRY(dp) (dp->d_ino != 0)
92 #if (defined (STDC_HEADERS) || defined (__GNU_LIBRARY__))
96 #else /* No standard headers. */
108 extern char *malloc (), *realloc ();
111 extern void qsort ();
112 extern void abort (), exit ();
114 #endif /* Standard headers. */
119 extern void bzero ();
122 extern void bcopy ();
125 #define memcpy(d, s, n) bcopy ((s), (d), (n))
126 #define strrchr rindex
127 /* memset is only used for zero here, but let's be paranoid. */
128 #define memset(s, better_be_zero, n) \
129 ((void) ((better_be_zero) == 0 ? (bzero((s), (n)), 0) : (abort(), 0)))
130 #endif /* Not ANSI_STRING. */
133 #define strcoll strcmp
137 #ifndef __GNU_LIBRARY__
146 /* These casts are the for sake of the broken Ultrix compiler,
147 which warns of illegal pointer combinations otherwise. */
149 return (char *) malloc (n
);
150 return (char *) realloc (p
, n
);
152 #define realloc my_realloc
156 #if !defined(__alloca) && !defined(__GNU_LIBRARY__)
160 #define alloca(n) __builtin_alloca (n)
162 #if defined (sparc) || defined (HAVE_ALLOCA_H)
164 #else /* Not sparc or HAVE_ALLOCA_H. */
166 extern char *alloca ();
167 #endif /* Not _AIX. */
168 #endif /* sparc or HAVE_ALLOCA_H. */
171 #define __alloca alloca
177 #define size_t unsigned int
180 /* Some system header files erroneously define these.
181 We want our own definitions from <fnmatch.h> to take precedence. */
187 /* Some system header files erroneously define these.
188 We want our own definitions from <glob.h> to take precedence. */
199 __ptr_t (*__glob_opendir_hook
) __P ((const char *directory
));
200 const char *(*__glob_readdir_hook
) __P ((__ptr_t stream
));
201 void (*__glob_closedir_hook
) __P ((__ptr_t stream
));
203 static int glob_pattern_p
__P ((const char *pattern
, int quote
));
204 static int glob_in_dir
__P ((const char *pattern
, const char *directory
,
206 int (*errfunc
) __P ((const char *, int)),
208 static int prefix_array
__P ((const char *prefix
, char **array
, size_t n
));
209 static int collated_compare
__P ((const __ptr_t
, const __ptr_t
));
211 /* Do glob searching for PATTERN, placing results in PGLOB.
212 The bits defined above may be set in FLAGS.
213 If a directory cannot be opened or read and ERRFUNC is not nil,
214 it is called with the pathname that caused the error, and the
215 `errno' value from the failing call; if it returns non-zero
216 `glob' returns GLOB_ABEND; if it returns zero, the error is ignored.
217 If memory cannot be allocated for PGLOB, GLOB_NOSPACE is returned.
218 Otherwise, `glob' returns zero. */
220 glob (pattern
, flags
, errfunc
, pglob
)
223 int (*errfunc
) __P ((const char *, int));
226 const char *filename
;
232 if (pattern
== NULL
|| pglob
== NULL
|| (flags
& ~__GLOB_FLAGS
) != 0)
238 /* Find the filename. */
239 filename
= strrchr (pattern
, '/');
240 if (filename
== NULL
)
243 dirname
= (char *) ".";
246 else if (filename
== pattern
)
249 dirname
= (char *) "/";
255 dirlen
= filename
- pattern
;
256 dirname
= (char *) __alloca (dirlen
+ 1);
257 memcpy (dirname
, pattern
, dirlen
);
258 dirname
[dirlen
] = '\0';
262 if (filename
[0] == '\0' && dirlen
> 1)
263 /* "pattern/". Expand "pattern", appending slashes. */
265 int ret
= glob (dirname
, flags
| GLOB_MARK
, errfunc
, pglob
);
267 pglob
->gl_flags
= (pglob
->gl_flags
& ~GLOB_MARK
) | (flags
& GLOB_MARK
);
271 if (!(flags
& GLOB_APPEND
))
274 pglob
->gl_pathv
= NULL
;
277 oldcount
= pglob
->gl_pathc
;
279 if (glob_pattern_p (dirname
, !(flags
& GLOB_NOESCAPE
)))
281 /* The directory name contains metacharacters, so we
282 have to glob for the directory, and then glob for
283 the pattern in each directory found. */
287 status
= glob (dirname
,
288 ((flags
& (GLOB_ERR
| GLOB_NOCHECK
| GLOB_NOESCAPE
)) |
294 /* We have successfully globbed the preceding directory name.
295 For each name we found, call glob_in_dir on it and FILENAME,
296 appending the results to PGLOB. */
297 for (i
= 0; i
< dirs
.gl_pathc
; ++i
)
303 /* Make globbing interruptible in the bash shell. */
304 extern int interrupt_state
;
315 oldcount
= pglob
->gl_pathc
;
316 status
= glob_in_dir (filename
, dirs
.gl_pathv
[i
],
317 (flags
| GLOB_APPEND
) & ~GLOB_NOCHECK
,
319 if (status
== GLOB_NOMATCH
)
320 /* No matches in this directory. Try the next. */
330 /* Stick the directory on the front of each name. */
331 if (prefix_array (dirs
.gl_pathv
[i
],
332 &pglob
->gl_pathv
[oldcount
],
333 pglob
->gl_pathc
- oldcount
))
341 flags
|= GLOB_MAGCHAR
;
343 if (pglob
->gl_pathc
== oldcount
)
345 if (flags
& GLOB_NOCHECK
)
347 size_t len
= strlen (pattern
) + 1;
348 char *patcopy
= (char *) malloc (len
);
351 memcpy (patcopy
, pattern
, len
);
354 = (char **) realloc (pglob
->gl_pathv
,
356 ((flags
& GLOB_DOOFFS
) ?
357 pglob
->gl_offs
: 0) +
360 if (pglob
->gl_pathv
== NULL
)
366 if (flags
& GLOB_DOOFFS
)
367 while (pglob
->gl_pathc
< pglob
->gl_offs
)
368 pglob
->gl_pathv
[pglob
->gl_pathc
++] = NULL
;
370 pglob
->gl_pathv
[pglob
->gl_pathc
++] = patcopy
;
371 pglob
->gl_pathv
[pglob
->gl_pathc
] = NULL
;
372 pglob
->gl_flags
= flags
;
379 status
= glob_in_dir (filename
, dirname
, flags
, errfunc
, pglob
);
385 /* Stick the directory on the front of each name. */
386 if (prefix_array (dirname
,
387 &pglob
->gl_pathv
[oldcount
],
388 pglob
->gl_pathc
- oldcount
))
396 if (!(flags
& GLOB_NOSORT
))
397 /* Sort the vector. */
398 qsort ((__ptr_t
) & pglob
->gl_pathv
[oldcount
],
399 pglob
->gl_pathc
- oldcount
,
400 sizeof (char *), collated_compare
);
406 /* Free storage allocated in PGLOB by a previous `glob' call. */
409 register glob_t
*pglob
;
411 if (pglob
->gl_pathv
!= NULL
)
414 for (i
= 0; i
< pglob
->gl_pathc
; ++i
)
415 if (pglob
->gl_pathv
[i
] != NULL
)
416 free ((__ptr_t
) pglob
->gl_pathv
[i
]);
417 free ((__ptr_t
) pglob
->gl_pathv
);
422 /* Do a collated comparison of A and B. */
424 collated_compare (a
, b
)
428 const char *const s1
= *(const char *const * const) a
;
429 const char *const s2
= *(const char *const * const) b
;
437 return strcoll (s1
, s2
);
441 /* Prepend DIRNAME to each of N members of ARRAY, replacing ARRAY's
442 elements in place. Return nonzero if out of memory, zero if successful.
443 A slash is inserted between DIRNAME and each elt of ARRAY,
444 unless DIRNAME is just "/". Each old element of ARRAY is freed. */
446 prefix_array (dirname
, array
, n
)
452 size_t dirlen
= strlen (dirname
);
454 if (dirlen
== 1 && dirname
[0] == '/')
455 /* DIRNAME is just "/", so normal prepending would get us "//foo".
456 We want "/foo" instead, so don't prepend any chars from DIRNAME. */
459 for (i
= 0; i
< n
; ++i
)
461 size_t eltlen
= strlen (array
[i
]) + 1;
462 char *new = (char *) malloc (dirlen
+ 1 + eltlen
);
466 free ((__ptr_t
) array
[--i
]);
470 memcpy (new, dirname
, dirlen
);
472 memcpy (&new[dirlen
+ 1], array
[i
], eltlen
);
473 free ((__ptr_t
) array
[i
]);
481 /* Return nonzero if PATTERN contains any metacharacters.
482 Metacharacters can be quoted with backslashes if QUOTE is nonzero. */
484 glob_pattern_p (pattern
, quote
)
488 register const char *p
;
491 for (p
= pattern
; *p
!= '\0'; ++p
)
517 /* Like `glob', but PATTERN is a final pathname component,
518 and matches are searched for in DIRECTORY.
519 The GLOB_NOSORT bit in FLAGS is ignored. No sorting is ever done.
520 The GLOB_APPEND flag is assumed to be set (always appends). */
522 glob_in_dir (pattern
, directory
, flags
, errfunc
, pglob
)
524 const char *directory
;
526 int (*errfunc
) __P ((const char *, int));
533 struct globlink
*next
;
536 struct globlink
*names
= NULL
;
539 if (!glob_pattern_p (pattern
, !(flags
& GLOB_NOESCAPE
)))
542 flags
|= GLOB_NOCHECK
;
546 flags
|= GLOB_MAGCHAR
;
548 stream
= (__glob_opendir_hook
? (*__glob_opendir_hook
) (directory
)
549 : (__ptr_t
) opendir (directory
));
552 if ((errfunc
!= NULL
&& (*errfunc
) (directory
, errno
)) ||
562 if (__glob_readdir_hook
)
564 name
= (*__glob_readdir_hook
) (stream
);
571 struct dirent
*d
= readdir ((DIR *) stream
);
574 if (! REAL_DIR_ENTRY (d
))
584 if (fnmatch (pattern
, name
,
585 (!(flags
& GLOB_PERIOD
) ? FNM_PERIOD
: 0) |
586 ((flags
& GLOB_NOESCAPE
) ? FNM_NOESCAPE
: 0)) == 0)
589 = (struct globlink
*) __alloca (sizeof (struct globlink
));
593 = (char *) malloc (len
+ ((flags
& GLOB_MARK
) ? 1 : 0) + 1);
594 if (new->name
== NULL
)
596 memcpy ((__ptr_t
) new->name
, name
, len
);
597 if (flags
& GLOB_MARK
)
598 new->name
[len
++] = '/';
599 new->name
[len
] = '\0';
607 if (nfound
== 0 && (flags
& GLOB_NOCHECK
))
609 size_t len
= strlen (pattern
);
611 names
= (struct globlink
*) __alloca (sizeof (struct globlink
));
613 names
->name
= (char *) malloc (len
+ ((flags
& GLOB_MARK
) ? 1 : 0) + 1);
614 if (names
->name
== NULL
)
616 memcpy (names
->name
, pattern
, len
);
617 if (flags
& GLOB_MARK
)
618 names
->name
[len
++] = '/';
619 names
->name
[len
] = '\0';
623 = (char **) realloc (pglob
->gl_pathv
,
625 ((flags
& GLOB_DOOFFS
) ? pglob
->gl_offs
: 0) +
628 if (pglob
->gl_pathv
== NULL
)
631 if (flags
& GLOB_DOOFFS
)
632 while (pglob
->gl_pathc
< pglob
->gl_offs
)
633 pglob
->gl_pathv
[pglob
->gl_pathc
++] = NULL
;
635 for (; names
!= NULL
; names
= names
->next
)
636 pglob
->gl_pathv
[pglob
->gl_pathc
++] = names
->name
;
637 pglob
->gl_pathv
[pglob
->gl_pathc
] = NULL
;
639 pglob
->gl_flags
= flags
;
644 if (__glob_closedir_hook
)
645 (*__glob_closedir_hook
) (stream
);
647 (void) closedir ((DIR *) stream
);
650 return nfound
== 0 ? GLOB_NOMATCH
: 0;
655 if (__glob_closedir_hook
)
656 (*__glob_closedir_hook
) (stream
);
658 (void) closedir ((DIR *) stream
);
661 while (names
!= NULL
)
663 if (names
->name
!= NULL
)
664 free ((__ptr_t
) names
->name
);
670 #endif /* _LIBC or not __GNU_LIBRARY__. */