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

(Kor) Remove unused VerbType parameter

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-26 17:03:52 +01:00
parent 85babd3730
commit afdff2e374
3 changed files with 13 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/ParadigmsKor.gf
View File

@@ -106,7 +106,7 @@ oper
} ; } ;
mkV = overload { mkV = overload {
mkV : (plain : Str) -> V = \v -> lin V (mkVerb v Active) ; mkV : (plain : Str) -> V = \v -> lin V (mkVerb v) ;
mkV : (nore : Str) -> (hada : V) -> V = \nore,hada -> hada ** { mkV : (nore : Str) -> (hada : V) -> V = \nore,hada -> hada ** {
s = \\vf => nore + hada.s ! vf} ; s = \\vf => nore + hada.s ! vf} ;
} ; } ;

BIN
src/korean/ParamKor.gf
View File

Binary file not shown.

29
src/korean/ResKor.gf
View File

@@ -136,7 +136,7 @@ oper
mkAdj : Str -> Adjective = \plain -> mkAdj : Str -> Adjective = \plain ->
let stem = init plain ; let stem = init plain ;
verb = mkVerb plain Stative ; verb = mkVerb plain ;
in { in {
s = table { AAttr => add_N stem ; s = table { AAttr => add_N stem ;
APred (VF Plain Pos) => plain ; APred (VF Plain Pos) => plain ;
@@ -148,7 +148,6 @@ oper
-- Verbs -- Verbs
BaseVerb : Type = { BaseVerb : Type = {
type : VerbType ;
sc : NForm ; -- subject case sc : NForm ; -- subject case
} ; } ;
Verb : Type = BaseVerb ** { Verb : Type = BaseVerb ** {
@@ -159,7 +158,7 @@ oper
-- VV : Type = Verb ** {vvtype : VVForm} ; -- VV : Type = Verb ** {vvtype : VVForm} ;
mkVerb : (plain : Str) -> VerbType -> Verb = \plain,vt -> mkVerb : (plain : Str) -> Verb = \plain ->
let stem = init plain ; let stem = init plain ;
plainpres = case vowFinal stem of { plainpres = case vowFinal stem of {
True => add_N stem + "다" ; True => add_N stem + "다" ;
@@ -170,23 +169,23 @@ oper
True => add_B stem + "니다" ; True => add_B stem + "니다" ;
False => stem + "습니다" } ; False => stem + "습니다" } ;
neg = stem + "지" ; neg = stem + "지" ;
in mkVerbReg plainpres polpres formalpres neg vt ; in mkVerbReg plainpres polpres formalpres neg ;
mkVerb2 : (plain : Str) -> Verb2 = \plain -> vtov2 (mkVerb plain Active) ; mkVerb2 : (plain : Str) -> Verb2 = \plain -> vtov2 (mkVerb plain) ;
mkVerb3 : (plain : Str) -> Verb3 = \plain -> v2tov3 (mkVerb2 plain) ; mkVerb3 : (plain : Str) -> Verb3 = \plain -> v2tov3 (mkVerb2 plain) ;
vtov2 : Verb -> Verb2 = \v -> v ** {c2 = Object ; p2 = emptyPP} ; vtov2 : Verb -> Verb2 = \v -> v ** {c2 = Object ; p2 = emptyPP} ;
v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Bare ; p3 = datPP} ; v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Bare ; p3 = datPP} ;
mkVerbReg : (x1,_,_,x4 : Str) -> VerbType -> Verb = mkVerbReg : (x1,_,_,x4 : Str) -> Verb =
\plainpres,polite,formal,neg,vt -> \plainpres,polite,formal,neg ->
let planeg = neg ++ negForms ! Plain ; let 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 vt ; in mkVerbFull plainpres polite formal planeg polneg formneg ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb = mkVerbFull : (x1,_,_,_,_,x6 : Str) -> Verb =
\plainpres,polite,formal,planeg,polneg,formneg,vt -> { \plainpres,polite,formal,planeg,polneg,formneg -> {
s = table { s = table {
VF Plain Pos => plainpres ; VF Plain Pos => plainpres ;
VF Plain Neg => planeg ; VF Plain Neg => planeg ;
@@ -195,7 +194,6 @@ oper
VF Formal Pos => formal ; VF Formal Pos => formal ;
VF Formal Neg => formneg VF Formal Neg => formneg
} ; } ;
type = vt ;
sc = Subject sc = Subject
} ; } ;
@@ -205,8 +203,7 @@ oper
"입니다" "입니다"
"아니다" "아니다"
"아니에요" "아니에요"
"아닙니다" "아닙니다" ;
Copula ;
copulaAfterVowel : Verb = copula ** { copulaAfterVowel : Verb = copula ** {
s = \\vf => case vf of { s = \\vf => case vf of {
@@ -221,15 +218,13 @@ oper
"있습니다" "있습니다"
"없다" "없다"
"없어요" "없어요"
"없습니다" "없습니다" ;
Existential ;
do_V : Verb = mkVerbReg do_V : Verb = mkVerbReg
"한다" "한다"
"해요" "해요"
"합니다" "합니다"
"하지" "하지" ;
Active ;
negForms : Style => Str = negForms : Style => Str =
table { Plain => "않다" ; table { Plain => "않다" ;