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

Timestamp:

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

Author:

chronos

Message:

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

File:

• branches/interpreter2/Generators/UGeneratorPhp.pas (modified) (6 diffs)

branches/interpreter2/Generators/UGeneratorPhp.pas

@@ -30 +30 @@
     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 GenerateReturn(Block: TBlock; Return: TReturn);
@@ -35 +36 @@
     procedure GenerateValue(Value: TValue);
   public
-    Prog: TProgram;
     procedure Generate; override;
-  end;
+    constructor Create; override;
+  end;
+
 
 implementation
+
+const
+  ExpressionOperatorTextPhp: array[TExpressionOperator] of string = ('', '+',
+    '-', '*', '/', '/', '%', 'and', 'xor', 'or', '<<',
+    '>>', '==', '!=', '<', '>', '<=','>=', '!');
 
 { TGeneratorPhp }
@@ -142 +149 @@
   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;
@@ -156 +166 @@
         else AddText(' + ');
       end
-      else if Expression.Operation = eoSub then AddText(' - ')
-      else if Expression.Operation = eoEqual then AddText(' == ')
-      else if Expression.Operation = eoNotEqual then AddText(' != ');
+      else AddText(' ' + ExpressionOperatorTextPhp[Expression.Operation] + ' ');
     end;
     GenerateExpression(Block, TExpression(Expression.Items[I]));
@@ -174 +182 @@
     else raise Exception.Create('Unsupported exception operand type.');
   end;
+end;
+
+procedure TGeneratorPhp.GenerateExpressionBrackets(Block: TBlock;
+  Expression: TExpressionBrackets);
+begin
+  AddText('(');
+  GenerateExpression(Block, Expression.Expression);
+  AddText(')');
 end;
 
@@ -290 +306 @@
 end;
 
+constructor TGeneratorPhp.Create;
+begin
+  inherited;
+  Name := 'PHP';
+  FileExt := '.php';
+end;
+
 end.