msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Por) Implement AForm+related opers in DiffPor

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

10
src/portuguese/DiffPor.gf
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 {

8
src/portuguese/MorphoPor.gf
View File

@@ -151,8 +151,8 @@ oper
mkAdj : (_,_,_,_,_ : Str) -> Adj =
\burro,burra,burros,burras,burramente ->
{s = table {
ASg g _ => genForms burro burra ! g ;
APl g => genForms burros burras ! g ;
AF g Sg => genForms burro burra ! g ;
AF g Pl => genForms burros burras ! g ;
AA => burramente
}
} ;
@@ -169,8 +169,8 @@ oper
} + "mente" ;
in {
s = table {
ASg g _ => genForms ms fs ! g ;
APl g => genForms mp fp ! g ;
AF g Sg => genForms ms fs ! g ;
AF g Pl => genForms mp fp ! g ;
AA => adv
}
} ;

2
src/portuguese/TerminologyPor.gf
View File

@@ -116,7 +116,7 @@ lin
nounHeading n = ss (n.s ! Sg) ;
nounPluralHeading n = ss (n.s ! Pl) ;
modNounHeading a n = ss (n.s ! Sg ++ a.s ! genNumPos2Aform n.g Sg False) ;
modNounHeading a n = ss (n.s ! Sg ++ a.s ! genNum2Aform n.g Sg) ;
exampleGr_N = mkN "exemplo" ;
formGr_N = mkN "forma" ;