misc/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 "miscfn.h"
  20 #include <ctype.h>
  21
  22
  23 /* Comment out all this code if we are using the GNU C Library, and are not
  24    actually compiling the library itself.  This code is part of the GNU C
  25    Library, but also included in many other GNU distributions.  Compiling
  26    and linking in this code is a waste when using the GNU C library
  27    (especially if it is a shared library).  Rather than having every GNU
  28    program understand `configure --with-gnu-libc' and omit the object files,
  29    it is simpler to just do this in the source for each such file.  */
  30
  31 #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
  32
  33
  34 #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS)
  35 extern int errno;
  36 #endif
  37
  38 /* Match STRING against the filename pattern PATTERN, returning zero if
  39    it matches, nonzero if not.  */
  40 int
  41 fnmatch (pattern, string, flags)
  42      const char *pattern;
  43      const char *string;
  44      int flags;
  45 {
  46   register const char *p = pattern, *n = string;
  47   register char c;
  48
  49 /* Note that this evalutes C many times.  */
  50 #define FOLD(c) ((flags & FNM_CASEFOLD) && isupper (c) ? tolower (c) : (c))
  51
  52   while ((c = *p++) != '\0')
  53     {
  54       c = FOLD (c);
  55
  56       switch (c)
  57         {
  58         case '?':
  59           if (*n == '\0')
  60             return FNM_NOMATCH;
  61           else if ((flags & FNM_FILE_NAME) && *n == '/')
  62             return FNM_NOMATCH;
  63           else if ((flags & FNM_PERIOD) && *n == '.' &&
  64                    (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  65             return FNM_NOMATCH;
  66           break;
  67
  68         case '\\':
  69           if (!(flags & FNM_NOESCAPE))
  70             {
  71               c = *p++;
  72               c = FOLD (c);
  73             }
  74           if (FOLD (*n) != c)
  75             return FNM_NOMATCH;
  76           break;
  77
  78         case '*':
  79           if ((flags & FNM_PERIOD) && *n == '.' &&
  80               (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  81             return FNM_NOMATCH;
  82
  83           for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
  84             if (((flags & FNM_FILE_NAME) && *n == '/') ||
  85                 (c == '?' && *n == '\0'))
  86               return FNM_NOMATCH;
  87
  88           if (c == '\0')
  89             return 0;
  90
  91           {
  92             char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
  93             c1 = FOLD (c1);
  94             for (--p; *n != '\0'; ++n)
  95               if ((c == '[' || FOLD (*n) == c1) &&
  96                   fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
  97                 return 0;
  98             return FNM_NOMATCH;
  99           }
 100
 101         case '[':
 102           {
 103             /* Nonzero if the sense of the character class is inverted.  */
 104             register int not;
 105
 106             if (*n == '\0')
 107               return FNM_NOMATCH;
 108
 109             if ((flags & FNM_PERIOD) && *n == '.' &&
 110                 (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
 111               return FNM_NOMATCH;
 112
 113             not = (*p == '!' || *p == '^');
 114             if (not)
 115               ++p;
 116
 117             c = *p++;
 118             for (;;)
 119               {
 120                 register char cstart = c, cend = c;
 121
 122                 if (!(flags & FNM_NOESCAPE) && c == '\\')
 123                   cstart = cend = *p++;
 124
 125                 cstart = cend = FOLD (cstart);
 126
 127                 if (c == '\0')
 128                   /* [ (unterminated) loses.  */
 129                   return FNM_NOMATCH;
 130
 131                 c = *p++;
 132                 c = FOLD (c);
 133
 134                 if ((flags & FNM_FILE_NAME) && c == '/')
 135                   /* [/] can never match.  */
 136                   return FNM_NOMATCH;
 137
 138                 if (c == '-' && *p != ']')
 139                   {
 140                     cend = *p++;
 141                     if (!(flags & FNM_NOESCAPE) && cend == '\\')
 142                       cend = *p++;
 143                     if (cend == '\0')
 144                       return FNM_NOMATCH;
 145                     cend = FOLD (cend);
 146
 147                     c = *p++;
 148                   }
 149
 150                 if (FOLD (*n) >= cstart && FOLD (*n) <= cend)
 151                   goto matched;
 152
 153                 if (c == ']')
 154                   break;
 155               }
 156             if (!not)
 157               return FNM_NOMATCH;
 158             break;
 159
 160           matched:;
 161             /* Skip the rest of the [...] that already matched.  */
 162             while (c != ']')
 163               {
 164                 if (c == '\0')
 165                   /* [... (unterminated) loses.  */
 166                   return FNM_NOMATCH;
 167
 168                 c = *p++;
 169                 if (!(flags & FNM_NOESCAPE) && c == '\\')
 170                   /* XXX 1003.2d11 is unclear if this is right.  */
 171                   ++p;
 172               }
 173             if (not)
 174               return FNM_NOMATCH;
 175           }
 176           break;
 177
 178         default:
 179           if (c != FOLD (*n))
 180             return FNM_NOMATCH;
 181         }
 182
 183       ++n;
 184     }
 185
 186   if (*n == '\0')
 187     return 0;
 188
 189   if ((flags & FNM_LEADING_DIR) && *n == '/')
 190     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
 191     return 0;
 192
 193   return FNM_NOMATCH;
 194 }
 195
 196 #endif  /* _LIBC or not __GNU_LIBRARY__.  */