From 2320410d30931e4a5f4ed5bf5a5ac4e77290cb75 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 5 Jun 2016 11:16:54 +0000
Subject: [PATCH] reflected preposition stranding default in TranslateSwe by
 adding pied piping as second variant

---
 lib/src/translator/TranslateEng.gf |  4 ++--
 lib/src/translator/TranslateSwe.gf | 11 +++++++++--
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/lib/src/translator/TranslateEng.gf b/lib/src/translator/TranslateEng.gf
index d3151bb70..184288404 100644
--- a/lib/src/translator/TranslateEng.gf
+++ b/lib/src/translator/TranslateEng.gf
@@ -31,11 +31,11 @@ concrete TranslateEng of Translate =
   QuestionEng - [
     QuestVP   -- replaced by QuestVP | contracted QuestVP
     ,QuestIComp
-    ,QuestSlash -- replaced by QuestSlash | StrandQuestSlash
+    ,QuestSlash -- replaced by QuestSlash | PiedPipingQuestSlash
     ],       
   RelativeEng - [
      IdRP      -- with variants that/who/which/-
-    ,RelSlash  -- replaced by RelSlash | StrandRelSlash
+    ,RelSlash  -- replaced by RelSlash | PiedPipingRelSlash
     ],
   IdiomEng,
   ConstructionEng,
diff --git a/lib/src/translator/TranslateSwe.gf b/lib/src/translator/TranslateSwe.gf
index 9e55a50fc..6062e4027 100644
--- a/lib/src/translator/TranslateSwe.gf
+++ b/lib/src/translator/TranslateSwe.gf
@@ -16,8 +16,12 @@ concrete TranslateSwe of Translate =
   AdverbSwe,
   PhraseSwe,
   SentenceSwe,
-  QuestionSwe,
-  RelativeSwe,
+  QuestionSwe - [
+    QuestSlash -- replaced by QuestSlash | PiedPipingQuestSlash
+    ], 
+  RelativeSwe - [
+    RelSlash  -- replaced by RelSlash | PiedPipingRelSlash
+    ],
   IdiomSwe,
   ConstructionSwe,
   DocumentationSwe,
@@ -45,5 +49,8 @@ lin
    | {s = \\n,d,c => np.s ! NPPoss (gennum (ngen2gen cn.g) n) Nom ++ cn.s ! n ! DDef Indef ! c ; g = cn.g ; isMod = True} ---- overgenerating
    ;
 
+  RelSlash rp cls = G.RelSlash rp cls | E.PiedPipingRelSlash rp cls ;
+
+  QuestSlash ip cls = G.QuestSlash ip cls | E.PiedPipingQuestSlash ip cls ;
 
 }