passe simple in ExtraRomance

lib/resource-1.0/romance/CatRomance.gf

@@ -1,5 +1,6 @@
 incomplete concrete CatRomance of Cat = 
-  CommonX ** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
+  CommonX - [Tense,TPres,TPast,TFut,TCond] 
+  ** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
 
   flags optimize=all_subs ;
 
@@ -13,16 +14,16 @@ incomplete concrete CatRomance of Cat =
 
 -- Sentence
 
-    Cl    = {s : Tense => Anteriority => Polarity => Mood => Str} ;
+    Cl    = {s : RTense => Anteriority => Polarity => Mood => Str} ;
     Slash = {
-      s  : AAgr => Tense => Anteriority => Polarity => Mood => Str ; 
+      s  : AAgr => RTense => Anteriority => Polarity => Mood => Str ; 
       c2 : Compl
       } ;
     Imp   = {s : Polarity => AAgr => Str} ;
 
 -- Question
 
-    QCl   = {s : Tense => Anteriority => Polarity => QForm => Str} ;
+    QCl   = {s : RTense => Anteriority => Polarity => QForm => Str} ;
     IP    = {s : Case => Str ; a : AAgr} ;
     IComp = {s : AAgr => Str} ;     
     IDet  = {s : Gender => Case => Str ; n : Number} ;
@@ -30,7 +31,7 @@ incomplete concrete CatRomance of Cat =
 -- Relative
 
     RCl  = {
-      s : Agr => Tense => Anteriority => Polarity => Mood => Str ; 
+      s : Agr => RTense => Anteriority => Polarity => Mood => Str ; 
       c : Case
       } ;
     RP   = {s : Bool => AAgr => Case => Str ; a : AAgr ; hasAgr : Bool} ;
@@ -82,4 +83,13 @@ incomplete concrete CatRomance of Cat =
     N3 = Noun  ** {c2,c3 : Compl} ;
     PN = {s : Str ; g : Gender} ;
 
+-- tense augmented with passé simple
+
+    Tense = {s : Str ; t : RTense} ;
+  lin
+    TPres = {s = []} ** {t = RPres} ;
+    TPast = {s = []} ** {t = RPast} ;   --# notpresent
+    TFut  = {s = []} ** {t = RFut} ;    --# notpresent
+    TCond = {s = []} ** {t = RCond} ;   --# notpresent
+
 }

lib/resource-1.0/romance/CommonRomance.gf

@@ -105,6 +105,14 @@ param
    | VPGerund
    | VPInfinit Anteriority ;
 
+  RTense =
+     RPres 
+   | RPast   --# notpresent
+   | RPasse  --# notpresent
+   | RFut    --# notpresent
+   | RCond   --# notpresent
+   ;
+
 -- Agreement of adjectives, verb phrases, and relative pronouns.
 
 oper

lib/resource-1.0/romance/ExtraRomance.gf

@@ -3,5 +3,6 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
     CommonRomance,
     ResRomance in {
 
+    lin TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent
 
 } 

lib/resource-1.0/romance/ExtraRomanceAbs.gf

@@ -1,3 +1,5 @@
 abstract ExtraRomanceAbs = Extra ** {
 
+  fun TPasseSimple : Tense ; --# notpresent
+
 }

lib/resource-1.0/romance/ResRomance.gf

@@ -193,15 +193,16 @@ oper
     } ;
 
   mkClause : Str -> Agr -> VP -> 
-    {s : Tense => Anteriority => Polarity => Mood => Str} =
+    {s : RTense => Anteriority => Polarity => Mood => Str} =
     \subj,agr,vp -> {
       s = \\t,a,b,m => 
         let 
           tm = case t of {
-            Past => VImperf m ;   --# notpresent
-            Fut  => VFut ;  --# notpresent
-            Cond => VCondit ;  --# notpresent
-            Pres => VPres m
+            RPast  => VImperf m ;   --# notpresent
+            RFut   => VFut ;        --# notpresent
+            RCond  => VCondit ;     --# notpresent
+            RPasse => VPasse ;      --# notpresent
+            RPres  => VPres m
             } ;
           vps   = vp.s ! VPFinite tm a ;
           verb  = vps.fin ! agr ;