From 4a17d46d8b1a25030ec4f32b5cac041dfb39f830 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 22 Feb 2018 09:08:49 +0100
Subject: [PATCH] added est-ce que IAdv questions to Fre

---
 src/french/ExtraFre.gf    | 8 ++++++++
 src/french/ExtraFreAbs.gf | 1 +
 2 files changed, 9 insertions(+)

diff --git a/src/french/ExtraFre.gf b/src/french/ExtraFre.gf
index 8cf08fcb7..73f76d6d0 100644
--- a/src/french/ExtraFre.gf
+++ b/src/french/ExtraFre.gf
@@ -95,6 +95,14 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
               QIndir => subjIf ++ cls ! Indic
               }
       } ;
+    EstcequeQuestIAdvCl iadv cl = 
+    {s = \\t,a,p =>                             -- est-ce qu'il dort ?
+            let cls = cl.s ! DDir ! t ! a ! p 
+            in table {
+              QDir   => iadv.s ++ "est-ce" ++ elisQue ++ cls ! Indic ;
+              QIndir => iadv.s ++ cls ! Indic
+              }
+      } ;
     InvQuestCl cl = {s = \\t,a,p =>                             -- dort-il ?
             let cls = cl.s ! DInv ! t ! a ! p 
             in table {
diff --git a/src/french/ExtraFreAbs.gf b/src/french/ExtraFreAbs.gf
index 00b1d847e..08de4e1bd 100644
--- a/src/french/ExtraFreAbs.gf
+++ b/src/french/ExtraFreAbs.gf
@@ -55,6 +55,7 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
 -- alternative forms of questions
 
     EstcequeQuestCl : Cl -> QCl ; -- est-ce qu'il dort
+    EstcequeQuestIAdvCl : IAdv -> Cl -> QCl ; -- où est-ce qu'il dort
     InvQuestCl : Cl -> QCl ;      -- dort-il
     InvQuestIAdvCl : IAdv -> Cl -> QCl ;      -- dort-il