Changeset 204 for branches/interpreter2/UFormMain.pas

Timestamp:

Apr 17, 2020, 11:07:37 PM (4 years ago)

Author:

chronos

Message:

• Added: Simple PHP code generator.

File:

• branches/interpreter2/UFormMain.pas (modified) (4 diffs)

branches/interpreter2/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ButtonCompile: TButton;
+    ButtonGenerate1: TButton;
     ButtonRun: TButton;
     ButtonGenerate: TButton;
@@ -24 +25 @@
     SynFreePascalSyn1: TSynFreePascalSyn;
     procedure ButtonCompileClick(Sender: TObject);
+    procedure ButtonGenerate1Click(Sender: TObject);
     procedure ButtonGenerateClick(Sender: TObject);
     procedure ButtonRunClick(Sender: TObject);
@@ -49 +51 @@
 
 uses
-  UParser, UExecutor, UGenerator;
+  UParser, UExecutor, UGenerator, UGeneratorPhp;
 
 { TFormMain }
@@ -107 +109 @@
 end;
 
+procedure TFormMain.ButtonGenerate1Click(Sender: TObject);
+var
+  Generator: TGeneratorPhp;
+begin
+  ButtonCompile.Click;
+  MemoOutput.Lines.Clear;
+  if Assigned(Prog) then begin
+    Generator := TGeneratorPhp.Create;
+    Generator.Prog := Prog;
+    Generator.Generate;
+    MemoOutput.Lines.Text := Generator.Output;
+    Generator.Free;
+  end;
+end;
+
 procedure TFormMain.ButtonGenerateClick(Sender: TObject);
 var