diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-06-11 08:55:32 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-06-11 08:55:32 +0000 |
| commit | 2b438a6284564feec800e5bdca5fe006bf8aed11 (patch) | |
| tree | 639a551a8e86a964c6eacf31d9d045feb583497c /examples/regulus/toy1/Toy1.gf | |
| parent | a22871d07485821dac45a03380f77bdb28240ce6 (diff) | |
toy1 in English
Diffstat (limited to 'examples/regulus/toy1/Toy1.gf')
| -rw-r--r-- | examples/regulus/toy1/Toy1.gf | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/examples/regulus/toy1/Toy1.gf b/examples/regulus/toy1/Toy1.gf new file mode 100644 index 000000000..2478360b4 --- /dev/null +++ b/examples/regulus/toy1/Toy1.gf @@ -0,0 +1,35 @@ +abstract Toy1 = { + +flags startcat = Utterance ; + +cat + Utterance ; + Command ; + Question ; + Kind ; + Action Kind ; + Device Kind ; + Location ; + +fun + UCommand : Command -> Utterance ; + UQuestion : Question -> Utterance ; + + CAction : (k : Kind) -> Action k -> Device k -> Command ; + QAction : (k : Kind) -> Action k -> Device k -> Question ; + + DKindOne : (k : Kind) -> Device k ; + DKindMany : (k : Kind) -> Device k ; + DLoc : (k : Kind) -> Device k -> Location -> Device k ; + + light, fan : Kind ; + + switchOn, switchOff : (k : Kind) -> Action k ; + + dim : Action light ; + + kitchen, livingRoom : Location ; + + +} + |
