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

(Kor) Add separate form for neg. imperative

Browse Source
This commit is contained in:
Inari Listenmaa
2023-05-29 19:27:10 +02:00
parent 7cae261a97
commit fcfb60b6e5
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/korean/ParamKor.gf
View File

@@ -115,7 +115,8 @@ param
VForm = VForm =
VStem Polarity -- for adding conjunctions VStem Polarity -- for adding conjunctions
| VAttr Polarity -- for subordinate clauses | VAttr Polarity -- for subordinate clauses
| VF Style Polarity ; | VF Style Polarity
| VImpNeg ;
oper oper
-- Default style used in the whole grammar. Change here for another style. -- Default style used in the whole grammar. Change here for another style.
@@ -141,7 +142,8 @@ oper
VF Polite Pos => "s (VF Polite Pos)" ; VF Polite Pos => "s (VF Polite Pos)" ;
VF Polite Neg => "s (VF Polite Neg)" ; VF Polite Neg => "s (VF Polite Neg)" ;
VF Plain Pos => "s (VF Plain Pos)" ; VF Plain Pos => "s (VF Plain Pos)" ;
VF Plain Neg => "s (VF Plain Neg)" } ; VF Plain Neg => "s (VF Plain Neg)" ;
VImpNeg => "s VImpNeg" } ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Clauses -- Clauses

16
src/korean/ResKor.gf
View File

@@ -206,10 +206,11 @@ oper
planeg = neg ++ negForms ! Plain ; planeg = neg ++ negForms ! Plain ;
polneg = neg ++ negForms ! Polite ; polneg = neg ++ negForms ! Polite ;
formneg = neg ++ negForms ! Formal ; formneg = neg ++ negForms ! Formal ;
in mkVerbFull stem attrpos attrneg plain polite formal planeg polneg formneg ; impneg = neg ++ "마새요" ;
in mkVerbFull stem attrpos attrneg plain polite formal planeg polneg formneg impneg ;
mkVerbFull : (x1,_,_,_,_,_,_,_,x9 : Str) -> Verb = mkVerbFull : (x1,_,_,_,_,_,_,_,_,x10 : Str) -> Verb =
\stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg -> { \stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg,impneg -> {
s = table { s = table {
VStem Pos => stem ; VStem Pos => stem ;
VStem Neg => init planeg ; VStem Neg => init planeg ;
@@ -220,7 +221,8 @@ oper
VF Polite Pos => polite ; VF Polite Pos => polite ;
VF Polite Neg => polneg ; VF Polite Neg => polneg ;
VF Formal Pos => formal ; VF Formal Pos => formal ;
VF Formal Neg => formneg VF Formal Neg => formneg ;
VImpNeg => impneg
} ; } ;
sc = Subject ; sc = Subject ;
p = if_then_else Phono (vowFinal stem) Vowel Consonant ; p = if_then_else Phono (vowFinal stem) Vowel Consonant ;
@@ -236,7 +238,8 @@ oper
"입니다" "입니다"
"아니다" "아니다"
"아니에요" "아니에요"
"아닙니다" ; "아닙니다"
"있지마세요" ;
copulaAfterVowel : Verb = copula ** { copulaAfterVowel : Verb = copula ** {
s = \\vf => case vf of { s = \\vf => case vf of {
@@ -255,7 +258,8 @@ oper
"있습니다" "있습니다"
"없다" "없다"
"없어요" "없어요"
"없습니다" ; "없습니다"
"없지 마새요" ;
-- For building an adjective. Different attr from do_V. -- For building an adjective. Different attr from do_V.
do_A : Verb = mkVerbReg do_A : Verb = mkVerbReg