Laborratte5/simple-arithmetic-compiler
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor: Rename Tokens

Browse source
This commit is contained in:
Laborratte 5 2024-07-15 23:49:18 +02:00
parent 9123e0b882
commit 34bad5af43
Signed by: Laborratte5
GPG key ID: 3A30072E35202C02
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
app/Lexer.hs
View file

@ -1,9 +1,9 @@
module Lexer where
data Token = Plus
| Minus
| Multiply
| Divide
| Hyphen
| Asterisk
| ForwardSlash
| Integer Int
| LBrace
| RBrace
@ -17,9 +17,9 @@ lex' "" tokens _ = tokens
lex' (' ':xs) tokens orgLength = lex' xs tokens orgLength
lex' (x:xs) tokens orgLength = case x of
'+' -> lex' xs (Plus:tokens) orgLength
'-' -> lex' xs (Minus:tokens) orgLength
'*' -> lex' xs (Multiply:tokens) orgLength
'/' -> lex' xs (Divide:tokens) orgLength
'-' -> lex' xs (Hyphen:tokens) orgLength
'*' -> lex' xs (Asterisk:tokens) orgLength
'/' -> lex' xs (ForwardSlash:tokens) orgLength
'(' -> lex' xs (LBrace:tokens) orgLength
')' -> lex' xs (RBrace:tokens) orgLength
_ -> lexNumbers (x:xs) tokens orgLength