GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) New verb forms

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-26 17:16:41 +01:00
parent afdff2e374
commit 1acaa57c49
3 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/korean/ParamKor.gf
View File

Binary file not shown.

28
src/korean/ResKor.gf
View File

@@ -160,16 +160,16 @@ oper
mkVerb : (plain : Str) -> Verb = \plain -> mkVerb : (plain : Str) -> Verb = \plain ->
let stem = init plain ; let stem = init plain ;
plainpres = case vowFinal stem of { -- plainpres = case vowFinal stem of { -- not used in grammar yet
True => add_N stem + "다" ; -- True => add_N stem + "다" ;
False => stem + "는다" } ; -- False => stem + "는다" } ;
informal = add_eo stem ; -- not used in grammar yet informal = add_eo stem ; -- not used in grammar yet
polpres = informal + "요" ; polpres = informal + "요" ;
formalpres = case vowFinal stem of { formalpres = case vowFinal stem of {
True => add_B stem + "니다" ; True => add_B stem + "니다" ;
False => stem + "습니다" } ; False => stem + "습니다" } ;
neg = stem + "지" ; neg = stem + "지" ;
in mkVerbReg plainpres polpres formalpres neg ; in mkVerbReg plain polpres formalpres neg ;
mkVerb2 : (plain : Str) -> Verb2 = \plain -> vtov2 (mkVerb plain) ; mkVerb2 : (plain : Str) -> Verb2 = \plain -> vtov2 (mkVerb plain) ;
mkVerb3 : (plain : Str) -> Verb3 = \plain -> v2tov3 (mkVerb2 plain) ; mkVerb3 : (plain : Str) -> Verb3 = \plain -> v2tov3 (mkVerb2 plain) ;
@@ -178,16 +178,18 @@ oper
v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Bare ; p3 = datPP} ; v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Bare ; p3 = datPP} ;
mkVerbReg : (x1,_,_,x4 : Str) -> Verb = mkVerbReg : (x1,_,_,x4 : Str) -> Verb =
\plainpres,polite,formal,neg -> \plain,polite,formal,neg ->
let planeg = neg ++ negForms ! Plain ; let stem = init plain ;
planeg = neg ++ negForms ! Plain ;
polneg = neg ++ negForms ! Polite ; polneg = neg ++ negForms ! Polite ;
formneg = neg ++ negForms ! Formal ; formneg = neg ++ negForms ! Formal ;
in mkVerbFull plainpres polite formal planeg polneg formneg ; in mkVerbFull stem plain polite formal planeg polneg formneg ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> Verb = mkVerbFull : (x1,_,_,_,_,_,x7 : Str) -> Verb =
\plainpres,polite,formal,planeg,polneg,formneg -> { \stem,plain,polite,formal,planeg,polneg,formneg -> {
s = table { s = table {
VF Plain Pos => plainpres ; VStem => stem ;
VF Plain Pos => plain ;
VF Plain Neg => planeg ; VF Plain Neg => planeg ;
VF Polite Pos => polite ; VF Polite Pos => polite ;
VF Polite Neg => polneg ; VF Polite Neg => polneg ;
@@ -198,8 +200,9 @@ oper
} ; } ;
copula : Verb = mkVerbFull copula : Verb = mkVerbFull
"이"
"이다" "이다"
"이에요" -- or "이세요" ? "이에요"
"입니다" "입니다"
"아니다" "아니다"
"아니에요" "아니에요"
@@ -213,6 +216,7 @@ oper
} ; } ;
have_V : Verb = mkVerbFull have_V : Verb = mkVerbFull
"있"
"있다" "있다"
"있어요" "있어요"
"있습니다" "있습니다"
@@ -221,7 +225,7 @@ oper
"없습니다" ; "없습니다" ;
do_V : Verb = mkVerbReg do_V : Verb = mkVerbReg
"한다" "하다"
"해요" "해요"
"합니다" "합니다"
"하지" ; "하지" ;

5
src/korean/VerbKor.gf
View File

@@ -123,8 +123,9 @@ lin
Vowel => copulaAfterVowel.s ; Vowel => copulaAfterVowel.s ;
Consonant => copula.s } Consonant => copula.s }
in case vf of { in case vf of {
VF _ Pos => glue (n.s ! Bare) (cop ! vf) ; VF _ Neg => n.s ! Bare ++ cop ! vf ;
VF _ Neg => n.s ! Bare ++ cop ! vf } _ => glue (n.s ! Bare) (cop ! vf)
}
} ; } ;
-- : Adv -> Comp ; -- : Adv -> Comp ;