From c3c1334bc3d5db0fa1b40d4e0b0191244e4ac245 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sat, 6 Dec 2014 11:35:33 +0000
Subject: [PATCH] alternative placement of adverb in TranslateEng.AdvVP: before
 object. Should increase coverage. After object still the first variant.

---
 lib/src/translator/TranslateEng.gf | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/src/translator/TranslateEng.gf b/lib/src/translator/TranslateEng.gf
index 0122ff126..c665f30c9 100644
--- a/lib/src/translator/TranslateEng.gf
+++ b/lib/src/translator/TranslateEng.gf
@@ -18,6 +18,7 @@ concrete TranslateEng of Translate =
   VerbEng - [
     UseCopula,                    -- just removed: not needed
     PassV2,                       -- generalized in Extensions
+    AdvVP,                        -- more liberal placement of adv
     ComplVS, SlashV2S, ComplSlash -- Eng exceptions
     ],
   AdverbEng,
@@ -65,6 +66,8 @@ lin
   SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ;
   ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ;
 
+  AdvVP vp adv = G.AdvVP vp adv | insertObjPre (\\_ => adv.s) vp ; -- I bought a car today | I bought today a car
+
   PPos = {s = [] ; p = CPos} ;
   PNeg = {s = [] ; p = CNeg True} | {s = [] ; p = CNeg False} ;