blob: 17212ae6f8ff409368341f2e103eb18fbf517140 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--# -path=.:present
concrete PhrasebookDisambEng of Phrasebook =
PhrasebookEng - [PGreeting, Polite, Familiar, Male, Female] ** open
(R = Roles),
Prelude in {
lin
PGreeting p s h g = mkPhrase
(g.s ++ p.s ++ "(by" ++ s.s ++ ")" ++ "(to" ++ h.s ++ ")") ;
Male = {s = "a man" ; g = R.Male} ;
Female = {s = "a woman" ; g = R.Female} ;
Polite = {s = "(polite)" ; p = R.Polite} ;
Familiar = {s = "(familiar)" ; p = R.Familiar} ;
--oper
-- mkPhrase : Str -> Utt = \s -> lin Utt (ss s) ;
}
|
