#1485441: fix pspell checking of multibyte languages

alecpl

2008-10-13 81308b30ed9c24a55fe87811a782f95fad0e4f3a

#1485441: fix pspell checking of multibyte languages

 program/steps/mail/spell_pspell.inc

@@ -34,17 +34,20 @@
$text = (string)$xml->text;
$words = preg_split('/[ !"#$%&()*+\\,-.\/\n:;<=>?@\[\]^_{|}]+/', $text, NULL,  PREG_SPLIT_NO_EMPTY |  PREG_SPLIT_OFFSET_CAPTURE );
$plink = pspell_new(get_input_value('lang', RCUBE_INPUT_GET), null, null, 'utf-8');
$out = '<?xml version="1.0" encoding="UTF-8"?><spellresult charschecked="'.strlen($text).'">';
$out = '<?xml version="1.0" encoding="UTF-8"?><spellresult charschecked="'.rc_strlen($text).'">';

$diff = 0;
foreach ($words as $w) {
    $word = $w[0];
    $pos  = $w[1];
    $len  = strlen($word);
    $pos  = $w[1] - $diff;
    $len  = rc_strlen($word);
    if ($plink && !pspell_check($plink, $word)) {
        $suggestions = pspell_suggest($plink, $word);
        $out .= '<c o="'.$pos.'" l="'.$len.'">';
        $out .= implode("\t", $suggestions);
        $out .= '</c>';
    }
    $diff += (strlen($word) - $len);
}
$out .= '</spellresult>';