passe simple in ExtraRomance

This commit is contained in:
aarne
2006-06-18 19:08:47 +00:00
parent 865d84508f
commit 7dec4c8a89
14 changed files with 41 additions and 19 deletions

View File

@@ -1,4 +1,4 @@
--# -path=.:../romance:../abstract:../common:prelude
concrete CatSpa of Cat = CommonX ** CatRomance with
concrete CatSpa of Cat = CommonX - [Tense,TPres,TPast,TFut,TCond] ** CatRomance with
(ResRomance = ResSpa) ;

View File

@@ -11,7 +11,7 @@ concrete GrammarSpa of Grammar =
RelativeSpa,
ConjunctionSpa,
PhraseSpa,
TextSpa, -- special punctuation
TextSpa - [Tense,TPres,TPast,TFut,TCond], -- special punctuation
IdiomSpa,
StructuralSpa

View File

@@ -37,7 +37,7 @@ concrete IdiomSpa of Idiom = CatSpa **
(predV (verboV (estar_2 "estar"))) ;
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
} ;
}