1 /* Copyright (C) 1991, 92, 93, 96, 97, 98, 99 Free Software Foundation, Inc.
2 The canonical source of this file is maintained with the GNU C Library.
3 Bugs can be reported to bug-glibc@gnu.org.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software Foundation,
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
23 /* Enable GNU extensions in fnmatch.h. */
25 # define _GNU_SOURCE 1
32 #if HAVE_STRING_H || defined _LIBC
38 #if defined STDC_HEADERS || defined _LIBC
42 /* For platform which support the ISO C amendement 1 functionality we
43 support user defined character classes. */
44 #if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
45 /* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>. */
50 /* Comment out all this code if we are using the GNU C Library, and are not
51 actually compiling the library itself. This code is part of the GNU C
52 Library, but also included in many other GNU distributions. Compiling
53 and linking in this code is a waste when using the GNU C library
54 (especially if it is a shared library). Rather than having every GNU
55 program understand `configure --with-gnu-libc' and omit the object files,
56 it is simpler to just do this in the source for each such file. */
58 #if defined _LIBC || !defined __GNU_LIBRARY__
61 # if defined STDC_HEADERS || !defined isascii
64 # define ISASCII(c) isascii(c)
68 # define ISBLANK(c) (ISASCII (c) && isblank (c))
70 # define ISBLANK(c) ((c) == ' ' || (c) == '\t')
73 # define ISGRAPH(c) (ISASCII (c) && isgraph (c))
75 # define ISGRAPH(c) (ISASCII (c) && isprint (c) && !isspace (c))
78 # define ISPRINT(c) (ISASCII (c) && isprint (c))
79 # define ISDIGIT(c) (ISASCII (c) && isdigit (c))
80 # define ISALNUM(c) (ISASCII (c) && isalnum (c))
81 # define ISALPHA(c) (ISASCII (c) && isalpha (c))
82 # define ISCNTRL(c) (ISASCII (c) && iscntrl (c))
83 # define ISLOWER(c) (ISASCII (c) && islower (c))
84 # define ISPUNCT(c) (ISASCII (c) && ispunct (c))
85 # define ISSPACE(c) (ISASCII (c) && isspace (c))
86 # define ISUPPER(c) (ISASCII (c) && isupper (c))
87 # define ISXDIGIT(c) (ISASCII (c) && isxdigit (c))
89 # define STREQ(s1, s2) ((strcmp (s1, s2) == 0))
91 # if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
92 /* The GNU C library provides support for user-defined character classes
93 and the functions from ISO C amendement 1. */
94 # ifdef CHARCLASS_NAME_MAX
95 # define CHAR_CLASS_MAX_LENGTH CHARCLASS_NAME_MAX
97 /* This shouldn't happen but some implementation might still have this
98 problem. Use a reasonable default value. */
99 # define CHAR_CLASS_MAX_LENGTH 256
103 # define IS_CHAR_CLASS(string) __wctype (string)
105 # define IS_CHAR_CLASS(string) wctype (string)
108 # define CHAR_CLASS_MAX_LENGTH 6 /* Namely, `xdigit'. */
110 # define IS_CHAR_CLASS(string) \
111 (STREQ (string, "alpha") || STREQ (string, "upper") \
112 || STREQ (string, "lower") || STREQ (string, "digit") \
113 || STREQ (string, "alnum") || STREQ (string, "xdigit") \
114 || STREQ (string, "space") || STREQ (string, "print") \
115 || STREQ (string, "punct") || STREQ (string, "graph") \
116 || STREQ (string, "cntrl") || STREQ (string, "blank"))
119 /* Avoid depending on library functions or files
120 whose names are inconsistent. */
122 # if !defined _LIBC && !defined getenv
123 extern char *getenv ();
130 /* This function doesn't exist on most systems. */
132 # if !defined HAVE___STRCHRNUL && !defined _LIBC
138 char *result
= strchr (s
, c
);
140 result
= strchr (s
, '\0');
145 # ifndef internal_function
146 /* Inside GNU libc we mark some function in a special way. In other
147 environments simply ignore the marking. */
148 # define internal_function
151 /* Match STRING against the filename pattern PATTERN, returning zero if
152 it matches, nonzero if not. */
153 static int internal_fnmatch
__P ((const char *pattern
, const char *string
,
154 int no_leading_period
, int flags
))
158 internal_fnmatch (pattern
, string
, no_leading_period
, flags
)
161 int no_leading_period
;
164 register const char *p
= pattern
, *n
= string
;
165 register unsigned char c
;
167 /* Note that this evaluates C many times. */
169 # define FOLD(c) ((flags & FNM_CASEFOLD) ? tolower (c) : (c))
171 # define FOLD(c) ((flags & FNM_CASEFOLD) && ISUPPER (c) ? tolower (c) : (c))
174 while ((c
= *p
++) != '\0')
183 else if (*n
== '/' && (flags
& FNM_FILE_NAME
))
185 else if (*n
== '.' && no_leading_period
187 || (n
[-1] == '/' && (flags
& FNM_FILE_NAME
))))
192 if (!(flags
& FNM_NOESCAPE
))
196 /* Trailing \ loses. */
200 if (FOLD ((unsigned char) *n
) != c
)
205 if (*n
== '.' && no_leading_period
207 || (n
[-1] == '/' && (flags
& FNM_FILE_NAME
))))
210 for (c
= *p
++; c
== '?' || c
== '*'; c
= *p
++)
212 if (*n
== '/' && (flags
& FNM_FILE_NAME
))
213 /* A slash does not match a wildcard under FNM_FILE_NAME. */
217 /* A ? needs to match one character. */
219 /* There isn't another character; no match. */
222 /* One character of the string is consumed in matching
223 this ? wildcard, so *??? won't match if there are
224 less than three characters. */
230 /* The wildcard(s) is/are the last element of the pattern.
231 If the name is a file name and contains another slash
232 this does mean it cannot match. */
233 return ((flags
& FNM_FILE_NAME
) && strchr (n
, '/') != NULL
239 endp
= __strchrnul (n
, (flags
& FNM_FILE_NAME
) ? '/' : '\0');
243 int flags2
= ((flags
& FNM_FILE_NAME
)
244 ? flags
: (flags
& ~FNM_PERIOD
));
246 for (--p
; n
< endp
; ++n
)
247 if (internal_fnmatch (p
, n
,
257 else if (c
== '/' && (flags
& FNM_FILE_NAME
))
259 while (*n
!= '\0' && *n
!= '/')
262 && (internal_fnmatch (p
, n
+ 1, flags
& FNM_PERIOD
,
268 int flags2
= ((flags
& FNM_FILE_NAME
)
269 ? flags
: (flags
& ~FNM_PERIOD
));
271 if (c
== '\\' && !(flags
& FNM_NOESCAPE
))
274 for (--p
; n
< endp
; ++n
)
275 if (FOLD ((unsigned char) *n
) == c
276 && (internal_fnmatch (p
, n
,
287 /* If we come here no match is possible with the wildcard. */
292 /* Nonzero if the sense of the character class is inverted. */
293 static int posixly_correct
;
297 if (posixly_correct
== 0)
298 posixly_correct
= getenv ("POSIXLY_CORRECT") != NULL
? 1 : -1;
303 if (*n
== '.' && no_leading_period
&& (n
== string
309 if (*n
== '/' && (flags
& FNM_FILE_NAME
))
310 /* `/' cannot be matched. */
313 not = (*p
== '!' || (posixly_correct
< 0 && *p
== '^'));
320 unsigned char fn
= FOLD ((unsigned char) *n
);
322 if (!(flags
& FNM_NOESCAPE
) && c
== '\\')
326 c
= FOLD ((unsigned char) *p
);
332 else if (c
== '[' && *p
== ':')
334 /* Leave room for the null. */
335 char str
[CHAR_CLASS_MAX_LENGTH
+ 1];
337 # if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
340 const char *startp
= p
;
344 if (c1
== CHAR_CLASS_MAX_LENGTH
)
345 /* The name is too long and therefore the pattern
350 if (c
== ':' && p
[1] == ']')
355 if (c
< 'a' || c
>= 'z')
357 /* This cannot possibly be a character class name.
358 Match it as a normal range. */
367 # if defined _LIBC || (defined HAVE_WCTYPE_H && defined HAVE_WCHAR_H)
368 wt
= IS_CHAR_CLASS (str
);
370 /* Invalid character class name. */
373 if (__iswctype (__btowc ((unsigned char) *n
), wt
))
376 if ((STREQ (str
, "alnum") && ISALNUM ((unsigned char) *n
))
377 || (STREQ (str
, "alpha") && ISALPHA ((unsigned char) *n
))
378 || (STREQ (str
, "blank") && ISBLANK ((unsigned char) *n
))
379 || (STREQ (str
, "cntrl") && ISCNTRL ((unsigned char) *n
))
380 || (STREQ (str
, "digit") && ISDIGIT ((unsigned char) *n
))
381 || (STREQ (str
, "graph") && ISGRAPH ((unsigned char) *n
))
382 || (STREQ (str
, "lower") && ISLOWER ((unsigned char) *n
))
383 || (STREQ (str
, "print") && ISPRINT ((unsigned char) *n
))
384 || (STREQ (str
, "punct") && ISPUNCT ((unsigned char) *n
))
385 || (STREQ (str
, "space") && ISSPACE ((unsigned char) *n
))
386 || (STREQ (str
, "upper") && ISUPPER ((unsigned char) *n
))
387 || (STREQ (str
, "xdigit") && ISXDIGIT ((unsigned char) *n
)))
392 /* [ (unterminated) loses. */
404 if (c
== '-' && *p
!= ']')
410 unsigned char cend
= *p
++;
411 if (!(flags
& FNM_NOESCAPE
) && cend
== '\\')
416 lo
[0] = cold
; lo
[1] = '\0';
417 fc
[0] = fn
; fc
[1] = '\0';
418 if (strcoll (lo
, fc
) <= 0)
420 hi
[0] = FOLD (cend
); hi
[1] = '\0';
421 if (strcoll (fc
, hi
) <= 0)
438 /* Skip the rest of the [...] that already matched. */
442 /* [... (unterminated) loses. */
446 if (!(flags
& FNM_NOESCAPE
) && c
== '\\')
450 /* XXX 1003.2d11 is unclear if this is right. */
453 else if (c
== '[' && *p
== ':')
458 while (*p
!= ':' || p
[1] == ']');
469 if (c
!= FOLD ((unsigned char) *n
))
479 if ((flags
& FNM_LEADING_DIR
) && *n
== '/')
480 /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz". */
490 fnmatch (pattern
, string
, flags
)
495 return internal_fnmatch (pattern
, string
, flags
& FNM_PERIOD
, flags
);
498 #endif /* _LIBC or not __GNU_LIBRARY__. */