1 /* Copyright (C) 1991-2020 Free Software Foundation, Inc. 2 3 NOTE: This source is derived from an old version taken from the GNU C 4 Library (glibc). 5 6 This program is free software; you can redistribute it and/or modify it 7 under the terms of the GNU General Public License as published by the 8 Free Software Foundation; either version 2, or (at your option) any 9 later version. 10 11 This program is distributed in the hope that it will be useful, 12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 GNU General Public License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with this program; if not, write to the Free Software 18 Foundation, 51 Franklin Street - Fifth Floor, 19 Boston, MA 02110-1301, USA. */ 20 21 #ifdef HAVE_CONFIG_H 22 #if defined (CONFIG_BROKETS) 23 /* We use <config.h> instead of "config.h" so that a compilation 24 using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h 25 (which it would do because it found this file in $srcdir). */ 26 #include <config.h> 27 #else 28 #include "config.h" 29 #endif 30 #endif 31 32 33 #ifndef _GNU_SOURCE 34 #define _GNU_SOURCE 35 #endif 36 37 /* This code to undef const added in libiberty. */ 38 #ifndef __STDC__ 39 /* This is a separate conditional since some stdc systems 40 reject `defined (const)'. */ 41 #ifndef const 42 #define const 43 #endif 44 #endif 45 46 #include <errno.h> 47 #include <fnmatch.h> 48 #include <safe-ctype.h> 49 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. */ 57 58 #if defined (_LIBC) || !defined (__GNU_LIBRARY__) 59 60 61 #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS) 62 extern int errno; 63 #endif 64 65 /* Match STRING against the filename pattern PATTERN, returning zero if 66 it matches, nonzero if not. */ 67 int 68 fnmatch (const char *pattern, const char *string, int flags) 69 { 70 register const char *p = pattern, *n = string; 71 register unsigned char c; 72 73 #define FOLD(c) ((flags & FNM_CASEFOLD) ? TOLOWER (c) : (c)) 74 75 while ((c = *p++) != '\0') 76 { 77 c = FOLD (c); 78 79 switch (c) 80 { 81 case '?': 82 if (*n == '\0') 83 return FNM_NOMATCH; 84 else if ((flags & FNM_FILE_NAME) && *n == '/') 85 return FNM_NOMATCH; 86 else if ((flags & FNM_PERIOD) && *n == '.' && 87 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/'))) 88 return FNM_NOMATCH; 89 break; 90 91 case '\\': 92 if (!(flags & FNM_NOESCAPE)) 93 { 94 c = *p++; 95 c = FOLD (c); 96 } 97 if (FOLD ((unsigned char)*n) != c) 98 return FNM_NOMATCH; 99 break; 100 101 case '*': 102 if ((flags & FNM_PERIOD) && *n == '.' && 103 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/'))) 104 return FNM_NOMATCH; 105 106 for (c = *p++; c == '?' || c == '*'; c = *p++, ++n) 107 if (((flags & FNM_FILE_NAME) && *n == '/') || 108 (c == '?' && *n == '\0')) 109 return FNM_NOMATCH; 110 111 if (c == '\0') 112 return 0; 113 114 { 115 unsigned char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c; 116 c1 = FOLD (c1); 117 for (--p; *n != '\0'; ++n) 118 if ((c == '[' || FOLD ((unsigned char)*n) == c1) && 119 fnmatch (p, n, flags & ~FNM_PERIOD) == 0) 120 return 0; 121 return FNM_NOMATCH; 122 } 123 124 case '[': 125 { 126 /* Nonzero if the sense of the character class is inverted. */ 127 register int negate; 128 129 if (*n == '\0') 130 return FNM_NOMATCH; 131 132 if ((flags & FNM_PERIOD) && *n == '.' && 133 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/'))) 134 return FNM_NOMATCH; 135 136 negate = (*p == '!' || *p == '^'); 137 if (negate) 138 ++p; 139 140 c = *p++; 141 for (;;) 142 { 143 register unsigned char cstart = c, cend = c; 144 145 if (!(flags & FNM_NOESCAPE) && c == '\\') 146 cstart = cend = *p++; 147 148 cstart = cend = FOLD (cstart); 149 150 if (c == '\0') 151 /* [ (unterminated) loses. */ 152 return FNM_NOMATCH; 153 154 c = *p++; 155 c = FOLD (c); 156 157 if ((flags & FNM_FILE_NAME) && c == '/') 158 /* [/] can never match. */ 159 return FNM_NOMATCH; 160 161 if (c == '-' && *p != ']') 162 { 163 cend = *p++; 164 if (!(flags & FNM_NOESCAPE) && cend == '\\') 165 cend = *p++; 166 if (cend == '\0') 167 return FNM_NOMATCH; 168 cend = FOLD (cend); 169 170 c = *p++; 171 } 172 173 if (FOLD ((unsigned char)*n) >= cstart 174 && FOLD ((unsigned char)*n) <= cend) 175 goto matched; 176 177 if (c == ']') 178 break; 179 } 180 if (!negate) 181 return FNM_NOMATCH; 182 break; 183 184 matched:; 185 /* Skip the rest of the [...] that already matched. */ 186 while (c != ']') 187 { 188 if (c == '\0') 189 /* [... (unterminated) loses. */ 190 return FNM_NOMATCH; 191 192 c = *p++; 193 if (!(flags & FNM_NOESCAPE) && c == '\\') 194 /* XXX 1003.2d11 is unclear if this is right. */ 195 ++p; 196 } 197 if (negate) 198 return FNM_NOMATCH; 199 } 200 break; 201 202 default: 203 if (c != FOLD ((unsigned char)*n)) 204 return FNM_NOMATCH; 205 } 206 207 ++n; 208 } 209 210 if (*n == '\0') 211 return 0; 212 213 if ((flags & FNM_LEADING_DIR) && *n == '/') 214 /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz". */ 215 return 0; 216 217 return FNM_NOMATCH; 218 } 219 220 #endif /* _LIBC or not __GNU_LIBRARY__. */ 221