<?
//
//  pspellX - Written by Wendell Brown - 8/2005
//
//  This is a LIMITED replacement (it just supports the new, check and suggest
//  functions) for aspell or pspell without the need to install one of those 
//  features in PHP.
//
//  The dictionary file needs to be in the same directory as this script and 
//  should be named "eng_com.dic".  The file can be downloaded from the 
//  "Dictionaries" link of the "Jazzy" project on sourceforge:  
//
//      http://sourceforge.net/projects/jazzy
//
//  (Choose the "Download english_dic.zip" -- it's the 500K zip file)
//
//
// // Here is the "default" pspell example script using pspellX
//
// $pspell_link = pspellX_new("en");
//
// if (!pspellX_check($pspell_link, "testt")) {
//    $suggestions = pspellX_suggest($pspell_link, "testt");
// 
//    foreach ($suggestions as $suggestion)
//        echo "Possible spelling: $suggestion\n";
// }

function pspellX_new( $bogus=True ) {
	
	//  Make sure this code isn't executed more than once
	if( isset( $pSpell["Dict"] ) )
			return( $pSpell );
	
	// Set variables
	$pSpell["Dict"]["Name"] = "eng_com.dic";
	$pSpell["Key"]["Name"] = "eng_com.idx";
	$pSpell["Index"] = array(0);

	// Set up bogus inital index entry	
	$i = &$pSpell["Index"];
	
	// Open Dictionary File
	if( ! ( $pSpell["Dict"]["File"] = @fopen( $pSpell["Dict"]["Name"], "rb" ) ) ) {
	  printf( "\n\nError\n\n  %s\n\n", 'Unable to open "' . $pSpell["Dict"]["Name"] . '"' );
	  exit(99);
  }
				
	// Open Key file (or create if it doesn't exist)
	if( ! ( $pSpell["Key"]["File"] = @fopen( $pSpell["Key"]["Name"], "rb" ) ) ) {
		$pDict = &$pSpell["Dict"]["File"]; 
		
		//  Loop through file building Index
		$sLen = 0;
		$sKey = "";
		while( !feof( $pDict ) ) {
			
			//  Save current file location and get next record
			$loc = ftell( $pDict );
			$iString = trim( fgets( $pDict ) );

			//  Check to see if a new string length
			if( ($k = strlen( $iString )) != $sLen ) {
				$sLen = $k;
				$sKey = "";
			}

			//  Check to see if new key			
			if( ($s = substr( $iString, 0, 1 )) != $sKey ) {
				$i[$sLen][$s] = $loc;
				$sKey = $s;
			}
		}
			
		//  Save Index File
	  $pSpell["Key"]["File"] = @fopen( $pSpell["Key"]["Name"], "wb" );
  	fwrite( $pSpell["Key"]["File"], serialize( $i ) );
	} else
		$pSpell["Index"] = unserialize( fread( $pSpell["Key"]["File"], 102400 ) );

	fclose( $pSpell["Key"]["File"] );
	return( $pSpell );
}

function pspellX_check( $pSpell, $word ) {

	//  Check word against list
  $word = strtolower( $word );
  $ch = substr( $word, 0, 1 );
  
	//  Look to see if word in index
	$sLen = strlen( $word );
	if( $sLen < 2 )
			return( True );
	if( ! isset( $pSpell["Index"][$sLen][$ch] ) )
			return( False );
					
	//  Start looking for word at the "index" offset
	$pDict = &$pSpell["Dict"]["File"]; 
  fseek( $pDict, $pSpell["Index"][$sLen][$ch], SEEK_SET );
	
	//  Loop through file checking words
	while( !feof( $pDict ) ) {
		$iString = trim( fgets( $pDict ) );

		//  Check to see if a new string length
		if( ($k = strlen( $iString )) != $sLen )
				return( False );

		//  Check to see if new first letter
		if( substr( $iString, 0, 1 ) != $ch )
				return( False );
		
		//  Is it THE word?
		if( $iString == $word )
				return( True );
	}
	
	//  Must not have found it
	return( False );
}

function pspellX_suggest( $pSpell, $word ) {
	
	//  This module needs to be optimized... I'm not sure how yet, but....
		
	//  Get metaphone of word
  $wMet = metaphone ( $word );
  
  //  Loop through dictionary file looking for metaphone
	$pDict = &$pSpell["Dict"]["File"]; 
  fseek( $pDict, 0, SEEK_SET );
	while( !feof( $pDict ) ) {
		$iString = trim( fgets( $pDict ) );
		if( $wMet == metaphone( $iString ) )
			$suggest[$iString] = levenshtein($word, $iString);
	}

	//  Group by "closest" Levenshtein Distance	
	asort( $suggest );
	foreach( $suggest as $key => $data )
			$ret[] = $key;
	
	//  Return list of suggestions
  return( $ret );
}

?>