mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 03:46:29 -06:00
(Por) Implement AForm+related opers in DiffPor
This commit is contained in:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user