From 1c7bad313cc9cf0e5c2490e48e1a1343b2702924 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 3 Apr 2020 20:03:23 +0200
Subject: [PATCH] (Kor) Misc. small additions

---
 src/korean/AdjectiveKor.gf  | 8 ++++----
 src/korean/LexiconKor.gf    | 8 ++++----
 src/korean/NounKor.gf       | 9 +++++++--
 src/korean/StructuralKor.gf | 2 +-
 4 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/src/korean/AdjectiveKor.gf b/src/korean/AdjectiveKor.gf
index f76289bc7..d4d3fb7c7 100644
--- a/src/korean/AdjectiveKor.gf
+++ b/src/korean/AdjectiveKor.gf
@@ -28,10 +28,10 @@ concrete AdjectiveKor of Adjective = CatKor **
   UseA2 = PositA ;
 
   -- : A  -> AP ;     -- warmer
-  -- UseComparA a = a ** {
-  --   s = \\af => "???" ++ a.s ! af ;
-  --   compar = []
-  --  } ;
+  UseComparA a = a ** {
+    s = \\af => "더" ++ a.s ! af ;
+    compar = [] ;
+    } ;
 
 
   -- : CAdv -> AP -> NP -> AP ; -- as cool as John
diff --git a/src/korean/LexiconKor.gf b/src/korean/LexiconKor.gf
index d4d047f3b..b9e0cac61 100644
--- a/src/korean/LexiconKor.gf
+++ b/src/korean/LexiconKor.gf
@@ -33,7 +33,7 @@ lin big_A = mkA "크다" ;
 -- lin bike_N = mkN "" ;
 -- lin bird_N = mkN "" ;
 -- lin bite_V2 = mkV2 "" ;
--- lin black_A = mkA "" ;
+lin black_A = mkA "검다" ;
 -- lin blood_N = mkN "" ;
 -- lin blow_V = mkV "" ;
 lin blue_A = mkA "푸르다" ;
@@ -72,7 +72,7 @@ lin cat_N = mkN "고양이" ;
 -- lin clever_A = mkA "" ;
 -- lin close_V2 = mkV2 "" ;
 -- lin cloud_N = mkN "" ;
--- lin coat_N = mkN "" ;
+lin coat_N = mkN "코트" ;
 -- lin cold_A = mkA "" ;
 lin come_V = mkV "오다" ;
 -- lin computer_N = mkN "" ;
@@ -279,7 +279,7 @@ lin person_N = mkN "사람" ;
 -- lin read_V2 = mkV2 "" ;
 -- lin ready_A = mkA "" ;
 -- lin reason_N = mkN "" ;
--- lin red_A = mkA "" ;
+lin red_A = mkA "빨갛다" ;
 -- lin religion_N = mkN "" ;
 -- lin restaurant_N = mkN "" ;
 -- lin river_N = mkN "" ;
@@ -314,7 +314,7 @@ lin see_V2 = mkV2 "보다" ;
 -- lin sharp_A = mkA "" ;
 -- lin sheep_N = mkN "" fem ;
 -- lin ship_N = mkN "" ;
--- lin shirt_N = mkN "" ;
+lin shirt_N = mkN "셔츠" ;
 -- lin shoe_N = mkN "" ;
 -- lin shop_N = mkN "" ;
 lin short_A = mkA "키가" small_A ; -- "height is small"
diff --git a/src/korean/NounKor.gf b/src/korean/NounKor.gf
index 0596d99af..d74976d17 100644
--- a/src/korean/NounKor.gf
+++ b/src/korean/NounKor.gf
@@ -47,8 +47,13 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
   -- PPartNP np v2 = np ** {
   --   s = \\c => v2.s ! ??? ++ np.s ! c } ; ----
 
-  -- : NP -> Adv -> NP ;    -- Paris today ; boys, such as ..
-  --AdvNP,ExtAdvNP = \np,adv -> np ** {} ;
+  -- : NP -> Adv -> NP ;    -- Paris today
+  AdvNP np adv = np ** {
+    s = \\nf => adv.s ++ np.s ! nf
+    } ; -- TODO test
+
+   -- : NP -> Adv -> NP ;    -- boys, such as ..
+  -- ExtAdvNP np adv = np ** {} ;
 
   -- : NP -> RS -> NP ;    -- Paris, which is here
   -- RelNP np rs = np ** {
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index c0e91538a..354906c92 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -111,7 +111,7 @@ lin for_Prep = mkPrep "에게" ;
 -- lin in8front_Prep = mkPrep "" ;
 lin in_Prep = mkPrep "에서" ;
 -- lin on_Prep = mkPrep "에서" ;
--- lin part_Prep = mkPrep ;
+lin part_Prep = mkPrep "의" ;
 lin possess_Prep = mkPrep "의" ;
 -- lin through_Prep = mkPrep ;
 lin to_Prep = mkPrep "에";