diff --git a/src/korean/ParamKor.gf b/src/korean/ParamKor.gf index a6f2c7b8..52dd00f2 100644 --- a/src/korean/ParamKor.gf +++ b/src/korean/ParamKor.gf @@ -115,7 +115,8 @@ param VForm = VStem Polarity -- for adding conjunctions | VAttr Polarity -- for subordinate clauses - | VF Style Polarity ; + | VF Style Polarity + | VImpNeg ; oper -- 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 Neg => "s (VF Polite Neg)" ; 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 diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf index 8fbf0007..fbf4c227 100644 --- a/src/korean/ResKor.gf +++ b/src/korean/ResKor.gf @@ -206,10 +206,11 @@ oper planeg = neg ++ negForms ! Plain ; polneg = neg ++ negForms ! Polite ; 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 = - \stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg -> { + mkVerbFull : (x1,_,_,_,_,_,_,_,_,x10 : Str) -> Verb = + \stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg,impneg -> { s = table { VStem Pos => stem ; VStem Neg => init planeg ; @@ -220,7 +221,8 @@ oper VF Polite Pos => polite ; VF Polite Neg => polneg ; VF Formal Pos => formal ; - VF Formal Neg => formneg + VF Formal Neg => formneg ; + VImpNeg => impneg } ; sc = Subject ; p = if_then_else Phono (vowFinal stem) Vowel Consonant ; @@ -236,7 +238,8 @@ oper "입니다" "아니다" "아니에요" - "아닙니다" ; + "아닙니다" + "있지마세요" ; copulaAfterVowel : Verb = copula ** { s = \\vf => case vf of { @@ -255,7 +258,8 @@ oper "있습니다" "없다" "없어요" - "없습니다" ; + "없습니다" + "없지 마새요" ; -- For building an adjective. Different attr from do_V. do_A : Verb = mkVerbReg