GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

corrected the position of agent in Romance passives

Browse Source
This commit is contained in:
aarne
2014-04-11 18:55:24 +00:00
parent 8159966dc5
commit faad066354
1 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/romance/ExtraRomance.gf
View File

@@ -81,19 +81,13 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ; vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
oper oper
passVPSlash : VPSlash -> Str -> ResRomance.VP = \vps, ag -> passVPSlash : VPSlash -> Str -> ResRomance.VP = \vps, agent ->
let auxvp = predV auxPassive let auxvp = predV auxPassive
in in
insertComplement (\\a => let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) { vps ** {
s = auxvp.s ; s = auxvp.s ;
agr = auxvp.agr ; agr = auxvp.agr ;
neg = vps.neg ; comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
clit1 = vps.clit1 ;
clit2 = vps.clit2 ;
clit3 = vps.clit3 ;
isNeg = vps.isNeg ;
comp = \\a => vps.comp ! a ++ ag ;
ext = vps.ext
} ; } ;
} }