mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
fixed passive voice
This commit is contained in:
@@ -175,18 +175,29 @@ lin
|
||||
} ;
|
||||
|
||||
-- : VPSlash -> VP ; -- be forced to sleep
|
||||
PassVPSlash vps = vps ** {
|
||||
PassVPSlash vps = case vps.verb.asp of {
|
||||
Perfective => vps ** {
|
||||
verb=copulaEll ;
|
||||
compl=\\p,a => vps.compl ! p ! a ++ shortPastPassPart vps.verb (agrGenNum a) ++ vps.c.s
|
||||
} ;
|
||||
Imperfective => vps ** {
|
||||
verb=(passivate vps.verb);
|
||||
}
|
||||
};
|
||||
|
||||
-- PresPartAP : VP -> AP ; -- (the man) looking at Mary
|
||||
-- use PlP2 + "ый"
|
||||
|
||||
-- : VPSlash -> VP
|
||||
PassAgentVPSlash vps np =
|
||||
vps ** {
|
||||
PassAgentVPSlash vps np = case vps.verb.asp of {
|
||||
Perfective => vps ** {
|
||||
verb=copulaEll ;
|
||||
compl=\\p,a => vps.compl ! p ! a ++ shortPastPassPart vps.verb (agrGenNum a) ++ vps.c.s ++ np.s ! Ins
|
||||
compl=\\p,a => shortPastPassPart vps.verb (agrGenNum a) ++ vps.c.s ++ vps.compl ! p ! a ++ np.s ! Ins
|
||||
} ;
|
||||
Imperfective => vps ** {
|
||||
verb=(passivate vps.verb);
|
||||
compl=\\p,a => vps.compl ! p ! a ++ np.s ! Ins
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user