Changeset 30 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Feb 18, 2012, 7:49:17 PM (13 years ago)

Author:

chronos

Message:

• Renamed: Compilers renamed to Targets. Interpretter will be one of possible targets.

Location:

trunk/Target

Files:

• . (moved) (moved from trunk/Compiler )
• UTargetInterpretter.pas (moved) (moved from trunk/UBrainFuck.pas ) (20 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -1 @@
-unit UBrainFuck;
+unit UTargetInterpretter;
 
 {$mode Delphi}{$H+}
@@ -9 +9 @@
 
 type
-  TBrainFuckInterpretter = class;
+  TTargetInterpretter = class;
 
 
   TRunState = (rsStopped, rsPaused, rsRunning);
 
-  { TBrainFuckInterpretterThread }
-
-  TBrainFuckInterpretterThread = class(TThread)
-    Parent: TBrainFuckInterpretter;
+  { TTargetInterpretterThread }
+
+  TTargetInterpretterThread = class(TThread)
+    Parent: TTargetInterpretter;
     procedure Execute; override;
   end;
@@ -26 +26 @@
   TCommandHandler = procedure of object;
 
-  { TBrainFuckInterpretter }
-
-  TBrainFuckInterpretter = class
+  { TTargetInterpretter }
+
+  TTargetInterpretter = class
   private
     FCellSize: Integer;
@@ -34 +34 @@
     FState: TRunState;
     FThreadState: Boolean;
-    FThread: TBrainFuckInterpretterThread;
+    FThread: TTargetInterpretterThread;
     FStepCount: Integer;
     FCommandTable: array[TBrainFuckCommand] of TCommandHandler;
@@ -88 +88 @@
   SMemoryCellOutOfRange = 'Memory cell %s value out of range';
 
-{ TBrainFuckInterpretterThread }
-
-procedure TBrainFuckInterpretterThread.Execute;
+{ TTargetInterpretterThread }
+
+procedure TTargetInterpretterThread.Execute;
 begin
   repeat
@@ -103 +103 @@
 end;
 
-{ TBrainFuckInterpretter }
-
-procedure TBrainFuckInterpretter.SetState(AValue: TRunState);
+{ TTargetInterpretter }
+
+procedure TTargetInterpretter.SetState(AValue: TRunState);
 begin
   if FState = AValue then Exit;
@@ -112 +112 @@
 end;
 
-function TBrainFuckInterpretter.GetMemorySize: Integer;
+function TTargetInterpretter.GetMemorySize: Integer;
 begin
   Result := Length(Memory);
 end;
 
-procedure TBrainFuckInterpretter.SetMemorySize(AValue: Integer);
+procedure TTargetInterpretter.SetMemorySize(AValue: Integer);
 begin
   SetLength(Memory, AValue);
 end;
 
-procedure TBrainFuckInterpretter.SetSource(AValue: string);
+procedure TTargetInterpretter.SetSource(AValue: string);
 var
   I: Integer;
@@ -146 +146 @@
 end;
 
-procedure TBrainFuckInterpretter.SetThread(State: Boolean);
+procedure TTargetInterpretter.SetThread(State: Boolean);
 begin
   if FThreadState = State then Exit;
   FThreadState := State;
   if State then begin
-    FThread := TBrainFuckInterpretterThread.Create(True);
+    FThread := TTargetInterpretterThread.Create(True);
     FThread.Parent := Self;
     FThread.FreeOnTerminate := False;
@@ -160 +160 @@
 end;
 
-procedure TBrainFuckInterpretter.PrepareJumpTable;
+procedure TTargetInterpretter.PrepareJumpTable;
 var
   Loop: array of Integer;
@@ -188 +188 @@
 end;
 
-procedure TBrainFuckInterpretter.CommandInc;
+procedure TTargetInterpretter.CommandInc;
 begin
   Memory[MemoryPosition] := ((Memory[MemoryPosition] + 1) mod CellSize);
 end;
 
-procedure TBrainFuckInterpretter.CommandDec;
+procedure TTargetInterpretter.CommandDec;
 begin
   Memory[MemoryPosition] := ((Memory[MemoryPosition] - 1) mod CellSize);
 end;
 
-procedure TBrainFuckInterpretter.CommandPointerInc;
+procedure TTargetInterpretter.CommandPointerInc;
 begin
   if MemoryPosition < MemorySize then Inc(MemoryPosition)
@@ -204 +204 @@
 end;
 
-procedure TBrainFuckInterpretter.CommandPointerDec;
+procedure TTargetInterpretter.CommandPointerDec;
 begin
   if MemoryPosition > 0 then Dec(MemoryPosition)
@@ -210 +210 @@
 end;
 
-procedure TBrainFuckInterpretter.CommandInput;
+procedure TTargetInterpretter.CommandInput;
 begin
   while (InputPosition > Length(Input)) and (FState <> rsStopped) do begin
@@ -221 +221 @@
 end;
 
-procedure TBrainFuckInterpretter.CommandOutput;
+procedure TTargetInterpretter.CommandOutput;
 begin
   if OutputPosition > Length(Output) then
@@ -229 +229 @@
 end;
 
-procedure TBrainFuckInterpretter.CommandLoopStart;
+procedure TTargetInterpretter.CommandLoopStart;
 begin
   if Memory[MemoryPosition] = 0 then
@@ -235 +235 @@
 end;
 
-procedure TBrainFuckInterpretter.CommandLoopEnd;
+procedure TTargetInterpretter.CommandLoopEnd;
 begin
   if Memory[MemoryPosition] > 0 then
@@ -241 +241 @@
 end;
 
-procedure TBrainFuckInterpretter.Reset;
+procedure TTargetInterpretter.Reset;
 var
   I: Integer;
@@ -257 +257 @@
 end;
 
-procedure TBrainFuckInterpretter.SingleStep;
+procedure TTargetInterpretter.SingleStep;
 begin
   FCommandTable[FSource[SourcePosition]];
@@ -264 +264 @@
 end;
 
-procedure TBrainFuckInterpretter.Run;
+procedure TTargetInterpretter.Run;
 begin
   SetState(rsRunning);
@@ -272 +272 @@
 end;
 
-procedure TBrainFuckInterpretter.Pause;
+procedure TTargetInterpretter.Pause;
 begin
   if State = rsRunning then SetState(rsPaused);
 end;
 
-procedure TBrainFuckInterpretter.Stop;
+procedure TTargetInterpretter.Stop;
 begin
   SetState(rsStopped);
 end;
 
-constructor TBrainFuckInterpretter.Create;
+constructor TTargetInterpretter.Create;
 begin
   MemorySize := 30000;
@@ -296 +296 @@
 end;
 
-destructor TBrainFuckInterpretter.Destroy;
+destructor TTargetInterpretter.Destroy;
 begin
   FState := rsStopped;