checkA.php,pspell_check

{//depends on fnSpell()

// Extracts text from HTML code. In addition to normal word separators,  HTML tags

// and HTML entities also function as word delimiters$pspell_link=pspell_new("en");//0. Get the dictionary$strings=explode(">",$text);//1. Split $text on '>' to give us $strings with 0 or 1 HTML tags at the end$nStrings=count($strings);

for ($cStrings=0;$cStrings

{$string=$strings[$cStrings];//2. For each string from 1if ($string=='')

continue;$temp=explode('' to give us a $tag and $cdata$tag=$temp[1];$cdata=$temp[0];$subCdatas=explode(";",$cdata);//2.2 Split &cdata on ';' to give $subcdatas with 0 or 1 HTML entities on the end$nSubCdatas=count($subCdatas);//2.3   For each $subCdata from $subcdatas in 2.2for ($cSubCdatas=0;$cSubCdatas

{$subCdata=$subCdatas[$cSubCdatas];

if ($subCdata=='')

continue;$temp=explode('&',$subCdata);//2.3.1     Split the $subCdata on '&' to give us a $subCdataEntity and a $subCdataWithNoEntities$subCdataEntity=$temp[1];$subCdataWithNoEntities=$temp[0];$subCdataWithNoEntities=fnSpell($pspell_link,$subCdataWithNoEntities);//2.3.2     Spellcheck the $cdataWithNoEntitiesif (!$subCdataEntity)//2.3.3        Put the $subCdataEntity, a '&' and the $cdataWithNoEntities back into the $subCdata from 2.2$subCdata=$subCdataWithNoEntities;

else$subCdata=$subCdataWithNoEntities.'&'.$subCdataEntity.';';$subCdatas[$cSubCdatas] =$subCdata;//2.3.4        Put the $subCdata back into the array of $subCdatas}$cdata=implode("",$subCdatas);//2.4    Implode the array of $subCdatas back into the $cdataif ($tag)//2.5    Put the $tag , '>' and $cdata back into $string$string=$cdata.'';

else$string=$cdata;$strings[$cStrings] =$string;//2.6    Put $string back in its place in $strings}$text=implode('',$strings);//3  Implode the $strings back into $textreturn$text;

}

functionfnSpell($pspell_link,$string)

{preg_match_all("/[A-Z\']{1,16}/i",$string,$words);

for ($i=0;$i

{$currentword=$words[0][$i];

if (!pspell_check($pspell_link,$currentword))

{$wordarray=pspell_suggest($pspell_link,$currentword);$words=implode(', ',$wordarray);$suggest="$currentword";$string=str_replace($currentword,$suggest,$string);

}

}

return$string;

}

functionClearSpell($text)

{$strings=explode(">",$text);$nStrings=count($strings);

for ($cStrings=0;$cStrings

{$string=$strings[$cStrings];

if ($string=='')

continue;$temp=explode('

if (strstr($tag,'acronym') &&strstr($tag,"class='spell'") )$string=$cdata;

else$string=$cdata.'';$strings[$cStrings] =$string;

}$text=implode('',$strings);

return$text;

}?>