From 1ffa53c3b2bf4038111d5de3eccded18c2ee4c21 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 14 Apr 2020 20:58:17 +0200
Subject: [PATCH] (Kor) Add negative form in V where conjunction attaches

---
 src/korean/ConjunctionKor.gf |   2 +-
 src/korean/ParamKor.gf       | Bin 3733 -> 3787 bytes
 src/korean/RelativeKor.gf    |   2 +-
 src/korean/ResKor.gf         |   7 ++++---
 4 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/korean/ConjunctionKor.gf b/src/korean/ConjunctionKor.gf
index 1aeaa4913..01f407db2 100644
--- a/src/korean/ConjunctionKor.gf
+++ b/src/korean/ConjunctionKor.gf
@@ -101,7 +101,7 @@ lin
 
 oper
   mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
-    \\af,conj => ap.compar ++ glue (ap.s ! VStem) (conjTable ! VStar ! conj) ;
+    \\af,conj => ap.compar ++ glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj) ;
 
 {-
 lincat
diff --git a/src/korean/ParamKor.gf b/src/korean/ParamKor.gf
index 24832b20a1aaee3106a3319d9fa67d5214ebc9cd..575db8b5cd61734fd28fe797c3552545ad33c5b0 100644
GIT binary patch
delta 83
zcmbO#ds=ow5I09aeokUhW=ZAdKyF1wi-7!M1zS4>rD6q*u;7x^T!n!AVofClYc2%^
W1qFzRUurt462H`R&CRtu5=;OiY8Vj!

delta 29
kcmX>tJ5_c=5clS2ZUsheTRR1%Vui5alGNPIn|UOd0EsyWxBvhE

diff --git a/src/korean/RelativeKor.gf b/src/korean/RelativeKor.gf
index 4150f6e49..7fbe1030d 100644
--- a/src/korean/RelativeKor.gf
+++ b/src/korean/RelativeKor.gf
@@ -10,7 +10,7 @@ lin
     s = \\t,a,p,cltyp =>
            rp.s ++ vp.adv ++ vp.nObj ++
            case cltyp of {
-             WithConj => vp.s ! VStem ;
+             WithConj => vp.s ! VStem p ;
              _        => vp.s ! VAttr p } ;
     } ;
 
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index 59bf669a1..1cc6c3736 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -153,7 +153,7 @@ oper
 
   mkAdj : Str -> Adjective = \plain ->
     let v : Verb = mkVerb plain ;
-        stem : Str = v.s ! VStem ;
+        stem : Str = v.s ! VStem Pos ;
         attrpos : Str = add_N stem ;
      in v2a attrpos v ;
 
@@ -207,7 +207,8 @@ oper
   mkVerbFull : (x1,_,_,_,_,_,_,_,x9 : Str) -> Verb =
     \stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg -> {
       s = table {
-        VStem => stem ;
+        VStem Pos => stem ;
+        VStem Neg => stem + "지" ++ "않" ;
         VAttr Pos => attrpos ;
         VAttr Neg => attrneg ;
         VF Plain Pos => plain ;
@@ -359,7 +360,7 @@ oper
     s = \\t,a,p,cltyp =>
            let vf = case cltyp of {
                       Subord   => VAttr p ;
-                      WithConj => VStem ;
+                      WithConj => VStem p ;
                       _        => VF Polite p } -- TODO: more tenses, politeness
             in np
             ++ vp.nObj -- an object, not copula complement