repositories
/
cc1516.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
49f10bf
)
add to default addressbook'
author
Mart Lubbers
<mart@martlubbers.net>
Fri, 20 May 2016 11:26:28 +0000
(13:26 +0200)
committer
Mart Lubbers
<mart@martlubbers.net>
Fri, 20 May 2016 11:26:28 +0000
(13:26 +0200)
gen.icl
patch
|
blob
|
history
diff --git
a/gen.icl
b/gen.icl
index
acfdd61
..
efa8fa3
100644
(file)
--- a/
gen.icl
+++ b/
gen.icl
@@
-40,10
+40,11
@@
labelStream :: [Label]
labelStream = ["lbl_" +++ toString i\\i<-[1..]]
defaultAddressBook :: Addressbook
labelStream = ["lbl_" +++ toString i\\i<-[1..]]
defaultAddressBook :: Addressbook
-defaultAddressBook = extend "print" (LAB "print")
- $ extend "read" (LAB "read")
- $ extend "isEmpty" (LAB "isEmpty")
- 'Map'.newMap
+defaultAddressBook = extend "1printint" (LAB "1printint")
+ $ extend "1printchar" (LAB "1printchar")
+ $ extend "1readchar" (LAB "1readchar")
+ $ extend "1readint" (LAB "1readint")
+ 'Map'.newMap
gen :: AST -> Either String String
gen (AST fds) = case evalRWST prog () (defaultAddressBook, labelStream) of
gen :: AST -> Either String String
gen (AST fds) = case evalRWST prog () (defaultAddressBook, labelStream) of