From 29d04d8a90e1db9c8cc040ae5d83bdf7c84359cc Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 16 May 2006 20:44:33 +0000
Subject: extended dialogue example

---
 examples/dialogue/LightsFre.gf | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 examples/dialogue/LightsFre.gf

(limited to 'examples/dialogue/LightsFre.gf')

diff --git a/examples/dialogue/LightsFre.gf b/examples/dialogue/LightsFre.gf
new file mode 100644
index 000000000..50f959d0e
--- /dev/null
+++ b/examples/dialogue/LightsFre.gf
@@ -0,0 +1,19 @@
+--# -path=.:present:prelude
+
+concrete LightsFre of Lights = 
+  DialogueFre ** open LangFre, ParadigmsFre, IrregFre, AuxFre in {
+
+  lin
+    Light       = UseN (regN "lampe") ;
+    Room        = UseN (regN "chambre") ;
+    SwitchOnIn  = dirV3 (regV "allumer")  (mkPreposition "dans") ;
+    SwitchOffIn = dirV3 éteindre_V2 (mkPreposition "dans") ;
+    SwitchOn    = dirV2 (regV "allumer") ;
+    SwitchOff   = dirV2 éteindre_V2 ;
+
+    LivingRoom  = defN (regN "salon") ;
+    Kitchen     = defN (regN "cuisine") ;
+
+    MorningMode = mkMove ["le mode matinal"] ;
+
+}
-- 
cgit v1.2.3