change Food to Words in Phrasebook, since it's unpractical to have many small modules; added syntactic forms and words

This commit is contained in:
aarne
2010-03-26 22:07:17 +00:00
parent c42afc59eb
commit 40763b5f61
27 changed files with 554 additions and 40 deletions

View File

@@ -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) ;