GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

started a subdir for the book

Browse Source
This commit is contained in:
aarne
2010-11-22 12:55:37 +00:00
parent 0bf4179369
commit 76ba03b545
97 changed files with 2026 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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