examples/dialogue/LightsProlog.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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" ;

}