From d118a2aa0f1e0f08a509e2ac15648eb645a25fb3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 23 Sep 2012 09:35:04 +0000
Subject: [PATCH] VPSlashPrep in Fin and Romance; the word order in VPSlash not
 yet fixed.

---
 src/finnish/IdiomFin.gf    | 2 +-
 src/finnish/VerbFin.gf     | 1 +
 src/romance/VerbRomance.gf | 3 +++
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/finnish/IdiomFin.gf b/src/finnish/IdiomFin.gf
index f858d80f..9e4ebcf1 100644
--- a/src/finnish/IdiomFin.gf
+++ b/src/finnish/IdiomFin.gf
@@ -18,7 +18,7 @@ concrete IdiomFin of Idiom = CatFin **
       let
         cas : NPForm = NPCase Nom ; ---- also partitive in Extra
         vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ; 
-        cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp
+        cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 ip.n) vp
       in {
         s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
         } ;
diff --git a/src/finnish/VerbFin.gf b/src/finnish/VerbFin.gf
index 9353a03d..637b41df 100644
--- a/src/finnish/VerbFin.gf
+++ b/src/finnish/VerbFin.gf
@@ -114,6 +114,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
     CompNP np = {s = \\_ => np.s ! NPCase Nom} ;
     CompAdv a = {s = \\_ => a.s} ;
 
+    VPSlashPrep vp prep = vp ** {c2 = prep} ;
 }
 
 
diff --git a/src/romance/VerbRomance.gf b/src/romance/VerbRomance.gf
index 40e34e38..2d45e2a5 100644
--- a/src/romance/VerbRomance.gf
+++ b/src/romance/VerbRomance.gf
@@ -87,6 +87,9 @@ incomplete concrete VerbRomance of Verb =
     PassV2 v = insertComplement 
       (\\a => let agr = complAgr a in v.s ! VPart agr.g agr.n) (predV auxPassive) ;
 
+    VPSlashPrep vp prep = vp ** {
+      c2 = {s = prep.s ; c = prep.c ; isDir = False}
+      } ;
 }
 
 {---b