From b6f37abe9107b6fcab8ff0e8a1808d691a864a9a Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Wed, 9 Jun 2021 18:19:24 +0200
Subject: [PATCH] ExistNPAdv in Fre and Ita

---
 src/french/IdiomFre.gf  | 4 ++++
 src/italian/IdiomIta.gf | 8 ++++++++
 2 files changed, 12 insertions(+)

diff --git a/src/french/IdiomFre.gf b/src/french/IdiomFre.gf
index ccf88dc6..9e206396 100644
--- a/src/french/IdiomFre.gf
+++ b/src/french/IdiomFre.gf
@@ -11,6 +11,10 @@ concrete IdiomFre of Idiom = CatFre **
     ExistNP np = 
       mkClause "il" True False (agrP3 Masc Sg)
         (insertClit3 "y" (insertComplement (\\_ => (np.s ! Acc).ton) (predV avoir_V))) ;
+	
+    ExistNPAdv np adv = 
+      mkClause "il" True False (agrP3 Masc Sg)
+        (insertAdv adv.s (insertClit3 "y" (insertComplement (\\_ => (np.s ! Acc).ton) (predV avoir_V)))) ;
 
     ExistIP ip = {
       s = \\t,a,p,_ => 
diff --git a/src/italian/IdiomIta.gf b/src/italian/IdiomIta.gf
index 84b4fcdd..6ee24d57 100644
--- a/src/italian/IdiomIta.gf
+++ b/src/italian/IdiomIta.gf
@@ -23,6 +23,14 @@ concrete IdiomIta of Idiom = CatIta **
         (insertClit3 (elision "ci" "c'" "ci") 
           (insertComplement (\\_ => (np.s ! Nom).ton) 
             (predV copula))) ;
+	    
+    ExistNPAdv np adv =
+      let npa = complAgr np.a in
+      mkClause [] True False (agrP3 npa.g npa.n)
+      (insertAdv adv.s 
+        (insertClit3 (elision "ci" "c'" "ci") 
+          (insertComplement (\\_ => (np.s ! Nom).ton) 
+            (predV copula)))) ;
 
     ExistIP ip = {
       s = \\t,a,p,_ =>