Parse call expressions

source/Parser.def

@@ -7,21 +7,42 @@ TYPE
   AstLiteralKind = (
     astLiteralKindInteger,
     astLiteralKindString,
-    astLiteralKindNull
+    astLiteralKindNull,
+    astLiteralKindBoolean
   );
   AstLiteral = RECORD
     CASE kind: AstLiteralKind OF
       astLiteralKindInteger: integer: INTEGER |
       astLiteralKindString: string: ShortString |
-      astLiteralKindNull:
+      astLiteralKindNull: |
+      astLiteralKindBoolean: boolean: BOOLEAN
     END
   END;
   PAstLiteral = POINTER TO AstLiteral;
 
   AstUnaryOperator = (
+    astUnaryOperatorReference,
     astUnaryOperatorNot,
     astUnaryOperatorMinus
   );
+  AstBinaryOperator = (
+    astBinaryOperatorSum,
+    astBinaryOperatorSubtraction,
+    astBinaryOperatorMultiplication,
+    astBinaryOperatorDivision,
+    astBinaryOperatorRemainder,
+    astBinaryOperatorEquals,
+    astBinaryOperatorNotEquals,
+    astBinaryOperatorLess,
+    astBinaryOperatorGreater,
+    astBinaryOperatorLessEqual,
+    astBinaryOperatorGreaterEqual,
+    astBinaryOperatorDisjunction,
+    astBinaryOperatorConjunction,
+    astBinaryOperatorExclusiveDisjunction,
+    astBinaryOperatorShiftLeft,
+    astBinaryOperatorShiftRight
+  );
 
   AstExpressionKind = (
     astExpressionKindLiteral,
@@ -29,7 +50,9 @@ TYPE
     astExpressionKindArrayAccess,
     astExpressionKindDereference,
     astExpressionKindFieldAccess,
-    astExpressionKindUnary
+    astExpressionKindUnary,
+    astExpressionKindBinary,
+    astExpressionKindCall
   );
   AstExpression = RECORD 
     CASE kind: AstExpressionKind OF
@@ -44,12 +67,49 @@ TYPE
         field: Identifier |
       astExpressionKindUnary:
         unary_operator: AstUnaryOperator;
-        unary_operand: PAstExpression
+        unary_operand: PAstExpression |
+      astExpressionKindBinary:
+        binary_operator: AstBinaryOperator;
+        lhs: PAstExpression;
+        rhs: PAstExpression |
+      astExpressionKindCall:
+        callable: PAstExpression;
+        argument_count: CARDINAL;
+        arguments: PPAstExpression
     END
   END;
   PAstExpression = POINTER TO AstExpression;
   PPAstExpression = POINTER TO PAstExpression;
 
+  AstStatementKind = (
+    astStatementKindIf,
+    astStatementKindWhile,
+    astStatementKindAssignment,
+    astStatementKindReturn,
+    astStatementKindCall
+  );
+  AstStatement = RECORD
+    CASE kind: AstStatementKind OF
+      astStatementKindIf:
+        if_condition: PAstExpression;
+        if_branch: AstCompoundStatement |
+      astStatementKindWhile:
+        while_condition: PAstExpression;
+        while_body: AstCompoundStatement |
+      astStatementKindAssignment:
+        assignee: PAstExpression;
+        assignment: PAstExpression |
+      astStatementKindReturn: returned: PAstExpression |
+      astStatementKindCall: call: PAstExpression
+    END
+  END;
+  PAstStatement = POINTER TO AstStatement;
+  PPAstStatement = POINTER TO PAstStatement;
+  AstCompoundStatement = RECORD
+    count: CARDINAL;
+    statements: PPAstStatement
+  END;
+
   AstImportStatement = RECORD
     package: Identifier;
     symbols: PIdentifier
@@ -121,5 +181,9 @@ PROCEDURE parse_variable_part(lexer: PLexer): PPAstVariableDeclaration;
 PROCEDURE parse_constant_part(lexer: PLexer): PPAstConstantDeclaration;
 PROCEDURE parse_import_part(lexer: PLexer): PPAstImportStatement;
 PROCEDURE parse_designator(lexer: PLexer): PAstExpression;
+PROCEDURE parse_expression(lexer: PLexer): PAstExpression;
+PROCEDURE parse_return_statement(lexer: PLexer): PAstStatement;
+PROCEDURE parse_assignment_statement(lexer: PLexer; assignee: PAstExpression): PAstStatement;
+PROCEDURE parse_call_statement(lexer: PLexer; call: PAstExpression): PAstStatement;
 
 END Parser.