diff options
| author | aarne <aarne@chalmers.se> | 2010-03-26 22:07:17 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-26 22:07:17 +0000 |
| commit | 691620346ccdae242ce8b203fc04d3ffeeea6247 (patch) | |
| tree | c480f98b2615bf16236d0a89e052f0dd0c59712a /examples/phrasebook/PhrasebookEng.gf | |
| parent | c24440d1346a01d660f83359d8ef72a2ef1b0c13 (diff) | |
change Food to Words in Phrasebook, since it's unpractical to have many small modules; added syntactic forms and words
Diffstat (limited to 'examples/phrasebook/PhrasebookEng.gf')
| -rw-r--r-- | examples/phrasebook/PhrasebookEng.gf | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/phrasebook/PhrasebookEng.gf b/examples/phrasebook/PhrasebookEng.gf index 4d4b26781..5aa946bf0 100644 --- a/examples/phrasebook/PhrasebookEng.gf +++ b/examples/phrasebook/PhrasebookEng.gf @@ -2,19 +2,20 @@ concrete PhrasebookEng of Phrasebook = GreetingsEng, - FoodEng ** open + WordsEng ** open (R = Roles), SyntaxEng, ResEng, ---- for Num to Utt Prelude in { lincat - Phrase = Utt ; + Phrase = Text ; lin PNumeral n = mkPhrase ((SyntaxEng.mkCard <n : Numeral>).s ! Nom) ; ---- - PSentence s = s ; + PSentence s = mkText s ; + PQuestion s = mkText s ; PGreeting g = mkPhrase g.s ; ---- PGreeting p s h g = mkPhrase (g.s ++ p.s ++ s.s ++ h.s) ; |