From 779c8d76097ef5cb981c75fcfa9921047b51c57e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 23 Mar 2020 14:24:09 +0100
Subject: [PATCH] (Kor) Add Predets and PredetNP

---
 src/korean/NounKor.gf       | 10 +++++++++-
 src/korean/StructuralKor.gf | 15 ++++++++-------
 2 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/src/korean/NounKor.gf b/src/korean/NounKor.gf
index c472c68a..6009f7e2 100644
--- a/src/korean/NounKor.gf
+++ b/src/korean/NounKor.gf
@@ -17,7 +17,15 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
   -- UsePron pron = pron ;
 
   -- : Predet -> NP -> NP ; -- only the man
-  -- PredetNP predet np =
+  PredetNP predet np = np ** {s =
+    let sakwa = np.s ! Bare ;
+        man = predet.s ! np.p ;
+        un = table {Vowel => "는"; Consonant => "은"} ! predet.p
+    in table { -- TODO: do particles combine?
+         Topic => glue (glue sakwa man) un ;
+         _     => glue sakwa man
+       }
+    } ;
 
 -- A noun phrase can also be postmodified by the past participle of a
 -- verb, by an adverb, or by a relative clause
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index 8ae63dae..d36f8d03 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -52,14 +52,15 @@ lin there_Adv = ss "" ;
 -----------------
 -- *Det and Quant
 
+
+-- lin how8many_IDet = ;
+
+lin all_Predet = {s = \\_ => "마다" ; p = Vowel} ;
+--lin not_Predet = { s = "" } ;
+lin only_Predet = {s = \\_ => "만" ; p = Consonant} ;
+--lin most_Predet = {s = ""} ;
+
 {-
-lin how8many_IDet = ;
-
-lin all_Predet = {s = ""} ;
-lin not_Predet = { s = "" } ;
-lin only_Predet = { s = "" } ;
-lin most_Predet = {s = ""} ;
-
 lin every_Det = R.defDet [] pl **
                  { s = mkVow } ;
 lin few_Det = R.indefDet "" pl ;