(Som) Correct form for RS when it modifies a NP in nominative case

This commit is contained in:
Inari Listenmaa
2019-08-14 16:24:52 +02:00
parent 783224c1ab
commit 8f650f9da3

View File

@@ -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