repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lexer with line numbers
[cc1516.git]
/
main.icl
diff --git
a/main.icl
b/main.icl
index
90624e8
..
67ab090
100644
(file)
--- a/
main.icl
+++ b/
main.icl
@@
-4,13
+4,22
@@
import StdFile
import StdBool
import lex
import StdBool
import lex
+import parse
-
Start :: *World -> (Lex
erOutput, *World)
+
//Start :: *World -> (Pars
erOutput, *World)
Start w
# (out, w) = stdio w
# (toparse, out) = readEntireFile out
# (_, w) = fclose out w
= (lexer toparse, w)
Start w
# (out, w) = stdio w
# (toparse, out) = readEntireFile out
# (_, w) = fclose out w
= (lexer toparse, w)
+/*
+Start :: *World -> (ParserOutput, *World)
+Start w
+# (out, w) = stdio w
+# (toparse, out) = readEntireFile out
+# (_, w) = fclose out w
+= (parse (lexer toparse), w)
+*/
readEntireFile :: *File -> *([Char], *File)
readEntireFile f
readEntireFile :: *File -> *([Char], *File)
readEntireFile f