started Phrasebook with Finnish and Romanian

This commit is contained in:
aarne
2010-03-20 21:21:50 +00:00
parent 57b8e42601
commit 49a016fd01
13 changed files with 281 additions and 0 deletions

View File

@@ -0,0 +1,22 @@
--# -path=.:present
concrete PhrasebookRon of Phrasebook =
GreetingsRon,
FoodRon
** open
SyntaxRon,
ResRon, ---- for Num to Utt
Prelude in {
lincat
Phrase = Utt ;
lin
PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).sp ! Masc)) ; ----
PGreeting g = mkPhrase g ;
PSentence s = s ;
oper
mkPhrase : SS -> Utt = \s -> lin Utt s ;
}