diff options
| author | aarne <aarne@chalmers.se> | 2010-03-26 22:07:17 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-26 22:07:17 +0000 |
| commit | 691620346ccdae242ce8b203fc04d3ffeeea6247 (patch) | |
| tree | c480f98b2615bf16236d0a89e052f0dd0c59712a /examples/phrasebook/WordsFin.gf | |
| parent | c24440d1346a01d660f83359d8ef72a2ef1b0c13 (diff) | |
change Food to Words in Phrasebook, since it's unpractical to have many small modules; added syntactic forms and words
Diffstat (limited to 'examples/phrasebook/WordsFin.gf')
| -rw-r--r-- | examples/phrasebook/WordsFin.gf | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf new file mode 100644 index 000000000..d26b7f797 --- /dev/null +++ b/examples/phrasebook/WordsFin.gf @@ -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) ; +} |