Changeset 13 for trunk/UBrainFuck.pas

Timestamp:

Feb 11, 2012, 5:53:25 PM (13 years ago)

Author:

chronos

Message:

• Added: Options form.
• Modified: Interpretter now accept source code as string again.

File:

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

trunk/UBrainFuck.pas

@@ -48 +48 @@
     FThread: TBrainFuckInterpretterThread;
     FStepCount: Integer;
+    function GetSource: string;
+    procedure SetSource(AValue: string);
     procedure SetState(AValue: TRunState);
     procedure Write(Value: Byte);
@@ -55 +57 @@
     procedure PrepareJumpTable;
   public
-    Source: array of Char;
+    FSource: array of Char;
     SourceJump: array of Integer;
     SourcePosition: Integer;
+    SourceBreakpoint: array of Boolean;
     Memory: array of Byte;
     MemoryPosition: Integer;
@@ -73 +76 @@
     property OnChangeState: TNotifyEvent read FOnChangeState write FOnChangeState;
     property StepCount: Integer read FStepCount;
+    property Source: string read GetSource write SetSource;
   end;
 
@@ -90 +94 @@
 begin
   repeat
-    while (Parent.SourcePosition < Length(Parent.Source)) and (Parent.State <> rsStopped) do begin
+    while (Parent.SourcePosition < Length(Parent.FSource)) and (Parent.State <> rsStopped) do begin
       Parent.SingleStep;
       while Parent.State = rsPaused do begin
@@ -114 +118 @@
 end;
 
+function TBrainFuckInterpretter.GetSource: string;
+var
+  I: Integer;
+begin
+  SetLength(Result, Length(FSource));
+  //Move(Pointer(Result)^, Pointer(FSource)^, Length(Result));
+  for I := 0 to Length(FSource) - 1 do
+    Result[I + 1] := FSource[I];
+end;
+
+procedure TBrainFuckInterpretter.SetSource(AValue: string);
+var
+  I: Integer;
+begin
+  SetLength(FSource, Length(AValue));
+  //Move(Pointer(AValue)^, Pointer(FSource)^, Length(AValue));
+  for I := 0 to Length(FSource) - 1 do
+    FSource[I] := AValue[I + 1];
+end;
+
 function TBrainFuckInterpretter.Read: Byte;
 begin
@@ -125 +149 @@
 function TBrainFuckInterpretter.ReadCode: Char;
 begin
-  Result := Source[SourcePosition];
+  Result := FSource[SourcePosition];
 end;
 
@@ -148 +172 @@
   I: Integer;
 begin
-  SetLength(SourceJump, Length(Source));
-  FillChar(Pointer(SourceJump)^, Length(SourceJump), 0);
+  SetLength(SourceJump, Length(FSource));
+  //FillChar(Pointer(SourceJump)^, Length(SourceJump), 0);
+  for I := 0 to Length(FSource) - 1 do
+    SourceJump[I] := 0;
   SetLength(Loop, 0);
-  for I := 0 to Length(Source) - 1 do begin
-    case Source[I] of
+  for I := 0 to Length(FSource) - 1 do begin
+    case FSource[I] of
       '[': begin
         SetLength(Loop, Length(Loop) + 1);
@@ -170 +196 @@
 
 procedure TBrainFuckInterpretter.Reset;
+var
+  I: Integer;
 begin
   PrepareJumpTable;
@@ -176 +204 @@
   Output := '';
   MemoryPosition := 0;
-  FillChar(Pointer(Memory)^, Length(Memory), 0);
+  //FillChar(Pointer(Memory)^, Length(Memory), 0);
+  for I := 0 to Length(Memory) - 1 do
+    Memory[I] := 0;
   FStepCount := 0;
 end;