extra French: est-ce que questions

resource-1.0/french/ExtraFre.gf

@@ -0,0 +1,33 @@
+concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre ** 
+  open CommonRomance, PhonoFre, ParamX, ResFre in {
+
+  lin
+    EstcequeS qs          = {s = "est-ce" ++ elisQue ++ qs.s ! Indic} ;
+    EstcequeIAdvS idet qs = {s = idet.s ++ "est-ce" ++ elisQue ++ qs.s ! Indic} ;
+
+    QueestcequeIP = {
+      s = table {
+        c => prepQue c ++ "est-ce" ++ caseQue c
+        } ; 
+      a = aagr Fem Pl
+      } ;
+
+    QuiestcequeIP = {
+      s = table {
+        c => prepQue c ++ "qui" ++ "est-ce" ++ caseQue c
+        } ; 
+      a = aagr Fem Pl
+      } ;
+
+  oper
+    prepQue : Case -> Str = \c -> case c of {
+      Nom | Acc => elisQue ;
+      _   => prepCase c ++ "qui" ---
+      } ;
+    caseQue : Case -> Str = \c -> case c of {
+      Nom => "qui" ;
+      _   => elisQue
+      } ;
+
+
+}

resource-1.0/french/ExtraFreAbs.gf

@@ -0,0 +1,17 @@
+-- Structures special for French. These are not implemented in other
+-- Romance languages.
+
+abstract ExtraFreAbs = ExtraRomanceAbs ** {
+
+-- Notice: only direct (main-clause) questions are generated, and needed.
+
+  fun
+    EstcequeS     : S -> Utt ;          -- est-ce qu'il pleut
+    EstcequeIAdvS : IAdv -> S -> Utt ;  -- où est-ce qu'il pleut
+
+-- These also generate indirect (subordinate) questions.
+
+    QueestcequeIP : IP ;    -- qu'est-ce (que/qui) 
+    QuiestcequeIP : IP ;    -- qu'est-ce (que/qui) 
+
+}

resource-1.0/french/ExtraRomanceFre.gf

@@ -0,0 +1,2 @@
+concrete ExtraRomanceFre of ExtraRomanceAbs = CatFre ** ExtraRomance with
+  (ResRomance = ResFre) ;

resource-1.0/french/French.gf

@@ -0,0 +1,7 @@
+--# -path=.:../romance:../abstract:../common:prelude
+
+concrete French of FrenchAbs = 
+  LangFre,
+--  IrregFre,
+  ExtraFre 
+  ** {} ;

resource-1.0/french/FrenchAbs.gf

@@ -0,0 +1,5 @@
+abstract FrenchAbs = 
+  Lang,
+---  IrregFreAbs,
+  ExtraFreAbs
+  ** {} ;

resource-1.0/romance/ExtraRomance.gf

@@ -0,0 +1,7 @@
+incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance ** 
+  open 
+    CommonRomance,
+    ResRomance in {
+
+
+} 

resource-1.0/romance/ExtraRomanceAbs.gf

@@ -0,0 +1,3 @@
+abstract ExtraRomanceAbs = Extra ** {
+
+}