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

(Kor) Minor fixes and cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-26 16:06:03 +01:00
parent 602da07d3d
commit 85babd3730
5 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/CatKor.gf
View File

@@ -66,7 +66,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
Quant = ResKor.Quant ; Quant = ResKor.Quant ;
Num = ResKor.Num ; Num = ResKor.Num ;
Ord = { Ord = {
s : Str ; -- AForm => Str ; -- Ord can came from AP and become AP again s : Str ; -- AForm => Str ; -- Ord can come from AP and become AP again
n : Number -- Ord can come from Num, which has inherent number n : Number -- Ord can come from Num, which has inherent number
} ; } ;
DAP = ResKor.Determiner ; DAP = ResKor.Determiner ;

6
src/korean/Hangul.gf
View File

@@ -21,7 +21,7 @@ oper
addSuffix : Str -> Str = \stem -> addSuffix : Str -> Str = \stem ->
case stem of { case stem of {
-- Final ㅏ or ㅓ does not repeat itself. -- Final ㅏ or ㅓ does not repeat itself.
_ + #a|#eo -- TODO if it's one syllable long and ends in #a, which rule applies? _ + #a|#eo
=> stem ; => stem ;
-- Assimilations with ㅣ, ㅗ, ㅜ -- Assimilations with ㅣ, ㅗ, ㅜ
@@ -32,11 +32,9 @@ oper
start + ult@#u start + ult@#u
=> start + u_to_weo ult ; => start + u_to_weo ult ;
-- Special case: monosyllabic stem -- Special case: monosyllabic stem ending in 으
-- 으 is dropped, replace the old vowel. -- 으 is dropped, replace the old vowel.
#eu => eu_to_eo stem ; #eu => eu_to_eo stem ;
-- Otherwise add 어.
x@? => stem + "어" ;
-- Easy regular cases to finish with. -- Easy regular cases to finish with.
_ + #a_o => stem + "아" ; _ + #a_o => stem + "아" ;

2
src/korean/NounKor.gf
View File

@@ -10,7 +10,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
DetCN det cn = cn ** {s = DetCN det cn = cn ** {s =
\\c => \\c =>
let cns : Str = case det.n of { let cns : Str = case det.n of {
-- Pl => n.s ! Bare ++ BIND ++ plural ! c ; -- Pl => cn.s ! Bare ++ BIND ++ plural ! c ;
_Sg => cn.s ! c } ; _Sg => cn.s ! c } ;
dets : Str = det.s ! cn.c.origin ; dets : Str = det.s ! cn.c.origin ;
detnum : Str = case det.numtype of { detnum : Str = case det.numtype of {

2
src/korean/NumeralKor.gf
View File

@@ -23,7 +23,7 @@ lin
n9 = mkNum2 "구" "아홉" ; n9 = mkNum2 "구" "아홉" ;
-- : Sub10 ; -- 1 -- : Sub10 ; -- 1
pot01 = mkNum4 "일" "하나" "한" "첫" ; pot01 = mkNum5 "일" "하나" "한" "첫" "열" ;
-- : Digit -> Sub10 ; -- d * 1 -- : Digit -> Sub10 ; -- d * 1
pot0 x = x ; pot0 x = x ;

4
src/korean/ResKor.gf
View File

@@ -164,9 +164,7 @@ oper
plainpres = case vowFinal stem of { plainpres = case vowFinal stem of {
True => add_N stem + "다" ; True => add_N stem + "다" ;
False => stem + "는다" } ; False => stem + "는다" } ;
informal = case vowFinal stem of { -- not used in grammar yet informal = add_eo stem ; -- not used in grammar yet
True => add_eo stem ;
False => stem + "어" } ;
polpres = informal + "요" ; polpres = informal + "요" ;
formalpres = case vowFinal stem of { formalpres = case vowFinal stem of {
True => add_B stem + "니다" ; True => add_B stem + "니다" ;