added est-ce que IAdv questions to Fre

2026-06-27 03:46:29 -06:00 · 2018-02-22 09:08:49 +01:00
parent ba62b9c82a
commit 4a17d46d8b
2 changed files with 9 additions and 0 deletions
@@ -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 {