Changeset 48 for trunk/Target

Timestamp:

Jul 12, 2012, 9:15:02 AM (12 years ago)

Author:

chronos

Message:

• Added: Tool button with drop down menu of available targets.
• Added Target list have icons.

Location:

trunk/Target

Files:

• UTarget.pas (modified) (4 diffs)
• UTargetC.pas (modified) (1 diff)
• UTargetDelphi.pas (modified) (3 diffs)
• UTargetInterpretter.pas (modified) (1 diff)
• UTargetJava.pas (modified) (1 diff)
• UTargetPHP.pas (modified) (1 diff)

trunk/Target/UTarget.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
-  FileUtil, Process;
+  FileUtil, Process, Menus;
 
 type
@@ -86 +86 @@
     Name: string;
     ProgramName: string;
+    ImageIndex: Integer;
     Optimization: TCompilerOptimization;
     CompilerPath: string;
@@ -126 +127 @@
     procedure SaveToRegistry(Root: HKEY; Key: string);
     function FindByName(Name: string): TTarget;
+    procedure LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent;
+      CurrentTarget: TTarget);
   end;
 
@@ -286 +289 @@
   if I < Count then Result := TTarget(Items[I])
     else Result := nil;
+end;
+
+procedure TTargetList.LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent
+  ; CurrentTarget: TTarget);
+var
+  NewMenuItem: TMenuItem;
+  I: Integer;
+begin
+  if Assigned(MenuItem) then begin
+    MenuItem.Clear;
+    for I := 0 to Count - 1 do begin
+      NewMenuItem := TMenuItem.Create(MenuItem);
+      NewMenuItem.Caption := TTarget(Items[I]).Name;
+      NewMenuItem.OnClick := Action;
+      NewMenuItem.ImageIndex := TTarget(Items[I]).ImageIndex;
+      if TTarget(Items[I]) = CurrentTarget then NewMenuItem.Checked := True;
+      MenuItem.Add(NewMenuItem);
+    end;
+  end;
 end;
 

trunk/Target/UTargetC.pas

@@ -32 +32 @@
   SourceExtension := '.c';
   CompiledExtension := '.exe';
+  ImageIndex := 23;
   Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}

trunk/Target/UTargetDelphi.pas

@@ -29 +29 @@
   Name := 'Delphi';
   SourceExtension := '.pas';
+  ImageIndex := 22;
   CompiledExtension := '.exe';
   Capabilities := [tcCompile, tcRun];
@@ -49 +50 @@
     Inc(I)
   end;
+end;
+
+function CheckClear: Boolean;
+begin
+  Result := (FSourceCode[I] = '[') and (Length(FSourceCode) >= I + 2) and
+    (FSourceCode[I + 1] = '-') and (FSourceCode[I + 2] = ']');
 end;
 
@@ -89 +96 @@
       ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
       '[': begin
-        AddLine('while Memory[Pos] <> 0 do begin');
-        Inc(Indent);
+        if CheckClear then begin
+          AddLine('Memory[Pos] := 0;');
+          Inc(I, 2);
+        end else begin
+          AddLine('while Memory[Pos] <> 0 do begin');
+          Inc(Indent);
+        end;
       end;
       ']': begin

trunk/Target/UTargetInterpretter.pas

@@ -447 +447 @@
   inherited;
   Name := 'Interpretter';
+  ImageIndex := 25;
   Capabilities := [tcRun, tcPause, tcStop, tcCompile, tcStepOut, tcStepInto,
     tcStepOver, tcRunToCursor];

trunk/Target/UTargetJava.pas

@@ -31 +31 @@
   SourceExtension := '.java';
   CompiledExtension := '.class';
+  ImageIndex := 24;
   Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}

trunk/Target/UTargetPHP.pas

@@ -30 +30 @@
   Name := 'PHP';
   SourceExtension := '.php';
+  ImageIndex := 21;
   Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}