Авторасстанновка мягких переносов

Spearance 14.01.2009 19:47

Простенький метод основан на алгоpитме П. Хpистова в модификации Дымченко и Ваpсанофьева с небольшими исправлениями.

@autoHyphen[str][locals]
$hyp[&shy^;]
$A[а-яё]
$G[аеёиоуыэюя]
$S[бвгджзклмнпрстфхцчшщ]
$X[йъь]
$result[$str]
$result[^result.match[([$X])([$A][$A])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S][$S])([$S][$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S][$S])([$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S])([$S][$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$S][$G])([$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$G][$S])([$S][$G])][ig]{${match.1}${hyp}$match.2}]
$result[^result.match[([$S][$G])([$G][$A])][ig]{${match.1}${hyp}$match.2}]

Каменты к коду не пишу, код говорит сам за себя.

---