diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-07-06 15:37:32 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-07-06 15:37:32 +0000 |
| commit | bb423658aa79e5cfdb5a89ec6af2f522a5bdb0cc (patch) | |
| tree | 0ae7a8de2a9e3d8db030118650817008de2bcb41 /doc/tutorial/smarthouse/Smart.gf | |
| parent | bece5b29740dbf0bb5a60f2cb3f10129e102d238 (diff) | |
new tutorial almost finished
Diffstat (limited to 'doc/tutorial/smarthouse/Smart.gf')
| -rw-r--r-- | doc/tutorial/smarthouse/Smart.gf | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/tutorial/smarthouse/Smart.gf b/doc/tutorial/smarthouse/Smart.gf new file mode 100644 index 000000000..f23082b47 --- /dev/null +++ b/doc/tutorial/smarthouse/Smart.gf @@ -0,0 +1,17 @@ +abstract Smart = { + +flags startcat = Command ; + +cat + Command ; + Kind ; + Action Kind ; + Device Kind ; +fun + CAction : (k : Kind) -> Action k -> Device k -> Command ; + DKindOne : (k : Kind) -> Device k ; + light, fan : Kind ; + switchOn, switchOff : (k : Kind) -> Action k ; + dim : Action light ; +} + |