//print "Examining {$def->internalRep}\n"; for ($i = 0; $i < $len; $i++) { $c = text_getCharAt($rep, $i); if (!text_isUnicodeLetter($prevC) && $c == '-' && $i <= MAX_LEN) { $j = $i + 1; while (text_isUnicodeLetter(text_getCharAt($rep, $j))) { $j++; } $chunk = mb_substr($rep, $i, $j - $i); if ($chunk != '-') { $suffix = mb_substr($chunk, 1); //print "{$def->id} [{$def->lexicon}] $i [$chunk]\n"; if ($lexem) { $matchingForm = null; foreach ($inflections as $inflId) { $wls = WordList::loadByLexemIdInflectionId($lexem->id, $inflId); foreach ($wls as $wl) { if (matchesWithAccent($wl->form, $suffix)) { $matchingForm = $wl->form; //print "Matching [{$wl->form}] to [$chunk]\n"; } } } if ($matchingForm) { $matchingFormImpl = str_replace($GLOBALS['text_explicitAccent'], $GLOBALS['text_accented'], $matchingForm); // Convert to uppercase when the suffix itself is uppercase if ($suffix == text_unicodeToUpper($suffix)) { $matchingFormImpl = text_unicodeToUpper($matchingFormImpl); } $newRep .= $matchingFormImpl; } else {