\ A small wildcard matching algorithm.
\ Converted from Jack Handy "wildcmp" C source.
\ see https://secure.codeproject.com/string/wildcmp.asp

\ WILDCARD-MATCH ( text ntext wild nwild -- flag )
(
s" bl?h.*" s" blah.jpg" WILD-COMPARE if
." we have a match!"
else
." no match"
then ;
)

\ NB: ANDIF, ORIF see Neil Bawd http://home.earthlink.net/~neilbawd/

char * constant '*'
char ? constant '?'

: up2 ( a b -- A B ) upper swap upper ;
: ucharC ( a n i -- c ) tuck > if chars + c@ else 2drop 0 then ;

: textC ( -- C ) s" text nt it ucharC" evaluate ; immediate
: wildC ( -- C ) s" wild nw iw ucharC" evaluate ; immediate

"Charles Melice" forthcad.com> writes Re: A small wildcard matching algorithm

Neat! Especially the poem.

Three remarks:

1.
| \ WILDCARD-MATCH ( text ntext wild nwild -- flag )
| (
| s" bl?h.*" s" blah.jpg" WILD-COMPARE if
| ." we have a match!"
| else
| ." no match"
| then ;
| )

"Marcel Hendrix" a

Charles Melice wrote:
This is a version without locals nor toolbelt extensions. Don't ask me
how portable it is. It should be, but it isn't tested.

Hans Bezemer

-- CUT HERE --
\ 4tH library - WILDCARD - Copyright 2006 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

\ int wildcmp (const char *wild, const char *string) {
\ // Written by Jack Handy - jakkhandy@hotmail.com
\ const char *cp = NULL, *mp = NULL;

\ while ((*string) && (*wild != '*')) {
\ if ((*wild != *string) && (*wild != '?')) {
\ return 0;
\ }
\ wild++;
\ string++;
\ }

"The Beez'" bigfoot.com> a

"Charles Melice" forthcad.com> a

Yes, it is case sensitive. I can always apply filters if I want (I got
those in my toolbox too ;-). True, I don't like locals nor variables.
So, I have to refer to stack juggling. The functions I used (s= s? s<>)
already take some of the "unreadability" away, but we've got still a
lot of items on our hand. Note I use the return stack to store the
temporaries and the data stack to store the ANS compatible addr/count
pointers in the order "wild string". The temporary flags are
transferred to the return stack until evaluated.

Hans Bezemer

"The Beez'" bigfoot.com> a

"Charles Melice" wrote:

"Jos van de Ven" wrote Re: A small wildcard matching algorithm
[..]

( not tested )

: $WILDCARD-MATCH ( text nt wild nw