Changeset 14 for trunk/UBrainFuck.pas

Timestamp:

Feb 11, 2012, 6:27:10 PM (12 years ago)

Author:

chronos

Message:

• Added: Support for memory cell up to Integer size. Default 256.
• Fixed: Application now can be closed if running program is waiting to new key press.

File:

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

trunk/UBrainFuck.pas

@@ -43 +43 @@
   TBrainFuckInterpretter = class
   private
+    FCellSize: Integer;
     FOnChangeState: TNotifyEvent;
     FState: TRunState;
@@ -48 +49 @@
     FThread: TBrainFuckInterpretterThread;
     FStepCount: Integer;
+    function GetMemorySize: Integer;
     function GetSource: string;
+    procedure SetMemorySize(AValue: Integer);
     procedure SetSource(AValue: string);
     procedure SetState(AValue: TRunState);
     procedure Write(Value: Byte);
     function Read: Byte;
+    function TryRead(Output: Byte): Boolean;
     function ReadCode: Char;
     procedure SetThread(State: Boolean);
@@ -61 +65 @@
     SourcePosition: Integer;
     SourceBreakpoint: array of Boolean;
-    Memory: array of Byte;
+    Memory: array of Integer;
     MemoryPosition: Integer;
     Output: string;
@@ -77 +81 @@
     property StepCount: Integer read FStepCount;
     property Source: string read GetSource write SetSource;
+    property MemorySize: Integer read GetMemorySize write SetMemorySize;
+    property CellSize: Integer read FCellSize write FCellSize;
   end;
 
@@ -88 +94 @@
   SJumpTableInsistent = 'Jump table is inconsistent';
   SJumpTableColision = 'Jump table colision';
+  SMemoryCellOutOfRange = 'Memory cell %s value out of range';
 
 { TBrainFuckInterpretterThread }
@@ -128 +135 @@
 end;
 
+function TBrainFuckInterpretter.GetMemorySize: Integer;
+begin
+  Result := Length(Memory);
+end;
+
+procedure TBrainFuckInterpretter.SetMemorySize(AValue: Integer);
+begin
+  SetLength(Memory, AValue);
+end;
+
 procedure TBrainFuckInterpretter.SetSource(AValue: string);
 var
@@ -140 +157 @@
 function TBrainFuckInterpretter.Read: Byte;
 begin
-  while InputPosition >= Length(Input) do begin
+  while (InputPosition >= Length(Input)) and (FState <> rsStopped) do begin
     Sleep(1);
   end;
-  Result := Ord(Input[InputPosition + 1]);
-  Inc(InputPosition);
+  if InputPosition < Length(Input) then begin
+    Result := Ord(Input[InputPosition + 1]);
+    Inc(InputPosition);
+  end else Result := 0;
+end;
+
+function TBrainFuckInterpretter.TryRead(Output: Byte): Boolean;
+begin
+  if InputPosition >= Length(Input) then Result := False
+  else begin
+    Output := Ord(Input[InputPosition + 1]);
+    Inc(InputPosition);
+    Result := True;
+  end;
 end;
 
@@ -217 +246 @@
 begin
   case ReadCode of
-    '>': if MemoryPosition < Length(Memory) then Inc(MemoryPosition)
+    '>': if MemoryPosition < MemorySize then Inc(MemoryPosition)
       else raise Exception.Create(SProgramUpperLimit);
     '<': if MemoryPosition > 0 then Dec(MemoryPosition)
       else raise Exception.Create(SProgramLowerLimit);
-    '+': Memory[MemoryPosition] := Memory[MemoryPosition] + 1;
-    '-': Memory[MemoryPosition] := Memory[MemoryPosition] - 1;
+    '+': Memory[MemoryPosition] := ((Memory[MemoryPosition] + 1) mod CellSize);
+    '-': Memory[MemoryPosition] := ((Memory[MemoryPosition] - 1) mod CellSize);
     '.': Write(Memory[MemoryPosition]);
     ',': Memory[MemoryPosition] := Read;
@@ -282 +311 @@
 constructor TBrainFuckInterpretter.Create;
 begin
-  SetLength(Memory, 32000);
+  MemorySize := 30000;
+  CellSize := 256;
 end;
 
 destructor TBrainFuckInterpretter.Destroy;
 begin
+  FState := rsStopped;
   SetThread(False);
   inherited Destroy;