Changeset 20 for trunk/UMainForm.pas

Timestamp:

Feb 11, 2012, 10:56:03 PM (13 years ago)

Author:

chronos

Message:

• Added: Action to shrink source code by remove all non printable characters.
• Added: Optimalization for generated code by Delphi and PHP compiler. All same language commands laying side by side will be converted to single generated operation.

File:

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

trunk/UMainForm.pas

@@ -18 +18 @@
     AAbout: TAction;
     ABreakpointToggle: TAction;
+    AShrinkSource: TAction;
     AFormatSource: TAction;
     AOptions: TAction;
@@ -54 +55 @@
     MenuItem2: TMenuItem;
     MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
     MenuItem22: TMenuItem;
     MenuItem23: TMenuItem;
@@ -59 +61 @@
     MenuItem25: TMenuItem;
     MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
     MenuItemTarget: TMenuItem;
-    MenuItem21: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -75 +77 @@
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
+    ToolButton10: TToolButton;
+    ToolButton11: TToolButton;
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
@@ -96 +100 @@
     procedure AProjectSaveExecute(Sender: TObject);
     procedure AProgramRunExecute(Sender: TObject);
+    procedure AShrinkSourceExecute(Sender: TObject);
     procedure AViewCompiledExecute(Sender: TObject);
     procedure AViewInterpretterExecute(Sender: TObject);
@@ -115 +120 @@
   public
     Modified: Boolean;
+    CompilerIndex: Integer;
     ProjectFileName: string;
     BrainFuckCompiler: TBrainFuckCompiler;
@@ -180 +186 @@
 begin
   with TMenuItem(Sender) do begin
+    CompilerIndex := MenuIndex;
     Checked := True;
     for I := 0 to Parent.Count - 1 do
@@ -219 +226 @@
     NewMenuItem.Caption := TBrainFuckCompiler(Compilers[I]).Name;
     NewMenuItem.OnClick := MenuItemTargetClick;
-    if I = 0 then NewMenuItem.Checked := True;
+    if I = CompilerIndex then NewMenuItem.Checked := True;
     MenuItemTarget.Add(NewMenuItem);
   end;
@@ -251 +258 @@
   BrainFuckInterpreter.Source := MemoSource.Text;
   BrainFuckInterpreter.Run;
+end;
+
+procedure TMainForm.AShrinkSourceExecute(Sender: TObject);
+var
+  Source: string;
+  Pos: Integer;
+  I: Integer;
+begin
+  Source := MemoSource.Text;
+  Pos := 1;
+  for I := 1 to Length(Source) do begin
+    if Source[I] > ' ' then begin
+      Source[Pos] := Source[I];
+      Inc(Pos);
+    end;
+  end;
+  SetLength(Source, Pos - 1);
+  MemoSource.Text := Source;
 end;
 
@@ -310 +335 @@
 
 procedure TMainForm.ACompileExecute(Sender: TObject);
-var
-  I: Integer;
-begin
-  I := 0;
-  while (I < MenuItemTarget.Count) and (not MenuItemTarget.Items[I].Checked) do Inc(I);
-  with TBrainFuckCompiler(Compilers[I]) do begin
+begin
+  with TBrainFuckCompiler(Compilers[CompilerIndex]) do begin
+    Optimization := coNormal;
     Source := MemoSource.Text;
     ProgramName := ExtractFileNameOnly(ProjectFileName);