diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-17 13:16:15 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-17 13:16:15 +0000 |
| commit | 23b8136af27b0baaa8fcb5272a613d5f2ee447fa (patch) | |
| tree | 2e7cd2930b7e8b6b0d911c00ec2d279b882f4893 /examples-3.0/tutorial/smart/House.gf | |
| parent | 7c097669d2c3934622c57f6e2f4ddee8826953d3 (diff) | |
started examples-3.0 with examples that are tested to work
Diffstat (limited to 'examples-3.0/tutorial/smart/House.gf')
| -rw-r--r-- | examples-3.0/tutorial/smart/House.gf | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/examples-3.0/tutorial/smart/House.gf b/examples-3.0/tutorial/smart/House.gf new file mode 100644 index 000000000..e156792f1 --- /dev/null +++ b/examples-3.0/tutorial/smart/House.gf @@ -0,0 +1,35 @@ +abstract House = { + +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 ; + + +} + |
