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

(Kor) Add counters to N* + preliminary support for numerals

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-25 16:00:48 +01:00
parent d83ded2624
commit 115e2f1ffa
3 changed files with 40 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/korean/NounKor.gf
+19 -12
View File
@@ -8,10 +8,19 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- : Det -> CN -> NP
DetCN det cn = cn ** {s =
\\c => case det.n of {
-- Pl => det.s ++ cn.s ! Bare ++ BIND ++ plural ! c ;
_ => det.s ++ cn.s ! c } ;
} ;
\\c =>
let cns : Str = case det.n of {
-- Pl => n.s ! Bare ++ BIND ++ plural ! c ;
_Sg => cn.s ! c } ;
dets : Str = det.s ! cn.c.origin ;
detnum : Str = case det.numtype of {
IsNum => dets ++ cn.c.s ;
IsDig => glue dets cn.c.s ;
NoNum => dets } ;
in case isNum det of {
True => cns ++ detnum ;
False => detnum ++ cns }
} ;
-- : PN -> NP ;
-- UsePN pn = pn ** {
@@ -50,7 +59,8 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- : Det -> NP ;
DetNP det = det ** {
s = det.sp
s = det.sp ;
c = baseCounter
} ;
-- MassNP : CN -> NP ;
@@ -64,9 +74,8 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- quantifier and an optional numeral can be discerned.
-- : Quant -> Num -> Det ;
DetQuant quant num = quant ** {
s = quant.s ++ num.s ! Indep ;
n = num.n
DetQuant quant num = quant ** num ** {
s = \\origin => quant.s ++ num.s ! origin ! Attrib
} ;
-- : Quant -> Num -> Ord -> Det ; -- these five best
@@ -117,10 +126,8 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- OrdNumeralSuperl num a = num ** { } ;
-- : Quant
DefArt = baseQuant ** {sp = \\_ => []} ;
-- : Quant
IndefArt = baseQuant ** {sp = \\_ => []} ;
DefArt,
IndefArt = mkQuant [] [] ;
-- : Pron -> Quant
-- PossPron pron =