examples/morpho/EngDescr.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

--# -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

}