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

feat: Implement Lexer

Browse source
This commit is contained in:
Laborratte 5 2024-07-15 23:38:30 +02:00
parent fffa295d3c
commit 5c2dc50872
Signed by: Laborratte5
GPG key ID: 3A30072E35202C02
1 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
app/Lexer.hs
View file

@ -8,3 +8,25 @@ data Token = Plus
| LBrace | LBrace
| RBrace | RBrace
deriving Show deriving Show
lex :: String -> [Token]
lex source = reverse (lex' source [] (length source))
lex' :: String -> [Token] -> Int -> [Token]
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 (LBrace:tokens) orgLength
')' -> lex' xs (RBrace:tokens) orgLength
_ -> lexNumbers (x:xs) tokens orgLength
lexNumbers :: String -> [Token] -> Int -> [Token]
lexNumbers (x:xs) tokens orgLength
| isDigit x = lex' (dropWhile isDigit (x:xs)) ((Integer(read (takeWhile isDigit (x:xs))::Int)):tokens) orgLength
| otherwise = error $ "Syntax error: " ++ [x] ++ " (" ++ show (orgLength - (length (x:xs))) ++ ")"
isDigit x = x `elem` "0123456789"