GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Add negative form in V where conjunction attaches

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-14 20:58:17 +02:00
parent 2c83fd8691
commit 1ffa53c3b2
4 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/ConjunctionKor.gf
View File

@@ -101,7 +101,7 @@ lin
oper oper
mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap -> mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
\\af,conj => ap.compar ++ glue (ap.s ! VStem) (conjTable ! VStar ! conj) ; \\af,conj => ap.compar ++ glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj) ;
{- {-
lincat lincat

BIN
src/korean/ParamKor.gf
View File

Binary file not shown.

2
src/korean/RelativeKor.gf
View File

@@ -10,7 +10,7 @@ lin
s = \\t,a,p,cltyp => s = \\t,a,p,cltyp =>
rp.s ++ vp.adv ++ vp.nObj ++ rp.s ++ vp.adv ++ vp.nObj ++
case cltyp of { case cltyp of {
WithConj => vp.s ! VStem ; WithConj => vp.s ! VStem p ;
_ => vp.s ! VAttr p } ; _ => vp.s ! VAttr p } ;
} ; } ;

7
src/korean/ResKor.gf
View File

@@ -153,7 +153,7 @@ oper
mkAdj : Str -> Adjective = \plain -> mkAdj : Str -> Adjective = \plain ->
let v : Verb = mkVerb plain ; let v : Verb = mkVerb plain ;
stem : Str = v.s ! VStem ; stem : Str = v.s ! VStem Pos ;
attrpos : Str = add_N stem ; attrpos : Str = add_N stem ;
in v2a attrpos v ; in v2a attrpos v ;
@@ -207,7 +207,8 @@ oper
mkVerbFull : (x1,_,_,_,_,_,_,_,x9 : Str) -> Verb = mkVerbFull : (x1,_,_,_,_,_,_,_,x9 : Str) -> Verb =
\stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg -> { \stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg -> {
s = table { s = table {
VStem => stem ; VStem Pos => stem ;
VStem Neg => stem + "지" ++ "않" ;
VAttr Pos => attrpos ; VAttr Pos => attrpos ;
VAttr Neg => attrneg ; VAttr Neg => attrneg ;
VF Plain Pos => plain ; VF Plain Pos => plain ;
@@ -359,7 +360,7 @@ oper
s = \\t,a,p,cltyp => s = \\t,a,p,cltyp =>
let vf = case cltyp of { let vf = case cltyp of {
Subord => VAttr p ; Subord => VAttr p ;
WithConj => VStem ; WithConj => VStem p ;
_ => VF Polite p } -- TODO: more tenses, politeness _ => VF Polite p } -- TODO: more tenses, politeness
in np in np
++ vp.nObj -- an object, not copula complement ++ vp.nObj -- an object, not copula complement