examples/phrasebook/PhrasebookEng.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

--# -path=.:present

concrete PhrasebookEng of Phrasebook = 
  GreetingsEng,
  FoodEng ** open 
    (R = Roles),
    SyntaxEng,
    ResEng, ---- for Num to Utt 
    Prelude in {

lincat 
  Phrase = Utt ;

lin
  PNumeral n = 
    mkPhrase ((SyntaxEng.mkCard <n : Numeral>).s ! Nom) ; ----
  PSentence s = s ;

  PGreeting g = mkPhrase g.s ;
----  PGreeting p s h g = mkPhrase (g.s ++ p.s ++ s.s ++ h.s) ;

  Male = {s = [] ; g = R.Male} ;
  Female = {s = [] ; g = R.Female} ;
  Polite = {s = [] ; p = R.Polite} ;
  Familiar = {s = [] ; p = R.Familiar} ;

oper 
  mkPhrase : Str -> Utt = \s -> lin Utt (ss s) ;

}