merge from gcc
[binutils.git] / libiberty / fnmatch.c
blobeb898ee14d82de7402697e4fadfdb0d7757b628a
1 /* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
3 NOTE: This source is derived from an old version taken from the GNU C
4 Library (glibc).
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.
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.
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, 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
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
33 #ifndef _GNU_SOURCE
34 #define _GNU_SOURCE
35 #endif
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
46 #include <errno.h>
47 #include <fnmatch.h>
48 #include <safe-ctype.h>
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. */
58 #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
61 #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS)
62 extern int errno;
63 #endif
65 /* Match STRING against the filename pattern PATTERN, returning zero if
66 it matches, nonzero if not. */
67 int
68 fnmatch (pattern, string, flags)
69 const char *pattern;
70 const char *string;
71 int flags;
73 register const char *p = pattern, *n = string;
74 register unsigned char c;
76 #define FOLD(c) ((flags & FNM_CASEFOLD) ? TOLOWER (c) : (c))
78 while ((c = *p++) != '\0')
80 c = FOLD (c);
82 switch (c)
84 case '?':
85 if (*n == '\0')
86 return FNM_NOMATCH;
87 else if ((flags & FNM_FILE_NAME) && *n == '/')
88 return FNM_NOMATCH;
89 else if ((flags & FNM_PERIOD) && *n == '.' &&
90 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
91 return FNM_NOMATCH;
92 break;
94 case '\\':
95 if (!(flags & FNM_NOESCAPE))
97 c = *p++;
98 c = FOLD (c);
100 if (FOLD ((unsigned char)*n) != c)
101 return FNM_NOMATCH;
102 break;
104 case '*':
105 if ((flags & FNM_PERIOD) && *n == '.' &&
106 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
107 return FNM_NOMATCH;
109 for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
110 if (((flags & FNM_FILE_NAME) && *n == '/') ||
111 (c == '?' && *n == '\0'))
112 return FNM_NOMATCH;
114 if (c == '\0')
115 return 0;
118 unsigned char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
119 c1 = FOLD (c1);
120 for (--p; *n != '\0'; ++n)
121 if ((c == '[' || FOLD ((unsigned char)*n) == c1) &&
122 fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
123 return 0;
124 return FNM_NOMATCH;
127 case '[':
129 /* Nonzero if the sense of the character class is inverted. */
130 register int not;
132 if (*n == '\0')
133 return FNM_NOMATCH;
135 if ((flags & FNM_PERIOD) && *n == '.' &&
136 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
137 return FNM_NOMATCH;
139 not = (*p == '!' || *p == '^');
140 if (not)
141 ++p;
143 c = *p++;
144 for (;;)
146 register unsigned char cstart = c, cend = c;
148 if (!(flags & FNM_NOESCAPE) && c == '\\')
149 cstart = cend = *p++;
151 cstart = cend = FOLD (cstart);
153 if (c == '\0')
154 /* [ (unterminated) loses. */
155 return FNM_NOMATCH;
157 c = *p++;
158 c = FOLD (c);
160 if ((flags & FNM_FILE_NAME) && c == '/')
161 /* [/] can never match. */
162 return FNM_NOMATCH;
164 if (c == '-' && *p != ']')
166 cend = *p++;
167 if (!(flags & FNM_NOESCAPE) && cend == '\\')
168 cend = *p++;
169 if (cend == '\0')
170 return FNM_NOMATCH;
171 cend = FOLD (cend);
173 c = *p++;
176 if (FOLD ((unsigned char)*n) >= cstart
177 && FOLD ((unsigned char)*n) <= cend)
178 goto matched;
180 if (c == ']')
181 break;
183 if (!not)
184 return FNM_NOMATCH;
185 break;
187 matched:;
188 /* Skip the rest of the [...] that already matched. */
189 while (c != ']')
191 if (c == '\0')
192 /* [... (unterminated) loses. */
193 return FNM_NOMATCH;
195 c = *p++;
196 if (!(flags & FNM_NOESCAPE) && c == '\\')
197 /* XXX 1003.2d11 is unclear if this is right. */
198 ++p;
200 if (not)
201 return FNM_NOMATCH;
203 break;
205 default:
206 if (c != FOLD ((unsigned char)*n))
207 return FNM_NOMATCH;
210 ++n;
213 if (*n == '\0')
214 return 0;
216 if ((flags & FNM_LEADING_DIR) && *n == '/')
217 /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz". */
218 return 0;
220 return FNM_NOMATCH;
223 #endif /* _LIBC or not __GNU_LIBRARY__. */