Changeset 28 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 13, 2012, 12:26:12 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Compile and run C project using MinGW gcc.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UMainForm.pas (modified) (3 diffs)

trunk

@@ -4 +4 @@
 backup
 LazFuckIDE
+compiled

@@ -4 +4 @@
 backup
 LazFuckIDE
+compiled

trunk/Forms/UMainForm.pas

@@ -166 +166 @@
   SNumberGeneration = 'Number generation';
   SProgramExited = 'Program exited';
-  SCompilerNotFound = 'Compiler "%s" not found';
-  SCompiledFileNotFound = 'Program compiled file "%s" not found';
 
 { TMainForm }
@@ -459 +457 @@
 
 procedure TMainForm.ACompileAndRunExecute(Sender: TObject);
-var
-  Process: TProcess;
-  CompiledFile: string;
 begin
   with TBrainFuckCompiler(Compilers[CompilerIndex]) do begin
@@ -467 +462 @@
     Source := MemoSource.Text;
     ProgramName := ExtractFileNameOnly(ProjectFileName);
+    ProjectFileName := Self.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;
+    CompileToFile;
+    if CompiledExtension <> '' then Run;
   end;
 end;

@@ -4 +4 @@
 backup
 LazFuckIDE
+compiled