mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 01:52:50 -06:00
the proper place of verb particle in Eng passives
This commit is contained in:
@@ -156,12 +156,12 @@ lin
|
|||||||
ppt = vps.ptp
|
ppt = vps.ptp
|
||||||
in {
|
in {
|
||||||
s = be.s ;
|
s = be.s ;
|
||||||
p = vps.p ;
|
p = [] ;
|
||||||
prp = be.prp ;
|
prp = be.prp ;
|
||||||
ptp = be.ptp ;
|
ptp = be.ptp ;
|
||||||
inf = be.inf ;
|
inf = be.inf ;
|
||||||
ad = vps.ad ;
|
ad = vps.ad ;
|
||||||
s2 = \\a => ppt ++ vps.s2 ! a ---- order
|
s2 = \\a => ppt ++ vps.p ++ vps.s2 ! a ---- order
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
--- AR 7/3/2013
|
--- AR 7/3/2013
|
||||||
|
|||||||
@@ -44,7 +44,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng, Prelude in {
|
|||||||
|
|
||||||
ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
|
ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
|
||||||
|
|
||||||
PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;
|
PassV2 v = insertObj (\\_ => v.s ! VPPart ++ v.p) (predAux auxBe) ;
|
||||||
|
|
||||||
---b UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no "to"
|
---b UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no "to"
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user