mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 21:19:31 -06:00
45 lines
939 B
Plaintext
45 lines
939 B
Plaintext
--# -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 = "imparfait" ++ 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 ;
|
|
|
|
}
|