Changeset 208 for branches/interpreter2/UFormMain.pas

Timestamp:

Apr 22, 2020, 12:02:17 AM (5 years ago)

Author:

chronos

Message:

• Modified: Implemented generic access to fields in source tree.
• Added: Generator to XML.

File:

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

branches/interpreter2/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ACompile: TAction;
+    AGenerateXml: TAction;
     AOptimize: TAction;
     AExit: TAction;
@@ -22 +23 @@
     AGeneratePascal: TAction;
     ActionList1: TActionList;
-    Label2: TLabel;
     MainMenu1: TMainMenu;
-    MemoOutput: TMemo;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -31 +30 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     MenuItemRun: TMenuItem;
     MenuItemGenerate: TMenuItem;
     MenuItemFile: TMenuItem;
+    PanelOutput: TPanel;
     PanelSource: TPanel;
     PanelMessages: TPanel;
@@ -41 +42 @@
     procedure AGeneratePascalExecute(Sender: TObject);
     procedure AGeneratePhpExecute(Sender: TObject);
+    procedure AGenerateXmlExecute(Sender: TObject);
     procedure AOptimizeExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
@@ -68 +70 @@
 uses
   UParser, UExecutor, UGeneratorPascal, UGeneratorPhp, UFormMessages, UFormSource,
-  UGeneratorCSharp, UOptimizer;
+  UGeneratorCSharp, UOptimizer, UGeneratorXml, UFormOutput;
 
 { TFormMain }
@@ -95 +97 @@
   DockForm(FormMessages, PanelMessages);
   DockForm(FormSource, PanelSource);
+  DockForm(FormOutput, PanelOutput);
   UpdateInterface;
 end;
@@ -124 +127 @@
   ACompile.Execute;
   AOptimize.Execute;
-  MemoOutput.Lines.Clear;
+  FormOutput.SynEditOutput.Highlighter := FormOutput.SynCppSyn1;
+  FormOutput.Clear;
   if Assigned(Prog) then begin
     Generator := TGeneratorCSharp.Create;
     Generator.Prog := Prog;
     Generator.Generate;
-    MemoOutput.Lines.Text := Generator.Output;
-    Generator.Free;
-    MemoOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.cs');
+    FormOutput.SetText(Generator.Output);
+    Generator.Free;
+    FormOutput.SynEditOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.cs');
   end;
 end;
@@ -141 +145 @@
   ACompile.Execute;
   AOptimize.Execute;
-  MemoOutput.Lines.Clear;
+  FormOutput.SynEditOutput.Highlighter := FormOutput.SynPasSyn1;
+  FormOutput.SynEditOutput.Lines.Clear;
   if Assigned(Prog) then begin
     Generator := TGeneratorPascal.Create;
     Generator.Prog := Prog;
     Generator.Generate;
-    MemoOutput.Lines.Text := Generator.Output;
-    Generator.Free;
-    MemoOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.pas');
+    FormOutput.SynEditOutput.Lines.Text := Generator.Output;
+    Generator.Free;
+    FormOutput.SynEditOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.pas');
   end;
 end;
@@ -157 +162 @@
 begin
   ACompile.Execute;
-  MemoOutput.Lines.Clear;
+  FormOutput.SynEditOutput.Highlighter := FormOutput.SynPhpSyn1;
+  FormOutput.SynEditOutput.Lines.Clear;
   if Assigned(Prog) then begin
     Generator := TGeneratorPhp.Create;
     Generator.Prog := Prog;
     Generator.Generate;
-    MemoOutput.Lines.Text := Generator.Output;
-    Generator.Free;
-    MemoOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.php');
+    FormOutput.SynEditOutput.Lines.Text := Generator.Output;
+    Generator.Free;
+    FormOutput.SynEditOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.php');
+  end;
+end;
+
+procedure TFormMain.AGenerateXmlExecute(Sender: TObject);
+var
+  Generator: TGeneratorXml;
+begin
+  ACompile.Execute;
+  FormOutput.SynEditOutput.Highlighter := FormOutput.SynXmlSyn1;
+  FormOutput.SynEditOutput.Lines.Clear;
+  if Assigned(Prog) then begin
+    Generator := TGeneratorXml.Create;
+    Generator.Prog := Prog;
+    Generator.Generate;
+    FormOutput.SynEditOutput.Lines.Text := Generator.Output;
+    Generator.Free;
+    FormOutput.SynEditOutput.Lines.SaveToFile('Generated' + DirectorySeparator + 'Test.xml');
   end;
 end;
@@ -186 +209 @@
   ACompile.Execute;
   //AOptimize.Execute;
-  MemoOutput.Lines.Clear;
+  FormOutput.SynEditOutput.Highlighter := nil;
+  FormOutput.SynEditOutput.Lines.Clear;
   if Assigned(Prog) then begin
     Executor := TExecutor.Create;
@@ -214 +238 @@
 procedure TFormMain.ExecutorOutput(Text: string);
 begin
-  MemoOutput.Text := MemoOutput.Text + Text;
+  FormOutput.SynEditOutput.Text := FormOutput.SynEditOutput.Text + Text;
 end;