<?
IncludeModuleLangFile(__FILE__);

class CSpellchecker
{
	private
		$lang,
		$skip_len,
		$pspell,
		$pspell_mode,
		$custom_spell,
		$wrongWords,
		$dics_path,
		$custom_dics_path,
		$dic;

	public function __construct($params)
	{
		$this->lang = (isset($params["lang"]) && $params["lang"] != '') ? $params["lang"] : 'en';
		$this->skip_len = $params["skip_length"];

		$this->pspell = (function_exists('pspell_config_create') && ($params["use_pspell"] == "Y"));
		//$this->custom_spell = $params["use_custom_spell"] == "Y";
		$this->custom_spell = false;
		$this->pspell_mode = $params["mode"];

		$this->dics_path = $this->checkDicPath();
		$this->user_dics_path = $this->dics_path."/custom.pws";
		$this->custom_dics_path = $this->dics_path.'/custom_dics/'.$this->lang.'_';

		if($this->custom_spell)
		{
			$this->dic = array();
		}

		if ($this->pspell)
		{
			$pspell_config = pspell_config_create ($this->lang, null, null, 'utf-8');
			pspell_config_ignore($pspell_config, $this->skip_len);
			pspell_config_mode($pspell_config, $params["mode"]);
			pspell_config_personal($pspell_config, $this->user_dics_path);
			$this->pspell_link = pspell_new_config($pspell_config);
		}
	}

	private function checkDicPath()
	{
		global $USER;
		$dics_path = $_SERVER["DOCUMENT_ROOT"].COption::GetOptionString('fileman', "user_dics_path", "/bitrix/modules/fileman/u_dics");

		$custom_path = $dics_path.'/'.$this->lang;

		if (COption::GetOptionString('fileman', "use_separeted_dics", "Y") == "Y")
		{
			$custom_path = $custom_path.'/'.$USER->GetID();
		}

		$io = CBXVirtualIo::GetInstance();
		if(!$io->DirectoryExists($custom_path))
		{
			$io->CreateDirectory($custom_path);
		}

		return $custom_path;
	}

	function codeLetter($letter)
	{
		return (in_array($letter, $this->letters) && $letter != 'û' && $letter != 'ü' && $letter != 'ú') ? ord($letter) : 'def';
	}

	function loadDic($letter)
	{
		$path = $this->custom_dics_path.$letter.'.dic';
		if (is_readable($path))
		{
			$dic = file($path);
			foreach ($dic as $dict_word)
			{
				$this->dic[$letter][mb_strtolower(trim($dict_word))] = $dict_word;
			}
		}
		else
			$this->dic[$letter] = array();
	}

	function checkWord($word)
	{
		//pspell
		if ($this->pspell)
		{
			return pspell_check($this->pspell_link, $word);
		}
		//custom
//		elseif($this->custom_spell)
//		{
//			if ($this->lang == 'ru')
//			{
//				$word = $APPLICATION->ConvertCharset($word, "UTF-8", "Windows-1251");
//			}
//
//			if (strlen($word) <= $this->skip_len)
//			{
//				return true;
//			}
//
//			$first_let = $this->codeLetter(strtolower($word{0}));
//
//			if (!isset($this->dic[$first_let]))
//			{
//				$this->loadDic($first_let);
//			}
//			//check if word exist in array
//			if (isset($this->dic[$first_let][strtolower($word)]))
//			{
//				return true;
//			}
//			return false;
//		}
	}


	function checkWords($words)
	{
		$this->wrongWords = array();

		for ($i = 0; $i < count($words); $i++)
		{
			if (!$this->checkWord($words[$i]))
			{
				$this->wrongWords[] = array(
					0 => $i,
					1 => $this->suggest($words[$i])
				);
			}
		}

		return $this->wrongWords;
	}

	function suggest($word)
	{
		$suggestions = array();
		//pspell
		if ($this->pspell)
		{
			$suggestions = pspell_suggest($this->pspell_link, $word);
			if ($this->lang == 'ru')
			{
				for ($i = 0; $i < count($suggestions); $i++)
				{
					//$suggestions[$i] = $APPLICATION->ConvertCharset($suggestions[$i], "KOI8-R", "Windows-1251");
				}
			}
		}
		//custom
//		elseif($this->custom_spell)
//		{
//			if ($this->lang == 'ru')
//			{
//				$word = $APPLICATION->ConvertCharset($word, "UTF-8", "Windows-1251");
//			}
//
//			$first_let = $this->codeLetter(strtolower($word{0}));
//			$wordLen = strlen($word);
//			$n = $wordLen;
//			$lcount = count($this->letters);
//
//			for ($i=1;$i<=$wordLen;$i++)
//			{
//				//skip letter
//				$variant = substr($word,0,$i-1).substr($word,-($wordLen-$i),$wordLen-$i);
//				if ($this->dic[$first_let][strtolower($variant)])
//					$suggestions[] = $variant;
//
//				//change letter
//				for ($j = 0; $j < $lcount; $j++)
//				{
//					$variant = substr($word,0,$i-1).$this->letters[$j].substr($word,-($wordLen-$i),$wordLen-$i);
//					if ($this->dic[$first_let][strtolower($variant)])
//						$suggestions[] = $variant;
//
//				}
//			}
//			for ($i=1;$i<=$wordLen;$i++)
//			{
//				for ($j=0;$j<$lcount;$j++)
//				{
//					//insert letter
//					$variant = substr($word,0,$i).$this->letters[$j].substr($word,$i);
//					if ($this->dic[$first_let][strtolower($variant)])
//						$suggestions[] = $variant;
//				}
//			}
//
//			for ($i=0;$i<=$wordLen-2;$i++)
//			{
//				//swap letters
//				$variant = substr($word,0,$i).substr($word,$i+1,1).substr($word,$i,1).substr($word,$i+2);
//				if ($this->dic[$first_let][strtolower($variant)])
//					$suggestions[] = $variant;
//			}
//		}
		return array_unique($suggestions);
	}

	function addWord($word = '')
	{
		//pspell
		if ($this->pspell)
		{
			if (!pspell_add_to_personal($this->pspell_link, $word) || !pspell_save_wordlist($this->pspell_link))
			{
				return false;
			}
		}
		//custom
//		elseif($this->custom_spell)
//		{
//			if ($this->lang == 'ru')
//			{
//				$word = $APPLICATION->ConvertCharset($word, "UTF-8", "Windows-1251");
//			}
//			$path = $this->dic_path.'/dics/'.$this->lang.'_';
//
//			$letter = $this->codeLetter(strtolower($word{0}));
//			$path .= $letter.'.dic';
//			if (!$handle = fopen($path, 'a'))
//				return false;
//			if (fwrite($handle, $word."\n") === FALSE)
//				return false;
//			fclose($handle);
//			return true;
//		}
	}
}
?>