msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Merge pull request #333 from inariksit/korean

Browse Source 
Korean
This commit is contained in:
Inari Listenmaa
2020-05-22 08:07:11 +02:00
committed by GitHub
parent 9f1fc65e7a db4f819113
commit 189f27a07b
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/korean/ConjunctionKor.gf
View File

@@ -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

BIN
src/korean/ParamKor.gf
View File

Binary file not shown.

2
src/korean/PhraseKor.gf
View File

@@ -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} ;