version 1.2, 1993/04/10 00:25:35 |
version 1.19, 2002/10/06 03:15:46 |
|
|
|
/* $NetBSD$ */ |
|
|
/* |
/* |
* Copyright (c) 1989 The Regents of the University of California. |
* Copyright (c) 1989, 1993, 1994 |
* All rights reserved. |
* The Regents of the University of California. All rights reserved. |
* |
* |
* This code is derived from software contributed to Berkeley by |
* This code is derived from software contributed to Berkeley by |
* Guido van Rossum. |
* Guido van Rossum. |
|
|
* SUCH DAMAGE. |
* SUCH DAMAGE. |
*/ |
*/ |
|
|
|
#include <sys/cdefs.h> |
#if defined(LIBC_SCCS) && !defined(lint) |
#if defined(LIBC_SCCS) && !defined(lint) |
static char sccsid[] = "@(#)fnmatch.c 5.4 (Berkeley) 2/23/91"; |
#if 0 |
|
static char sccsid[] = "@(#)fnmatch.c 8.2 (Berkeley) 4/16/94"; |
|
#else |
|
__RCSID("$NetBSD$"); |
|
#endif |
#endif /* LIBC_SCCS and not lint */ |
#endif /* LIBC_SCCS and not lint */ |
|
|
/* |
/* |
* Function fnmatch() as proposed in Posix 1003.2 B.6 (rev. 9). |
* Function fnmatch() as specified in POSIX 1003.2-1992, section B.6. |
* Compares a filename or pathname to a pattern. |
* Compares a filename or pathname to a pattern. |
*/ |
*/ |
|
|
#include <unistd.h> |
#include "namespace.h" |
|
|
|
#include <assert.h> |
|
#include <ctype.h> |
|
#include <fnmatch.h> |
#include <string.h> |
#include <string.h> |
|
|
#define EOS '\0' |
#ifdef __weak_alias |
|
__weak_alias(fnmatch,_fnmatch) |
|
#endif |
|
|
static char * |
#define EOS '\0' |
rangematch(pattern, test) |
|
register char *pattern, test; |
|
{ |
|
register char c, c2; |
|
int negate, ok; |
|
|
|
if (negate = (*pattern == '!')) |
static const char *rangematch __P((const char *, int, int)); |
++pattern; |
|
|
|
/* |
static __inline int |
* TO DO: quoting |
foldcase(int ch, int flags) |
*/ |
{ |
|
|
for (ok = 0; (c = *pattern++) != ']';) { |
if ((flags & FNM_CASEFOLD) != 0 && isupper(ch)) |
if (c == EOS) |
return (tolower(ch)); |
return(NULL); /* illegal pattern */ |
return (ch); |
if (*pattern == '-' && (c2 = pattern[1]) != EOS && c2 != ']') { |
|
if (c <= test && test <= c2) |
|
ok = 1; |
|
pattern += 2; |
|
} |
|
else if (c == test) |
|
ok = 1; |
|
} |
|
return(ok == negate ? NULL : pattern); |
|
} |
} |
|
|
|
#define FOLDCASE(ch, flags) foldcase((unsigned char)(ch), (flags)) |
|
|
|
int |
fnmatch(pattern, string, flags) |
fnmatch(pattern, string, flags) |
register const char *pattern; |
const char *pattern, *string; |
register const char *string; |
|
int flags; |
int flags; |
{ |
{ |
register char c; |
const char *stringstart; |
char test, *rangematch(); |
char c, test; |
|
|
for (;;) |
_DIAGASSERT(pattern != NULL); |
switch (c = *pattern++) { |
_DIAGASSERT(string != NULL); |
|
|
|
for (stringstart = string;;) |
|
switch (c = FOLDCASE(*pattern++, flags)) { |
case EOS: |
case EOS: |
return(!(*string == EOS)); |
if ((flags & FNM_LEADING_DIR) && *string == '/') |
|
return (0); |
|
return (*string == EOS ? 0 : FNM_NOMATCH); |
case '?': |
case '?': |
if (((test = *string++) == EOS) || |
if (*string == EOS) |
((test == '/') && (flags & FNM_PATHNAME))) |
return (FNM_NOMATCH); |
return(1); |
if (*string == '/' && (flags & FNM_PATHNAME)) |
|
return (FNM_NOMATCH); |
|
if (*string == '.' && (flags & FNM_PERIOD) && |
|
(string == stringstart || |
|
((flags & FNM_PATHNAME) && *(string - 1) == '/'))) |
|
return (FNM_NOMATCH); |
|
++string; |
break; |
break; |
case '*': |
case '*': |
c = *pattern; |
c = FOLDCASE(*pattern, flags); |
/* collapse multiple stars */ |
/* Collapse multiple stars. */ |
while (c == '*') |
while (c == '*') |
c = *++pattern; |
c = FOLDCASE(*++pattern, flags); |
|
|
|
if (*string == '.' && (flags & FNM_PERIOD) && |
|
(string == stringstart || |
|
((flags & FNM_PATHNAME) && *(string - 1) == '/'))) |
|
return (FNM_NOMATCH); |
|
|
/* optimize for pattern with * at end or before / */ |
/* Optimize for pattern with * at end or before /. */ |
if (c == EOS) |
if (c == EOS) { |
if (flags & FNM_PATHNAME) |
if (flags & FNM_PATHNAME) |
return(index(string, '/') != NULL); |
return ((flags & FNM_LEADING_DIR) || |
|
strchr(string, '/') == NULL ? |
|
0 : FNM_NOMATCH); |
else |
else |
return(0); |
return (0); |
else if ((c == '/') && (flags & FNM_PATHNAME)) { |
} else if (c == '/' && flags & FNM_PATHNAME) { |
if ((string = index(string, '/')) == NULL) |
if ((string = strchr(string, '/')) == NULL) |
return(1); |
return (FNM_NOMATCH); |
break; |
break; |
} |
} |
|
|
/* general case, use recursion */ |
/* General case, use recursion. */ |
while ((test = *string) != EOS) { |
while ((test = FOLDCASE(*string, flags)) != EOS) { |
if (!fnmatch(pattern, string, flags)) |
if (!fnmatch(pattern, string, |
return(0); |
flags & ~FNM_PERIOD)) |
|
return (0); |
if (test == '/' && flags & FNM_PATHNAME) |
if (test == '/' && flags & FNM_PATHNAME) |
break; |
break; |
++string; |
++string; |
} |
} |
return(1); |
return (FNM_NOMATCH); |
case '[': |
case '[': |
if ((test = *string++) == EOS || |
if (*string == EOS) |
test == '/' && flags & FNM_PATHNAME) |
return (FNM_NOMATCH); |
return(1); |
if (*string == '/' && flags & FNM_PATHNAME) |
if ((pattern = rangematch(pattern, test)) == NULL) |
return (FNM_NOMATCH); |
return(1); |
if ((pattern = |
|
rangematch(pattern, FOLDCASE(*string, flags), |
|
flags)) == NULL) |
|
return (FNM_NOMATCH); |
|
++string; |
break; |
break; |
case '\\': |
case '\\': |
if (flags & FNM_QUOTE) { |
if (!(flags & FNM_NOESCAPE)) { |
if ((c = *pattern++) == EOS) { |
if ((c = FOLDCASE(*pattern++, flags)) == EOS) { |
c = '\\'; |
c = '\\'; |
--pattern; |
--pattern; |
} |
} |
if (c != *string++) |
|
return(1); |
|
break; |
|
} |
} |
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
default: |
default: |
if (c != *string++) |
if (c != FOLDCASE(*string++, flags)) |
return(1); |
return (FNM_NOMATCH); |
break; |
break; |
} |
} |
|
/* NOTREACHED */ |
|
} |
|
|
|
static const char * |
|
rangematch(pattern, test, flags) |
|
const char *pattern; |
|
int test, flags; |
|
{ |
|
int negate, ok; |
|
char c, c2; |
|
|
|
_DIAGASSERT(pattern != NULL); |
|
|
|
/* |
|
* A bracket expression starting with an unquoted circumflex |
|
* character produces unspecified results (IEEE 1003.2-1992, |
|
* 3.13.2). This implementation treats it like '!', for |
|
* consistency with the regular expression syntax. |
|
* J.T. Conklin (conklin@ngai.kaleida.com) |
|
*/ |
|
if ((negate = (*pattern == '!' || *pattern == '^')) != 0) |
|
++pattern; |
|
|
|
for (ok = 0; (c = FOLDCASE(*pattern++, flags)) != ']';) { |
|
if (c == '\\' && !(flags & FNM_NOESCAPE)) |
|
c = FOLDCASE(*pattern++, flags); |
|
if (c == EOS) |
|
return (NULL); |
|
if (*pattern == '-' |
|
&& (c2 = FOLDCASE(*(pattern+1), flags)) != EOS && |
|
c2 != ']') { |
|
pattern += 2; |
|
if (c2 == '\\' && !(flags & FNM_NOESCAPE)) |
|
c2 = FOLDCASE(*pattern++, flags); |
|
if (c2 == EOS) |
|
return (NULL); |
|
if (c <= test && test <= c2) |
|
ok = 1; |
|
} else if (c == test) |
|
ok = 1; |
|
} |
|
return (ok == negate ? NULL : pattern); |
} |
} |