From 8c3449fe0e76f6479aadc66efeeb578ad317e295 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 27 Oct 2011 08:06:51 +0000 Subject: [PATCH] proper placement of clitics in Romance infinitives --- lib/src/romance/ResRomance.gf | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lib/src/romance/ResRomance.gf b/lib/src/romance/ResRomance.gf index a5452df8f..d6b917753 100644 --- a/lib/src/romance/ResRomance.gf +++ b/lib/src/romance/ResRomance.gf @@ -250,15 +250,16 @@ oper infVP : VP -> Agr -> Str = \vp,agr -> let -----e clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ; -----e iform = infForm agr.n agr.p vp.clAcc vp.clDat ; - clpr = ; ----e - iform = False ; ----e - inf = vp.s.s ! VInfin False ; ---- ! (aagr agr.g agr.n) ; - neg = vp.neg ! Pos ; --- Neg not in API - obj = neg.p2 ++ clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol + iform = False ; ---- meaning: no clitics + inf = vp.s.s ! VInfin iform ; + neg = vp.neg ! Pos ; --- Neg not in API + obj = neg.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ; ---- pol + refl = case vp.s.vtyp of { + VRefl => reflPron agr.n agr.p Acc ; ---- case ? + _ => [] + } ; in - clitInf clpr.p3 (clpr.p1 ++ vp.clit3) inf ++ obj ; + neg.p1 ++ clitInf iform (refl ++ vp.clit1 ++ vp.clit2 ++ vp.clit3) inf ++ obj ; }