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

(Kor) Use all fields of VP in EmbedVP + tweak linref for VP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-21 14:17:52 +02:00
parent 5153005d51
commit ef364c295f
4 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/korean/CatKor.gf
View File

@@ -119,5 +119,6 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
PN = ResKor.NounPhrase ; PN = ResKor.NounPhrase ;
linref linref
V, V2, V3, VP = linVerb ; V, V2, V3 = linVerb ;
VP = linVP linVF ;
} }

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} ; UttIP ip = {s = ip.s ! Bare} ;
UttNP np = {s = np.s ! Bare} ; UttNP np = {s = np.s ! Bare} ;
UttVP vp = {s = linVP vp} ; UttVP vp = {s = linVP linVF vp} ;
UttCN cn = {s = cn.rs ++ cn.s ! Bare} ; UttCN cn = {s = cn.rs ++ cn.s ! Bare} ;
UttCard n = {s = n.s ! NK ! Indep} ; UttCard n = {s = n.s ! NK ! Indep} ;
UttAP ap = { s = ap.compar ++ ap.s ! VF Plain Pos} ; UttAP ap = { s = ap.compar ++ ap.s ! VF Plain Pos} ;

2
src/korean/ResKor.gf
View File

@@ -372,6 +372,6 @@ oper
-- linrefs -- linrefs
linVerb : Verb -> Str = \v -> v.s ! linVF ; linVerb : Verb -> Str = \v -> v.s ! linVF ;
linVP : VerbPhrase -> Str = \vp -> vp.nObj ++ vp.adv ++ vp.s ! linVF ; linVP : VForm -> VerbPhrase -> Str = \vf,vp -> vp.nObj ++ vp.adv ++ vp.s ! vf ;
} }

2
src/korean/SentenceKor.gf
View File

@@ -43,7 +43,7 @@ lin
-- EmbedQS qs = { } ; -- EmbedQS qs = { } ;
-- : VP -> SC ; -- : VP -> SC ;
EmbedVP vp = {s = vp.s ! VAttr Pos ++ "것이"} ; EmbedVP vp = {s = linVP (VAttr Pos) vp ++ "것이"} ;
--2 Sentences --2 Sentences