Changeset 52 for trunk/Target/UTarget.pas

Timestamp:

Jul 26, 2012, 3:11:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optimization functions moved to shared place in TTarget.
• Modified: Text source is loaded to program source array of brainfuck commands for better processing.

File:

• trunk/Target/UTarget.pas (modified) (4 diffs)

trunk/Target/UTarget.pas

@@ -66 +66 @@
   end;
 
+  TBrainFuckCommand = (cmNoOperation, cmInc, cmDec, cmPointerInc, cmPointerDec,
+    cmOutput, cmInput, cmLoopStart, cmLoopEnd, cmDebug);
+
   { TTarget }
 
   TTarget = class
-  private
+  protected
     FCompiled: Boolean;
+    function SourceReadNext: Char;
+    function IsOpcode(Opcode: Char): Boolean;
+    function CheckClear: Boolean;
+    function CheckOccurence(C: TBrainFuckCommand): Integer;
   protected
     FSourceCode: string;
+    FProgram: array of TBrainFuckCommand;
+    FProgramIndex: Integer;
     FTargetCode: string;
+    FTargetIndex: Integer;
     Indent: Integer;
     FState: TRunState;
     FOnChangeState: TNotifyEvent;
+    procedure LoadProgram;
     procedure SetSourceCode(AValue: string); virtual;
     function GetTargetCode: string; virtual;
@@ -119 +130 @@
     property Compiled: Boolean read FCompiled write FCompiled;
     property ExecutionPosition: Integer read GetExecutionPosition;
+    property ProgramIndex: Integer read FProgramIndex;
   end;
 
@@ -377 +389 @@
 procedure TTarget.Compile;
 begin
+  LoadProgram;
   Compiled := True;
 end;
@@ -489 +502 @@
 end;
 
+function TTarget.CheckOccurence(C: TBrainFuckCommand): Integer;
+begin
+  Result := 1;
+  if Optimization = coNormal then
+  while ((FProgramIndex + 1) <= Length(FProgram)) and (FProgram[FProgramIndex + 1] = C) do begin
+    Inc(Result);
+    Inc(FProgramIndex);
+  end;
+end;
+
+procedure TTarget.LoadProgram;
+var
+  I: Integer;
+begin
+  inherited;
+  DebugSteps.Clear;
+  SetLength(FProgram, Length(FSourceCode));
+  FProgramIndex := 0;
+  for I := 1 to Length(FSourceCode) do begin
+    case FSourceCode[I] of
+      '+': begin
+        FProgram[FProgramIndex] := cmInc;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soNormal);
+      end;
+      '-': begin
+        FProgram[FProgramIndex] := cmDec;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soNormal);
+      end;
+      '>': begin
+        FProgram[FProgramIndex] := cmPointerInc;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soNormal);
+      end;
+      '<': begin
+        FProgram[FProgramIndex] := cmPointerDec;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soNormal);
+      end;
+      ',': begin
+        FProgram[FProgramIndex] := cmInput;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soNormal);
+      end;
+      '.': begin
+        FProgram[FProgramIndex] := cmOutput;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soNormal);
+      end;
+      '[': begin
+        FProgram[FProgramIndex] := cmLoopStart;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soStepIn);
+      end;
+      ']': begin
+        FProgram[FProgramIndex] := cmLoopEnd;
+        DebugSteps.AddStep(I - 1, FProgramIndex, soStepOut);
+      end
+      else Dec(FProgramIndex);
+    end;
+    Inc(FProgramIndex);
+  end;
+  SetLength(FProgram, FProgramIndex);
+end;
+
+function TTarget.SourceReadNext: Char;
+begin
+//  while FProgramIndex;
+end;
+
+function TTarget.IsOpcode(Opcode: Char): Boolean;
+begin
+  Result := (Opcode = '+') or (Opcode = '-') or (Opcode = '<') or (Opcode = '>') or
+    (Opcode = '[') or (Opcode = ']') or (Opcode = ',') or (Opcode = '.');
+end;
+
+function TTarget.CheckClear: Boolean;
+begin
+  Result := (FProgram[FProgramIndex] = cmLoopStart) and (Length(FProgram) >= FProgramIndex + 2) and
+    (FProgram[FProgramIndex + 1] = cmDec) and (FProgram[FProgramIndex + 2] = cmLoopEnd);
+end;
+
 end.