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

(Kor) Add ApposNP in ExtendKor

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-07 21:02:42 +02:00
parent 80557e34b2
commit 291a3051ef
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/korean/ExtendKor.gf
View File

@@ -1,8 +1,11 @@
--# -path=.:../common:../abstract --# -path=.:../common:../abstract
concrete ExtendKor of Extend = CatKor concrete ExtendKor of Extend = CatKor
-- ** ExtendFunctor - [] -- ** ExtendFunctor - [ApposNP]
-- with (Grammar=GrammarKor) -- with (Grammar=GrammarKor)
** open Prelude, ResKor, NounKor in { ** open Prelude, ResKor, NounKor, Coordination in {
lin
-- : NP -> NP -> NP
ApposNP np1 np2 = np1 ** {s = \\nf => np1.s ! nf ++ np2.s ! nf} ;
} ; } ;