adjusting Fre question forms

src/french/DiffFre.gf

@@ -3,7 +3,8 @@
 instance DiffFre of DiffRomance - [
   imperClit,
   invertedClause,
-  verbHyphen
+  verbHyphen,
+  iAdvQuestionInv
   ] 
   = open CommonRomance, PhonoFre, Prelude in {
 
@@ -152,6 +153,8 @@ instance DiffFre of DiffRomance - [
       _ => c1 ++ c2
       } ;
 
+    iAdvQuestionInv : Direct = DDir ;
+
     bindHyphen : Str = BIND ++ "-" ++ BIND ;
 
     CopulaType = {} ;

src/french/ExtraFre.gf

@@ -20,6 +20,10 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
       a = aagr Fem Pl
       } ;
 
+    EstcequeCl cl = {
+      s = \\t,a,p,q => "est-ce" ++ elisQue ++ cl.s ! DDir ! t ! a ! p ! Indic
+      } ;
+
     i8fem_Pron = mkPronoun
       (elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes"
       Fem Sg P1 ;

src/french/ExtraFreAbs.gf

@@ -13,7 +13,11 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
 -- These also generate indirect (subordinate) questions.
 
     QueestcequeIP : IP ;    -- qu'est-ce (que/qui) 
-    QuiestcequeIP : IP ;    -- qu'est-ce (que/qui) 
+    QuiestcequeIP : IP ;    -- qu'est-ce (que/qui)
+
+-- This is needed for compositionality in library applications.
+
+    EstcequeCl    : Cl -> QCl ;          -- est-ce qu'il pleut
 
 -- Feminine variants of pronouns (those in $Structural$ are
 -- masculine, which is the default when gender is unknown).