Changeset 19 for trunk/UMainForm.pas

Timestamp:

Feb 11, 2012, 10:18:19 PM (12 years ago)

Author:

chronos

Message:

• Modified: Compiler moved to separate unit file.
• Added: Compiler to PHP.
• Added: Loading list of available compilers and list them for selection in menu Program - Target.

File:

• trunk/UMainForm.pas (modified) (9 diffs)

trunk/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
   Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils,
-  SpecializedList;
+  SpecializedList, UCompiler;
 
 type
@@ -59 +59 @@
     MenuItem25: TMenuItem;
     MenuItem26: TMenuItem;
-    MenuItem40: TMenuItem;
+    MenuItemTarget: TMenuItem;
     MenuItem21: TMenuItem;
     MenuItem3: TMenuItem;
@@ -112 +112 @@
   private
     procedure BrainFuckInterpreterChangeState(Sender: TObject);
+    procedure MenuItemTargetClick(Sender: TObject);
   public
     Modified: Boolean;
@@ -118 +119 @@
     BrainFuckInterpreter: TBrainFuckInterpretter;
     BreakPoints: TListInteger;
+    Compilers: TListObject; // TListObject<TCompiler>
     procedure UpdateInterface;
     procedure UpdateStatusBar;
+    procedure UpdateTergetList;
   end;
 
@@ -130 +133 @@
 
 uses
-  UInterpreterForm, UApplicationInfo, UCompiledForm, UOptionsForm;
+  UInterpreterForm, UApplicationInfo, UCompiledForm, UOptionsForm,
+  UCompilerDelphi, UCompilerPHP;
 
 { TMainForm }
@@ -169 +173 @@
 begin
   UpdateInterface;
+end;
+
+procedure TMainForm.MenuItemTargetClick(Sender: TObject);
+var
+  I: Integer;
+begin
+  with TMenuItem(Sender) do begin
+    Checked := True;
+    for I := 0 to Parent.Count - 1 do
+      if Parent.Items[I].MenuIndex <> MenuIndex then Parent.Items[I].Checked := False
+  end;
 end;
 
@@ -194 +209 @@
 end;
 
+procedure TMainForm.UpdateTergetList;
+var
+  I: Integer;
+  NewMenuItem: TMenuItem;
+begin
+  MenuItemTarget.Clear;
+  for I := 0 to Compilers.Count - 1 do begin
+    NewMenuItem := TMenuItem.Create(MenuItemTarget);
+    NewMenuItem.Caption := TBrainFuckCompiler(Compilers[I]).Name;
+    NewMenuItem.OnClick := MenuItemTargetClick;
+    if I = 0 then NewMenuItem.Checked := True;
+    MenuItemTarget.Add(NewMenuItem);
+  end;
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
@@ -201 +231 @@
   BrainFuckCompiler := TBrainFuckCompiler.Create;
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
+  Compilers := TListObject.Create;
+  Compilers.Add(TBrainFuckCompilerDelphi.Create);
+  Compilers.Add(TBrainFuckCompilerPHP.Create);
+  UpdateTergetList;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  Compilers.Free;
   BrainFuckCompiler.Free;
   BrainFuckInterpreter.Free;
@@ -275 +310 @@
 
 procedure TMainForm.ACompileExecute(Sender: TObject);
-begin
-  BrainFuckCompiler.Source := MemoSource.Text;
-  BrainFuckCompiler.ProgramName := ExtractFileNameOnly(ProjectFileName);
-  BrainFuckCompiler.Compile;
-  CompiledForm.MemoCompiled.Text := BrainFuckCompiler.Output;
-  CompiledForm.Show;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < MenuItemTarget.Count) and (not MenuItemTarget.Items[I].Checked) do Inc(I);
+  with TBrainFuckCompiler(Compilers[I]) do begin
+    Source := MemoSource.Text;
+    ProgramName := ExtractFileNameOnly(ProjectFileName);
+    Compile;
+    CompiledForm.MemoCompiled.Text := Output;
+    CompiledForm.Show;
+  end;
 end;