(Kor) Add Utt* linearisations

src/korean/PhraseKor.gf

@@ -6,20 +6,21 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
     UttS s = {s = s.s ! Statement} ;
     UttQS qs = qs ;
     UttIAdv iadv = iadv ;
+    UttAdv adv = adv ;
+    UttInterj i = i ;
 {-
     UttImpSg pol imp =
     UttImpPl pol imp =
     UttImpPol = UttImpSg ;
-
-    UttIP ip = {s = ip.s ! } ;
-    UttNP np = {s = np.s ! } ;
-    UttVP vp = {s = } ;
-    UttAdv adv = {s = } ;
-    UttCN n = {s = } ;
-    UttCard n = {s = } ;
-    UttAP ap = { s = ap.s ! } ;
-    UttInterj i = i ;
     -}
+    UttIP ip = {s = ip.s ! Bare} ;
+
+    UttNP np = {s = np.s ! Bare} ;
+    UttVP vp = {s = linVP vp} ;
+    UttCN cn = {s = cn.rs ++ cn.s ! Bare} ;
+    UttCard n = {s = n.s ! NK ! Indep} ;
+    UttAP ap = { s = ap.s ! VF Plain Pos} ;
+
     NoPConj = {s = []} ;
 --    PConjConj conj = {s = conj.s1 ++ conj.s2 ! …} ;
 

src/korean/ResKor.gf

@@ -334,5 +334,6 @@ oper
 -- linrefs
 
 linVerb : Verb -> Str = \v -> v.s ! linVF ;
+linVP : VerbPhrase -> Str = \vp -> vp.nObj ++ vp.adv ++ vp.s ! linVF ;
 
 }