Changeset 16 for trunk/UMainForm.pas

Timestamp:

Feb 11, 2012, 7:12:30 PM (13 years ago)

Author:

chronos

Message:

• Added: Function for formating source using text indentation according loop nesting.

File:

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

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
-  Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator,
+  Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils,
   SpecializedList;
 
@@ -17 +17 @@
     ACompile: TAction;
     AAbout: TAction;
-    ABreakpointSet: TAction;
-    ABreakpointUnset: TAction;
+    ABreakpointToggle: TAction;
+    AFormatSource: TAction;
     AOptions: TAction;
     AInterpretterStepOut: TAction;
@@ -55 +55 @@
     MenuItem20: TMenuItem;
     MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
     MenuItem40: TMenuItem;
     MenuItem21: TMenuItem;
@@ -65 +68 @@
     MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
+    PopupMenuSource: TPopupMenu;
     SaveDialog1: TSaveDialog;
     StatusBar1: TStatusBar;
@@ -77 +81 @@
     ToolButton7: TToolButton;
     ToolButton8: TToolButton;
+    ToolButton9: TToolButton;
+    procedure ABreakpointToggleExecute(Sender: TObject);
     procedure ACompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AFormatSourceExecute(Sender: TObject);
     procedure AOptionsExecute(Sender: TObject);
     procedure AProgramPauseExecute(Sender: TObject);
@@ -230 +237 @@
 end;
 
+procedure TMainForm.AFormatSourceExecute(Sender: TObject);
+var
+  Source: string;
+  NewSource: string;
+  Indent: Integer;
+  I: Integer;
+const
+  IndentText = '  ';
+begin
+  Source := MemoSource.Text;
+  NewSource := '';
+  Indent := 0;
+  for I := 1 to Length(Source) do begin
+    if Source[I] = '[' then begin
+      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ;
+      Inc(Indent);
+      NewSource := NewSource + DupeString(IndentText, Indent);
+    end
+    else if Source[I] = ']' then begin
+      Dec(Indent);
+      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent);
+    end
+    else if Ord(Source[I]) > $20 then
+      NewSource := NewSource + Source[I];
+  end;
+  MemoSource.Text := NewSource;
+end;
+
 procedure TMainForm.AOptionsExecute(Sender: TObject);
 begin
@@ -245 +280 @@
   CompiledForm.MemoCompiled.Text := BrainFuckCompiler.Output;
   CompiledForm.Show;
+end;
+
+procedure TMainForm.ABreakpointToggleExecute(Sender: TObject);
+begin
+  //BreakPoints.Add();
 end;