VegOwOtenks/ubcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enabled structure access

Browse source
This commit is contained in:
VegOwOtenks 2025-02-21 17:26:27 +01:00
parent 21bec764db
commit 753f429ec8
2 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Ubc/Parse/Syntax/Expression.hs
View file

@ -30,6 +30,9 @@ data Expression = Binary BinaryOperator Expression Expression
operatorTable :: Monad m => [[Operator String u m Expression]] operatorTable :: Monad m => [[Operator String u m Expression]]
operatorTable = operatorTable =
[ [
[ Infix (UbcLanguage.reservedOperator "." $> Binary StructureAccess) AssocLeft
]
,
[ Infix (UbcLanguage.reservedOperator "*" $> Binary Multiply) AssocLeft [ Infix (UbcLanguage.reservedOperator "*" $> Binary Multiply) AssocLeft
, Infix (UbcLanguage.reservedOperator "/" $> Binary Divide) AssocLeft , Infix (UbcLanguage.reservedOperator "/" $> Binary Divide) AssocLeft
, Infix (UbcLanguage.reservedOperator "%" $> Binary Modulo) AssocLeft , Infix (UbcLanguage.reservedOperator "%" $> Binary Modulo) AssocLeft

1
src/Ubc/Parse/Syntax/Operators.hs
View file

@ -26,4 +26,5 @@ data BinaryOperator = Plus
| LogicAnd | LogicAnd
| LogicOr | LogicOr
| Assign | Assign
| StructureAccess
deriving (Show) deriving (Show)