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