From 4d34018abb84832af1de4fee7ff77a02ba211bad Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 13 Nov 2012 09:48:26 +0000
Subject: [PATCH] added UseCopula to Fin,Ger,romance since needed in YAQL

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

diff --git a/lib/src/finnish/VerbFin.gf b/lib/src/finnish/VerbFin.gf
index 637b41dff..56680539f 100644
--- a/lib/src/finnish/VerbFin.gf
+++ b/lib/src/finnish/VerbFin.gf
@@ -55,6 +55,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
     UseComp comp = 
       insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = True})) ;
 
+    UseCopula = predV (verbOlla ** {sc = NPCase Nom ; qp = True}) ;
+
     SlashVV v vp = 
       insertObj 
         (\\_,b,a => infVP v.sc b a vp v.vi) 
diff --git a/lib/src/german/VerbGer.gf b/lib/src/german/VerbGer.gf
index 1e5ac05ed..25fa15162 100644
--- a/lib/src/german/VerbGer.gf
+++ b/lib/src/german/VerbGer.gf
@@ -66,6 +66,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
 
     UseComp comp = insertObj comp.s (predV sein_V) ; -- agr not used
     -- we want to say "ich liebe sie nicht" but not "ich bin alt nicht"
+    UseCopula = predV sein_V ;
 
     CompAP ap = {s = \\_ => ap.s ! APred} ;
     CompNP np = {s = \\_ => np.s ! NPC Nom} ;
diff --git a/lib/src/romance/VerbRomance.gf b/lib/src/romance/VerbRomance.gf
index 2d45e2a5a..f46241fa3 100644
--- a/lib/src/romance/VerbRomance.gf
+++ b/lib/src/romance/VerbRomance.gf
@@ -73,6 +73,8 @@ incomplete concrete VerbRomance of Verb =
 
     UseComp comp = insertComplement comp.s (predV copula) ;
 
+    UseCopula = predV copula ;
+
     CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n} ;
     CompCN cn = { s = \\ag => 
       let agr = complAgr ag in