adjectives

lab1/grammar/korean/MicroLangKor.gf

@@ -41,6 +41,8 @@ concrete MicroLangKor of MicroLang = open MicroResKor, Prelude in {
     thisPl_Det = {s = "이"} ;
     that_Det = {s = "그"} ;
     thatPl_Det = {s = "그"} ;
+    PositA a = a ;
+    AdjCN ap cn = {s = ap.s ! VAdnomial ++ cn.s} ;
 
 -----------------------------------------------------
 ---------------- Lexicon part -----------------------
@@ -50,9 +52,9 @@ concrete MicroLangKor of MicroLang = open MicroResKor, Prelude in {
 lin animal_N = mkN "동물" ;
 lin apple_N = mkN "사과" ;
 lin baby_N = mkN "아기" ;
--- lin bad_A = mkA "나쁜" ;
+lin bad_A = mkA "나쁘다" ;
 -- lin beer_N = mkN "beer" ;
--- lin big_A = mkA "큰" ;
+lin big_A = mkA "크다" ;
 -- lin bike_N = mkN "bike" ;
 -- lin bird_N = mkN "bird" ;
 -- lin black_A = mkA "black" ;
@@ -63,13 +65,13 @@ lin book_N = mkN "책" ;
 lin boy_N = mkN "소녁" ;
 lin bread_N = mkN "빵" ;
 -- lin break_V2 = mkV2 (mkV "break" "broke" "broken") ;
--- lin buy_V2 = mkV2 (mkV "buy" "bought" "bought") ;
+lin buy_V2 = mkV2 "사다" ;
 lin car_N = mkN "자동차" ;
 lin cat_N = mkN "고양이" ;
 lin child_N = mkN "어린이" ;
 -- lin city_N = mkN "city" ;
--- lin clean_A = mkA "정소한" ;
--- lin clever_A = mkA "똑똑한" ;
+lin clean_A = mkA "정소하다" ;
+lin clever_A = mkA "똑똑하다" ;
 -- lin cloud_N = mkN "cloud" ;
 -- lin cold_A = mkA "차가운" ;
 lin come_V = mkV "오다" ;
@@ -114,7 +116,7 @@ lin read_V2 = mkV2 "읽다" ;
 lin river_N = mkN "강" ;
 -- lin run_V = mkV "run" "ran" "run" ;
 lin sea_N = mkN "바다" ;
--- lin see_V2 = mkV2 (mkV "see" "saw" "seen") ;
+lin see_V2 = mkV2 "보다" ;
 -- lin ship_N = mkN "ship" ;
 lin sleep_V = mkV "자다" ;
 -- lin small_A = mkA "작은" ;
@@ -157,4 +159,7 @@ oper
 
   mkPrep : Str -> Prep
     = \s -> lin Prep {s = s} ;
+
+  mkA : Str -> A
+    = \lemma -> lin A (regAdjective lemma) ;
 }