blob: dc6c8c67fd7808f477ec10167660b2d6ccacf63d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
--# -path=.:alltenses
concrete FreDescr of Fre = IrregFre - [S] ** open (R = CommonRomance), Prelude in {
flags coding=utf8 ;
lincat
Display, Word, Form = Str ;
TMood, Number, Person, NumPersI, Gender, Mood = Str ;
lin
-- DAll w = w ++ ":" ++ "la conjugaison" ;
DForm w f = w ++ ":" ++ f ;
VInfin = "infinitif" ;
VFin m n p = m ++ n ++ p ;
VImper np = "impératif" ++ np ;
VPart g n = "participe passé" ++ g ++ n ;
VGer = "participe présent" ;
VPres m = m ++ "présent" ;
VImperf m = m ++ "imparfait" ;
VPasse = "passé simple" ;
VFut = "futur" ;
VCondit = "conditionnel" ;
SgP2 = "singulier 2e" ;
PlP1 = "pluriel 1ère" ;
PlP2 = "pluriel 2e" ;
Sg = "singulier" ;
Pl = "pluriel" ;
P1 = "1ère" ;
P2 = "2e" ;
P3 = "3e" ;
Masc = "masculin" ;
Fem = "féminin" ;
Indic = "indicatif" ;
Conjunct = "subjonctif" ;
WVerb v = v.s ! R.VInfin True ;
WVerb2 v = v.s ! R.VInfin True ;
}
|
