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).

src/romance/DiffRomance.gf

@@ -59,6 +59,9 @@ interface DiffRomance = open CommonRomance, Prelude in {
   oper serCopula : CopulaType ;
   oper estarCopula : CopulaType ;
 
+-- To decide if adverbial questions are inverted
+
+  oper iAdvQuestionInv : Direct = DInv ; -- except Fre
 
 --2 Constants that must derivatively depend on language
 

src/romance/QuestionRomance.gf

@@ -38,8 +38,8 @@ incomplete concrete QuestionRomance of Question =
       s = \\t,a,p,q => 
             let 
               ord = case q of {
-                QDir   => DInv ;
+                QDir   => iAdvQuestionInv ;
-                QIndir => DInv 
+                QIndir => iAdvQuestionInv 
               } ;
               cls = cl.s ! ord ! t ! a ! p ! Indic ;
               why = iadv.s

src/scandinavian/PhraseScand.gf

@@ -12,7 +12,7 @@ incomplete concrete PhraseScand of Phrase =
 
     UttIP ip = {s = ip.s ! nominative} ; --- Acc also
     UttIAdv iadv = iadv ;
-    UttNP np = {s = np.s ! accusative} ;
+    UttNP np = {s = np.s ! nominative} ;
     UttVP vp = {s = infMark ++ infVP vp (agrP3 Utr Sg)} ;
     UttAdv adv = adv ;
     UttCN n = {s = n.s ! Sg ! DIndef ! Nom} ;