src/filename_match.cxx

   1 //
   2 // "$Id: filename_match.cxx 7903 2010-11-28 21:06:39Z matt $"
   3 //
   4 // Pattern matching routines for the Fast Light Tool Kit (FLTK).
   5 //
   6 // Copyright 1998-2010 by Bill Spitzak and others.
   7 //
   8 // This library is free software; you can redistribute it and/or
   9 // modify it under the terms of the GNU Library General Public
  10 // License as published by the Free Software Foundation; either
  11 // version 2 of the License, or (at your option) any later version.
  12 //
  13 // This library is distributed in the hope that it will be useful,
  14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 // Library General Public License for more details.
  17 //
  18 // You should have received a copy of the GNU Library General Public
  19 // License along with this library; if not, write to the Free Software
  20 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  21 // USA.
  22 //
  23 // Please report all bugs and problems on the following page:
  24 //
  25 //     http://www.fltk.org/str.php
  26 //
  27
  28 /* Adapted from Rich Salz. */
  29 #include <FL/filename.H>
  30 #include <ctype.h>
  31
  32 /**
  33     Checks if a string \p s matches a pattern \p p.
  34     The following syntax is used for the pattern:
  35     - * matches any sequence of 0 or more characters.
  36     - ? matches any single character.
  37     - [set] matches any character in the set. Set can contain any single characters, or a-z to represent a range.
  38       To match ] or - they must be the first characters. To match ^ or ! they must not be the first characters.
  39     - [^set] or [!set] matches any character not in the set.
  40     - {X|Y|Z} or {X,Y,Z} matches any one of the subexpressions literally.
  41     - \\x quotes the character x so it has no special meaning.
  42     - x all other characters must be matched exactly.
  43
  44     \b Include:
  45     \code
  46     #include <FL/filename.H>
  47     \endcode
  48
  49     \param[in] s the string to check for a match
  50     \param[in] p the string pattern
  51     \return non zero if the string matches the pattern
  52 */
  53 int fl_filename_match(const char *s, const char *p) {
  54   int matched;
  55
  56   for (;;) {
  57     switch(*p++) {
  58
  59     case '?' :  // match any single character
  60       if (!*s++) return 0;
  61       break;
  62
  63     case '*' :  // match 0-n of any characters
  64       if (!*p) return 1; // do trailing * quickly
  65       while (!fl_filename_match(s, p)) if (!*s++) return 0;
  66       return 1;
  67
  68     case '[': { // match one character in set of form [abc-d] or [^a-b]
  69       if (!*s) return 0;
  70       int reverse = (*p=='^' || *p=='!'); if (reverse) p++;
  71       matched = 0;
  72       char last = 0;
  73       while (*p) {
  74         if (*p=='-' && last) {
  75           if (*s <= *++p && *s >= last ) matched = 1;
  76           last = 0;
  77         } else {
  78           if (*s == *p) matched = 1;
  79         }
  80         last = *p++;
  81         if (*p==']') break;
  82       }
  83       if (matched == reverse) return 0;
  84       s++; p++;}
  85     break;
  86
  87     case '{' : // {pattern1|pattern2|pattern3}
  88     NEXTCASE:
  89     if (fl_filename_match(s,p)) return 1;
  90     for (matched = 0;;) {
  91       switch (*p++) {
  92       case '\\': if (*p) p++; break;
  93       case '{': matched++; break;
  94       case '}': if (!matched--) return 0; break;
  95       case '|': case ',': if (matched==0) goto NEXTCASE;
  96       case 0: return 0;
  97       }
  98     }
  99     case '|':   // skip rest of |pattern|pattern} when called recursively
 100     case ',':
 101       for (matched = 0; *p && matched >= 0;) {
 102         switch (*p++) {
 103         case '\\': if (*p) p++; break;
 104         case '{': matched++; break;
 105         case '}': matched--; break;
 106         }
 107       }
 108       break;
 109     case '}':
 110       break;
 111
 112     case 0:     // end of pattern
 113       return !*s;
 114
 115     case '\\':  // quote next character
 116       if (*p) p++;
 117       /* FALLTHROUGH */
 118     default:
 119       if (tolower(*s) != tolower(*(p-1))) return 0;
 120       s++;
 121       break;
 122     }
 123   }
 124 }
 125
 126 //
 127 // End of "$Id: filename_match.cxx 7903 2010-11-28 21:06:39Z matt $".
 128 //