$save nolist

/*
 *============================================================================
 *  This program is distributed in the hope that it will be useful, but
 *  WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
 *
 *  Permission to use for any purpose, modify, copy, and make enhancements
 *  and derivative works of the software is granted if attribution is given to
 *  R.M. Gillmore, dba the ACME Software Deli, as the author
 *
 *  While the ACME Software Deli does not work for money, there is nonetheless
 *  a significant amount of work involved.  The ACME Software Deli maintains the
 *  rights to all code written, though it may be used and distributed as long as
 *  the following conditions are maintained.
 *
 *  1.  The copyright statement at the top of each code block is maintained in
 *      your distribution.
 *  2.  You do not identify yourself as the ACME Software Deli
 *  3.  Any changes made to the software are sent to the ACME Software Deli
 *============================================================================
 */



/*
 *	$Id: fnmatch.ext 1157 2025-05-05 00:35:39Z rmgillmore $
 */


$if not FNMATCH_EXT_INCLUDED
$set (FNMATCH_EXT_INCLUDED)

$include (..\lib\string.ext)

declare	FNM_NOMATCH		literally	'1';	/* Match failed. */

declare	flagTypes		literally	'word';

declare	FNM_NONE		literally	'000h',	/* no flag specified */
		FNM_NOESCAPE	literally	'001h',	/* Disable backslash escaping */
		FNM_PATHNAME	literally	'002h',	/* Slash must be matched by slash */
		FNM_PERIOD		literally	'004h',	/* Period must be matched by period */
		FNM_LEADING_DIR	literally	'008h',	/* Ignore /<tail> after Imatch */
		FNM_CASEFOLD	literally	'010h',	/* Case insensitive search. */
		FNM_PREFIX_DIRS	literally	'020h';	/* Directory prefixes of pattern match too */

$if not FNMATCH_IMPLEMENTATION

fnmatch:
procedure ( patternPtr, stringInPtr, fileFlags ) boolean external;
	declare	patternPtr				pointer,
			pattern		based		patternPtr	(*) char,
			stringInPtr				pointer,
			stringIn	based		stringInPtr	(*) char,
			fileFlags				flagTypes;
end fnmatch;

$endif
$endif
$restore