/*
 * Copyright (C) 1996, 1997, 1998, 1999, 2000 Florian Schintke
 *
 * This is free software; you can redistribute it and/or modify it under the
 * terms of the GNU General Public License as published by the Free Software
 * Foundation; either version 2, or (at your option) any later version.
 *
 * This 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 General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License with the
 * c2html, java2html, pas2html or perl2html source package as the file
 * COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple
 * Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/* Documenttitle and purpose:                                       */
/* Implementation of the UN*X wildcards in C. So they are         */
/* available in a portable way and can be used whereever          */
/* needed.                                                        */
/* */
/* Version:                                                         */
/* 1.2                                                            */
/* */
/* Test cases:                                                      */
/* Please look into the Shellscript testwildcards.main            */
/* */
/* Author(s):                                                       */
/* Florian Schintke (schintke@gmx.de)                             */
/* */
/* Tester:                                                          */
/* Florian Schintke (schintke@gmx.de)                             */
/* */
/* Testing state:                                                   */
/* tested with the atac tool                                      */
/* Latest test state is documented in testwildcards.report        */
/* The program that tested this functions is available as         */
/* testwildcards.c                                                */
/* */
/* Dates:                                                           */
/* First editing: unknown, but before 04/02/1997                  */
/* Last Change  : 04/07/2000                                      */
/* */
/* Known Bugs:                                                      */
/* */

#include <stdio.h>
#include "wildcard.h"

int		set        (char **wildcard, char **test);

/* Scans a set of characters and returns 0 if the set mismatches at this */
/* position in the teststring and 1 if it is matching                    */
/* wildcard is set to the closing ] and test is unmodified if mismatched */
/* and otherwise the char pointer is pointing to the next character      */

int		asterisk   (char **wildcard, char **test);

/* scans an asterisk */

int
wildcardfit(char *wildcard, char *test)
{
	int		fit = 1;

	for (; ('\000' != *wildcard) && (1 == fit) && ('\000' != *test); wildcard++) {
		switch (*wildcard) {
		case '[':
			wildcard++;	/* leave out the opening square
					 * bracket */
			fit = set(&wildcard, &test);
			/* we don't need to decrement the wildcard as in case */
			/* of asterisk because the closing ] is still there */
			break;
		case '?':
			test++;
			break;
		case '*':
			fit = asterisk(&wildcard, &test);

			/*
			 * the asterisk was skipped by asterisk() but the
			 * loop will
			 */
			/* increment by itself. So we have to decrement */
			wildcard--;
			break;
		default:
			fit = (int)(*wildcard == *test);
			test++;
		}
	}
	while ((*wildcard == '*') && (1 == fit))
		/* here the teststring is empty otherwise you cannot */
		/* leave the previous loop */
		wildcard++;
	return (int)((1 == fit) && ('\0' == *test) && ('\0' == *wildcard));
}

int
set(char **wildcard, char **test)
{
	int		fit = 0;
	int		negation = 0;
	int		at_beginning = 1;

	if ('!' == **wildcard) {
		negation = 1;
		(*wildcard)++;
	}
	while ((']' != **wildcard) || (1 == at_beginning)) {
		if (0 == fit) {
			if (('-' == **wildcard)
			    && ((*(*wildcard - 1)) < (*(*wildcard + 1)))
			    && (']' != *(*wildcard + 1))
			    && (0 == at_beginning)) {
				if (((**test) >= (*(*wildcard - 1)))
				    && ((**test) <= (*(*wildcard + 1)))) {
					fit = 1;
					(*wildcard)++;
				}
			} else if ((**wildcard) == (**test)) {
				fit = 1;
			}
		}
		(*wildcard)++;
		at_beginning = 0;
	}
	if (1 == negation)
		/* change from zero to one and vice versa */
		fit = 1 - fit;
	if (1 == fit)
		(*test)++;

	return (fit);
}

int
asterisk(char **wildcard, char **test)
{
	/* Warning: uses multiple returns */
	int		fit = 1;

	/* erase the leading asterisk */
	(*wildcard)++;
	while (('\000' != (**test))
	    && (('?' == **wildcard)
	    || ('*' == **wildcard))) {
		if ('?' == **wildcard)
			(*test)++;
		(*wildcard)++;
	}
	/* Now it could be that test is empty and wildcard contains */
	/* aterisks. Then we delete them to get a proper state */
	while ('*' == (**wildcard))
		(*wildcard)++;

	if (('\0' == (**test)) && ('\0' != (**wildcard)))
		return (fit = 0);
	if (('\0' == (**test)) && ('\0' == (**wildcard)))
		return (fit = 1);
	else {
		/* Neither test nor wildcard are empty!          */
		/* the first character of wildcard isn't in [*?] */
		if (0 == wildcardfit(*wildcard, (*test))) {
			do {
				(*test)++;

				/*
				 * skip as much characters as possible in the
				 * teststring
				 */
				/* stop if a character match occurs */
				while (((**wildcard) != (**test))
				    && ('[' != (**wildcard))
				    && ('\0' != (**test)))
					(*test)++;
			}
			while ((('\0' != **test)) ?
			    (0 == wildcardfit(*wildcard, (*test)))
			    : (0 != (fit = 0)));
		}
		if (('\0' == **test) && ('\0' == **wildcard))
			fit = 1;
		return (fit);
	}
}