GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-29 04:46:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Add number as a parameter to APs complement

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-26 14:15:31 +02:00
parent d7e10e843b
commit b723ae1a75
6 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/AdjectiveHun.gf
+4 -4
View File
@@ -13,13 +13,13 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
-- : A -> NP -> AP ;
ComparA a np = UseComparA a ** {
compar = applyAdp (caseAdp Ade) np ;
-- compar = applyAdp (prepos Nom "mint") np ;
compl = \\n => applyAdp (caseAdp Ade) np ;
-- compl = applyAdp (prepos Nom "mint") np ;
} ;
-- : A2 -> NP -> AP ; -- married to her
ComplA2 a2 np = PositA a2 ** {
compar = applyAdp a2.c2 np ;
compl = \\n => applyAdp a2.c2 np ;
} ;
-- : A2 -> AP ; -- married to itself
@@ -38,7 +38,7 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
-- : CAdv -> AP -> NP -> AP ; -- as cool as John
CAdvAP adv ap np = ap ** {
s = \\n,c => adv.s ++ ap.s ! n ! c ;
compar = ap.compar ++ adv.p ++ applyAdp (caseAdp Nom) np ;
compl = \\n => ap.compl ! n ++ adv.p ++ applyAdp (caseAdp Nom) np ;
} ;
-- The superlative use is covered in $Ord$.