(Kor) Add a separate module for handling Hangul trarnsformations

This commit is contained in:
Inari Listenmaa
2020-03-22 08:06:39 +01:00
parent c31c00dd83
commit 5322b9d90a
3 changed files with 862 additions and 21 deletions
+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"
}
} ;