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

trunk

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

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

trunk/Compiler/UCompilerC.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UCompiler;
+  Classes, SysUtils, FileUtil, UCompiler, Process;
 
 type
@@ -15 +15 @@
     constructor Create; override;
     procedure Compile; override;
+    procedure CompileToFile; override;
+    procedure Run; override;
   end;
 
@@ -28 +30 @@
   CompiledExtension := '.exe';
   {$IFDEF Windows}
-  CompilerPath := 'C:\Program Files\Dev-Cpp\mingw32-gcc.exe';
+  CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe -o %1:s';
   {$ENDIF}
   {$IFDEF Linux}
@@ -59 +61 @@
   AddLine('{');
   Inc(Indent);
-  AddLine('char[30000] Memory;');
+  AddLine('char Memory[30000];');
   AddLine('int Pos;');
   AddLine('char ReadChar;');
@@ -83 +85 @@
         AddLine('Memory[Pos] = Memory[Pos] - ' + IntToStr(Sum) + ';');
       end;
-      '.': AddLine('putc(Memory[Pos]);');
-      ',': AddLine('getc(Memory[Pos]);');
+      '.': AddLine('putchar(Memory[Pos]);');
+      ',': AddLine('Memory[Pos] = getchar();');
       '[': begin
-        AddLine('while(Memory[Pos] <> 0)');
+        AddLine('while(Memory[Pos] != 0)');
         AddLine('{');
         Inc(Indent);
@@ -102 +104 @@
 end;
 
+procedure TBrainFuckCompilerC.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 + '" -o ' +
+      ExtractFilePath(CompiledFile) + ExtractFileNameOnly(CompiledFile) + CompiledExtension;
+    Process.Options := [poWaitOnExit];
+    Process.Execute;
+  finally
+    Process.Free;
+  end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
+end;
+
+procedure TBrainFuckCompilerC.Run;
+begin
+  inherited Run;
+end;
+
 end.
 

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