fnmatch.c revision 26484 
1/*
2 * Copyright (c) 1989, 1993, 1994
3 *	The Regents of the University of California.  All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Guido van Rossum.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 *    notice, this list of conditions and the following disclaimer in the
15 *    documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 *    must display the following acknowledgement:
18 *	This product includes software developed by the University of
19 *	California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 *    may be used to endorse or promote products derived from this software
22 *    without specific prior written permission.
23 *
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 * SUCH DAMAGE.
35 */
36
37#if defined(LIBC_SCCS) && !defined(lint)
38static char sccsid[] = "@(#)fnmatch.c	8.2 (Berkeley) 4/16/94";
39#endif /* LIBC_SCCS and not lint */
40
41/*
42 * Function fnmatch() as specified in POSIX 1003.2-1992, section B.6.
43 * Compares a filename or pathname to a pattern.
44 */
45
46#include <ctype.h>
47#include <fnmatch.h>
48#include <string.h>
49#include <stdio.h>
50
51#include "collate.h"
52
53#define	EOS	'\0'
54
55#define RANGE_MATCH     1
56#define RANGE_NOMATCH   0
57#define RANGE_ERROR     (-1)
58
59static int rangematch __P((const char *, char, int, char **));
60
61int
62fnmatch(pattern, string, flags)
63	const char *pattern, *string;
64	int flags;
65{
66	const char *stringstart;
67	char *newp;
68	char c, test;
69
70	for (stringstart = string;;)
71		switch (c = *pattern++) {
72		case EOS:
73			if ((flags & FNM_LEADING_DIR) && *string == '/')
74				return (0);
75			return (*string == EOS ? 0 : FNM_NOMATCH);
76		case '?':
77			if (*string == EOS)
78				return (FNM_NOMATCH);
79			if (*string == '/' && (flags & FNM_PATHNAME))
80				return (FNM_NOMATCH);
81			if (*string == '.' && (flags & FNM_PERIOD) &&
82			    (string == stringstart ||
83			    ((flags & FNM_PATHNAME) && *(string - 1) == '/')))
84				return (FNM_NOMATCH);
85			++string;
86			break;
87		case '*':
88			c = *pattern;
89			/* Collapse multiple stars. */
90			while (c == '*')
91				c = *++pattern;
92
93			if (*string == '.' && (flags & FNM_PERIOD) &&
94			    (string == stringstart ||
95			    ((flags & FNM_PATHNAME) && *(string - 1) == '/')))
96				return (FNM_NOMATCH);
97
98			/* Optimize for pattern with * at end or before /. */
99			if (c == EOS)
100				if (flags & FNM_PATHNAME)
101					return ((flags & FNM_LEADING_DIR) ||
102					    strchr(string, '/') == NULL ?
103					    0 : FNM_NOMATCH);
104				else
105					return (0);
106			else if (c == '/' && flags & FNM_PATHNAME) {
107				if ((string = strchr(string, '/')) == NULL)
108					return (FNM_NOMATCH);
109				break;
110			}
111
112			/* General case, use recursion. */
113			while ((test = *string) != EOS) {
114				if (!fnmatch(pattern, string, flags & ~FNM_PERIOD))
115					return (0);
116				if (test == '/' && flags & FNM_PATHNAME)
117					break;
118				++string;
119			}
120			return (FNM_NOMATCH);
121		case '[':
122			if (*string == EOS)
123				return (FNM_NOMATCH);
124			if (*string == '/' && flags & FNM_PATHNAME)
125				return (FNM_NOMATCH);
126			switch (rangematch(pattern, *string, flags, &newp)) {
127			case RANGE_ERROR:
128				goto norm;
129			case RANGE_MATCH:
130				pattern = newp;
131				break;
132			case RANGE_NOMATCH:
133				return (FNM_NOMATCH);
134			}
135			++string;
136			break;
137		case '\\':
138			if (!(flags & FNM_NOESCAPE)) {
139				if ((c = *pattern++) == EOS) {
140					c = '\\';
141					--pattern;
142				}
143			}
144			/* FALLTHROUGH */
145		default:
146		norm:
147			if (c == *string)
148				;
149			else if ((flags & FNM_CASEFOLD) &&
150				 (tolower((unsigned char)c) ==
151				  tolower((unsigned char)*string)))
152				;
153			else
154				return (FNM_NOMATCH);
155			string++;
156			break;
157		}
158	/* NOTREACHED */
159}
160
161static int
162rangematch(pattern, test, flags, newp)
163	const char *pattern;
164	char test;
165	int flags;
166	char **newp;
167{
168	int negate, ok, first;
169	char c, c2;
170
171	first = 1;
172
173	/*
174	 * A bracket expression starting with an unquoted circumflex
175	 * character produces unspecified results (IEEE 1003.2-1992,
176	 * 3.13.2).  This implementation treats it like '!', for
177	 * consistency with the regular expression syntax.
178	 * J.T. Conklin (conklin@ngai.kaleida.com)
179	 */
180	if ( (negate = (*pattern == '!' || *pattern == '^')) ) {
181		first = 0;
182		++pattern;
183	}
184
185	if (flags & FNM_CASEFOLD)
186		test = tolower((unsigned char)test);
187
188	/*
189	 * A right bracket shall lose its special meaning and represent
190	 * itself in a bracket expression if it occurs first in the list.
191	 * -- POSIX.2 2.8.3.2
192	 */
193	for (ok = 0, c = *pattern++; c != ']' || first; c = *pattern++) {
194		first = 0;
195		if (c == '\\' && !(flags & FNM_NOESCAPE))
196			c = *pattern++;
197		if (c == EOS)
198			return (RANGE_ERROR);
199
200		if (flags & FNM_CASEFOLD)
201			c = tolower((unsigned char)c);
202
203		if (*pattern == '-'
204		    && (c2 = *(pattern+1)) != EOS && c2 != ']') {
205			pattern += 2;
206			if (c2 == '\\' && !(flags & FNM_NOESCAPE))
207				c2 = *pattern++;
208			if (c2 == EOS)
209				return (RANGE_ERROR);
210
211			if (flags & FNM_CASEFOLD)
212				c2 = tolower((unsigned char)c2);
213
214			if (__collate_load_error ?
215			    c <= test && test <= c2 :
216			       __collate_range_cmp(c, test) <= 0
217			    && __collate_range_cmp(test, c2) <= 0
218			   )
219				ok = 1;
220		} else if (c == test)
221			ok = 1;
222	}
223	*newp = (char *)pattern;
224	return (ok == negate ? RANGE_NOMATCH : RANGE_MATCH);
225}
226