Changeset 25 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 13, 2012, 9:47:18 AM (13 years ago)

Author:

chronos

Message:

• Added: List of supported compiler targets.
• Added: Action to compile and run project.

File:

• trunk/Forms/UMainForm.pas (modified) (16 diffs)

trunk/Forms/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
   Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils,
-  SpecializedList, UCompiler, Registry, URegistry, ULastOpenedList;
+  SpecializedList, UCompiler, Registry, URegistry, ULastOpenedList, Process;
 
 const
@@ -21 +21 @@
     AAbout: TAction;
     ABreakpointToggle: TAction;
+    ACompileAndRun: TAction;
+    AViewCompilers: TAction;
     AGenerateNumber: TAction;
     AShrinkSource: TAction;
@@ -68 +70 @@
     MenuItem28: TMenuItem;
     MenuItem29: TMenuItem;
+    MenuItem30: TMenuItem;
+    MenuItem31: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItemTarget: TMenuItem;
@@ -95 +99 @@
     ToolButton9: TToolButton;
     procedure ABreakpointToggleExecute(Sender: TObject);
+    procedure ACompileAndRunExecute(Sender: TObject);
     procedure ACompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -110 +115 @@
     procedure AShrinkSourceExecute(Sender: TObject);
     procedure AViewCompiledExecute(Sender: TObject);
+    procedure AViewCompilersExecute(Sender: TObject);
     procedure AViewInterpretterExecute(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@@ -135 +141 @@
     BrainFuckInterpreter: TBrainFuckInterpretter;
     BreakPoints: TListInteger;
-    Compilers: TListObject; // TListObject<TCompiler>
+    Compilers: TCompilerList;
     LastOpenedList: TLastOpenedList;
     OpenProjectOnStart: Boolean;
@@ -142 +148 @@
     procedure UpdateInterface;
     procedure UpdateStatusBar;
-    procedure UpdateTergetList;
+    procedure UpdateTargetList;
   end;
 
@@ -154 +160 @@
 uses
   UInterpretterForm, UApplicationInfo, UCompiledForm, UOptionsForm,
-  UCompilerDelphi, UCompilerPHP;
+  UCompilerDelphi, UCompilerPHP, UCompilersForm;
 
 resourcestring
   SEnterNumber = 'Enter number';
   SNumberGeneration = 'Number generation';
+  SProgramExited = 'Program exited';
+  SCompilerNotFound = 'Compiler "%s" not found';
+  SCompiledFileNotFound = 'Program compiled file "%s" not found';
 
 { TMainForm }
@@ -167 +176 @@
     ProjectOpen(LastOpenedList[0])
     else AProjectNew.Execute;
+  UpdateInterface;
 end;
 
@@ -234 +244 @@
       CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+    CompilerIndex := ReadIntegerWithDefault('SelectedCompiler', 0);
   finally
     Free;
   end;
   LastOpenedList.LoadFromRegistry(Root, Key);
+  Compilers.LoadFromRegistry(Root, Key);
 end;
 
 procedure TMainForm.SaveToRegistry(Root: HKEY; Key: string);
 begin
+  Compilers.SaveToRegistry(Root, Key);
   LastOpenedList.SaveToRegistry(Root, Key);
   with TRegistryEx.Create do
@@ -253 +266 @@
       WriteString('LanguageCode', CoolTranslator1.Language.Code)
       else DeleteValue('LanguageCode');
+    WriteInteger('SelectedCompiler', CompilerIndex);
   finally
     Free;
@@ -274 +288 @@
   ACompile.Enabled := ProjectFileName <> '';
   UpdateStatusBar;
+  UpdateTargetList;
 end;
 
@@ -281 +296 @@
 end;
 
-procedure TMainForm.UpdateTergetList;
+procedure TMainForm.UpdateTargetList;
 var
   I: Integer;
@@ -302 +317 @@
   BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
   BrainFuckCompiler := TBrainFuckCompiler.Create;
-  Compilers := TListObject.Create;
+  Compilers := TCompilerList.Create;
   Compilers.Add(TBrainFuckCompilerDelphi.Create);
   Compilers.Add(TBrainFuckCompilerPHP.Create);
-  UpdateTergetList;
+  UpdateTargetList;
   LastOpenedList := TLastOpenedList.Create;
   LastOpenedList.MenuItem := MenuItemOpenRecent;
@@ -352 +367 @@
 begin
   CompiledForm.Show;
+end;
+
+procedure TMainForm.AViewCompilersExecute(Sender: TObject);
+begin
+  FormCompilers.Show;
 end;
 
@@ -437 +457 @@
 end;
 
+procedure TMainForm.ACompileAndRunExecute(Sender: TObject);
+var
+  Process: TProcess;
+  CompiledFile: string;
+begin
+  with TBrainFuckCompiler(Compilers[CompilerIndex]) do begin
+    Optimization := coNormal;
+    Source := MemoSource.Text;
+    ProgramName := ExtractFileNameOnly(ProjectFileName);
+    Compile;
+    CompiledFile := ExtractFilePath(ProjectFileName) +
+      'compiled' + DirectorySeparator + Name + DirectorySeparator +
+      ExtractFileNameOnly(ProjectFileName) + SourceExtension;
+    ForceDirectoriesUTF8(ExtractFilePath(CompiledFile));
+    with TStringList.Create do
+    try
+      Text := Output;
+      SaveToFile(CompiledFile);
+    finally
+      Free;
+    end;
+    if FileExistsUTF8(CompilerPath) then
+    try
+      Process := TProcess.Create(nil);
+      Process.CommandLine := '"' + CompilerPath + '" "' + CompiledFile + '"';
+      Process.Options := [poWaitOnExit];
+      Process.Execute;
+    finally
+      Process.Free;
+    end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
+
+    if CompiledExtension <> '' then begin
+      CompiledFile := ExtractFilePath(CompiledFile) + ExtractFileNameOnly(CompiledFile) + CompiledExtension;
+      if FileExistsUTF8(CompiledFile) then
+      try
+        Process := TProcess.Create(nil);
+        Process.CommandLine := '"' + CompiledFile + '"';
+        Process.Options := [poWaitOnExit];
+        Process.Execute;
+      finally
+        Process.Free;
+      end else raise Exception.Create(Format(SCompiledFileNotFound, [CompiledFile]));
+    end;
+  end;
+end;
+
 procedure TMainForm.AProgramPauseExecute(Sender: TObject);
 begin