From 032531c6a690edbb377ff11ee2a743a30c5bf500 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 27 Jun 2008 11:27:40 +0000 Subject: rm old tutorials --- doc/tutorial/smarthouse/SmartEng.gf | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 doc/tutorial/smarthouse/SmartEng.gf (limited to 'doc/tutorial/smarthouse/SmartEng.gf') 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" ; -} - -- cgit v1.2.3