* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed by the University of
- * California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
static char sccsid[] = "@(#)fnmatch.c 8.2 (Berkeley) 4/16/94";
#endif /* LIBC_SCCS and not lint */
#include <sys/cdefs.h>
-__FBSDID("$FreeBSD: src/lib/libc/gen/fnmatch.c,v 1.15 2002/02/01 01:32:19 obrien Exp $");
+__FBSDID("$FreeBSD: src/lib/libc/gen/fnmatch.c,v 1.19 2010/04/16 22:29:24 jilles Exp $");
+
+#include "xlocale_private.h"
/*
* Function fnmatch() as specified in POSIX 1003.2-1992, section B.6.
* Compares a filename or pathname to a pattern.
*/
-#include <ctype.h>
+/*
+ * Some notes on multibyte character support:
+ * 1. Patterns with illegal byte sequences match nothing.
+ * 2. Illegal byte sequences in the "string" argument are handled by treating
+ * them as single-byte characters with a value of the first byte of the
+ * sequence cast to wchar_t.
+ * 3. Multibyte conversion state objects (mbstate_t) are passed around and
+ * used for most, but not all, conversions. Further work will be required
+ * to support state-dependent encodings.
+ */
+
#include <fnmatch.h>
+#include <limits.h>
#include <string.h>
-#include <stdio.h>
+#include <wchar.h>
+#include <wctype.h>
#include "collate.h"
#define EOS '\0'
+#define RETURN_ERROR 2 /* neither 0 or FNM_NOMATCH */
#define RANGE_MATCH 1
#define RANGE_NOMATCH 0
#define RANGE_ERROR (-1)
-static int rangematch(const char *, char, int, char **);
+#define RECURSION_MAX 64
+
+__private_extern__ int rangematch(const char *, wchar_t, const char *, int, char **, char **, mbstate_t *, mbstate_t *, locale_t);
+static int fnmatch1(const char *, const char *, const char *, int, mbstate_t,
+ mbstate_t, locale_t, int);
int
fnmatch(pattern, string, flags)
const char *pattern, *string;
int flags;
{
- const char *stringstart;
- char *newp;
- char c, test;
+ static const mbstate_t initial;
+#if __DARWIN_UNIX03
+ return (fnmatch1(pattern, string, string, flags, initial, initial, __current_locale(), RECURSION_MAX));
+#else /* !__DARWIN_UNIX03 */
+ return (fnmatch1(pattern, string, string, flags, initial, initial, __current_locale(), RECURSION_MAX) != 0 ? FNM_NOMATCH : 0);
+#endif /* __DARWIN_UNIX03 */
+}
+
+static int
+fnmatch1(pattern, string, stringstart, flags, patmbs, strmbs, loc, recursion)
+ const char *pattern, *string, *stringstart;
+ int flags;
+ mbstate_t patmbs, strmbs;
+ locale_t loc;
+ int recursion;
+{
+ char *newp, *news;
+ char c;
+ wchar_t pc, sc;
+ size_t pclen, sclen;
- for (stringstart = string;;)
- switch (c = *pattern++) {
+ if (recursion-- <= 0)
+ return RETURN_ERROR;
+ for (;;) {
+ pclen = mbrtowc_l(&pc, pattern, MB_LEN_MAX, &patmbs, loc);
+ if (pclen == (size_t)-1 || pclen == (size_t)-2)
+#if __DARWIN_UNIX03
+ return (RETURN_ERROR);
+#else /* !__DARWIN_UNIX03 */
+ return (FNM_NOMATCH);
+#endif /* __DARWIN_UNIX03 */
+ pattern += pclen;
+ sclen = mbrtowc_l(&sc, string, MB_LEN_MAX, &strmbs, loc);
+ if (sclen == (size_t)-1 || sclen == (size_t)-2) {
+ sc = (unsigned char)*string;
+ sclen = 1;
+ memset(&strmbs, 0, sizeof(strmbs));
+ }
+ switch (pc) {
case EOS:
- if ((flags & FNM_LEADING_DIR) && *string == '/')
+ if ((flags & FNM_LEADING_DIR) && sc == '/')
return (0);
- return (*string == EOS ? 0 : FNM_NOMATCH);
+ return (sc == EOS ? 0 : FNM_NOMATCH);
case '?':
- if (*string == EOS)
+ if (sc == EOS)
return (FNM_NOMATCH);
- if (*string == '/' && (flags & FNM_PATHNAME))
+ if (sc == '/' && (flags & FNM_PATHNAME))
return (FNM_NOMATCH);
- if (*string == '.' && (flags & FNM_PERIOD) &&
+ if (sc == '.' && (flags & FNM_PERIOD) &&
(string == stringstart ||
((flags & FNM_PATHNAME) && *(string - 1) == '/')))
return (FNM_NOMATCH);
- ++string;
+ string += sclen;
break;
case '*':
c = *pattern;
while (c == '*')
c = *++pattern;
- if (*string == '.' && (flags & FNM_PERIOD) &&
+ if (sc == '.' && (flags & FNM_PERIOD) &&
(string == stringstart ||
((flags & FNM_PATHNAME) && *(string - 1) == '/')))
return (FNM_NOMATCH);
}
/* General case, use recursion. */
- while ((test = *string) != EOS) {
- if (!fnmatch(pattern, string, flags & ~FNM_PERIOD))
- return (0);
- if (test == '/' && flags & FNM_PATHNAME)
+ int ret;
+ while (sc != EOS) {
+ if ((ret = fnmatch1(pattern, string, stringstart,
+ flags, patmbs, strmbs, loc, recursion)) != FNM_NOMATCH)
+ return (ret);
+ sclen = mbrtowc_l(&sc, string, MB_LEN_MAX,
+ &strmbs, loc);
+ if (sclen == (size_t)-1 ||
+ sclen == (size_t)-2) {
+ sc = (unsigned char)*string;
+ sclen = 1;
+ memset(&strmbs, 0, sizeof(strmbs));
+ }
+ if (sc == '/' && flags & FNM_PATHNAME)
break;
- ++string;
+ string += sclen;
}
return (FNM_NOMATCH);
case '[':
- if (*string == EOS)
+ if (sc == EOS)
return (FNM_NOMATCH);
- if (*string == '/' && (flags & FNM_PATHNAME))
+ if (sc == '/' && (flags & FNM_PATHNAME))
return (FNM_NOMATCH);
- if (*string == '.' && (flags & FNM_PERIOD) &&
+ if (sc == '.' && (flags & FNM_PERIOD) &&
(string == stringstart ||
((flags & FNM_PATHNAME) && *(string - 1) == '/')))
return (FNM_NOMATCH);
- switch (rangematch(pattern, *string, flags, &newp)) {
+ switch (rangematch(pattern, sc, string + sclen, flags,
+ &newp, &news, &patmbs, &strmbs, loc)) {
case RANGE_ERROR:
+#if __DARWIN_UNIX03
+ return (RETURN_ERROR);
+#else /* !__DARWIN_UNIX03 */
goto norm;
+#endif /* __DARWIN_UNIX03 */
case RANGE_MATCH:
pattern = newp;
+ string = news;
break;
case RANGE_NOMATCH:
return (FNM_NOMATCH);
}
- ++string;
break;
case '\\':
if (!(flags & FNM_NOESCAPE)) {
- if ((c = *pattern++) == EOS) {
- c = '\\';
- --pattern;
- }
+ pclen = mbrtowc_l(&pc, pattern, MB_LEN_MAX,
+ &patmbs, loc);
+ if (pclen == (size_t)-1 || pclen == (size_t)-2)
+#if __DARWIN_UNIX03
+ return (RETURN_ERROR);
+#else /* !__DARWIN_UNIX03 */
+ return (FNM_NOMATCH);
+#endif /* __DARWIN_UNIX03 */
+ if (pclen == 0)
+ pc = '\\';
+ pattern += pclen;
}
/* FALLTHROUGH */
default:
+#if !__DARWIN_UNIX03
norm:
- if (c == *string)
+#endif /* !__DARWIN_UNIX03 */
+ if (pc == sc)
;
else if ((flags & FNM_CASEFOLD) &&
- (tolower((unsigned char)c) ==
- tolower((unsigned char)*string)))
+ (towlower_l(pc, loc) == towlower_l(sc, loc)))
;
else
return (FNM_NOMATCH);
- string++;
+ string += sclen;
break;
}
+ }
/* NOTREACHED */
}
-static int
-rangematch(pattern, test, flags, newp)
- const char *pattern;
- char test;
+#ifndef BUILDING_VARIANT
+__private_extern__ int
+rangematch(pattern, test, string, flags, newp, news, patmbs, strmbs, loc)
+ const char *pattern, *string;
+ wchar_t test;
int flags;
- char **newp;
+ char **newp, **news;
+ mbstate_t *patmbs, *strmbs;
+ locale_t loc;
{
- int negate, ok;
- char c, c2;
+ int negate, ok, special;
+ wchar_t c, c2;
+ wchar_t buf[STR_LEN]; /* STR_LEN defined in collate.h */
+ size_t pclen, sclen, len;
+ const char *origpat, *cp, *savestring;
+ mbstate_t save;
/*
* A bracket expression starting with an unquoted circumflex
++pattern;
if (flags & FNM_CASEFOLD)
- test = tolower((unsigned char)test);
+ test = towlower_l(test, loc);
/*
* A right bracket shall lose its special meaning and represent
* -- POSIX.2 2.8.3.2
*/
ok = 0;
- c = *pattern++;
- do {
- if (c == '\\' && !(flags & FNM_NOESCAPE))
- c = *pattern++;
- if (c == EOS)
+ origpat = pattern;
+ for (;;) {
+ c = 0;
+ if (*pattern == ']' && pattern > origpat) {
+ break;
+ } else if (*pattern == '\0') {
return (RANGE_ERROR);
-
- if (c == '/' && (flags & FNM_PATHNAME))
+ } else if (*pattern == '/' && (flags & FNM_PATHNAME)) {
return (RANGE_NOMATCH);
+ } else if (*pattern == '\\' && !(flags & FNM_NOESCAPE))
+ pattern++;
+ else if (*pattern == '[' && ((special = *(pattern + 1)) == '.' || special == '=' || special == ':')) {
+ cp = (pattern += 2);
+ while((cp = strchr(cp, special))) {
+ if (*(cp + 1) == ']')
+ break;
+ cp++;
+ }
+ if (!cp)
+ return (RANGE_ERROR);
+ if (special == '.') {
+treat_like_collating_symbol:
+ len = __collate_collating_symbol(buf, STR_LEN, pattern, cp - pattern, patmbs, loc);
+ if (len == (size_t)-1 || len == 0)
+ return (RANGE_ERROR);
+ pattern = cp + 2;
+ if (len > 1) {
+ wchar_t *wp, sc;
+ /* no multi-character collation symbols as start of range */
+ if (*(cp + 2) == '-' && *(cp + 3) != EOS
+ && *(cp + 3) != ']')
+ return (RANGE_ERROR);
+ wp = buf;
+ if (test != *wp++)
+ continue;
+ if (len == 1) {
+ ok = 1;
+ break;
+ }
+ memcpy(&save, strmbs, sizeof(save));
+ savestring = string;
+ while (--len > 0) {
+ sclen = mbrtowc_l(&sc, string, MB_LEN_MAX, strmbs, loc);
+ if (sclen == (size_t)-1 || sclen == (size_t)-2) {
+ sc = (unsigned char)*string;
+ sclen = 1;
+ memset(&strmbs, 0, sizeof(strmbs));
+ }
+ if (sc != *wp++) {
+ memcpy(strmbs, &save, sizeof(save));
+ string = savestring;
+ break;
+ }
+ string += sclen;
+ }
+ if (len == 0) {
+ ok = 1;
+ break;
+ }
+ continue; /* no match */
+ }
+ c = *buf;
+ } else if (special == '=') {
+ int ec;
+ memcpy(&save, patmbs, sizeof(save));
+ ec = __collate_equiv_class(pattern, cp - pattern, patmbs, loc);
+ if (ec < 0)
+ return (RANGE_ERROR);
+ if (ec == 0) {
+ memcpy(patmbs, &save, sizeof(save));
+ goto treat_like_collating_symbol;
+ }
+ pattern = cp + 2;
+ /* no equivalence classes as start of range */
+ if (*(cp + 2) == '-' && *(cp + 3) != EOS &&
+ *(cp + 3) != ']')
+ return (RANGE_ERROR);
+ len = __collate_equiv_match(ec, NULL, 0, test, string, strlen(string), strmbs, &sclen, loc);
+ if (len == (size_t)-1) {
+ return (RANGE_ERROR);
+ }
+ if (len > 0) {
+ ok = 1;
+ string += sclen;
+ break;
+ }
+ continue;
+ } else { /* special == ':' */
+ wctype_t charclass;
+ char name[CHARCLASS_NAME_MAX + 1];
+ /* no character classes as start of range */
+ if (*(cp + 2) == '-' && *(cp + 3) != EOS &&
+ *(cp + 3) != ']')
+ return (RANGE_ERROR);
+ /* assume character class names are ascii */
+ if (cp - pattern > CHARCLASS_NAME_MAX)
+ return (RANGE_ERROR);
+ strlcpy(name, pattern, cp - pattern + 1);
+ pattern = cp + 2;
+ if ((charclass = wctype(name)) == 0)
+ return (RANGE_ERROR);
+ if (iswctype_l(test, charclass, loc)) {
+ ok = 1;
+ break;
+ }
+ continue;
+ }
+ }
+ if (!c) {
+ pclen = mbrtowc_l(&c, pattern, MB_LEN_MAX, patmbs, loc);
+ if (pclen == (size_t)-1 || pclen == (size_t)-2)
+ return (RANGE_ERROR);
+ pattern += pclen;
+ }
if (flags & FNM_CASEFOLD)
- c = tolower((unsigned char)c);
+ c = towlower_l(c, loc);
- if (*pattern == '-'
- && (c2 = *(pattern+1)) != EOS && c2 != ']') {
- pattern += 2;
- if (c2 == '\\' && !(flags & FNM_NOESCAPE))
- c2 = *pattern++;
+ if (*pattern == '-' && *(pattern + 1) != EOS &&
+ *(pattern + 1) != ']') {
+ if (*++pattern == '\\' && !(flags & FNM_NOESCAPE))
+ if (*pattern != EOS)
+ pattern++;
+ pclen = mbrtowc_l(&c2, pattern, MB_LEN_MAX, patmbs, loc);
+ if (pclen == (size_t)-1 || pclen == (size_t)-2)
+ return (RANGE_ERROR);
+ pattern += pclen;
if (c2 == EOS)
return (RANGE_ERROR);
+ if ((c2 == '[' && (special = *pattern) == '.') || special == '=' || special == ':') {
+ /* no equivalence classes or character classes as end of range */
+ if (special == '=' || special == ':')
+ return (RANGE_ERROR);
+ cp = ++pattern;
+ while((cp = strchr(cp, special))) {
+ if (*(cp + 1) == ']')
+ break;
+ cp++;
+ }
+ if (!cp)
+ return (RANGE_ERROR);
+ len = __collate_collating_symbol(buf, STR_LEN, pattern, cp - pattern, patmbs, loc);
+ /* no multi-character collation symbols as end of range */
+ if (len != 1)
+ return (RANGE_ERROR);
+ pattern = cp + 2;
+ c2 = *buf;
+ }
+
if (flags & FNM_CASEFOLD)
- c2 = tolower((unsigned char)c2);
+ c2 = towlower_l(c2, loc);
- if (__collate_load_error ?
+ if (loc->__collate_load_error ?
c <= test && test <= c2 :
- __collate_range_cmp(c, test) <= 0
- && __collate_range_cmp(test, c2) <= 0
- )
+ __collate_range_cmp(c, test, loc) <= 0
+ && __collate_range_cmp(test, c2, loc) <= 0
+ ) {
ok = 1;
- } else if (c == test)
+ break;
+ }
+ } else if (c == test) {
ok = 1;
- } while ((c = *pattern++) != ']');
+ break;
+ }
+ }
+ /* go to end of bracket expression */
+ special = 0;
+ while(*pattern != ']') {
+ if (*pattern == 0)
+ return (RANGE_ERROR);
+ if (*pattern == special) {
+ if (*++pattern == ']') {
+ special = 0;
+ pattern++;
+ }
+ continue;
+ }
+ if (!special && *pattern == '[') {
+ special = *++pattern;
+ if (special != '.' && special != '=' && special != ':')
+ special = 0;
+ else
+ pattern++;
+ continue;
+ }
+ pclen = mbrtowc_l(&c, pattern, MB_LEN_MAX, patmbs, loc);
+ if (pclen == (size_t)-1 || pclen == (size_t)-2)
+ return (RANGE_ERROR);
+ pattern += pclen;
+ }
- *newp = (char *)pattern;
+ *newp = (char *)++pattern;
+ *news = (char *)string;
return (ok == negate ? RANGE_NOMATCH : RANGE_MATCH);
}
+#endif /* BUILDING_VARIANT */
projects / apple / libc.git / blobdiff