(Kor) Add compound verbs

src/korean/LexiconKor.gf

@@ -91,7 +91,7 @@ lin come_V = mkV "오다" ;
 -- lin dig_V = mkV "" ;
 -- lin dirty_A = mkA "" ;
 -- lin distance_N3 = mkN "" ;
--- lin do_V2 = lin V2 egin_V ;
+lin do_V2 = mkV2 do_V ;
 -- lin doctor_N = mkN "" ;
 -- lin dog_N = mkN "" ;
 -- lin door_N = mkN "" ;
@@ -319,7 +319,7 @@ lin see_V2 = mkV2 "보다" ;
 -- lin shop_N = mkN "" ;
 -- lin short_A = mkA "" ;
 -- lin silver_N = mkN "" ;
--- lin sing_V = mkV "" ;
+lin sing_V = mkV "노래" do_V ;
 -- lin sister_N = mkN "" ;
 -- lin sit_V = mkV "" ;
 -- lin skin_N = mkN "" ;

src/korean/ParadigmsKor.gf

@@ -29,7 +29,7 @@ oper
   -- Verbs
   mkV : overload {
     mkV : (plain : Str) -> V ;    -- Predictable verb: plaininitive form as argument
---    mkV : Str -> V -> V  -- Add a prefix to an existing verb
+    mkV : (nore : Str) -> (hada : V) -> V ; -- Add a prefix to an existing verb, e.g. 노래하다
   } ;
 
   copula : V ; -- The copula verb ''
@@ -104,6 +104,8 @@ oper
 
   mkV = overload {
     mkV : (plain : Str) -> V = \v -> lin V (mkVerb v Active) ;
+    mkV : (nore : Str) -> (hada : V) -> V = \nore,hada -> hada ** {
+      s = \\vf => nore + hada.s ! vf} ;
   } ;
 
   copula = ResKor.copula ;

src/korean/ResKor.gf

@@ -193,6 +193,16 @@ oper
     "없어요"
     "없습니다"
     Existential ;
+
+  do_V : Verb = mkVerbFull
+    "한다"
+    "해요"
+    "합니다"
+    "todo"
+    "todo"
+    "todo"
+    Active ;
+
 ------------------
 -- Adv
 

src/korean/StructuralKor.gf

@@ -156,7 +156,7 @@ lin yes_Utt = ss "아니요" ;
 -------
 -- Verb
 
-lin have_V2 = have_V ** {sc = Topic; c2 = Subject ; p2 = emptyPP} ;
+lin have_V2 = vtov2 have_V ** {sc = Topic ; c2 = Subject} ;
 -- lin can8know_VV = can_VV ; -- can (capacity)
 -- lin can_VV = mkVV "" ;   -- can (possibility)
 -- lin must_VV = mkVV "" ;