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

spacing in Romance reflexives with infinitives

Browse Source
This commit is contained in:
aarne
2013-02-21 16:02:40 +00:00
parent f92e245c0a
commit ed3867789d
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/italian/DiffIta.gf
View File

@@ -119,9 +119,10 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
} ;
clpr = <vp.clit1 ++ vp.clit2,[],vp.clit3.hasClit> ;
iform = orB clpr.p3 refl.p2 ;
verb = case <n,pol,pe> of {
<Sg, RNeg True, P2> => vp.s.s ! VInfin clpr.p3 ; ---- ! aag ;
<Sg, RNeg False, P2> => vp.s.s ! VInfin clpr.p3 ; ---- ! aag ;
<Sg, RNeg True, P2> => vp.s.s ! VInfin iform ; ---- ! aag ;
<Sg, RNeg False, P2> => vp.s.s ! VInfin iform ; ---- ! aag ;
_ => vp.s.s ! vImper n pe
} ;
neg = vp.neg ! pol ;

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

@@ -85,7 +85,7 @@ oper
neg = negation ;
clit1 = [] ;
clit2 = [] ;
clit3 = {s,imp = [] ; hasClit = False} ;
clit3 = {s,imp = [] ; hasClit = False} ; --- refl is treated elsewhere
isNeg = False ;
comp = \\a => [] ;
ext = \\p => []
@@ -273,7 +273,7 @@ oper
infVP : VP -> Agr -> Str = \vp,agr ->
let
iform = vp.clit3.hasClit ;
iform = orB vp.clit3.hasClit (isVRefl vp.s.vtyp) ;
inf = vp.s.s ! VInfin iform ;
neg = vp.neg ! RPos ; --- Neg not in API
obj = neg.p2 ++ vp.comp ! agr ++ vp.ext ! RPos ; ---- pol