From 112aea1efca2f8b6e6c6fc0b6de26f51a62aa893 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Tue, 10 Jul 2018 11:21:45 +0200 Subject: [PATCH] double negation in EmbedVP, ImpVP and UttVP --- src/bulgarian/PhraseBul.gf | 2 +- src/bulgarian/SentenceBul.gf | 8 +++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/bulgarian/PhraseBul.gf b/src/bulgarian/PhraseBul.gf index cd0722695..48bfd8f3c 100644 --- a/src/bulgarian/PhraseBul.gf +++ b/src/bulgarian/PhraseBul.gf @@ -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} ; diff --git a/src/bulgarian/SentenceBul.gf b/src/bulgarian/SentenceBul.gf index a8b4866dc..d12365fe8 100644 --- a/src/bulgarian/SentenceBul.gf +++ b/src/bulgarian/SentenceBul.gf @@ -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