From e7439d65b0e153434d3acc07df6e2a0972ee79ca Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 11 Jan 2011 15:46:43 +0000
Subject: gf-book web page index and toc

---
 gf-book/examples/chapter6/Smart.gf | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 gf-book/examples/chapter6/Smart.gf

(limited to 'gf-book/examples/chapter6/Smart.gf')

diff --git a/gf-book/examples/chapter6/Smart.gf b/gf-book/examples/chapter6/Smart.gf
new file mode 100644
index 000000000..6fc3e0bc5
--- /dev/null
+++ b/gf-book/examples/chapter6/Smart.gf
@@ -0,0 +1,16 @@
+abstract Smart = {
+
+  cat
+    Command ;
+    Kind ; 
+    Device Kind ; 
+    Action Kind ; 
+
+  fun 
+    Act : (k : Kind) -> Action k -> Device k -> Command ;
+    The : (k : Kind) -> Device k ;  -- the light
+    Light, Fan : Kind ;
+    Dim : Action Light ;
+    SwitchOn, SwitchOff : (k : Kind) -> Action k ;
+
+}
-- 
cgit v1.2.3