Changeset 28 for trunk/Compiler/UCompiler.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)
• Compiler/UCompiler.pas (modified) (4 diffs)

trunk

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

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

trunk/Compiler/UCompiler.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList;
+  Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList,
+  FileUtil, Process;
 
 type
@@ -26 +27 @@
     SourceExtension: string;
     CompiledExtension: string;
+    ProjectFileName: string;
     constructor Create; virtual;
     procedure OptimizeSource;
     procedure Compile; virtual;
+    procedure CompileToFile; virtual;
+    procedure Run; virtual;
   end;
 
@@ -39 +43 @@
 
 
+resourcestring
+  SCompilerNotFound = 'Compiler "%s" not found';
+  SCompiledFileNotFound = 'Program compiled file "%s" not found';
+
+
 implementation
+
 
 { TCompilerList }
@@ -99 +109 @@
 end;
 
+procedure TBrainFuckCompiler.CompileToFile;
+var
+  Process: TProcess;
+  CompiledFile: string;
+begin
+  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.CurrentDirectory := ExtractFilePath(CompilerPath);
+    Process.CommandLine := '"' + CompilerPath + '" "' + CompiledFile + '"';
+    Process.Options := [poWaitOnExit];
+    Process.Execute;
+  finally
+    Process.Free;
+  end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
+end;
+
+procedure TBrainFuckCompiler.Run;
+var
+  CompiledFile: string;
+  Process: TProcess;
+begin
+  CompiledFile := ExtractFilePath(ProjectFileName) +
+    'compiled' + DirectorySeparator + Name + DirectorySeparator +
+    ExtractFileNameOnly(ProjectFileName) + 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;
+
 
 

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