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

(Kor) Add comparatives and superlatives

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-03 18:04:34 +02:00
parent a4ad8964bc
commit 8b62ad1fa7
5 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/korean/AdjectiveKor.gf
View File

@@ -11,7 +11,8 @@ concrete AdjectiveKor of Adjective = CatKor ** open ResKor, Prelude in {
-- : A -> NP -> AP ;
ComparA a np = a ** {
compar = np.s ! Bare
s = \\vf => "더" ++ a.s ! vf ;
compar = glue (np.s ! Bare) "보다" ;
} ;
-- : A2 -> NP -> AP ; -- married to her
@@ -37,7 +38,6 @@ concrete AdjectiveKor of Adjective = CatKor ** open ResKor, Prelude in {
-- : Ord -> AP ; -- warmest
AdjOrd ord = ord ** {
s = \\_ => ord.s ;
compar = []
} ;