(Som) WIP: Passive.

This commit is contained in:
Inari Listenmaa
2019-06-10 15:57:23 +02:00
parent 8c6be2e7b2
commit 7a545c25f1
6 changed files with 56 additions and 30 deletions
+7 -1
View File
@@ -116,7 +116,7 @@ param
-- Prepositions
param
Preposition = u | ku | ka | la | noPrep ;
Preposition = u | ku | ka | la | noPrep | passive ;
PrepCombination = ugu | uga | ula | kaga | kula | kala
| Single Preposition ;
@@ -177,4 +177,10 @@ oper
if_then_Pol : Polarity -> Str -> Str -> Str = \p,t,f ->
case p of {Pos => t ; Neg => f } ;
forceAgr : Agreement -> (VForm=>Str) -> (VForm=>Str) = \agr,tbl -> table {
VPres asp _a pol => tbl ! VPres asp agr pol ;
VPast asp _a => tbl ! VPast asp agr ;
x => tbl ! x
} ;
}