From 5a62a3739fe27b7aef491caaf9cfbde588e1bfaf Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Wed, 11 Dec 2013 17:05:21 +0000 Subject: [PATCH] fix ExistNP in Bulgarian with double negation --- lib/src/bulgarian/IdiomBul.gf | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lib/src/bulgarian/IdiomBul.gf b/lib/src/bulgarian/IdiomBul.gf index f66f46785..bc0e0747d 100644 --- a/lib/src/bulgarian/IdiomBul.gf +++ b/lib/src/bulgarian/IdiomBul.gf @@ -17,22 +17,22 @@ concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in { ExistNP np = { s = \\t,a,p,o => - let verb = case p of { + let verb = case orPol p np.p of { Pos => mkV186 "имам" ; Neg => mkV186 "нямам" } ; - agr=agrP3 (GSg Neut); + agr=agrP3 (GSg Neut); - present = verb ! (VPres (numGenNum agr.gn) agr.p) ; - aorist = verb ! (VAorist (numGenNum agr.gn) agr.p) ; - perfect = verb ! (VPerfect (aform agr.gn Indef (RObj Acc))) ; + present = verb ! (VPres (numGenNum agr.gn) agr.p) ; + aorist = verb ! (VAorist (numGenNum agr.gn) agr.p) ; + perfect = verb ! (VPerfect (aform agr.gn Indef (RObj Acc))) ; - auxPres = auxBe ! VPres (numGenNum agr.gn) agr.p ; - auxAorist = auxBe ! VAorist (numGenNum agr.gn) agr.p ; - auxCondS = auxWould ! VAorist (numGenNum agr.gn) agr.p ; + auxPres = auxBe ! VPres (numGenNum agr.gn) agr.p ; + auxAorist = auxBe ! VAorist (numGenNum agr.gn) agr.p ; + auxCondS = auxWould ! VAorist (numGenNum agr.gn) agr.p ; - v : {aux1:Str; aux2:Str; main:Str} + v : {aux1:Str; aux2:Str; main:Str} = case of { => {aux1=[]; aux2=[]; main=present} ; --# notpresent