20e2b50502dcb0e7700f308794450ffd28e06e33
[kopensolaris-gnu/glibc.git] / posix / fnmatch.c
1 /* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
2
3 This library is free software; you can redistribute it and/or
4 modify it under the terms of the GNU Library General Public License as
5 published by the Free Software Foundation; either version 2 of the
6 License, or (at your option) any later version.
7
8 This library is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11 Library General Public License for more details.
12
13 You should have received a copy of the GNU Library General Public
14 License along with this library; see the file COPYING.LIB.  If
15 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
16 Cambridge, MA 02139, USA.  */
17
18 #include <errno.h>
19 #include <fnmatch.h>
20 #include <ctype.h>
21
22 #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS)
23 extern int errno;
24 #endif
25
26 /* Match STRING against the filename pattern PATTERN, returning zero if
27    it matches, nonzero if not.  */
28 int
29 fnmatch (pattern, string, flags)
30      const char *pattern;
31      const char *string;
32      int flags;
33 {
34   register const char *p = pattern, *n = string;
35   register char c;
36
37 /* Note that this evalutes C many times.  */
38 #define FOLD(c) ((flags & FNM_CASEFOLD) && isupper (c) ? tolower (c) : (c))
39
40   while ((c = *p++) != '\0')
41     {
42       c = FOLD (c);
43
44       switch (c)
45         {
46         case '?':
47           if (*n == '\0')
48             return FNM_NOMATCH;
49           else if ((flags & FNM_FILE_NAME) && *n == '/')
50             return FNM_NOMATCH;
51           else if ((flags & FNM_PERIOD) && *n == '.' &&
52                    (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
53             return FNM_NOMATCH;
54           break;
55
56         case '\\':
57           if (!(flags & FNM_NOESCAPE))
58             {
59               c = *p++;
60               c = FOLD (c);
61             }
62           if (FOLD (*n) != c)
63             return FNM_NOMATCH;
64           break;
65
66         case '*':
67           if ((flags & FNM_PERIOD) && *n == '.' &&
68               (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
69             return FNM_NOMATCH;
70
71           for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
72             if (((flags & FNM_FILE_NAME) && *n == '/') ||
73                 (c == '?' && *n == '\0'))
74               return FNM_NOMATCH;
75
76           if (c == '\0')
77             return 0;
78
79           {
80             char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
81             c1 = FOLD (c1);
82             for (--p; *n != '\0'; ++n)
83               if ((c == '[' || FOLD (*n) == c1) &&
84                   fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
85                 return 0;
86             return FNM_NOMATCH;
87           }
88
89         case '[':
90           {
91             /* Nonzero if the sense of the character class is inverted.  */
92             register int not;
93
94             if (*n == '\0')
95               return FNM_NOMATCH;
96
97             if ((flags & FNM_PERIOD) && *n == '.' &&
98                 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
99               return FNM_NOMATCH;
100
101             not = (*p == '!' || *p == '^');
102             if (not)
103               ++p;
104
105             c = *p++;
106             for (;;)
107               {
108                 register char cstart = c, cend = c;
109
110                 if (!(flags & FNM_NOESCAPE) && c == '\\')
111                   cstart = cend = *p++;
112
113                 cstart = cend = FOLD (cstart);
114
115                 if (c == '\0')
116                   /* [ (unterminated) loses.  */
117                   return FNM_NOMATCH;
118
119                 c = *p++;
120                 c = FOLD (c);
121
122                 if ((flags & FNM_FILE_NAME) && c == '/')
123                   /* [/] can never match.  */
124                   return FNM_NOMATCH;
125
126                 if (c == '-' && *p != ']')
127                   {
128                     cend = *p++;
129                     if (!(flags & FNM_NOESCAPE) && cend == '\\')
130                       cend = *p++;
131                     if (cend == '\0')
132                       return FNM_NOMATCH;
133                     cend = FOLD (cend);
134
135                     c = *p++;
136                   }
137
138                 if (FOLD (*n) >= cstart && FOLD (*n) <= cend)
139                   goto matched;
140
141                 if (c == ']')
142                   break;
143               }
144             if (!not)
145               return FNM_NOMATCH;
146             break;
147
148           matched:;
149             /* Skip the rest of the [...] that already matched.  */
150             while (c != ']')
151               {
152                 if (c == '\0')
153                   /* [... (unterminated) loses.  */
154                   return FNM_NOMATCH;
155
156                 c = *p++;
157                 if (!(flags & FNM_NOESCAPE) && c == '\\')
158                   /* XXX 1003.2d11 is unclear if this is right.  */
159                   ++p;
160               }
161             if (not)
162               return FNM_NOMATCH;
163           }
164           break;
165
166         default:
167           if (c != FOLD (*n))
168             return FNM_NOMATCH;
169         }
170
171       ++n;
172     }
173
174   if (*n == '\0')
175     return 0;
176
177   if ((flags & FNM_LEADING_DIR) && *n == '/')
178     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
179     return 0;
180
181   return FNM_NOMATCH;
182 }