(Kor) Add Predets and PredetNP

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

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 ;