From 691620346ccdae242ce8b203fc04d3ffeeea6247 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Fri, 26 Mar 2010 22:07:17 +0000
Subject: change Food to Words in Phrasebook, since it's unpractical to have
 many small modules; added syntactic forms and words

---
 examples/phrasebook/WordsFin.gf | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 examples/phrasebook/WordsFin.gf

(limited to 'examples/phrasebook/WordsFin.gf')

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) ;
+}
-- 
cgit v1.2.3