forked from GitHub/gf-core
24 lines
442 B
Plaintext
24 lines
442 B
Plaintext
--# -path=.:alltenses
|
|
|
|
concrete EngDescr of Eng = IrregEng ** open (R = ResEng) in {
|
|
|
|
lincat
|
|
Display, Word, Form = Str ;
|
|
|
|
lin
|
|
DAll w = w ++ ":" ++ "all forms" ;
|
|
|
|
DForm w f = w ++ ":" ++ f ;
|
|
|
|
-- names of forms displayed
|
|
|
|
VInf = "Infinitive" ;
|
|
VPres = "Present" ;
|
|
VPast = "Past" ;
|
|
VPPart = "Past Participle" ;
|
|
VPresPart = "Present Participle" ;
|
|
|
|
WVerb v = v.s ! R.VInf ; -- the dictionary form shown in word description
|
|
|
|
}
|