ExistIP in bulgarian-1.4

This commit is contained in:
krasimir
2008-06-15 09:00:58 +00:00
parent dba7689977
commit 6d3331a1c6

View File

@@ -49,11 +49,11 @@ concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in {
Quest => v.aux1 ++ v.main ++ "ëè" ++ v.aux2 ++ np.s ! RObj Acc Quest => v.aux1 ++ v.main ++ "ëè" ++ v.aux2 ++ np.s ! RObj Acc
} }
} ; } ;
{-
ExistIP ip = ExistIP ip =
mkQuestion (ss (ip.s ! Nom)) mkQuestion {s1=ip.s ! RSubj; s2=ip.s ! RSubj}
(mkClause "there" (agrP3 ip.n) (predAux auxBe)) ; (mkClause "òóê" (agrP3 ip.gn) (predV verbBe)) ;
-}
ProgrVP vp = { ProgrVP vp = {
s = \\_ => vp.s ! Imperf ; s = \\_ => vp.s ! Imperf ;
ad = vp.ad ; ad = vp.ad ;