ExistNPAdv in Fre and Ita

Author: aarneranta

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,_ => 

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,_ =>