msyds/comp-syntax-gu-mlt
1
0
Fork 0
forked from GitHub/comp-syntax-gu-mlt
Code Pull Requests Activity

hangul syllables

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-02-12 09:45:52 -07:00
parent 0ba6518630
commit fd36692419
8 changed files with 197 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lab1/grammar/korean/MicroResKor.gf
View File

@@ -1,4 +1,4 @@
resource MicroResKor = open Prelude, Hangul in {
resource MicroResKor = open Prelude, HangulJamo in {
param
VForm = Lemma | VPresent | VPast ;
@@ -10,35 +10,18 @@ resource MicroResKor = open Prelude, Hangul in {
lemmaToStem : (lemma : Str) -> Str
= \lemma -> case lemma of {
stem + "다" => stem ;
stem + "다" => stem ;
_ => Predef.error ("lemmaToStem was applied to a non-lemma," ++ lemma)
} ;
regVerb_eo : (lemma : Str) -> Verb
regVerb : (lemma : Str) -> Verb
= \lemma ->
let stem = lemmaToStem lemma ;
in {
s = table {
Lemma => lemma ;
VPresent => stem + "어요" ;
VPast => stem + "었어요"
VPresent => present_haeyo stem ;
VPast => past_haeyo stem
}
} ;
regVerb_a_o : (lemma : Str) -> Verb
= \lemma ->
let stem = lemmaToStem lemma ;
in {
s = table {
Lemma => lemma ;
VPresent => stem + "아요" ;
VPast => stem + "았어요"
}
} ;
blah : Str -> Str
= \s -> case s of {
_ + "ᅡ" => "아-final" ;
_ => "not 아-final"
} ;
}