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
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

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 =>
rp.s ++ vp.adv ++ vp.nObj ++
case cltyp of {
WithConj => vp.s ! VStem ;
WithConj => vp.s ! VStem p ;
_ => vp.s ! VAttr p } ;
} ;

7
src/korean/ResKor.gf
View File

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