/**
 * $Id: LTfnmatch.c,v 1.2 1997/07/11 02:22:19 miers Exp $
 *
 * derived from GNU libc fnmatch.c
 *
 * Copyright (C) 1995 Free Software Foundation, Inc.
 * Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
 *
 * This file is part of the GNU LessTif Library.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library 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.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the Free
 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 **/

static char rcsid[] = "$Id: LTfnmatch.c,v 1.2 1997/07/11 02:22:19 miers Exp $";

#include <LTconfig.h>

#include <errno.h>
#include <LTfnmatch.h>
#include <ctype.h>


#ifndef errno
extern int errno;
#endif

/* Match STRING against the filename pattern PATTERN, returning zero if
   it matches, nonzero if not.  */
int
_Lesstif_fnmatch(
		    const char *pattern,
		    const char *string,
		    int flags)
{
    register const char *p = pattern, *n = string;
    register char c;

/* Note that this evalutes C many times.  */
#define FOLD(c)	((flags & FNM_CASEFOLD) && isupper (c) ? tolower (c) : (c))

    while ((c = *p++) != '\0')
    {
	c = FOLD(c);

	switch (c)
	{
	case '?':
	    if (*n == '\0')
		return FNM_NOMATCH;
	    else if ((flags & FNM_FILE_NAME) && *n == '/')
		return FNM_NOMATCH;
	    else if ((flags & FNM_PERIOD) && *n == '.' &&
		     (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
		return FNM_NOMATCH;
	    break;

	case '\\':
	    if (!(flags & FNM_NOESCAPE))
	    {
		c = *p++;
		c = FOLD(c);
	    }
	    if (FOLD(*n) != c)
		return FNM_NOMATCH;
	    break;

	case '*':
	    if ((flags & FNM_PERIOD) && *n == '.' &&
		(n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
		return FNM_NOMATCH;

	    for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
		if (((flags & FNM_FILE_NAME) && *n == '/') ||
		    (c == '?' && *n == '\0'))
		    return FNM_NOMATCH;

	    if (c == '\0')
		return 0;

	    {
		char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
		c1 = FOLD(c1);
		for (--p; *n != '\0'; ++n)
		    if ((c == '[' || FOLD(*n) == c1) &&
			_Lesstif_fnmatch(p, n, flags & ~FNM_PERIOD) == 0)
			return 0;
		return FNM_NOMATCH;
	    }

	case '[':
	    {
		/* Nonzero if the sense of the character class is inverted.  */
		register int c_not;

		if (*n == '\0')
		    return FNM_NOMATCH;

		if ((flags & FNM_PERIOD) && *n == '.' &&
		    (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
		    return FNM_NOMATCH;

		c_not = (*p == '!' || *p == '^');
		if (c_not)
		    ++p;

		c = *p++;
		for (;;)
		{
		    register char cstart = c, cend = c;

		    if (!(flags & FNM_NOESCAPE) && c == '\\')
			cstart = cend = *p++;

		    cstart = cend = FOLD(cstart);

		    if (c == '\0')
			/* [ (unterminated) loses.  */
			return FNM_NOMATCH;

		    c = *p++;
		    c = FOLD(c);

		    if ((flags & FNM_FILE_NAME) && c == '/')
			/* [/] can never match.  */
			return FNM_NOMATCH;

		    if (c == '-' && *p != ']')
		    {
			cend = *p++;
			if (!(flags & FNM_NOESCAPE) && cend == '\\')
			    cend = *p++;
			if (cend == '\0')
			    return FNM_NOMATCH;
			cend = FOLD(cend);

			c = *p++;
		    }

		    if (FOLD(*n) >= cstart && FOLD(*n) <= cend)
			goto matched;

		    if (c == ']')
			break;
		}
		if (!c_not)
		    return FNM_NOMATCH;
		break;

	      matched:;
		/* Skip the rest of the [...] that already matched.  */
		while (c != ']')
		{
		    if (c == '\0')
			/* [... (unterminated) loses.  */
			return FNM_NOMATCH;

		    c = *p++;
		    if (!(flags & FNM_NOESCAPE) && c == '\\')
			/* XXX 1003.2d11 is unclear if this is right.  */
			++p;
		}
		if (c_not)
		    return FNM_NOMATCH;
	    }
	    break;

	default:
	    if (c != FOLD(*n))
		return FNM_NOMATCH;
	}

	++n;
    }

    if (*n == '\0')
	return 0;

    if ((flags & FNM_LEADING_DIR) && *n == '/')
	/* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
	return 0;

    return FNM_NOMATCH;
}