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

(Spa) Implement AForm+related opers in DiffSpa

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-17 11:31:47 +08:00
parent 354990319d
commit 3c27bbd125
2 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/spanish/DiffSpa.gf
View File

@@ -70,6 +70,22 @@ instance DiffSpa of DiffRomance - [iAdvQuestionInv,otherInv,partAgr,stare_V,vpAg
_ => prepCase c ++ artDef g Sg (CPrep P_de)
} ;
-}
-- AForm and comparatives
param
AFormComplex = AF Gender Number | AAttr Gender | AA ;
oper
AForm = AFormComplex ;
aform2aagr : AForm -> AAgr = \a -> case a of {
DiffSpa.AF g n => aagr g n ;
_ => aagr Masc Sg -- "le plus lentement"
} ;
genNum2Aform = \g,n -> DiffSpa.AF g n ;
genNumPos2Aform : Gender -> Number -> Bool -> AForm = \g,n,isPre ->
case <n,isPre> of {
<Sg,True> => AAttr g ;
_ => genNum2Aform g n
} ;
piuComp = "más" ;
conjunctCase : Case -> Case = \c -> case c of {

9
src/spanish/MorphoSpa.gf
View File

@@ -60,12 +60,9 @@ oper
mkAdj : (x1,_,_,_,_,_,x7 : Str) -> Adj = \buen,solo,gran,sola,solos,solas,solamente ->
{s = table {
ASg Masc AAttr => buen ;
ASg Masc APred => solo ;
ASg Fem AAttr => gran ;
ASg Fem APred => sola ;
APl Masc => solos ;
APl Fem => solas ;
AAttr g => genForms buen gran ! g ; -- un buen amigo, una gran idea
AF g Sg => genForms solo sola ! g ;
AF g Pl => genForms solos solas ! g ;
AA => solamente
}
} ;