lab1/grammar/korean/MicroLangKor.gf

@@ -10,7 +10,7 @@ concrete MicroLangKor of MicroLang = open MicroResKor, Prelude in {
 
     S  = {s : Str} ;
     VP = {verb : Verb ; compl : Str} ; ---s special case of Mini
-    Comp = {s : Str} ;
+    Comp = Noun ;
     AP = Adjective ;
     CN = Noun ;
     NP = {s : Str} ;
@@ -26,6 +26,7 @@ concrete MicroLangKor of MicroLang = open MicroResKor, Prelude in {
   lin
     UttS s = s ;
     UttNP np = {s = np.s} ;
+    -- PredVPS np vp = {s = np.s ++ vp.compl ++ vp.verb.s} ;
     UseV v = {verb = v ; compl = []} ;
     ComplV2 v2 np = {verb = v2 ; compl = np.s};
     UseN n = n ;
@@ -140,12 +141,8 @@ oper
   mkN : Str -> Noun
     = \s -> lin N {s = s} ;
 
-  mkA : Str -> A
-    = \stem -> lin A {
-      stem = stem ;
-      reg = Regular ;
-      t = Descriptive
-    } ;
+  -- mkA : Str -> A
+  --   = \stem -> lin A (mkV stem) ;
 
   mkAdv : Str -> Adv
     = \s -> lin Adv {s = s} ;
@@ -155,9 +152,10 @@ oper
 
   mkV = overload {
     mkV : Str -> V = \stem -> lin V {
-      stem = stem ;
-      reg = Regular ;
-      t = Action
-      };
+      s = table {
+	VPresent => stem + "어요" ;
+	VPast => stem + "었어요"
+	}
+      }
     } ;
 }