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 PhrasebookRon of Phrasebook =
GreetingsRon,
FoodRon
WordsRon
** open
SyntaxRon,
ResRon, ---- for Num to Utt
Prelude in {
lincat
Phrase = Utt ;
Phrase = Text ;
lin
PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).sp ! Masc)) ; ----
PGreeting g = mkPhrase g ;
PSentence s = s ;
PSentence s = mkText s ;
PQuestion s = mkText s ;
oper
mkPhrase : SS -> Utt = \s -> lin Utt s ;