Changeset 222 for branches/interpreter2/Generators/UGeneratorPascal.pas

Timestamp:

Nov 25, 2020, 12:18:45 AM (4 years ago)

Author:

chronos

Message:

• Added: Support for more expression operators.
• Added: Support for brackets in expressions.

File:

• branches/interpreter2/Generators/UGeneratorPascal.pas (modified) (5 diffs)

branches/interpreter2/Generators/UGeneratorPascal.pas

@@ -31 +31 @@
     procedure GenerateExpressionOperation(Block: TBlock; Expression: TExpressionOperation);
     procedure GenerateExpressionOperand(Block: TBlock; Expression: TExpressionOperand);
+    procedure GenerateExpressionBrackets(Block: TBlock; Expression: TExpressionBrackets);
     procedure GenerateBreak(Block: TBlock; BreakCmd: TBreak);
     procedure GenerateContinue(Block: TBlock; ContinueCmd: TContinue);
     procedure GenerateValue(Value: TValue);
   public
-    Prog: TProgram;
     procedure Generate; override;
+    constructor Create; override;
   end;
 
@@ -134 +135 @@
   if Expression is TExpressionOperand then
     GenerateExpressionOperand(Block, TExpressionOperand(Expression))
+  else
+  if Expression is TExpressionBrackets then
+    GenerateExpressionBrackets(Block, TExpressionBrackets(Expression))
   else raise Exception.Create('Unknown expression class.');
 end;
@@ -145 +149 @@
     if I > 0 then begin
       AddText(' ');
-      if Expression.Operation = eoAdd then AddText('+')
-      else if Expression.Operation = eoSub then AddText('-')
-      else if Expression.Operation = eoEqual then AddText('=')
-      else if Expression.Operation = eoNotEqual then AddText('<>');
+      AddText(ExpressionOperatorText[Expression.Operation]);
       AddText(' ');
     end;
@@ -165 +166 @@
     else raise Exception.Create('Unsupported exception operand type.');
   end;
+end;
+
+procedure TGeneratorPascal.GenerateExpressionBrackets(Block: TBlock;
+  Expression: TExpressionBrackets);
+begin
+  AddText('(');
+  GenerateExpression(Block, Expression.Expression);
+  AddText(')');
 end;
 
@@ -313 +322 @@
 end;
 
+constructor TGeneratorPascal.Create;
+begin
+  inherited;
+  Name := 'Pascal';
+  FileExt := '.pas';
+end;
+
 end.