уһулун (#11)

apertium · Jan 6, 2022 · f6b5f89 · f6b5f89
1 parent 4a8fb6b
commit f6b5f89
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/apertium-sah.sah.lexc b/apertium-sah.sah.lexc
@@ -163,6 +163,7 @@ Multichar_Symbols
 %{D%}              ! д/т alternation at the end of some verbs (cf. тарт)
 %{н%}              ! Reflexive н that deletes before passive
 %{т%}              ! Derivational (caus?) т that deletes before passive
+%{лл%}              ! Derivational л that deletes before passive
 %{й%}              ! Verb-stem-final й that deletes before passive
 %{ь%}              ! Disappearing ь
 %{ы%}              ! appears as high vowel before BIт in passive and some verbs with epenthetic vowels; otherwise 0
@@ -12281,7 +12282,7 @@ LEXICON Verbs
 уурат:уурат V-TV ; ! "dismiss, make stop"
 уһаар:уһаар V-TV ; ! "cause float"
 уһуй:уһуй V-TV ; ! "teach, train, habituate to"
-уһул:ус%{y%}л V-TV ; ! "take off, dismiss"
+уһул:ус%{y%}%{лл%} V-TV ; ! "take off, dismiss"
 хаай:хаай V-TV ; ! "lock up, lock in"
 хаам:хаам V-IV ; ! "walk"
 харай:харай V-TV ; ! "hide away, take good care"

diff --git a/apertium-sah.sah.twol b/apertium-sah.sah.twol
@@ -49,6 +49,7 @@ Alphabet
 
    %{н%}:н ! Reflexive н that deletes before passive
    %{т%}:т ! Derivational т that deletes before passive
+   %{лл%}:л ! Derivational т that deletes before passive
    %{й%}:й ! Verb-stem-final й that deletes before passive
 	%{ь%}:0 ! disappearing ь
 
@@ -277,9 +278,9 @@ Cx:д <=> %{рл%}:л %{y%}:0 _ %{ь%}: ;
 "contexts for {i} as 0"
 %{i%}:0 <=> :Vow/[ :0 - ImaginaryCons: ]* _ ; ! after vowels!
 
-"{н}, {т} delete at end of stem before passive"
+"{н}, {лл}, {т} delete at end of stem before passive"
 Cx:0 <=> _ (%{ы%}:) %>: %{i%}: :л ;
-     where Cx in ( %{н%} %{т%} ) ;
+     where Cx in ( %{н%} %{т%} %{лл%} ) ;
 
 "{T} deletes after clusters ending in т"
 %{T%}:0 <=> :р [ :т | %{D%}: ] %>: _ ;
@@ -308,7 +309,7 @@ Vx:0 <=> _ %>: %{A%}: %{A%}: ;
 !@ и с:һ {y}:0 {т}:0 >:0 {i}:и л {y}:и н {ы}:0
 
 "shorter passive when consonant deletes"
-н:0 <=> [ %{н%}:0 | %{т%}:0 | %{й%}:0 ]  (%{ы%}:) %>: %{i%}: л: %{y%}: _ %{ы%}: %>: ;
+н:0 <=> [ %{н%}:0 | %{т%}:0 | %{й%}:0 | %{лл%}:0 ]  (%{ы%}:) %>: %{i%}: л: %{y%}: _ %{ы%}: %>: ;
     except
         _ :ҥ/:0 ;  ! avoid conflict for н→ҥ assimilation
         :л %{y%}:0 _ [ :Vow ]/[:0 - %{Noun%}:]* ; ! avoid conflict for н→л assimilation
@@ -397,7 +398,7 @@ Cx:Cy <=> :Vow/:0* _ [ %>: :Vow]/[ :0 - %>: ]* ;
          except 
              _ [ :Cons :Vow ]/[ :0 | :ь ]* ;
              !@ ис{y}т
-             _ [ %{н%}:0 | %{т%}:0 ] (%{ы%}:) %>: %{i%}: ;
+             _ [ %{н%}:0 | %{т%}:0 | %{лл%}:0 ] (%{ы%}:) %>: %{i%}: ;
          where Vx in ( а о ы у э е и ө ү я )
                Vy in ( ы у ы у и и и ү ү ы )
          matched ;