diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-16 20:44:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-16 20:44:33 +0000 |
| commit | 29d04d8a90e1db9c8cc040ae5d83bdf7c84359cc (patch) | |
| tree | c0a7487808f3256a06425c79d5684a4285a6a6be /examples/dialogue/LightsProlog.gf | |
| parent | 5082ebd0f4a0c4ba04aab54d05290e6141e44129 (diff) | |
extended dialogue example
Diffstat (limited to 'examples/dialogue/LightsProlog.gf')
| -rw-r--r-- | examples/dialogue/LightsProlog.gf | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/examples/dialogue/LightsProlog.gf b/examples/dialogue/LightsProlog.gf new file mode 100644 index 000000000..4a93ee469 --- /dev/null +++ b/examples/dialogue/LightsProlog.gf @@ -0,0 +1,20 @@ +--# -path=.:prelude + +concrete LightsProlog of Lights = + DialogueProlog ** open ResProlog, Prelude in { + + lin + Light = ss "light" ; + Room = ss "room" ; + SwitchOnIn = ss "switch_on" ; + SwitchOffIn = ss "switch_off" ; + SwitchOn = ss "switch_on" ; + SwitchOff = ss "switch_off" ; + + LivingRoom = ss "living_room" ; + Kitchen = ss "kitchen" ; + + MorningMode = ss "morning_mode" ; + +} + |