From 40d9c5bfdffcb92643e21fd07362322041a0b1d3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 7 Dec 2012 13:35:03 +0000
Subject: [PATCH] Exist with Adv in Swe

---
 lib/src/swedish/IdiomSwe.gf | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lib/src/swedish/IdiomSwe.gf b/lib/src/swedish/IdiomSwe.gf
index 70796feb3..48111389d 100644
--- a/lib/src/swedish/IdiomSwe.gf
+++ b/lib/src/swedish/IdiomSwe.gf
@@ -33,6 +33,22 @@ concrete IdiomSwe of Idiom = CatSwe **
               }
       } ;
 
+    ExistNPAdv np adv = 
+      mkClause "det" (agrP3 neutr Sg) (insertObj 
+        (\\_ => np.s ! accusative ++ adv.s) (predV (depV finna_V))) ;
+
+    ExistIPAdv ip adv = {
+      s = \\t,a,p => 
+            let 
+              cls = 
+               (mkClause "det" (agrP3 neutr Sg) (insertAdv adv.s (predV (depV finna_V)))).s ! t ! a ! p ;
+              who = ip.s ! accusative
+            in table {
+              QDir   => who ++ cls ! Inv ;
+              QIndir => who ++ cls ! Sub
+              }
+      } ;
+
     ProgrVP vp = 
       insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;