diff options
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"]) ; + +} |