Changeset 222 for branches/interpreter2/Generators/UGeneratorCSharp.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/UGeneratorCSharp.pas (modified) (7 diffs)

branches/interpreter2/Generators/UGeneratorCSharp.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);
@@ -37 +38 @@
     procedure GenerateValue(Value: TValue);
   public
-    Prog: TProgram;
     procedure Generate; override;
-  end;
+    constructor Create; override;
+  end;
+
 
 implementation
+
+const
+  ExpressionOperatorTextCSharp: array[TExpressionOperator] of string = ('', '+',
+    '-', '*', '/', '/', '%', '&', '^', '|', '<<',
+    '>>', '==', '!=', '<', '>', '<=','>=', '!');
 
 { TGeneratorCSharp }
@@ -144 +151 @@
   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;
@@ -154 +164 @@
   for I := 0 to Expression.Items.Count - 1 do begin
     if I > 0 then begin
-      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(' ' + ExpressionOperatorTextCSharp[Expression.Operation] + ' ');
     end;
     GenerateExpression(Block, TExpression(Expression.Items[I]));
@@ -173 +180 @@
     else raise Exception.Create('Unsupported exception operand type.');
   end;
+end;
+
+procedure TGeneratorCSharp.GenerateExpressionBrackets(Block: TBlock;
+  Expression: TExpressionBrackets);
+begin
+  AddText('(');
+  GenerateExpression(Block, Expression.Expression);
+  AddText(')');
 end;
 
@@ -233 +248 @@
 
 procedure TGeneratorCSharp.GenerateBlock(ParentBlock: TBlock; Block: TBlock);
-var
-  I: Integer;
 begin
   if Block.BeginEnd.Commands.Count > 0 then begin
@@ -353 +366 @@
 end;
 
+constructor TGeneratorCSharp.Create;
+begin
+  inherited;
+  Name := 'CSharp';
+  FileExt := '.cs';
+end;
+
 end.