(Ita) Implement AForm+related opers in DiffIta

This commit is contained in:
Inari Listenmaa
2021-09-17 11:32:47 +08:00
parent 445c4f5187
commit 258cd95cca
2 changed files with 42 additions and 30 deletions

View File

@@ -81,6 +81,18 @@ instance DiffIta of DiffRomance - [contractInf] = open CommonRomance, PhonoIta,
_ => prepCase c ++ artDef False g Sg (CPrep P_di)
} ;
-}
-- AForm and comparatives
param
AFormSimple = AF Gender Number | AA ;
oper
AForm = AFormSimple ;
aform2aagr : AForm -> AAgr = \a -> case a of {
DiffIta.AF g n => aagr g n ;
_ => aagr Masc Sg -- "le plus lentement"
} ;
genNum2Aform : Gender -> Number -> AForm = DiffIta.AF ;
genNumPos2Aform : Gender -> Number -> Bool -> AForm = \g,n,_ -> genNum2Aform g n ;
piuComp = "più" ;
conjunctCase : Case -> Case = \c -> case c of {

View File

@@ -78,10 +78,10 @@ oper
mkAdj : (_,_,_,_,_ : Str) -> Adj = \solo,sola,soli,sole,solamente ->
{s = table {
ASg Masc _ => solo ;
ASg Fem _ => sola ;
APl Masc => soli ;
APl Fem => sole ;
AF Masc Sg => solo ;
AF Fem Sg => sola ;
AF Masc Pl => soli ;
AF Fem Pl => sole ;
AA => solamente
}
} ;