diff --git a/lab1/grammar/korean/MicroResKor.gf b/lab1/grammar/korean/MicroResKor.gf index ac9d6ee..fae4bed 100644 --- a/lab1/grammar/korean/MicroResKor.gf +++ b/lab1/grammar/korean/MicroResKor.gf @@ -1,4 +1,4 @@ -resource MicroResKor = open Prelude in { +resource MicroResKor = open Prelude, Hangul in { param VForm = Lemma | VPresent | VPast ; @@ -35,4 +35,10 @@ resource MicroResKor = open Prelude in { VPast => stem + "았어요" } } ; + + blah : Str -> Str + = \s -> case s of { + _ + "ᅡ" => "아-final" ; + _ => "not 아-final" + } ; }