parser implement varibale initialization

This commit is contained in:
Marvin Schlegel 2024-05-08 13:29:10 +02:00
parent c8ce7f4b43
commit c49b7f556c
2 changed files with 12 additions and 4 deletions

View File

@ -74,6 +74,12 @@ testExpressionIntLiteral = TestCase $
testFieldWithInitialization = TestCase $
assertEqual "expect Class with initialized field" [Class "WithInitField" [] [VariableDeclaration "int" "number" $ Just $ IntegerLiteral 3]] $
parse [CLASS,IDENTIFIER "WithInitField",LBRACKET,INT,IDENTIFIER "number",ASSIGN,INTEGERLITERAL 3,SEMICOLON,RBRACKET]
testLocalBoolWithInitialization = TestCase $
assertEqual "expect block with with initialized local var" (Block [LocalVariableDeclaration $ VariableDeclaration "boolean" "b" $ Just $ BooleanLiteral False]) $
parseBlock [LBRACKET,BOOLEAN,IDENTIFIER "b",ASSIGN,BOOLLITERAL False,SEMICOLON,RBRACKET]
testFieldNullWithInitialization = TestCase $
assertEqual "expect Class with initialized field" [Class "WithInitField" [] [VariableDeclaration "Object" "bar" $ Just NullLiteral]] $
parse [CLASS,IDENTIFIER "WithInitField",LBRACKET,IDENTIFIER "Object",IDENTIFIER "bar",ASSIGN,NULLLITERAL,SEMICOLON,RBRACKET]
tests = TestList [
testSingleEmptyClass,
@ -96,5 +102,7 @@ tests = TestList [
testNestedBlocks,
testBlockWithEmptyStatement,
testExpressionIntLiteral,
testFieldWithInitialization
testFieldWithInitialization,
testLocalBoolWithInitialization,
testFieldNullWithInitialization
]

View File

@ -328,9 +328,9 @@ exclusiveorexpression : andexpression { $1 }
-- | exclusiveorexpression XOR andexpression { }
literal : INTLITERAL { IntegerLiteral $1 }
-- | BOOLLITERAL { }
-- | CHARLITERAL { }
-- | JNULL { }
| BOOLLITERAL { BooleanLiteral $1 }
| CHARLITERAL { CharacterLiteral $1 }
| JNULL { NullLiteral }
castexpression : LBRACE primitivetype RBRACE unaryexpression { }
| LBRACE expression RBRACE unaryexpressionnotplusminus{ }