From 5f04085084bedb8c2f9dc85c720882a669966497 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 24 Mar 2020 14:35:20 +0100
Subject: [PATCH] (Kor) Add have_V2

---
 src/korean/ResKor.gf        | 9 ++++++++-
 src/korean/StructuralKor.gf | 2 +-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index 03381d10..476f5649 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -166,7 +166,14 @@ oper
                   _ => copula.s ! vf }
   } ;
 
-
+  have_V : Verb = mkVerbFull
+    "있다"
+    "있어요"
+    "있습니다"
+    "없다"
+    "없어요"
+    "없습니다"
+    Existential ;
 ------------------
 -- Adv
 
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index d36f8d03..5e19f5ce 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -156,7 +156,7 @@ lin yes_Utt = ss "아니요" ;
 -------
 -- Verb
 
---lin have_V2 = mkV2 have_V ;
+lin have_V2 = have_V ** {sc = Topic; c2 = Subject ; p2 = emptyPP} ;
 -- lin can8know_VV = can_VV ; -- can (capacity)
 -- lin can_VV = mkVV "" ;   -- can (possibility)
 -- lin must_VV = mkVV "" ;