1
0
forked from GitHub/gf-rgl

adding tense to french

This commit is contained in:
aarne
2004-11-17 21:26:26 +00:00
parent 0b5c86b526
commit 4319ca0442
4 changed files with 62 additions and 23 deletions

View File

@@ -155,10 +155,18 @@ oper
param
VF =
VFin Mode Number Person
VInfin
| VFin TMode Number Person
| VImper NumPersI
| VPart Gender Number
| VInfin
;
TMode =
VPres Mode
| VImperf Mode
| VPasse
| VFut
| VCondit
;
NumPersI = SgP2 | PlP1 | PlP2 ;
@@ -171,6 +179,7 @@ oper
_ => singular ---
} ;
presInd = VPres Ind ;
-- The imperative forms depend on number and person.
vImper : Number -> Person -> VF = \n,p -> case <n,p> of {
@@ -182,7 +191,10 @@ oper
Verbum : Type ;
VerbPres : Type = {s : VF => Str} ;
Verb : Type = {s : VF => Str ; aux : VAux} ;
verbPres : Verbum -> VAux -> Verb ;
param VAux = AEsse | AHabere ;
verbPres : Verbum -> VerbPres ;
}