From eb3d750459c5ab6fd0fa2266175e1ad4a4e3d33f Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 8 Nov 2006 15:08:09 +0000
Subject: godis tram grammars, augmented with Fin

---
 examples/godis-tram/Common/GodisUserEng.gf | 32 ++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 examples/godis-tram/Common/GodisUserEng.gf

(limited to 'examples/godis-tram/Common/GodisUserEng.gf')

diff --git a/examples/godis-tram/Common/GodisUserEng.gf b/examples/godis-tram/Common/GodisUserEng.gf
new file mode 100644
index 000000000..62e3b326c
--- /dev/null
+++ b/examples/godis-tram/Common/GodisUserEng.gf
@@ -0,0 +1,32 @@
+--# -path=.:prelude:resource-1.0/abstract:resource-1.0/common:resource-1.0/english
+
+concrete GodisUserEng of GodisUser = 
+    GodisUserI with (GodisLang = GodisLangEng);
+
+
+--     open Prelude, GodisLangEng in {
+
+-- lincat 
+
+-- S = SS;
+
+-- Question = UserQuestion;
+-- Action   = UserAction;
+-- Answer   = UserAnswer;
+-- ShortAns = UserShortAns;
+
+
+-- lin
+
+-- greet_S = ss ["hello"];
+-- quit_S  = variants{ ss ["goodbye"]; ss ["quit"] };
+
+-- no_S = ss ["no"];
+-- yes_S = ss ["yes"];
+
+-- request_S  x = x;
+-- answer_S   x = x;
+-- ask_S      x = x;
+-- shortans_S x = x;
+
+-- }
-- 
cgit v1.2.3