msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

spacing in Romance reflexives with infinitives

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

5
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> ; clpr = <vp.clit1 ++ vp.clit2,[],vp.clit3.hasClit> ;
iform = orB clpr.p3 refl.p2 ;
verb = case <n,pol,pe> of { verb = case <n,pol,pe> of {
<Sg, RNeg True, 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 clpr.p3 ; ---- ! aag ; <Sg, RNeg False, P2> => vp.s.s ! VInfin iform ; ---- ! aag ;
_ => vp.s.s ! vImper n pe _ => vp.s.s ! vImper n pe
} ; } ;
neg = vp.neg ! pol ; neg = vp.neg ! pol ;

4
src/romance/ResRomance.gf
View File

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