summaryrefslogtreecommitdiff
path: root/doc/tutorial/smarthouse/SmartEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'doc/tutorial/smarthouse/SmartEng.gf')
-rw-r--r--doc/tutorial/smarthouse/SmartEng.gf19
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" ;
-}
-