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