made preposition stranding default in LangEng (and SyntaxEng) questions and relatives, and that_RP in relatives; these are more natural in modern language and more often right; piped piping and which can be accessed via ExtraEng

This commit is contained in:
aarne
2016-06-05 10:59:27 +00:00
parent f216cfe923
commit 81de9fd892
4 changed files with 39 additions and 13 deletions

View File

@@ -22,13 +22,13 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
c = npNom
} ;
-- Pied piping: "at which we are looking". Stranding and empty
-- relative are defined in $ExtraEng.gf$ ("that we are looking at",
-- Pied piping: "that we are looking at". Pied piping and empty
-- relative are defined in $ExtraEng.gf$ ("at which we are looking",
-- "we are looking at").
RelSlash rp slash = {
s = \\t,a,p,agr =>
slash.c2 ++ rp.s ! RPrep (fromAgr agr).g ++ slash.s ! t ! a ! p ! oDir ;
s = \\t,a,p,ag =>
rp.s ! RC (fromAgr ag).g NPAcc ++ slash.s ! t ! a ! p ! oDir ++ slash.c2 ;
c = NPAcc
} ;
@@ -37,14 +37,17 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
a = RAg np.a
} ;
IdRP =
-- relative pronoun "that" used by default, because it is always correct, even in absence of gender/animateness information
IdRP =
{ s = table {
RC _ (NCase Gen) | RC _ NPNomPoss => "whose" ;
RC Neutr _ => "which" ;
RC _ NPAcc => "whom" ;
RC _ (NCase Nom) => "who" ;
RC Neutr _ => "that" ;
RC _ NPAcc => "that" ;
RC _ (NCase Nom) => "that" ;
RPrep Neutr => "which" ;
RPrep _ => "whom"
RPrep _ => "who"
} ;
a = RNoAg
} ;