Changeset 5 for trunk/UBrainFuck.pas

Timestamp:

Feb 9, 2012, 2:51:41 PM (13 years ago)

Author:

chronos

Message:

• Added: BrainFuck code examples.
• Added: View of data memory in interpretter.
• Added: Show execution information in interpretter form.

File:

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

trunk/UBrainFuck.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs;
+  Classes, SysUtils, Dialogs, Forms;
 
 type
@@ -35 +35 @@
     Input: string;
     InputPosition: Integer;
+    StepCount: Integer;
     procedure Reset;
     procedure SingleStep;
@@ -48 +49 @@
   SProgramLowerLimit = 'Program run over lower limit';
   SProgramUpperLimit = 'Program run over upper limit';
+  SReadInputError = 'Read input error';
 
 { TBrainFuckInterpreter }
@@ -60 +62 @@
   Character: string;
 begin
-  Character := Copy(Input, InputPosition, 1);
-  Result := Ord(Character[1]);
-  Inc(InputPosition);
+  if InputPosition < Length(Input) then begin
+    Character := Copy(Input, InputPosition, 1);
+    Result := Ord(Character[1]);
+    Inc(InputPosition);
+  end else
+    raise Exception.Create(SReadInputError);
 end;
 
@@ -84 +89 @@
     Memory[I] := 0;
   SetLength(Loop, 0);
+  StepCount := 0;
 end;
 
@@ -129 +135 @@
   end;
   Inc(SourcePosition);
+  Inc(StepCount);
 end;
 
@@ -134 +141 @@
 begin
   Reset;
-  while SourcePosition < Length(Source) do
+  while SourcePosition < Length(Source) do begin
     SingleStep;
+    Application.ProcessMessages;
+  end;
 end;