gf-book web page index and toc

2011-01-11 15:46:43 +00:00
parent 276327f7f2
commit e7439d65b0
109 changed files with 491 additions and 0 deletions
--- a/gf-book/examples/chapter8/CalculatorP.gf
+++ b/gf-book/examples/chapter8/CalculatorP.gf
@@ -0,0 +1,14 @@
+concrete CalculatorP of Calculator = open Prelude in {
+
+lincat 
+  Exp = SS ;
+lin
+  EPlus  = infix "+" ;
+  EMinus = infix "-" ;
+  ETimes = infix "*" ;
+  EDiv   = infix "/" ;
+  EInt i = i ;
+oper
+  infix : Str -> SS -> SS -> SS = \f,x,y -> 
+    ss ("(" ++ x.s ++ f ++ y.s ++ ")") ;
+}