GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 19:18:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Det, Quant

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-25 14:03:38 +01:00
parent cfdc4d9955
commit d83ded2624
3 changed files with 26 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/korean/NounKor.gf
+9 -3
View File
@@ -7,7 +7,11 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
--2 Noun phrases
-- : Det -> CN -> NP
DetCN det cn = cn ** {s = \\c => det.s ++ cn.s ! c} ;
DetCN det cn = cn ** {s =
\\c => case det.n of {
-- Pl => det.s ++ cn.s ! Bare ++ BIND ++ plural ! c ;
_ => det.s ++ cn.s ! c } ;
} ;
-- : PN -> NP ;
-- UsePN pn = pn ** {
@@ -45,8 +49,9 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- Determiners can form noun phrases directly.
-- : Det -> NP ;
-- DetNP det = emptyNP ** {
-- } ;
DetNP det = det ** {
s = det.sp
} ;
-- MassNP : CN -> NP ;
-- MassNP cn = useN cn ** {
@@ -60,6 +65,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- : Quant -> Num -> Det ;
DetQuant quant num = quant ** {
s = quant.s ++ num.s ! Indep ;
n = num.n
} ;