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

src/english/ExtraEng.gf

@@ -13,6 +13,11 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
       a = RAg (agrP3 nu.n)
       } ;
 
+    PiedPipingRelSlash rp slash = {
+      s = \\t,a,p,agr => 
+          slash.c2 ++ rp.s ! RPrep (fromAgr agr).g ++ slash.s ! t ! a ! p ! oDir ;
+      c = NPAcc
+      } ;
     StrandRelSlash rp slash = {
       s = \\t,a,p,ag => 
         rp.s ! RC (fromAgr ag).g NPAcc ++ slash.s ! t ! a ! p ! oDir ++ slash.c2 ;
@@ -23,6 +28,9 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
       c = NPAcc
       } ;
 
+    PiedPipingQuestSlash ip slash = 
+      mkQuestion (ss (slash.c2 ++ ip.s ! NPAcc)) slash ;
+
     StrandQuestSlash ip slash = 
       {s = \\t,a,b,q => 
          (mkQuestion (ss (ip.s ! NPAcc)) slash).s ! t ! a ! b ! q ++ slash.c2
@@ -285,6 +293,18 @@ lin
       a = RNoAg
       } ;
 
+  which_who_RP =
+     { s = table {
+        RC _ (NCase Gen) | RC _ NPNomPoss => "whose" ; 
+        RC Neutr _  => "which" ;
+        RC _ NPAcc    => "whom" ;
+        RC _ (NCase Nom)    => "who" ;
+        RPrep Neutr => "which" ;
+        RPrep _     => "whom"
+        } ;
+      a = RNoAg
+      } ;
+      
   who_RP =
      { s = table {
         RC _ (NCase Gen) | RC _ NPNomPoss => "whose" ;