From 3f8ccb559a1b6076d7dae498da436c8abd11ea72 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 25 Mar 2020 11:37:35 +0100
Subject: [PATCH] (Kor) Add compound verbs

---
 src/korean/LexiconKor.gf    |  4 ++--
 src/korean/ParadigmsKor.gf  |  4 +++-
 src/korean/ResKor.gf        | 10 ++++++++++
 src/korean/StructuralKor.gf |  2 +-
 4 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/src/korean/LexiconKor.gf b/src/korean/LexiconKor.gf
index 4a9589e55..fa20085c1 100644
--- a/src/korean/LexiconKor.gf
+++ b/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 "" ;
diff --git a/src/korean/ParadigmsKor.gf b/src/korean/ParadigmsKor.gf
index 575e50df4..ced866a26 100644
--- a/src/korean/ParadigmsKor.gf
+++ b/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 ;
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index d2f743fcd..b98ed3261 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -193,6 +193,16 @@ oper
     "없어요"
     "없습니다"
     Existential ;
+
+  do_V : Verb = mkVerbFull
+    "한다"
+    "해요"
+    "합니다"
+    "todo"
+    "todo"
+    "todo"
+    Active ;
+
 ------------------
 -- Adv
 
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index 5e19f5ceb..f6df82fca 100644
--- a/src/korean/StructuralKor.gf
+++ b/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 "" ;