lerasimus/crafting-interpreters-hs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

interpreter first version

Browse source
This commit is contained in:
Oleg Sobolev 2025-12-25 18:41:04 +03:00
parent 05d670817e
commit b5001499d7
4 changed files with 63 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/Lox/Scanner.hs
View file

@ -22,7 +22,18 @@ data TokenType = LEFT_PAREN | RIGHT_PAREN | LEFT_BRACE | RIGHT_BRACE
| EOF
deriving (Show, Eq)
data Object = NullObject | StringObject String | NumberObject Double | BoolObject Bool deriving Show
data Object = NullObject
| StringObject String
| NumberObject Double
| BoolObject Bool
deriving (Eq)
instance Show Object where
show NullObject = "Nil"
show (StringObject s) = show s
show (NumberObject x) = show x
show (BoolObject False) = "false"
show (BoolObject True) = "true"
data Token = Token {
getType :: TokenType,