(#124) constraint-4.1 update

tuffnatty · Dec 13, 2020 · d9e86c1 · d9e86c1
1 parent e1cf9ff
commit d9e86c1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git 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
   <Distr> slot-empty?  <Distr> form-slot-xc-at-left fallout-short?  AND
   || <NF,Dur₁> form-slot-vowel-at-left?
   || flags( Add|Cont Ass₁ ) flag-is?
-  || stem-last-sound-ptr cyr t~/ {vowel} NOT
+  || <NF,Dur₁> form-slot-xc-at-left consonant?
   ;
 : constraint-4.1₀  ( -- f )
-  stem-last-sound-ptr cyr t~/ {vowel} NOT
+  <NF,Dur₁> form-slot-xc-at-left consonant?
   && <NF,Dur₁> form-slot-xc-at-left fallout-short? NOT
   ;
 : constraint-4.1₀-right  ( -- f )

diff --git 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