Changeset 212 for branches/interpreter2/UGeneratorPhp.pas

Timestamp:

Apr 22, 2020, 12:04:22 PM (5 years ago)

Author:

chronos

Message:

• Added: Support for custom functions.

File:

• branches/interpreter2/UGeneratorPhp.pas (modified) (3 diffs)

branches/interpreter2/UGeneratorPhp.pas

@@ -15 +15 @@
   private
     procedure GenerateProgram(Block: TBlock;  Prog:TProgram);
+    procedure GenerateFunction(ParentBlock: TBlock; FunctionDef: TFunction);
     procedure GenerateBlock(ParentBlock: TBlock; Block: TBlock);
     procedure GenerateBlockConst(ParentBlock: TBlock; Block: TBlock);
@@ -201 +202 @@
 end;
 
+procedure TGeneratorPhp.GenerateFunction(ParentBlock: TBlock;
+  FunctionDef: TFunction);
+var
+  I: Integer;
+begin
+  AddText('function ' + FunctionDef.Name + '(');
+  for I := 0 to FunctionDef.Params.Count - 1 do begin
+    AddText('$' + TFunctionParameter(FunctionDef.Params[I]).Name);
+    if I > 0 then AddText(', ');
+  end;
+  AddTextLine(')');
+  if FunctionDef.InternalName <> '' then begin
+    AddTextLine('{');
+    Indent := Indent + 1;
+    if FunctionDef.InternalName = 'WriteLn' then AddTextLine('echo($Text."\n");')
+    else if FunctionDef.InternalName = 'Write' then AddTextLine('echo($Text);')
+    else if FunctionDef.InternalName = 'IntToStr' then AddTextLine('return $Value;')
+    else if FunctionDef.InternalName = 'StrToInt' then AddTextLine('return $Value;');
+    Indent := Indent - 1;
+    AddTextLine('}');
+  end else begin
+    GenerateBlock(ParentBlock, FunctionDef.Block);
+    AddTextLine;
+  end;
+end;
+
 procedure TGeneratorPhp.GenerateBlock(ParentBlock: TBlock; Block: TBlock);
 begin
@@ -228 +255 @@
 var
   I: Integer;
-  J: Integer;
-  FunctionDef: TFunction;
 begin
   for I := 0 to Block.Functions.Count - 1 do begin
-    FunctionDef := TFunction(Block.Functions[I]);
-    AddText('function ' + FunctionDef.Name + '(');
-    for J := 0 to FunctionDef.Params.Count - 1 do begin
-      AddText('$' + TFunctionParameter(FunctionDef.Params[J]).Name);
-      if J > 0 then AddText(', ');
-    end;
-    AddTextLine(')');
-    if FunctionDef.InternalName <> '' then begin
-      AddTextLine('{');
-      Indent := Indent + 1;
-      if FunctionDef.InternalName = 'WriteLn' then AddTextLine('echo($Text."\n");')
-      else if FunctionDef.InternalName = 'Write' then AddTextLine('echo($Text);')
-      else if FunctionDef.InternalName = 'IntToStr' then AddTextLine('return $Value;')
-      else if FunctionDef.InternalName = 'StrToInt' then AddTextLine('return $Value;');
-      Indent := Indent - 1;
-      AddTextLine('}');
-    end else begin
-      GenerateBeginEnd(ParentBlock, FunctionDef.BeginEnd);
-      AddTextLine;
-    end;
+    GenerateFunction(ParentBlock, TFunction(Block.Functions[I]));
     AddTextLine;
   end;