3 * Matches wildcard patterns
5 * (c) 2001 Mark Wooding
8 /*----- Licensing notice --------------------------------------------------*
10 * This file is part of Anag: a simple wordgame helper.
12 * Anag is free software; you can redistribute it and/or modify
13 * it under the terms of the GNU General Public License as published by
14 * the Free Software Foundation; either version 2 of the License, or
15 * (at your option) any later version.
17 * Anag is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 * GNU General Public License for more details.
22 * You should have received a copy of the GNU General Public License
23 * along with Anag; if not, write to the Free Software Foundation,
24 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 /*----- Header files ------------------------------------------------------*/
31 /*----- Data structures ---------------------------------------------------*/
33 typedef struct node_wild
{
38 /*----- Main code ---------------------------------------------------------*/
42 * Arguments: @const char *p@ = pointer to pattern string
43 * @const char *s@ = string to compare with
45 * Returns: Nonzero if the pattern matches the string.
47 * Use: Does simple wildcard matching. This is quite nasty and more
48 * than a little slow. Supports metacharacters `*', `?' and
52 static int match(const char *p
, const char *s
)
62 /* If there's no character left, then we fail; otherwise consume
63 * anything and move on.
66 if (!*s
++) return (0);
70 /* If there's no more pattern then we win. */
73 /* Try skipping any number of characters from the pattern looking for
77 if (match(p
, s
)) return (1);
83 /* Character sets. This is the hard part. */
85 /* If there is no character left, then we fail. */
88 /* Fetch the string character, and start munching through the
92 pch
= *p
++; sense
= 1;
94 /* Maybe we need to negate. */
95 if (pch
== '^' || pch
== '!') { sense
= !sense
; pch
= *p
++; }
97 /* A close bracket here is literal. Watch for ranges. */
99 if (*p
== '-' && p
[1] && p
[1] != ']') {
101 if (pch
<= sch
&& sch
<= pche
) goto class_match
;
102 } else if (pch
== sch
) goto class_match
;
106 /* Work through the other characters and ranges in the set. */
107 for (;; pch
= *p
++) {
108 if (!pch
|| pch
== ']') goto class_nomatch
;
109 if (*p
== '-' && p
[1] && p
[1] != ']') {
111 if (pch
<= sch
&& sch
<= pche
) goto class_match
;
112 } else if (pch
== sch
) goto class_match
;
116 /* Found a match. Chew through the rest of the pattern. */
117 if (!sense
) return (0);
119 pch
= *p
++; if (!pch
) return (0);
120 if (pch
== ']') break;
121 if (*p
== '-' && p
[1] && p
[1] != ']') p
+= 2;
126 /* Found the end of the set, so it's a mismatch. */
127 if (sense
) return (0);
131 /* Treat the next thing literally. */
133 /* fall through... */
136 /* A plain character match.
138 * Trick: If this is the end of the pattern, we expect the end of
142 if (pch
!= *s
++) return (0);
143 if (!pch
) return (1);
149 /* --- Node matcher --- */
151 static int n_wild(node
*nn
, const char *p
, size_t sz
)
153 node_wild
*n
= (node_wild
*)nn
;
154 return (match(n
->p
, p
));
157 /* --- Node creation --- */
159 node
*wildcard(const char *const *av
)
161 node_wild
*n
= xmalloc(sizeof(*n
));
167 /*----- That's all, folks -------------------------------------------------*/