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 * From FreeBSD fnmatch.c 1.11
37 * $Id$
38 */
39
40 #if defined(LIBC_SCCS) && !defined(lint)
41 static char sccsid[] = "@(#)fnmatch.c 8.2 (Berkeley) 4/16/94";
42 #endif /* LIBC_SCCS and not lint */
43
44 /*
45 * Function fnmatch() as specified in POSIX 1003.2-1992, section B.6.
46 * Compares a filename or pathname to a pattern.
47 */
48
49 #include <ctype.h>
50 #include <string.h>
51 #include <stdio.h>
52
53 #include "fnmatch.h"
54
55 #define EOS '\0'
56
57 static const char *rangematch(const char *, char, int);
58
fnmatch(const char * pattern,const char * string,int flags)59 PHPAPI int fnmatch(const char *pattern, const char *string, int flags)
60 {
61 const char *stringstart;
62 char c, test;
63
64 for (stringstart = string;;)
65 switch (c = *pattern++) {
66 case EOS:
67 if ((flags & FNM_LEADING_DIR) && *string == '/')
68 return (0);
69 return (*string == EOS ? 0 : FNM_NOMATCH);
70 case '?':
71 if (*string == EOS)
72 return (FNM_NOMATCH);
73 if (*string == '/' && (flags & FNM_PATHNAME))
74 return (FNM_NOMATCH);
75 if (*string == '.' && (flags & FNM_PERIOD) &&
76 (string == stringstart ||
77 ((flags & FNM_PATHNAME) && *(string - 1) == '/')))
78 return (FNM_NOMATCH);
79 ++string;
80 break;
81 case '*':
82 c = *pattern;
83 /* Collapse multiple stars. */
84 while (c == '*')
85 c = *++pattern;
86
87 if (*string == '.' && (flags & FNM_PERIOD) &&
88 (string == stringstart ||
89 ((flags & FNM_PATHNAME) && *(string - 1) == '/')))
90 return (FNM_NOMATCH);
91
92 /* Optimize for pattern with * at end or before /. */
93 if (c == EOS)
94 if (flags & FNM_PATHNAME)
95 return ((flags & FNM_LEADING_DIR) ||
96 strchr(string, '/') == NULL ?
97 0 : FNM_NOMATCH);
98 else
99 return (0);
100 else if (c == '/' && flags & FNM_PATHNAME) {
101 if ((string = strchr(string, '/')) == NULL)
102 return (FNM_NOMATCH);
103 break;
104 }
105
106 /* General case, use recursion. */
107 while ((test = *string) != EOS) {
108 if (!fnmatch(pattern, string, flags & ~FNM_PERIOD))
109 return (0);
110 if (test == '/' && flags & FNM_PATHNAME)
111 break;
112 ++string;
113 }
114 return (FNM_NOMATCH);
115 case '[':
116 if (*string == EOS)
117 return (FNM_NOMATCH);
118 if (*string == '/' && flags & FNM_PATHNAME)
119 return (FNM_NOMATCH);
120 if ((pattern =
121 rangematch(pattern, *string, flags)) == NULL)
122 return (FNM_NOMATCH);
123 ++string;
124 break;
125 case '\\':
126 if (!(flags & FNM_NOESCAPE)) {
127 if ((c = *pattern++) == EOS) {
128 c = '\\';
129 --pattern;
130 }
131 }
132 /* FALLTHROUGH */
133 default:
134 if (c == *string)
135 ;
136 else if ((flags & FNM_CASEFOLD) &&
137 (tolower((unsigned char)c) ==
138 tolower((unsigned char)*string)))
139 ;
140 else if ((flags & FNM_PREFIX_DIRS) && *string == EOS &&
141 (c == '/' && string != stringstart ||
142 string == stringstart+1 && *stringstart == '/') )
143 return (0);
144 else
145 return (FNM_NOMATCH);
146 string++;
147 break;
148 }
149 /* NOTREACHED */
150 }
151
152 static const char *
rangematch(const char * pattern,char test,int flags)153 rangematch(const char *pattern, char test, int flags)
154 {
155 int negate, ok;
156 char c, c2;
157
158 /*
159 * A bracket expression starting with an unquoted circumflex
160 * character produces unspecified results (IEEE 1003.2-1992,
161 * 3.13.2). This implementation treats it like '!', for
162 * consistency with the regular expression syntax.
163 * J.T. Conklin (conklin@ngai.kaleida.com)
164 */
165 if ( (negate = (*pattern == '!' || *pattern == '^')) )
166 ++pattern;
167
168 if (flags & FNM_CASEFOLD)
169 test = tolower((unsigned char)test);
170
171 for (ok = 0; (c = *pattern++) != ']';) {
172 if (c == '\\' && !(flags & FNM_NOESCAPE))
173 c = *pattern++;
174 if (c == EOS)
175 return (NULL);
176
177 if (flags & FNM_CASEFOLD)
178 c = tolower((unsigned char)c);
179
180 if (*pattern == '-'
181 && (c2 = *(pattern+1)) != EOS && c2 != ']') {
182 pattern += 2;
183 if (c2 == '\\' && !(flags & FNM_NOESCAPE))
184 c2 = *pattern++;
185 if (c2 == EOS)
186 return (NULL);
187
188 if (flags & FNM_CASEFOLD)
189 c2 = tolower((unsigned char)c2);
190
191 if ((unsigned char)c <= (unsigned char)test &&
192 (unsigned char)test <= (unsigned char)c2)
193 ok = 1;
194 } else if (c == test)
195 ok = 1;
196 }
197 return (ok == negate ? NULL : pattern);
198 }
199
