Description Kathy Carroll 2011-08-11 10:45:33 EDT

program matchDriver type BasicProgram {}
		
	function main()
		s1, pattern String;
		actual boolean;
		
		s1 = "ab*def";
		pattern = "ab\\*def";
		actual = s1.matchesPattern(pattern);
		dump(s1,pattern, actual);
				
		s1 = "ab%def";
		pattern = "ab\\%def";
		actual = s1.isLike(pattern);
		dump(s1,pattern, actual);
	end
	
	function dump(source string, pattern string, result boolean)
		if (result)
			syslib.writestdout("Found " + pattern + " in " + source);
		else
			syslib.writestdout("Not Found " + pattern + " in " + source);
		end
	end
	
end