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

double negation in EmbedVP, ImpVP and UttVP

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-10 11:21:45 +02:00
parent 326d9edb22
commit 112aea1efc
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/bulgarian/PhraseBul.gf
View File

@@ -15,7 +15,7 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
UttIP ip = {s = ip.s ! RSubj ! QDir} ;
UttIAdv iadv = {s = iadv.s ! QDir} ;
UttNP np = {s = np.s ! RSubj} ;
UttVP vp = {s = daComplex Simul Pos vp ! Perf ! agrP3 (GSg Neut)} ;
UttVP vp = {s = daComplex Simul vp.p vp ! Perf ! agrP3 (GSg Neut)} ;
UttAdv adv = adv ;
UttCN n = {s = n.s ! NF Sg Indef} ;
UttCard n = {s = n.s ! CFNeut Indef} ;

8
src/bulgarian/SentenceBul.gf
View File

@@ -25,8 +25,10 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
VPhrasal Dat => personalClitics agr ! Dat++vp.clitics;
VPhrasal c => vp.clitics++personalClitics agr ! c
}
in case p of {Pos => vp.ad.s ++ verb Perf ++ clitic ;
Neg => "íå" ++ vp.ad.s ++ clitic ++ verb Imperf} ++ compl ;
in case orPol p vp.p of {
Pos => vp.ad.s ++ verb Perf ++ clitic ;
Neg => "íå" ++ vp.ad.s ++ clitic ++ verb Imperf
} ++ compl ;
} ;
SlashVP np slash = {
@@ -55,7 +57,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
EmbedS s = {s = \\_ => "֌" ++ s.s} ;
EmbedQS qs = {s = \\_ => qs.s ! QIndir} ;
EmbedVP vp = {s = \\agr => daComplex Simul Pos vp ! Perf ! agr} ;
EmbedVP vp = {s = \\agr => daComplex Simul vp.p vp ! Perf ! agr} ;
UseCl t p cl = {
s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! Main