GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

proper placement of clitics in Romance infinitives

Browse Source
This commit is contained in:
aarne
2011-10-27 08:06:51 +00:00
parent e575f92e34
commit 8c3449fe0e
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/src/romance/ResRomance.gf
View File

@@ -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 = <vp.clit1,vp.clit2, False> ; ----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 ;
}