(Por) Implement AForm+related opers in DiffPor

This commit is contained in:
Inari Listenmaa
2021-09-17 11:33:16 +08:00
parent 258cd95cca
commit 99469eeb54
3 changed files with 15 additions and 5 deletions
+10
View File
@@ -19,7 +19,17 @@ instance DiffPor of DiffRomance - [iAdvQuestionInv,chooseTA,otherInv,partAgr,sta
-- exception
vpAgrSubj v = <verbDefaultPart v, False> ;
-- AForm and comparatives
param
AFormSimple = AF Gender Number | AA ;
oper
AForm = DiffPor.AFormSimple ;
aform2aagr : AForm -> AAgr = \a -> case a of {
DiffPor.AF g n => aagr g n ;
_ => aagr Masc Sg -- "le plus lentement"
} ;
genNum2Aform : Gender -> Number -> AForm = DiffPor.AF ;
genNumPos2Aform : Gender -> Number -> Bool -> AForm = \g,n,_ -> genNum2Aform g n ;
piuComp = "mais" ;
conjunctCase : Case -> Case = \c -> case c of {