diff --git a/khakas/constraints.fs b/khakas/constraints.fs index 4a8f23c..f5548b3 100644 --- a/khakas/constraints.fs +++ b/khakas/constraints.fs @@ -79,8 +79,9 @@ require khakas/slotnames.fs \ оканчивающимися на гласную; \ 3) непосредственно за ним следует Ass ОК или Cont LA \ или Add ТАА (см. пример в п. 3). -\ 4) основа оканчивается на согласную (действует опционально для -\ качинского диалекта, но проникло и в литературные тексты). +\ 4) основа или предшествующий аффикс оканчивается на согласную +\ (действует опционально для качинского диалекта, но проникло +\ и в литературные тексты). \ NF выбирает алломорф 0 после основы или аффикса на \ невыпадающую согласную, если после него не стоит аффикс ОК. \ [Таким образом, после основы на невыпадающую согласную в конце @@ -89,10 +90,10 @@ require khakas/slotnames.fs slot-empty? form-slot-xc-at-left fallout-short? AND || form-slot-vowel-at-left? || flags( Add|Cont Ass₁ ) flag-is? - || stem-last-sound-ptr cyr t~/ {vowel} NOT + || form-slot-xc-at-left consonant? ; : constraint-4.1₀ ( -- f ) - stem-last-sound-ptr cyr t~/ {vowel} NOT + form-slot-xc-at-left consonant? && form-slot-xc-at-left fallout-short? NOT ; : constraint-4.1₀-right ( -- f ) diff --git a/khakas/gentest.fs b/khakas/gentest.fs index 216aabf..f310164 100644 --- a/khakas/gentest.fs +++ b/khakas/gentest.fs @@ -290,6 +290,7 @@ T{ S" хол+ы+нда+хы+лар" S" холындағылар" parse-test -> T{ S" хомай+зыбыс" S" хомайзыбыс" parse-test -> TRUE }T T{ S" худай+бынаң" S" худайбынаң" parse-test -> TRUE }T T{ S" худай+ым+ай" S" худайымай" parse-test -> TRUE }T +T{ S" худала+н+0̸+чат+чаң" S" худаланчатчаң" parse-test -> TRUE }T T{ S" хузух+ым" S" хузиим" parse-test -> TRUE }T T{ S" хузух+ым" S" хузуғым" parse-test -> TRUE }T T{ S" хулун+ы" S" хулуны" parse-test -> TRUE }T