GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ita) Implement AForm+related opers in DiffIta

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

12
src/italian/DiffIta.gf
View File

@@ -81,6 +81,18 @@ instance DiffIta of DiffRomance - [contractInf] = open CommonRomance, PhonoIta,
_ => prepCase c ++ artDef False g Sg (CPrep P_di) _ => 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ù" ; piuComp = "più" ;
conjunctCase : Case -> Case = \c -> case c of { conjunctCase : Case -> Case = \c -> case c of {

8
src/italian/MorphoIta.gf
View File

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