From 29d04d8a90e1db9c8cc040ae5d83bdf7c84359cc Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 16 May 2006 20:44:33 +0000 Subject: extended dialogue example --- examples/dialogue/LightsEng.gf | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 examples/dialogue/LightsEng.gf (limited to 'examples/dialogue/LightsEng.gf') diff --git a/examples/dialogue/LightsEng.gf b/examples/dialogue/LightsEng.gf new file mode 100644 index 000000000..eceaa487d --- /dev/null +++ b/examples/dialogue/LightsEng.gf @@ -0,0 +1,19 @@ +--# -path=.:present:prelude + +concrete LightsEng of Lights = + DialogueEng ** open LangEng, ParadigmsEng, AuxEng, Prelude in { + + lin + Light = UseN (regN "light") ; + Room = UseN (regN "room") ; + SwitchOnIn = dirV3 (partV (regV "switch") "on") (mkPreposition "in") ; + SwitchOffIn = dirV3 (partV (regV "switch") "off") (mkPreposition "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"]) ; + +} -- cgit v1.2.3