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,7 +67,15 @@ 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;
@@ -121,5 +152,6 @@ 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;
 
 END Parser.