passe simple in ExtraRomance

2006-06-18 19:08:47 +00:00
parent 865d84508f
commit 7dec4c8a89
14 changed files with 41 additions and 19 deletions
--- a/lib/resource-1.0/french/CatFre.gf
+++ b/lib/resource-1.0/french/CatFre.gf
@@ -1,4 +1,4 @@
 --# -path=.:../romance:../common:../abstract:../common:prelude

-concrete CatFre of Cat = CommonX ** CatRomance with
+concrete CatFre of Cat = CommonX - [Tense,TPres,TPast,TFut,TCond] ** CatRomance with
  (ResRomance = ResFre) ;
--- a/lib/resource-1.0/french/GrammarFre.gf
+++ b/lib/resource-1.0/french/GrammarFre.gf
@@ -11,7 +11,7 @@ concrete GrammarFre of Grammar =
  RelativeFre,
  ConjunctionFre,
  PhraseFre,
-  TextX,
+  TextX - [Tense,TPres,TPast,TFut,TCond],
  IdiomFre,
  StructuralFre
  ** {
--- a/lib/resource-1.0/french/IdiomFre.gf
+++ b/lib/resource-1.0/french/IdiomFre.gf
@@ -32,7 +32,7 @@ concrete IdiomFre of Idiom = CatFre **
        (predV copula) ;

    ImpPl1 vp = {s = 
-      (mkClause [] {g = Fem ; n = Pl ; p = P1} vp).s ! P.Pres ! Simul ! Pos ! Indic 
+      (mkClause [] {g = Fem ; n = Pl ; p = P1} vp).s ! RPres ! Simul ! Pos ! Indic 
      } ;

  oper