examples/dialogue/AgendaSwe.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

--# -path=.:present:prelude

concrete AgendaSwe of Agenda = 
  DialogueSwe, WeekdaySwe ** open LangSwe, ParadigmsSwe, IrregSwe in {

  lin
    Day       = UseN (regN "dag") ;
    Meeting   = UseN (regGenN "möte" neutrum) ;
    Add       = dirV3 (partV lägga_V "till") (mkPreposition "på") ;
    Remove    = dirV2 (partV taga_V "bort") ;
    Interrupt = avbryta_V ;
   
    day = UsePN ;

}