diff options
Diffstat (limited to 'doc/tutorial/smarthouse/SmartEng.gf')
| -rw-r--r-- | doc/tutorial/smarthouse/SmartEng.gf | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/doc/tutorial/smarthouse/SmartEng.gf b/doc/tutorial/smarthouse/SmartEng.gf deleted file mode 100644 index 0f59cd1e0..000000000 --- a/doc/tutorial/smarthouse/SmartEng.gf +++ /dev/null @@ -1,19 +0,0 @@ ---# -path=.:prelude - -concrete SmartEng of Smart = open Prelude in { - --- part of grammar Toy1 from the Regulus book - -lincat - Command, Kind, Action, Device = SS ; -lin - CAction _ act dev = ss (act.s ++ dev.s) ; - DKindOne k = ss ("the" ++ k.s) ; - - light = ss "light" ; - fan = ss "fan" ; - switchOn _ = ss ["switch on"] ; - switchOff _ = ss ["switch off"] ; - dim = ss "dim" ; -} - |
