summaryrefslogtreecommitdiff
path: root/old-examples/dialogue/LightsSwe.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-examples/dialogue/LightsSwe.gf')
-rw-r--r--old-examples/dialogue/LightsSwe.gf20
1 files changed, 20 insertions, 0 deletions
diff --git a/old-examples/dialogue/LightsSwe.gf b/old-examples/dialogue/LightsSwe.gf
new file mode 100644
index 000000000..19f0d8964
--- /dev/null
+++ b/old-examples/dialogue/LightsSwe.gf
@@ -0,0 +1,20 @@
+--# -path=.:multimodal:alltenses:prelude
+
+
+concrete LightsSwe of Lights =
+ DialogueSwe ** open MultiSwe, ParadigmsSwe, AuxSwe in {
+
+ lin
+ Light = UseN (regN "lampa") ;
+ Room = UseN (mkN "rum" "rummet" "rum" "rummen") ;
+ SwitchOnIn = dirV3 (regV "tänder") (mkPrep "i") ;
+ SwitchOffIn = dirV3 (regV "släcker") (mkPrep "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"] ;
+
+}