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

(Kor) Add space before negation in CompN* + fix copula forms after vowel

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-25 11:41:57 +01:00
parent b95ed78982
commit adfa5ce4fd
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/ResKor.gf
View File

@@ -184,7 +184,7 @@ oper
"아닙니다" "아닙니다"
Copula ; Copula ;
copulaAfterConsonant : Verb = copula ** { copulaAfterVowel : Verb = copula ** {
s = \\vf => case vf of { s = \\vf => case vf of {
VF Plain Pos => "다" ; VF Plain Pos => "다" ;
VF Polite Pos => "예요" ; VF Polite Pos => "예요" ;

8
src/korean/VerbKor.gf
View File

@@ -119,9 +119,11 @@ lin
CompNP = \n -> emptyComp ** { CompNP = \n -> emptyComp ** {
s = \\vf => s = \\vf =>
let cop = case n.p of { let cop = case n.p of {
Vowel => copula.s ; Vowel => copulaAfterVowel.s ;
Consonant => copulaAfterConsonant.s } Consonant => copula.s }
in glue (n.s ! Bare) (cop ! vf) in case vf of {
VF _ Pos => glue (n.s ! Bare) (cop ! vf) ;
VF _ Neg => n.s ! Bare ++ cop ! vf }
} ; } ;
-- : Adv -> Comp ; -- : Adv -> Comp ;