extended dialogue example

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/dialogue/LightsSwe.gf b/examples/dialogue/LightsSwe.gf
new file mode 100644
index 000000000..695c3aa41
--- /dev/null
+++ b/examples/dialogue/LightsSwe.gf
@@ -0,0 +1,19 @@
+--# -path=.:present:prelude
+
+concrete LightsSwe of Lights = 
+  DialogueSwe ** open LangSwe, ParadigmsSwe, AuxSwe in {
+
+  lin
+    Light       = UseN (regN "lampa") ;
+    Room        = UseN (mkN "rum" "rummet" "rum" "rummen") ;
+    SwitchOnIn  = dirV3 (regV "tänder")  (mkPreposition "i") ;
+    SwitchOffIn = dirV3 (regV "släcker") (mkPreposition "i") ;
+    SwitchOn    = dirV2 (regV "tänder") ;
+    SwitchOff   = dirV2 (regV "släcker") ;
+
+    LivingRoom  = defN (mkN "vardagsrum" "vardagsrummet" "vardagsrum" "vardagsrummen") ;
+    Kitchen     = defN (mk2N "kök" "kök") ;
+
+    MorningMode = mkMove ["morgonläget"] ;
+
+}