home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OS9000 / APPS / diff.lzh / diff / fnmatch.c < prev    next >
Text File  |  1986-04-24  |  5KB  |  211 lines
  1. static char RCSid[]="$Id: fnmatch.c_v 1.1 96/04/23 02:52:34 hiro Exp $";
  2. /* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
  3.  
  4. This library is free software; you can redistribute it and/or
  5. modify it under the terms of the GNU Library General Public License as
  6. published by the Free Software Foundation; either version 2 of the
  7. License, or (at your option) any later version.
  8.  
  9. This library is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12. Library General Public License for more details.
  13.  
  14. You should have received a copy of the GNU Library General Public
  15. License along with this library; see the file COPYING.LIB.  If
  16. not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  17. Cambridge, MA 02139, USA.  */
  18.  
  19. #ifdef HAVE_CONFIG_H
  20. #if defined (CONFIG_BROKETS)
  21. /* We use <config.h> instead of "config.h" so that a compilation
  22.    using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h
  23.    (which it would do because it found this file in $srcdir).  */
  24. #include <config.h>
  25. #else
  26. #include "config.h"
  27. #endif
  28. #endif
  29.  
  30. #include <errno.h>
  31. #include <fnmatch.h>
  32. #include <ctype.h>
  33. #ifdef _OS9000
  34. #include "os9k.h"
  35. #endif
  36.  
  37. /* Comment out all this code if we are using the GNU C Library, and are not
  38.    actually compiling the library itself.  This code is part of the GNU C
  39.    Library, but also included in many other GNU distributions.  Compiling
  40.    and linking in this code is a waste when using the GNU C library
  41.    (especially if it is a shared library).  Rather than having every GNU
  42.    program understand `configure --with-gnu-libc' and omit the object files,
  43.    it is simpler to just do this in the source for each such file.  */
  44.  
  45. #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
  46.  
  47.  
  48. #if !defined(__GNU_LIBRARY__) && !defined(STDC_HEADERS)
  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 evalutes 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.           c = FOLD (c);
  87.         }
  88.       if (FOLD (*n) != c)
  89.         return FNM_NOMATCH;
  90.       break;
  91.  
  92.     case '*':
  93.       if ((flags & FNM_PERIOD) && *n == '.' &&
  94.           (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  95.         return FNM_NOMATCH;
  96.  
  97.       for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
  98.         if (((flags & FNM_FILE_NAME) && *n == '/') ||
  99.         (c == '?' && *n == '\0'))
  100.           return FNM_NOMATCH;
  101.  
  102.       if (c == '\0')
  103.         return 0;
  104.  
  105.       {
  106.         char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
  107.         c1 = FOLD (c1);
  108.         for (--p; *n != '\0'; ++n)
  109.           if ((c == '[' || FOLD (*n) == c1) &&
  110.           fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
  111.         return 0;
  112.         return FNM_NOMATCH;
  113.       }
  114.  
  115.     case '[':
  116.       {
  117.         /* Nonzero if the sense of the character class is inverted.  */
  118.         register int not;
  119.  
  120.         if (*n == '\0')
  121.           return FNM_NOMATCH;
  122.  
  123.         if ((flags & FNM_PERIOD) && *n == '.' &&
  124.         (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  125.           return FNM_NOMATCH;
  126.  
  127.         not = (*p == '!' || *p == '^');
  128.         if (not)
  129.           ++p;
  130.  
  131.         c = *p++;
  132.         for (;;)
  133.           {
  134.         register char cstart = c, cend = c;
  135.  
  136.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  137.           cstart = cend = *p++;
  138.  
  139.         cstart = cend = FOLD (cstart);
  140.  
  141.         if (c == '\0')
  142.           /* [ (unterminated) loses.  */
  143.           return FNM_NOMATCH;
  144.  
  145.         c = *p++;
  146.         c = FOLD (c);
  147.  
  148.         if ((flags & FNM_FILE_NAME) && c == '/')
  149.           /* [/] can never match.  */
  150.           return FNM_NOMATCH;
  151.  
  152.         if (c == '-' && *p != ']')
  153.           {
  154.             cend = *p++;
  155.             if (!(flags & FNM_NOESCAPE) && cend == '\\')
  156.               cend = *p++;
  157.             if (cend == '\0')
  158.               return FNM_NOMATCH;
  159.             cend = FOLD (cend);
  160.  
  161.             c = *p++;
  162.           }
  163.  
  164.         if (FOLD (*n) >= cstart && FOLD (*n) <= cend)
  165.           goto matched;
  166.  
  167.         if (c == ']')
  168.           break;
  169.           }
  170.         if (!not)
  171.           return FNM_NOMATCH;
  172.         break;
  173.  
  174.       matched:;
  175.         /* Skip the rest of the [...] that already matched.  */
  176.         while (c != ']')
  177.           {
  178.         if (c == '\0')
  179.           /* [... (unterminated) loses.  */
  180.           return FNM_NOMATCH;
  181.  
  182.         c = *p++;
  183.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  184.           /* XXX 1003.2d11 is unclear if this is right.  */
  185.           ++p;
  186.           }
  187.         if (not)
  188.           return FNM_NOMATCH;
  189.       }
  190.       break;
  191.  
  192.     default:
  193.       if (c != FOLD (*n))
  194.         return FNM_NOMATCH;
  195.     }
  196.  
  197.       ++n;
  198.     }
  199.  
  200.   if (*n == '\0')
  201.     return 0;
  202.  
  203.   if ((flags & FNM_LEADING_DIR) && *n == '/')
  204.     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
  205.     return 0;
  206.  
  207.   return FNM_NOMATCH;
  208. }
  209.  
  210. #endif    /* _LIBC or not __GNU_LIBRARY__.  */
  211.