import java.io.*;
import java.net.*;
import java.lang.*;

class WildCard
	{
	private static char WildCharMask = 0x7C00;

	private String sourceStr;
	private String pattern;
	private String patternUpper;

	private static char WildChar(char c)
		{
		return( (char) ( c | WildCharMask ) );
		};

	public WildCard()
		{
		sourceStr = pattern = patternUpper = null; 
		};
	public WildCard(String in_pattern)
		{
		StringBuffer patwork = new StringBuffer(in_pattern.length());
		int i=0;
		char c,lastc=0;

		sourceStr = new String(in_pattern);

		while(i<in_pattern.length())
			{
			if ( in_pattern.charAt(i) == '#' && in_pattern.charAt(i+1) == '?' )
				{ c = WildChar('*'); i += 2; }
			else if ( in_pattern.charAt(i) == '`' )
				{ i++; c = in_pattern.charAt(i++); }
			else if ( isWild(in_pattern.charAt(i)) )
				c = WildChar(in_pattern.charAt(i++));
			else
				c = in_pattern.charAt(i++);

			if ( ! ( lastc == WildChar('*') && c == WildChar('*') ) )
				patwork.append(c);

			lastc = c;
			}
		pattern = patwork.toString();
		patternUpper = clib.strupr(pattern);
		};

	public static boolean isWild(char in)
		{
		if ( ( in & WildCharMask ) == WildCharMask ) return(true);
		switch(in)
			{
			case '*': case '?': case '~':
			case '(': case ')': case '|':
			case '[': case ']':
			case '`':
				return(true);
			default:
				return(false);
			}

		};
	public static boolean isWild(String in)
		{
		int i;
		for(i=0;i<in.length();i++)
			{
			if ( in.charAt(i) == '`' ) { i++; if ( i == in.length() ) return(false); }
			else if ( isWild(in.charAt(i)) ) return(true);
			}
		return(false);
		};

	public boolean match(String compare)
		{
		if ( pattern == null ) return(false);
		return( matchPair(pattern,0,compare,0) );
		};
	public boolean matchNoCase(String compare)
		{
		if ( patternUpper == null ) return(false);
		return( matchPair(patternUpper,0,clib.strupr(compare),0) );
		};

	public static boolean matchPair(String pat,int pi,String src,int si)
		{
		for(;;) {

			if ( pi >= pat.length() ) {
				if ( si >= src.length() ) return(true);
				else return(false);
			}

//		System.err.println(" pat: " + pat + " ,pi: " + pi + ",char:" + pat.charAt(pi));
//		System.err.println(" src: " + src + " ,si: " + si);

			if ( (pat.charAt(pi) & WildCharMask) == WildCharMask ) {

			  switch( pat.charAt(pi) ) {

			    case '?'|0x7C00: /* match any */
					if ( si >= src.length() ) return(false);
					pi++; si++;
			    	break;
  
			    case '['|0x7C00: /* match several */
					if ( si >= src.length() ) return(false);
					else {
						char s = src.charAt(si++);
						pi++;

						if ( pi >= pat.length() ) { if ( si >= src.length() ) return(true); else return(false); }

				    	if ( pat.charAt(pi+1) == '-' ) /* range */
				    		{
					        if ( s < pat.charAt(pi) || s > pat.charAt(pi+2) )
					          return(false);
					        pi += 3;
					        }
					      else /* list */
				    	    {
				        	while ( pat.charAt(pi++) != s )
					          {
					          if ( pat.charAt(pi) == WildChar(']') ) return(false);
					          pi++; /* pass , */
					          }
			    	    	}

						if ( pi >= pat.length() ) { if ( si >= src.length() ) return(true); else return(false); }

				      while( pat.charAt(pi) != WildChar(']') ) { pi++;					
						if ( pi >= pat.length() ) { if ( si >= src.length() ) return(true); else return(false); }
					  }
				      pi++;
					}
			    	break;
    
			    case '~'|0x7C00: /* NOT */
					pi++;
			    	return( ! matchPair(pat,pi,src,si) );
  
			    case '*'|0x7C00: /* WILD */
					pi++;
					if ( pi >= pat.length() ) return(true);

			    	while( si < src.length() ) {
				        if ( matchPair(pat,pi,src,si) ) return(true);
				        si++;
				    }

			    	return( false );
  
			    case '('|0x7C00 : /* OR */
			      do
			        {
			        pi++;

					if ( pi >= pat.length() ) { if ( si >= src.length() ) return(true); else return(false); }

			        if ( matchPair(pat,pi,src,si) ) return(true);
			        while ( pat.charAt(pi) != WildChar('|') && pat.charAt(pi) != WildChar(')') ) pi++;
			        } while( pat.charAt(pi) != WildChar(')') );
			      return(false);
  
			    case '|'|0x7C00: /* leftover from OR , skip */
			      while ( pat.charAt(pi) != WildChar(')') ) { pi++;
					if ( pi >= pat.length() ) { if ( si >= src.length() ) return(true); else return(false); }
					}
			      pi++;
			      break;
    
			    case ')'|0x7C00: /* leftover from OR , ignore */
					pi++;
			      break;

				default:
					System.err.println("wild error: got: " + pat.charAt(pi));
					return(false);
				}
			} else {
		    	/* raw character */
				if ( si >= src.length() ) return(false);
			    if ( src.charAt(si) != pat.charAt(pi) ) return(false);
				si++; pi++;
		    }
		  }
		};

	public String toString() {	return( sourceStr ); };

	};