home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 February / PCO_0299.ISO / filesbbs / linux / mikmod-3.000 / mikmod-3 / mikmod-3.1.2 / extra / fnmatch.c next >
Encoding:
C/C++ Source or Header  |  1998-12-07  |  5.5 KB  |  238 lines
  1. /* Copyright (C) 1991, 1992, 1993, 1996 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. /* Enable GNU extensions in fnmatch.h.  */
  19. #ifndef _GNU_SOURCE
  20. # define _GNU_SOURCE    1
  21. #endif
  22.  
  23. #include <errno.h>
  24. #include "fnmatch.h"
  25. #include <ctype.h>
  26.  
  27.  
  28. /* Comment out all this code if we are using the GNU C Library, and are not
  29.    actually compiling the library itself.  This code is part of the GNU C
  30.    Library, but also included in many other GNU distributions.  Compiling
  31.    and linking in this code is a waste when using the GNU C library
  32.    (especially if it is a shared library).  Rather than having every GNU
  33.    program understand `configure --with-gnu-libc' and omit the object files,
  34.    it is simpler to just do this in the source for each such file.  */
  35.  
  36. #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
  37.  
  38.  
  39. # if defined (STDC_HEADERS) || !defined (isascii)
  40. #  define ISASCII(c) 1
  41. # else
  42. #  define ISASCII(c) isascii(c)
  43. # endif
  44.  
  45. # define ISUPPER(c) (ISASCII (c) && isupper (c))
  46.  
  47.  
  48. # ifndef errno
  49. extern int errno;
  50. # endif
  51.  
  52. /* Match STRING against the filename pattern PATTERN, returning zero if
  53.    it matches, nonzero if not.  */
  54. int
  55. fnmatch (pattern, string, flags)
  56.      const char *pattern;
  57.      const char *string;
  58.      int flags;
  59. {
  60.   register const char *p = pattern, *n = string;
  61.   register char c;
  62.  
  63. /* Note that this evaluates C many times.  */
  64. # define FOLD(c) ((flags & FNM_CASEFOLD) && ISUPPER (c) ? tolower (c) : (c))
  65.  
  66.   while ((c = *p++) != '\0')
  67.     {
  68.       c = FOLD (c);
  69.  
  70.       switch (c)
  71.     {
  72.     case '?':
  73.       if (*n == '\0')
  74.         return FNM_NOMATCH;
  75.       else if ((flags & FNM_FILE_NAME) && *n == '/')
  76.         return FNM_NOMATCH;
  77.       else if ((flags & FNM_PERIOD) && *n == '.' &&
  78.            (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  79.         return FNM_NOMATCH;
  80.       break;
  81.  
  82.     case '\\':
  83.       if (!(flags & FNM_NOESCAPE))
  84.         {
  85.           c = *p++;
  86.           if (c == '\0')
  87.         /* Trailing \ loses.  */
  88.         return FNM_NOMATCH;
  89.           c = FOLD (c);
  90.         }
  91.       if (FOLD (*n) != c)
  92.         return FNM_NOMATCH;
  93.       break;
  94.  
  95.     case '*':
  96.       if ((flags & FNM_PERIOD) && *n == '.' &&
  97.           (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  98.         return FNM_NOMATCH;
  99.  
  100.       for (c = *p++; c == '?' || c == '*'; c = *p++)
  101.         {
  102.           if ((flags & FNM_FILE_NAME) && *n == '/')
  103.         /* A slash does not match a wildcard under FNM_FILE_NAME.  */
  104.         return FNM_NOMATCH;
  105.           else if (c == '?')
  106.         {
  107.           /* A ? needs to match one character.  */
  108.           if (*n == '\0')
  109.             /* There isn't another character; no match.  */
  110.             return FNM_NOMATCH;
  111.           else
  112.             /* One character of the string is consumed in matching
  113.                this ? wildcard, so *??? won't match if there are
  114.                less than three characters.  */
  115.             ++n;
  116.         }
  117.         }
  118.  
  119.       if (c == '\0')
  120.         return 0;
  121.  
  122.       {
  123.         char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
  124.         c1 = FOLD (c1);
  125.         for (--p; *n != '\0'; ++n)
  126.           if ((c == '[' || FOLD (*n) == c1) &&
  127.           fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
  128.         return 0;
  129.         return FNM_NOMATCH;
  130.       }
  131.  
  132.     case '[':
  133.       {
  134.         /* Nonzero if the sense of the character class is inverted.  */
  135.         register int not;
  136.  
  137.         if (*n == '\0')
  138.           return FNM_NOMATCH;
  139.  
  140.         if ((flags & FNM_PERIOD) && *n == '.' &&
  141.         (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  142.           return FNM_NOMATCH;
  143.  
  144.         not = (*p == '!' || *p == '^');
  145.         if (not)
  146.           ++p;
  147.  
  148.         c = *p++;
  149.         for (;;)
  150.           {
  151.         register char cstart = c, cend = c;
  152.  
  153.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  154.           {
  155.             if (*p == '\0')
  156.               return FNM_NOMATCH;
  157.             cstart = cend = *p++;
  158.           }
  159.  
  160.         cstart = cend = FOLD (cstart);
  161.  
  162.         if (c == '\0')
  163.           /* [ (unterminated) loses.  */
  164.           return FNM_NOMATCH;
  165.  
  166.         c = *p++;
  167.         c = FOLD (c);
  168.  
  169.         if ((flags & FNM_FILE_NAME) && c == '/')
  170.           /* [/] can never match.  */
  171.           return FNM_NOMATCH;
  172.  
  173.         if (c == '-' && *p != ']')
  174.           {
  175.             cend = *p++;
  176.             if (!(flags & FNM_NOESCAPE) && cend == '\\')
  177.               cend = *p++;
  178.             if (cend == '\0')
  179.               return FNM_NOMATCH;
  180.             cend = FOLD (cend);
  181.  
  182.             c = *p++;
  183.           }
  184.  
  185.         if (FOLD (*n) >= cstart && FOLD (*n) <= cend)
  186.           goto matched;
  187.  
  188.         if (c == ']')
  189.           break;
  190.           }
  191.         if (!not)
  192.           return FNM_NOMATCH;
  193.         break;
  194.  
  195.       matched:;
  196.         /* Skip the rest of the [...] that already matched.  */
  197.         while (c != ']')
  198.           {
  199.         if (c == '\0')
  200.           /* [... (unterminated) loses.  */
  201.           return FNM_NOMATCH;
  202.  
  203.         c = *p++;
  204.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  205.           {
  206.             if (*p == '\0')
  207.               return FNM_NOMATCH;
  208.             /* XXX 1003.2d11 is unclear if this is right.  */
  209.             ++p;
  210.           }
  211.           }
  212.         if (not)
  213.           return FNM_NOMATCH;
  214.       }
  215.       break;
  216.  
  217.     default:
  218.       if (c != FOLD (*n))
  219.         return FNM_NOMATCH;
  220.     }
  221.  
  222.       ++n;
  223.     }
  224.  
  225.   if (*n == '\0')
  226.     return 0;
  227.  
  228.   if ((flags & FNM_LEADING_DIR) && *n == '/')
  229.     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
  230.     return 0;
  231.  
  232.   return FNM_NOMATCH;
  233.  
  234. # undef FOLD
  235. }
  236.  
  237. #endif    /* _LIBC or not __GNU_LIBRARY__.  */
  238.