GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki 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
mkFirstSS : SS -> ConjType => Str = \s ->
\\conj => glue s.s (conjTable ! NStar ! conj) ;
\\conj => glue s.s (conjTable ! VStar ! conj) ;
lincat
[S] = ResKor.Sentence ** {firstS : ConjType => Str} ;
@@ -91,7 +90,7 @@ lin
oper
mkFirstS : ResKor.Sentence -> ConjType => Str = \s ->
\\conj => glue (s.s ! WithConj) (conjTable ! NStar ! conj) ;
\\conj => glue (s.s ! WithConj) (conjTable ! VStar ! conj) ;
lincat
[AP] = ResKor.AdjPhrase ** {firstAP : VForm => ConjType => Str} ;
@@ -113,9 +112,7 @@ lin
oper
mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
\\af,conj => case af of {
VAttr p => glue (ap.s ! VAttr p) (conjTable ! NStar ! conj) ;
_ => glue (ap.s ! VStem) (conjTable ! VStar ! conj) } ;
\\af,conj => ap.compar ++ glue (ap.s ! VStem) (conjTable ! VStar ! conj) ;
{-
lincat