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/WordsFre.gf | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 examples/phrasebook/WordsFre.gf

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

diff --git a/examples/phrasebook/WordsFre.gf b/examples/phrasebook/WordsFre.gf
new file mode 100644
index 000000000..733038ce3
--- /dev/null
+++ b/examples/phrasebook/WordsFre.gf
@@ -0,0 +1,34 @@
+-- (c) 2009 Ramona Enache and Aarne Ranta under LGPL
+
+concrete WordsFre of Words = SentencesFre ** open
+  SyntaxFre,
+  ParadigmsFre in
+{
+flags coding=utf8 ;
+
+lin
+
+Wine = mkCN (mkN "vin") ;
+Cheese = mkCN (mkN "fromage" masculine) ;
+Fish = mkCN (mkN "poisson" masculine) ;
+Pizza = mkCN (mkN "pizza" feminine) ;
+
+Fresh = mkAP (mkA "frais" "fraîche") ;
+Warm = mkAPA "chaud" ;
+Italian = mkAPA "italien" ;
+Expensive = mkAPA "cher" ;
+Delicious = mkAPA "délicieux" ;
+Boring = mkAPA "ennuyeux" ;
+
+    Restaurant = mkCN (mkN "restaurant") ;
+    Bar = mkCN (mkN "bar") ;
+    Toilet = mkCN (mkN "toilette") ;
+
+    Euro = mkCN (mkN "euro") ;
+    Dollar = mkCN (mkN "dollar") ;
+    Lei = mkCN (mkN "lei") ; ---- ?
+
+oper
+mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ;
+
+}
-- 
cgit v1.2.3