repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hoig
[cc1516.git]
/
src
/
lex.icl
diff --git
a/src/lex.icl
b/src/lex.icl
index
ac5168f
..
a797b1c
100644
(file)
--- a/
src/lex.icl
+++ b/
src/lex.icl
@@
-18,6
+18,8
@@
lexProgram :: Parser Char [Token]
lexProgram = catMaybes <$> some lexToken <* eof
>>= \ts->pure $ (map (\t->(0, 0, t)) ts)
lexProgram = catMaybes <$> some lexToken <* eof
>>= \ts->pure $ (map (\t->(0, 0, t)) ts)
+//Of hier een record van maken
+//lexToken :: Parser Char (Maybe (Int, Int, Int, TokenValue))
lexToken :: Parser Char (Maybe TokenValue)
lexToken =
//Comments
lexToken :: Parser Char (Maybe TokenValue)
lexToken =
//Comments
@@
-72,4
+74,4
@@
lexToken =
lexEscape = fromJust <$> ((
lexOp "a" (toChar 7) <|> lexOp "b" '\b' <|> lexOp "f" '\f' <|>
lexOp "n" '\n' <|> lexOp "r" '\t' <|> lexOp "v" '\v' <|>
lexEscape = fromJust <$> ((
lexOp "a" (toChar 7) <|> lexOp "b" '\b' <|> lexOp "f" '\f' <|>
lexOp "n" '\n' <|> lexOp "r" '\t' <|> lexOp "v" '\v' <|>
- lexOp "'" '\'') <?>
("Unknown escape", 0)
)
+ lexOp "'" '\'') <?>
LexError "Unknown escape"
)