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) WIP: comparative and superlative forms

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-13 20:57:56 +02:00
parent 57ad749ecc
commit e71c959a09
3 changed files with 44 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/AdjectiveHun.gf
+8 -9
View File
@@ -5,12 +5,12 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
lin
-- : A -> AP ;
PositA a = a ;
PositA a = {s = a.s ! Posit} ;
-- : A -> NP -> AP ;
-- ComparA a np = a ** {
--
-- } ;
ComparA a np = a ** {
s = \\n => a.s ! Compar ! n ++ np.s ! Ade ;
} ;
-- : A2 -> NP -> AP ; -- married to her
-- ComplA2 a2 np = a2 ** { } ;
@@ -19,13 +19,12 @@ concrete AdjectiveHun of Adjective = CatHun ** open ResHun, Prelude in {
-- ReflA2 a2 = a2 ** { } ;
-- : A2 -> AP ; -- married
-- UseA2 = PositA ;
UseA2 = PositA ;
-- : A -> AP ; -- warmer
-- UseComparA a = a ** {
-- s = \\af => "???" ++ a.s ! af ;
-- compar = []
-- } ;
UseComparA a = a ** {
s = \\n => a.s ! Compar ! n ;
} ;
-- : CAdv -> AP -> NP -> AP ; -- as cool as John