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

(Kor) Add a separate module for handling Hangul trarnsformations

Browse Source
This commit is contained in:
Inari Listenmaa committed 2020-03-22 08:06:39 +01:00
1 parent c31c00dd83
commit 5322b9d90a
3 files changed
+862 -21
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/korean/ResKor.gf
+3 -3
View File
@@ -105,10 +105,10 @@ oper
mkAdj : Str -> Adjective = \inf -> let stem = init inf in {
s = table {
AAttr => stem + if_then_Str (vowFinal stem) "ᆫ" "은" ;
AAttr => add_N stem ;
APred VInf => inf ;
APred (VFin Gnomic Pos) => stem + "ᆸ니다" ;
APred (VFin Gnomic Pos) => "안" ++ stem + "ᆸ니다" ; -- TODO check
APred (VFin Gnomic Pos) => add_B stem + "니다" ;
APred (VFin Gnomic Neg) => "안" ++ add_B stem + "니다" ; -- TODO check
APred _ => stem ++ "TODO: proper adjective inflection"
}
} ;