mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(Som) Correct form for RS when it modifies a NP in nominative case
This commit is contained in:
@@ -8,17 +8,19 @@ lin
|
|||||||
|
|
||||||
-- : RP -> VP -> RCl ;
|
-- : RP -> VP -> RCl ;
|
||||||
{- NB. this works because vfSubord only puts different forms from vfStatement
|
{- NB. this works because vfSubord only puts different forms from vfStatement
|
||||||
in Pres,Simul,Pos. RelVP needs a third set of forms: "Reduced present
|
in Pres,Simul,Pos. RelVP needs a third set of forms in Abs,Pres,Simul,Pos,
|
||||||
general" (Sayeed p. 95-96 + ch 8).
|
called "reduced present general" (Sayeed p. 95-96 + ch 8).
|
||||||
These forms are found in VRel in VP, and aren't chosen by predVP, so we put
|
These forms are found in VRel in VP, and aren't chosen by predVP, so we put
|
||||||
them in manually in RelVP.
|
them in manually in RelVP.
|
||||||
-}
|
-}
|
||||||
RelVP rp vp = {s = \\g,c,t,a,p =>
|
RelVP rp vp = {s = \\g,c,t,a,p =>
|
||||||
let cls = predVPSlash impersNP vp ;
|
let cls = predVPSlash impersNP vp ;
|
||||||
rcl = mergeRCl (cls.s ! True) ;
|
rclSubord = mergeRCl (cls.s ! True) ;
|
||||||
|
rclStatement = mergeRCl (cls.s ! False) ;
|
||||||
in rp.s ++ case <g,c,t,a,p> of {
|
in rp.s ++ case <g,c,t,a,p> of {
|
||||||
<g,Abs,Pres,Simul,Pos> => linVP (VRel g) vp ;
|
<g,Abs,Pres,Simul,Pos> => linVP (VRel g) vp ; -- reduced present only in absolutive
|
||||||
_ => rcl.s ! t ! a ! p }
|
<_,Nom,Pres,Simul,Pos> => rclStatement.s ! t ! a ! p ; -- the usual forms, not subordinate
|
||||||
|
_ => rclSubord.s ! t ! a ! p } -- the rest is Subord because of negation.
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
-- : RP -> ClSlash -> RCl ; -- whom John loves
|
-- : RP -> ClSlash -> RCl ; -- whom John loves
|
||||||
|
|||||||
Reference in New Issue
Block a user