Changeset 19 for trunk/UBrainFuck.pas

Timestamp:

Feb 11, 2012, 10:18:19 PM (13 years ago)

Author:

chronos

Message:

• Modified: Compiler moved to separate unit file.
• Added: Compiler to PHP.
• Added: Loading list of available compilers and list them for selection in menu Program - Target.

File:

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

trunk/UBrainFuck.pas

@@ -11 +11 @@
   TBrainFuckInterpretter = class;
 
-  TCompilerTarget = (ctDelphi);
-  TCompilerOptimization = (coNone, coNormal);
-
-  { TBrainFuckCompiler }
-
-  TBrainFuckCompiler = class
-  private
-    Indent: Integer;
-    procedure AddLine(Text: string);
-  public
-    ProgramName: string;
-    Source: string;
-    Output: string;
-    Target: TCompilerTarget;
-    Optimization: TCompilerOptimization;
-    procedure OptimizeSource;
-    procedure Compile;
-  end;
 
   TRunState = (rsStopped, rsPaused, rsRunning);
@@ -321 +303 @@
 end;
 
-{ TBrainFuckCompiler }
-
-procedure TBrainFuckCompiler.AddLine(Text: string);
-begin
-  Output := Output + DupeString('  ', Indent) + Text + LineEnding;
-end;
-
-procedure TBrainFuckCompiler.OptimizeSource;
-begin
-  // Remove redundand code
-
-end;
-
-procedure TBrainFuckCompiler.Compile;
-var
-  I: Integer;
-begin
-  Indent := 0;
-  Output := '';
-
-  AddLine('program ' + ProgramName + ';');
-  AddLine('');
-  AddLine('{$APPTYPE CONSOLE}');
-  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] := 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);
-      end;
-      ']': begin
-        Dec(Indent);
-        AddLine('end;');
-      end;
-    end;
-  end;
-  Dec(Indent);
-  AddLine('end.');
-end;
-
 end.