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

(Kor) Fixes in conjunctions for the verby cats (AP,S,RS)

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-06 17:50:11 +02:00
parent aa3bc1d656
commit 8b6275af1c
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/korean/ConjunctionKor.gf
View File

@@ -69,8 +69,7 @@ oper
oper oper
mkFirstSS : SS -> ConjType => Str = \s -> mkFirstSS : SS -> ConjType => Str = \s ->
\\conj => glue s.s (conjTable ! NStar ! conj) ; \\conj => glue s.s (conjTable ! VStar ! conj) ;
lincat lincat
[S] = ResKor.Sentence ** {firstS : ConjType => Str} ; [S] = ResKor.Sentence ** {firstS : ConjType => Str} ;
@@ -91,7 +90,7 @@ lin
oper oper
mkFirstS : ResKor.Sentence -> ConjType => Str = \s -> mkFirstS : ResKor.Sentence -> ConjType => Str = \s ->
\\conj => glue (s.s ! WithConj) (conjTable ! NStar ! conj) ; \\conj => glue (s.s ! WithConj) (conjTable ! VStar ! conj) ;
lincat lincat
[AP] = ResKor.AdjPhrase ** {firstAP : VForm => ConjType => Str} ; [AP] = ResKor.AdjPhrase ** {firstAP : VForm => ConjType => Str} ;
@@ -113,9 +112,7 @@ lin
oper oper
mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap -> mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
\\af,conj => case af of { \\af,conj => ap.compar ++ glue (ap.s ! VStem) (conjTable ! VStar ! conj) ;
VAttr p => glue (ap.s ! VAttr p) (conjTable ! NStar ! conj) ;
_ => glue (ap.s ! VStem) (conjTable ! VStar ! conj) } ;
{- {-
lincat lincat