repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Ontwerpbesluitendocumentje toegevoegd
[cc1516.git]
/
AST.icl
diff --git
a/AST.icl
b/AST.icl
index
70c1282
..
21f27d5
100644
(file)
--- a/
AST.icl
+++ b/
AST.icl
@@
-47,10
+47,6
@@
printStatements [s:ss] i = (case s of
indent :: Int [String] -> [String]
indent i rest = replicate i "\t" ++ rest
indent :: Int [String] -> [String]
indent i rest = replicate i "\t" ++ rest
-instance print FunType where
- print (FunType at rt) = printersperse " " at ++
- [if (isEmpty at) "" "->":maybe ["Void"] print rt]
-
instance print VarDecl where
print (VarDecl _ t i e) = print t ++ [" ":i:"=":print e] ++ [";"]
instance print VarDecl where
print (VarDecl _ t i e) = print t ++ [" ":i:"=":print e] ++ [";"]
@@
-62,6
+58,8
@@
instance print Type where
print BoolType = print "Bool"
print CharType = print "Char"
print VarType = print "var"
print BoolType = print "Bool"
print CharType = print "Char"
print VarType = print "var"
+ print VoidType = print "Void"
+ print (t1 ->> t2) = print t1 ++ [" -> ":print t2]
instance print String where
print s = [s]
instance print String where
print s = [s]