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

@@ -0,0 +1,32 @@
-- (c) 2009 Aarne Ranta under LGPL
concrete WordsFin of Words = SentencesFin **
open SyntaxFin, ParadigmsFin in {
lin
Wine = mkCN (mkN "viini") ;
Pizza = mkCN (mkN "pizza") ;
Cheese = mkCN (mkN "juusto") ;
Fish = mkCN (mkN "kala") ;
Fresh = mkAP (mkA "tuore") ;
Warm = mkAP (mkA
(mkN "lämmin" "lämpimän" "lämmintä" "lämpimänä" "lämpimään"
"lämpiminä" "lämpimiä" "lämpimien" "lämpimissä" "lämpimiin"
)
"lämpimämpi" "lämpimin") ;
Italian = mkAP (mkA "italialainen") ;
Expensive = mkAP (mkA "kallis") ;
Delicious = mkAP (mkA "herkullinen") ;
Boring = mkAP (mkA "tylsä") ;
Restaurant = mkCN (mkN "ravintola") ;
Bar = mkCN (mkN "baari") ;
Toilet = mkCN (mkN "vessa") ;
Euro = mkCN (mkN "euro") ;
Dollar = mkCN (mkN "dollari") ;
Lei = mkCN (mkN "lei") ;
-- oper ---- optimization lasts forever
-- mkCNN : Str -> CN = \s -> mkCN (mkN s) ;
-- mkAPA : Str -> AP = \s -> mkAP (mkA s) ;
}