Changeset 33 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Feb 18, 2012, 11:08:44 PM (13 years ago)

Author:

chronos

Message:

• Modified: CompiledForm replaced by compiled source tab in PageControl on MainForm.
• Added: Function for switching position between source code and target code.

File:

• trunk/Target/UTargetInterpretter.pas (modified) (9 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -18 +18 @@
   end;
 
-  TBrainFuckCommand = (cmNone, cmInc, cmDec, cmPointerInc, cmPointerDec,
-    cmOutput, cmInput, cmLoopStart, cmLoopEnd);
+  TBrainFuckCommand = (cmNoOperation, cmInc, cmDec, cmPointerInc, cmPointerDec,
+    cmOutput, cmInput, cmLoopStart, cmLoopEnd, cmDebug);
 
   TCommandHandler = procedure of object;
@@ -45 +45 @@
     procedure CommandLoopStart;
     procedure CommandLoopEnd;
+    procedure SingleStep;
+    procedure Reset;
   protected
-    procedure SetSource(AValue: string); override;
+    function GetTargetCode: string; override;
   public
-    FSource: array of TBrainFuckCommand;
+    FProgram: array of TBrainFuckCommand;
     SourceJump: array of Integer;
     SourcePosition: Integer;
@@ -58 +60 @@
     Input: string;
     InputPosition: Integer;
-    procedure Reset;
-    procedure SingleStep;
+    procedure Compile; override;
     procedure Run; override;
     procedure Pause; override;
@@ -72 +73 @@
   end;
 
+const
+  BrainFuckCommandText: array[TBrainFuckCommand] of Char = (
+    ' ', '+', '-', '>', '<', '.', ',', '[', ']', '@');
+
 
 implementation
@@ -88 +93 @@
 begin
   repeat
-    while (Parent.SourcePosition < Length(Parent.FSource)) and (Parent.State <> rsStopped) do begin
+    while (Parent.SourcePosition < Length(Parent.FProgram)) and (Parent.State <> rsStopped) do begin
       Parent.SingleStep;
       while Parent.State = rsPaused do begin
@@ -117 +122 @@
 end;
 
-procedure TTargetInterpretter.SetSource(AValue: string);
+procedure TTargetInterpretter.Compile;
 var
   I: Integer;
   Pos: Integer;
 begin
-  SetLength(FSource, Length(AValue));
+  DebugSteps.Clear;
+  SetLength(FProgram, Length(FSourceCode));
   Pos := 0;
-  for I := 1 to Length(AValue) do begin
-    case AValue[I] of
-      '+': FSource[Pos] := cmInc;
-      '-': FSource[Pos] := cmDec;
-      '>': FSource[Pos] := cmPointerInc;
-      '<': FSource[Pos] := cmPointerDec;
-      ',': FSource[Pos] := cmInput;
-      '.': FSource[Pos] := cmOutput;
-      '[': FSource[Pos] := cmLoopStart;
-      ']': FSource[Pos] := cmLoopEnd;
+  for I := 1 to Length(FSourceCode) do begin
+    case FSourceCode[I] of
+      '+': begin
+        FProgram[Pos] := cmInc;
+        DebugSteps.AddStep(I - 1, Pos, soNormal);
+      end;
+      '-': begin
+        FProgram[Pos] := cmDec;
+        DebugSteps.AddStep(I - 1, Pos, soNormal);
+      end;
+      '>': begin
+        FProgram[Pos] := cmPointerInc;
+        DebugSteps.AddStep(I - 1, Pos, soNormal);
+      end;
+      '<': begin
+        FProgram[Pos] := cmPointerDec;
+        DebugSteps.AddStep(I - 1, Pos, soNormal);
+      end;
+      ',': begin
+        FProgram[Pos] := cmInput;
+        DebugSteps.AddStep(I - 1, Pos, soNormal);
+      end;
+      '.': begin
+        FProgram[Pos] := cmOutput;
+        DebugSteps.AddStep(I - 1, Pos, soNormal);
+      end;
+      '[': begin
+        FProgram[Pos] := cmLoopStart;
+        DebugSteps.AddStep(I - 1, Pos, soStepIn);
+      end;
+      ']': begin
+        FProgram[Pos] := cmLoopEnd;
+        DebugSteps.AddStep(I - 1, Pos, soStepOut);
+      end
       else Dec(Pos);
     end;
     Inc(Pos);
   end;
-  SetLength(FSource, Pos);
+  SetLength(FProgram, Pos);
 end;
 
@@ -160 +190 @@
   I: Integer;
 begin
-  SetLength(SourceJump, Length(FSource));
+  SetLength(SourceJump, Length(FProgram));
   //FillChar(Pointer(SourceJump)^, Length(SourceJump), 0);
-  for I := 0 to Length(FSource) - 1 do
+  for I := 0 to Length(FProgram) - 1 do
     SourceJump[I] := 0;
   SetLength(Loop, 0);
-  for I := 0 to Length(FSource) - 1 do begin
-    case FSource[I] of
+  for I := 0 to Length(FProgram) - 1 do begin
+    case FProgram[I] of
       cmLoopStart: begin
         SetLength(Loop, Length(Loop) + 1);
@@ -252 +282 @@
 end;
 
+function TTargetInterpretter.GetTargetCode: string;
+var
+  I: Integer;
+begin
+  SetLength(Result, Length(FProgram));
+  for I := 0 to Length(FProgram) - 1 do
+    Result[I + 1] := BrainFuckCommandText[FProgram[I]];
+end;
+
 procedure TTargetInterpretter.SingleStep;
 begin
-  FCommandTable[FSource[SourcePosition]];
+  FCommandTable[FProgram[SourcePosition]];
   Inc(SourcePosition);
   Inc(FStepCount);
@@ -281 +320 @@
   inherited;
   Name := 'Interpretter';
-  Capabilities := [tcRun, tcPause, tcStop];
+  Capabilities := [tcRun, tcPause, tcStop, tcCompile, tcStepOut, tcStepInto,
+    tcStepOver, tcRunToCursor];
   MemorySize := 30000;
   CellSize := 256;