Changeset 5 for trunk/UInterpreterForm.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/UInterpreterForm.pas (modified) (3 diffs)

trunk/UInterpreterForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls;
+  ExtCtrls, ComCtrls;
+
+const
+  RowSize = 16;
 
 type
@@ -16 +19 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label6: TLabel;
+    LabelStepCounter: TLabel;
+    LabelProgramPointer: TLabel;
+    Label5: TLabel;
+    LabelMemoryPointer: TLabel;
+    ListViewMemory: TListView;
     MemoInput: TMemo;
     MemoOutput: TMemo;
     Panel1: TPanel;
     Panel2: TPanel;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    Splitter1: TSplitter;
+    Splitter2: TSplitter;
+    Timer1: TTimer;
+    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
+    procedure Timer1Timer(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    procedure RefreshListViewMemory;
   end;
 
@@ -31 +49 @@
 implementation
 
+uses
+  UMainForm;
+
 {$R *.lfm}
+
+{ TInterpreterForm }
+
+procedure TInterpreterForm.Timer1Timer(Sender: TObject);
+begin
+  LabelProgramPointer.Caption := IntToStr(MainForm.BrainFuckInterpreter.SourcePosition);
+  LabelMemoryPointer.Caption := IntToStr(MainForm.BrainFuckInterpreter.MemoryPosition);
+  LabelStepCounter.Caption := IntToStr(MainForm.BrainFuckInterpreter.StepCount);
+  RefreshListViewMemory;
+  MemoOutput.Lines.Text := MainForm.BrainFuckInterpreter.Output;
+end;
+
+procedure TInterpreterForm.RefreshListViewMemory;
+begin
+  ListViewMemory.Items.Count := Trunc(Length(MainForm.BrainFuckInterpreter.Memory) / RowSize);
+  ListViewMemory.Refresh;
+end;
+
+procedure TInterpreterForm.ListViewMemoryData(Sender: TObject; Item: TListItem);
+var
+  Row: string;
+  I: Integer;
+begin
+  with MainForm.BrainFuckInterpreter do
+  if (Item.Index >= 0) and (Item.Index < Trunc(Length(Memory) / RowSize)) then begin
+    Item.Caption := IntToHex(Item.Index * RowSize, 8);
+    Row := '';
+    for I := 0 to RowSize - 1 do
+      Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
+    Item.SubItems.Add(Row);
+  end;
+end;
 
 end.