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 PhrasebookFin of Phrasebook =
GreetingsFin,
FoodFin ** open
WordsFin ** open
SyntaxFin,
ResFin, ---- for Num to Utt
Prelude in {
lincat
Phrase = Utt ;
Phrase = Text ;
lin
PNumeral n =
mkPhrase (ss ((SyntaxFin.mkCard <n : Numeral>).s ! Sg ! Nom)) ; ----
PGreeting g = mkPhrase g ;
PSentence s = s ;
PSentence s = mkText s ;
PQuestion s = mkText s ;
oper