diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /old-examples/dialogue/LightsEng.gf | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (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.gf | 19 |
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"]) ; + +} |
