Changeset 10

Timestamp:

Feb 9, 2012, 8:39:34 PM (12 years ago)

Author:

chronos

Message:

• Modified: Minor changes to compilation.

Location:

trunk

Files:

• . (modified) (1 prop)
• UBrainFuck.pas (modified) (3 diffs)
• UMainForm.pas (modified) (2 diffs)

trunk

@@ -2 +2 @@
 LazFuckIDE.exe
 LazFuckIDE.lps
+backup

@@ -2 +2 @@
 LazFuckIDE.exe
 LazFuckIDE.lps
+backup

trunk/UBrainFuck.pas

@@ -19 +19 @@
     procedure AddLine(Text: string);
   public
+    ProgramName: string;
     Source: string;
     Output: string;
@@ -228 +229 @@
 procedure TBrainFuckCompiler.AddLine(Text: string);
 begin
-  Output := Output + DupeString(' ', Indent) + Text + LineEnding;
+  Output := Output + DupeString('  ', Indent) + Text + LineEnding;
 end;
 
@@ -238 +239 @@
   Output := '';
 
-  AddLine('program Brainfuck;');
+  AddLine('program ' + ProgramName + ';');
   AddLine('');
   AddLine('{$APPTYPE CONSOLE}');
   AddLine('');
-  AddLine('uses');
-  AddLine('  Classes;');
-  AddLine('  ');
   AddLine('var');
   AddLine('  Memory: array[0..30000] of Char;');
   AddLine('  Position: Integer;');
   AddLine('begin');
+  Inc(Indent);
   for I := 1 to Length(Source) do begin
     case Source[I] of
       '>': AddLine('Inc(Position);');
       '<': AddLine('Dec(Position);');
-      '+': AddLine('Memory[Position] := Memory[Position] + 1');
-      '-': AddLine('Memory[Position] := Memory[Position] - 1');
+      '+': AddLine('Memory[Position] := Succ(Memory[Position]);');
+      '-': AddLine('Memory[Position] := Pred(Memory[Position]);');
       '.': AddLine('Write(Memory[Position]);');
       ',': AddLine('Read(Memory[Position]);');
       '[': begin
-        AddLine('while Memory[Position] <> 0 do begin');
-        Inc(Indent, 2);
+        AddLine('while Memory[Position] <> #0 do begin');
+        Inc(Indent);
       end;
       ']': begin
-        Dec(Indent, 2);
+        Dec(Indent);
         AddLine('end;');
       end;
     end;
   end;
+  Dec(Indent);
   AddLine('end.');
 end;

trunk/UMainForm.pas

@@ -182 +182 @@
 begin
   BrainFuckCompiler.Source := MemoSource.Text;
+  BrainFuckCompiler.ProgramName := ExtractFileNameOnly(ProjectFileName);
   BrainFuckCompiler.Compile;
   CompiledForm.MemoCompiled.Text := BrainFuckCompiler.Output;
@@ -207 +208 @@
 procedure TMainForm.AProjectNewExecute(Sender: TObject);
 begin
-  ProjectFileName := 'Project.bf';
+  ProjectFileName := 'Project.b';
   MemoSource.Clear;
   UpdateInterface;

@@ -2 +2 @@
 LazFuckIDE.exe
 LazFuckIDE.lps
+backup