msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Kor) Misc. small additions

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-03 20:03:23 +02:00
parent 642b4b9f6b
commit 1c7bad313c
4 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/korean/AdjectiveKor.gf
View File

@@ -28,10 +28,10 @@ concrete AdjectiveKor of Adjective = CatKor **
UseA2 = PositA ; UseA2 = PositA ;
-- : A -> AP ; -- warmer -- : A -> AP ; -- warmer
-- UseComparA a = a ** { UseComparA a = a ** {
-- s = \\af => "???" ++ a.s ! af ; s = \\af => "더" ++ a.s ! af ;
-- compar = [] compar = [] ;
-- } ; } ;
-- : CAdv -> AP -> NP -> AP ; -- as cool as John -- : CAdv -> AP -> NP -> AP ; -- as cool as John

8
src/korean/LexiconKor.gf
View File

@@ -33,7 +33,7 @@ lin big_A = mkA "크다" ;
-- lin bike_N = mkN "" ; -- lin bike_N = mkN "" ;
-- lin bird_N = mkN "" ; -- lin bird_N = mkN "" ;
-- lin bite_V2 = mkV2 "" ; -- lin bite_V2 = mkV2 "" ;
-- lin black_A = mkA "" ; lin black_A = mkA "검다" ;
-- lin blood_N = mkN "" ; -- lin blood_N = mkN "" ;
-- lin blow_V = mkV "" ; -- lin blow_V = mkV "" ;
lin blue_A = mkA "푸르다" ; lin blue_A = mkA "푸르다" ;
@@ -72,7 +72,7 @@ lin cat_N = mkN "고양이" ;
-- lin clever_A = mkA "" ; -- lin clever_A = mkA "" ;
-- lin close_V2 = mkV2 "" ; -- lin close_V2 = mkV2 "" ;
-- lin cloud_N = mkN "" ; -- lin cloud_N = mkN "" ;
-- lin coat_N = mkN "" ; lin coat_N = mkN "코트" ;
-- lin cold_A = mkA "" ; -- lin cold_A = mkA "" ;
lin come_V = mkV "오다" ; lin come_V = mkV "오다" ;
-- lin computer_N = mkN "" ; -- lin computer_N = mkN "" ;
@@ -279,7 +279,7 @@ lin person_N = mkN "사람" ;
-- lin read_V2 = mkV2 "" ; -- lin read_V2 = mkV2 "" ;
-- lin ready_A = mkA "" ; -- lin ready_A = mkA "" ;
-- lin reason_N = mkN "" ; -- lin reason_N = mkN "" ;
-- lin red_A = mkA "" ; lin red_A = mkA "빨갛다" ;
-- lin religion_N = mkN "" ; -- lin religion_N = mkN "" ;
-- lin restaurant_N = mkN "" ; -- lin restaurant_N = mkN "" ;
-- lin river_N = mkN "" ; -- lin river_N = mkN "" ;
@@ -314,7 +314,7 @@ lin see_V2 = mkV2 "보다" ;
-- lin sharp_A = mkA "" ; -- lin sharp_A = mkA "" ;
-- lin sheep_N = mkN "" fem ; -- lin sheep_N = mkN "" fem ;
-- lin ship_N = mkN "" ; -- lin ship_N = mkN "" ;
-- lin shirt_N = mkN "" ; lin shirt_N = mkN "셔츠" ;
-- lin shoe_N = mkN "" ; -- lin shoe_N = mkN "" ;
-- lin shop_N = mkN "" ; -- lin shop_N = mkN "" ;
lin short_A = mkA "키가" small_A ; -- "height is small" lin short_A = mkA "키가" small_A ; -- "height is small"

9
src/korean/NounKor.gf
View File

@@ -47,8 +47,13 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- PPartNP np v2 = np ** { -- PPartNP np v2 = np ** {
-- s = \\c => v2.s ! ??? ++ np.s ! c } ; ---- -- s = \\c => v2.s ! ??? ++ np.s ! c } ; ----
-- : NP -> Adv -> NP ; -- Paris today ; boys, such as .. -- : NP -> Adv -> NP ; -- Paris today
--AdvNP,ExtAdvNP = \np,adv -> np ** {} ; AdvNP np adv = np ** {
s = \\nf => adv.s ++ np.s ! nf
} ; -- TODO test
-- : NP -> Adv -> NP ; -- boys, such as ..
-- ExtAdvNP np adv = np ** {} ;
-- : NP -> RS -> NP ; -- Paris, which is here -- : NP -> RS -> NP ; -- Paris, which is here
-- RelNP np rs = np ** { -- RelNP np rs = np ** {

2
src/korean/StructuralKor.gf
View File

@@ -111,7 +111,7 @@ lin for_Prep = mkPrep "에게" ;
-- lin in8front_Prep = mkPrep "" ; -- lin in8front_Prep = mkPrep "" ;
lin in_Prep = mkPrep "에서" ; lin in_Prep = mkPrep "에서" ;
-- lin on_Prep = mkPrep "에서" ; -- lin on_Prep = mkPrep "에서" ;
-- lin part_Prep = mkPrep ; lin part_Prep = mkPrep "의" ;
lin possess_Prep = mkPrep "의" ; lin possess_Prep = mkPrep "의" ;
-- lin through_Prep = mkPrep ; -- lin through_Prep = mkPrep ;
lin to_Prep = mkPrep "에"; lin to_Prep = mkPrep "에";