mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
(Ita) Implement AForm+related opers in DiffIta
This commit is contained in:
@@ -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 {
|
||||
|
||||
@@ -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
|
||||
}
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user