From 93f5395efc8216fc4539911c60d4c2812dd230d0 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Fri, 22 May 2020 07:56:41 +0200 Subject: [PATCH 1/2] (Kor) Fix bug in ConjAP: now uses the neg stem --- src/korean/ConjunctionKor.gf | 6 ++++-- src/korean/ParamKor.gf | Bin 3956 -> 4097 bytes 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/korean/ConjunctionKor.gf b/src/korean/ConjunctionKor.gf index 4f2ac1d1e..7e69601e2 100644 --- a/src/korean/ConjunctionKor.gf +++ b/src/korean/ConjunctionKor.gf @@ -101,8 +101,10 @@ lin oper mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap -> - \\af,conj => ap.compar - ++ glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj ! ap.p) ; + \\af,conj => ap.compar ++ case isPos af of { + True => glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj ! ap.p) ; + False => glue (ap.s ! VStem Neg) (conjTable ! VStar ! conj ! ap.pNeg) + } ; {- lincat diff --git a/src/korean/ParamKor.gf b/src/korean/ParamKor.gf index 7f34fdf583e40d2945884ee7f9555d0790810f4d..d498a26430f8a7933bb6d6e301f91757dfd4cd44 100644 GIT binary patch delta 113 zcmew&*Ql_ejYl-II3T}R!Ac>_Ex#yNLDx>fDL+4F@?RbeuaKhBR0V4;1qB6#FvpUT lA_b5_TRR10aW{o{EW+^$wss0`i8;loVBNKw8+g7j0RXVHAh-Yk delta 12 TcmZov_#(HVjc2nk?>i;{Ay5Rl From db4f81911388cd207a36b1fef36f579f8ab2716c Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Fri, 22 May 2020 07:58:27 +0200 Subject: [PATCH 2/2] (Kor) Change UttVP to base form --- src/korean/PhraseKor.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/korean/PhraseKor.gf b/src/korean/PhraseKor.gf index 74c7ff15a..6026a9eda 100644 --- a/src/korean/PhraseKor.gf +++ b/src/korean/PhraseKor.gf @@ -16,7 +16,7 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in { UttIP ip = {s = ip.s ! Bare} ; UttNP np = {s = np.s ! Bare} ; - UttVP vp = {s = linVP linVF vp} ; + UttVP vp = {s = linVP (VF Plain Pos) vp} ; UttCN cn = {s = cn.rs ++ cn.s ! Bare} ; UttCard n = {s = n.s ! NK ! Indep} ; UttAP ap = {s = ap.compar ++ ap.s ! VF Plain Pos} ;