~eda-qa/dhlib/main

/* <license>

 * This file is part of the dis-Emi-A HaXe Library. Copyright © edA-qa mort-ora-y

 * For full copyright and license information please refer to doc/license.txt.

 * </license> 

 */

package words.test;

import flash.utils.ByteArray;

import mathx.MatPoint;

import words.PermutationIterator;

class WordTest extends ui.StageLayout

{

	var tfEntry : ui.EditText;

	var dict : words.Dictionary;

	var encoder : words.Encoder;

	var boardFactory : words.WordBoardFactory;

	public function new()

	{

		super();

		MixinLayout();

		encoder = new words.Encoder_EN();

		boardFactory = words.WordBoardFactory.withSizeLang( MatPoint.at( 4, 4 ), encoder );

		tfEntry = ui.EditText.singleLine();

		tfEntry.text = "hello";

		layout.add( tfEntry );

		layout.add( 

			ui.Button.plain( ui.Action.bind( onLookup ), "Lookup Word" ) 

			);

		layout.add( 

			ui.Button.plain( ui.Action.bind( onAnagram ), "Lookup Anagrams" ) 

			);

		layout.add( 

			ui.Button.plain( ui.Action.bind( onDumpBoardDice ), "Dump Board Dice" ) 

			);

		layout.add( 

			ui.Button.plain( ui.Action.bind( onCreateBoard ), "Create Board" ) 

			);

		layout.add( 

			ui.Button.plain( ui.Action.bind( onAnagramBoard ), "Anagram Board" ) 

			);

		layout.add(

			ui.Button.plain( ui.Action.bind( onSolveBoard ), "Solve Provided Board" )

			);

		system.Loader.urlBinary( 

			"WordsCommonEn.raw",

			ui.Action.bind1( onBinaryLoaded, null )

			);

	}

	function onLookup()

	{

		if( dict == null )

		{

			trace( "No dictionary available yet." );

			return;

		}

		var enc = encoder.encode( tfEntry.text );

		trace( "Encoded: " + enc );

		trace( "Lookup: " + encoder.decode( enc ) );	//what actually will be looked up

		var value = dict.lookup( tfEntry.text );

		if( value == -1 )

			trace( "Not Found / Continues" );

		else if ( value == -2 )

			trace( "Not Found / Terminal" );

		else

			trace( "Value: " + value );

	}

	function onDumpBoardDice()

	{

		trace( boardFactory.getDiceStack() );

	}

	function onCreateBoard()

	{

		trace( boardFactory.createBoard() );

	}

	function onAnagramBoard()

	{

		var b = boardFactory.createBoard();

		trace( b );

		anagram( words.Anagram.withMatrix( b, dict ) );

	}

	/**

	 * NOTE: This test function does not respect time limits in scripts (like in Flash)

	 * and will likely timeout on long strings.  A proper function would need to reschedule

	 * itself and quasi as a thread

	 */

	function onAnagram()

	{

		anagram( words.Anagram.withString( tfEntry.text, dict ) );

	}

	function anagram( ana : words.Anagram )

	{

		var start = haxe.Timer.stamp();

		var step = 0;

		do

		{

			if( !ana.step( 1000 ) )

			{

				trace( "Complete." );

				break;

			}

			trace( "Step: " + step++ );

		} while( (haxe.Timer.stamp() - start) < 5 );	//limit time for demo purposes (Flash also has limit)

		var count = 0;

		var all = new Array<String>();

		for( key in ana.found.keys() )

		{

			var level = ana.found.get( key );

			trace( key + " => " + level );		

			count++;

			//collect all simple words

			if( level <= 2 && key.length >= 3 )

				all.push( key );

		}

		trace( "Total Count: " + count );

		all.sort( function( x, y ) { return x.length - y.length; } );

		var allt = "";

		for( w in all )

			allt += "\n" + w;

		trace( allt );

	}

	function onBinaryLoaded( binary : ByteArray )

	{

		trace( "Loaded: " + binary.bytesAvailable );

		dict = words.Dictionary.withByteArray( binary, encoder );

	}

	function onSolveBoard()

	{

		var letters = tfEntry.text.split( "," );

		ASSERT( letters.length == 16 );

		var mat = mathx.Matrix.create( 4, 4, "" );

		for( i in 0...(mat.maxLinearIndex()+1) )

		{

			var mp = mat.fromLinearIndex( i );

			mat.set( mp.x, mp.y, letters[i] );

		}

		var board = words.WordBoard.withMatrix( mat );

		trace( board );

		anagram( words.Anagram.withMatrix( board, dict ) );

	}

	static public function main()

	{

		ui.StageLayout.setup( WordTest );

	}

	define(`IsVerticalLayout',`')

	include(`ui/MixinLayout.ihx')

}