(Som) More VV types

This commit is contained in:
Inari Listenmaa
2019-08-29 15:07:21 +02:00
parent 259b75753e
commit 4f8f4a6c86
7 changed files with 122 additions and 65 deletions
+4
View File
@@ -300,6 +300,10 @@ param
PredType = NoPred | Copula | NoCopula ;
STM = Waa PredType | Waxa ;
VVForm = Infinitive | Subjunctive | Waa_In ;
oper
if_then_Pol : Polarity -> Str -> Str -> Str = \p,t,f ->
case p of {Pos => t ; Neg => f } ;