Changeset 9 for trunk/UBrainFuck.pas

Timestamp:

Feb 9, 2012, 4:10:10 PM (12 years ago)

Author:

chronos

Message:

• Added: Easy compiler to Delphi.

File:

• trunk/UBrainFuck.pas (modified) (2 diffs)

trunk/UBrainFuck.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, Forms;
+  Classes, SysUtils, Dialogs, Forms, StrUtils;
 
 type
   TBrainFuckInterpretter = class;
 
-  { TBrainFuck }
-
-  TBrainFuck = class
-    Source: TStringList;
-    Output: TStringList;
+  TCompilerTarget = (ctDelphi);
+  { TBrainFuckCompiler }
+
+  TBrainFuckCompiler = class
+  private
+    Indent: Integer;
+    procedure AddLine(Text: string);
+  public
+    Source: string;
+    Output: string;
+    Target: TCompilerTarget;
     procedure Compile;
   end;
@@ -218 +224 @@
 end;
 
-{ TBrainFuck }
-
-procedure TBrainFuck.Compile;
-begin
-
+{ TBrainFuckCompiler }
+
+procedure TBrainFuckCompiler.AddLine(Text: string);
+begin
+  Output := Output + DupeString(' ', Indent) + Text + LineEnding;
+end;
+
+procedure TBrainFuckCompiler.Compile;
+var
+  I: Integer;
+begin
+  Indent := 0;
+  Output := '';
+
+  AddLine('program Brainfuck;');
+  AddLine('');
+  AddLine('{$APPTYPE CONSOLE}');
+  AddLine('');
+  AddLine('uses');
+  AddLine('  Classes;');
+  AddLine('  ');
+  AddLine('var');
+  AddLine('  Memory: array[0..30000] of Char;');
+  AddLine('  Position: Integer;');
+  AddLine('begin');
+  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('Write(Memory[Position]);');
+      ',': AddLine('Read(Memory[Position]);');
+      '[': begin
+        AddLine('while Memory[Position] <> 0 do begin');
+        Inc(Indent, 2);
+      end;
+      ']': begin
+        Dec(Indent, 2);
+        AddLine('end;');
+      end;
+    end;
+  end;
+  AddLine('end.');
 end;