summaryrefslogtreecommitdiff
path: root/old-examples/dialogue/LightsEng.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /old-examples/dialogue/LightsEng.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'old-examples/dialogue/LightsEng.gf')
-rw-r--r--old-examples/dialogue/LightsEng.gf19
1 files changed, 19 insertions, 0 deletions
diff --git a/old-examples/dialogue/LightsEng.gf b/old-examples/dialogue/LightsEng.gf
new file mode 100644
index 000000000..dfed6de85
--- /dev/null
+++ b/old-examples/dialogue/LightsEng.gf
@@ -0,0 +1,19 @@
+--# -path=.:multimodal:alltenses:prelude
+
+concrete LightsEng of Lights =
+ DialogueEng ** open MultiEng, ParadigmsEng, AuxEng, Prelude in {
+
+ lin
+ Light = UseN (regN "light") ;
+ Room = UseN (regN "room") ;
+ SwitchOnIn = dirV3 (partV (regV "switch") "on") (mkPrep "in") ;
+ SwitchOffIn = dirV3 (partV (regV "switch") "off") (mkPrep "in") ;
+ SwitchOn = dirV2 (partV (regV "switch") "on") ;
+ SwitchOff = dirV2 (partV (regV "switch") "off") ;
+
+ LivingRoom = defN (regN ["living-room"]) ;
+ Kitchen = defN (regN ["kitchen"]) ;
+
+ MorningMode = mkMove (optStr "the" ++ ["morning mode"]) ;
+
+}