examples/phrasebook/PhrasebookIta.gf


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

--# -path=.:present

concrete PhrasebookIta of Phrasebook = 
  GreetingsIta,
  WordsIta
  ** open 
    (R = Roles),
    SyntaxIta,
    ParadigmsIta,
    Prelude in {

lin
  PGreeting p g = mkText (lin Text (ss (g.s ! p.p ! R.Male ! R.Male))) (lin Text (ss p.s)) ;

}