GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

gf-book web page index and toc

Browse Source
This commit is contained in:
aarne
2011-01-11 15:46:43 +00:00
parent 276327f7f2
commit e7439d65b0
109 changed files with 491 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gf-book/examples/chapter8/CalculatorP.gf Normal file
View File

@@ -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 ++ ")") ;
}