Changeset 133 for trunk/UTarget.pas

Timestamp:

Mar 4, 2022, 10:57:08 PM (3 years ago)

Author:

chronos

Message:

• Added: Compile multiple action for compilation of code with mutliple compilers at once.

File:

• trunk/UTarget.pas (modified) (32 diffs)

trunk/UTarget.pas

@@ -16 +16 @@
   TTargetCapabilities = set of TTargetCapability;
 
-  TRunState = (rsStopped, rsPaused, rsRunning);
+  TRunState = (rsStopped, rsPaused, rsRunning, rsCompiling);
 
   TStepOperation = (soNormal, soStepIn, soStepOut);
@@ -27 +27 @@
   end;
 
-  { TDebugStepList }
-
-  TDebugStepList = class(TFPGObjectList<TDebugStep>)
+  { TDebugSteps }
+
+  TDebugSteps = class(TFPGObjectList<TDebugStep>)
     function SearchBySourcePos(Pos: Integer): TDebugStep;
     function SearchByProgramPos(Pos: Integer): TDebugStep;
@@ -44 +44 @@
   end;
 
-  { TBreakPointList }
-
-  TBreakPointList = class(TFPGObjectList<TBreakPoint>)
+  { TBreakPoints }
+
+  TBreakPoints = class(TFPGObjectList<TBreakPoint>)
     procedure AddItem(TargetAddress: Integer);
     procedure SetSystem(TargetAddress: Integer);
@@ -59 +59 @@
   end;
 
-  { TMessageList }
-
-  TMessageList = class(TFPGObjectList<TMessage>)
+  { TMessages }
+
+  TMessages = class(TFPGObjectList<TMessage>)
   private
     FOnChange: TNotifyEvent;
@@ -72 +72 @@
 
   TLogEvent = procedure (Lines: TStrings) of object;
+  TMessageEvent = procedure (Text: string) of object;
 
   { TTarget }
@@ -78 +79 @@
   private
     FOnLog: TLogEvent;
+    FOnMessage: TMessageEvent;
   protected
+    FCompiledExtension: string;
+    FRunExtension: string;
+    FSourceExtension: string;
+    FName: string;
+    FImageIndex: Integer;
+    FCapabilities: TTargetCapabilities;
     FCompiled: Boolean;
     function SourceReadNext: Char;
@@ -96 +104 @@
     procedure SetState(AValue: TRunState); virtual;
   public
-    Name: string;
     ProgramName: string;
-    ImageIndex: Integer;
     OptimizationLevel: TCompilerOptimization;
     CompilerPath: string;
     ExecutorPath: string;
-    SourceExtension: string;
-    RunExtension: string;
-    CompiledExtension: string;
     ProjectFileName: string;
-    Capabilities: TTargetCapabilities;
-    BreakPoints: TBreakPointList;
-    DebugSteps: TDebugStepList;
+    BreakPoints: TBreakPoints;
+    DebugSteps: TDebugSteps;
     DebugEnabled: Boolean;
-    Messages: TMessageList;
+    Selected: Boolean;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -127 +129 @@
     procedure LoadFromRegistry(Context: TRegistryContext); virtual;
     procedure SaveToRegistry(Context: TRegistryContext); virtual;
+    property SourceExtension: string read FSourceExtension;
+    property RunExtension: string read FRunExtension;
+    property CompiledExtension: string read FCompiledExtension;
+    property Name: string read FName;
+    property ImageIndex: Integer read FImageIndex;
     property State: TRunState read FState write SetState;
     property SourceCode: string write SetSourceCode;
@@ -132 +139 @@
     property Compiled: Boolean read FCompiled write FCompiled;
     property ExecutionPosition: Integer read GetExecutionPosition;
+    property Capabilities: TTargetCapabilities read FCapabilities;
     property OnChangeState: TNotifyEvent read FOnChangeState write FOnChangeState;
     property OnLog: TLogEvent read FOnLog write FOnLog;
-  end;
-
-  { TTargetList }
-
-  TTargetList = class(TFPGObjectList<TTarget>)
+    property OnMessage: TMessageEvent read FOnMessage write FOnMessage;
+  end;
+
+  { TTargets }
+
+  TTargets = class(TFPGObjectList<TTarget>)
     procedure LoadFromRegistry(Context: TRegistryContext);
     procedure SaveToRegistry(Context: TRegistryContext);
@@ -146 +155 @@
   end;
 
+const
+  RunStateText: array[TRunState] of string = ('Stopped', 'Paused', 'Running',
+    'Compiling');
+
 
 resourcestring
@@ -155 +168 @@
 implementation
 
-{ TMessageList }
-
-procedure TMessageList.DoChange;
+{ TMessages }
+
+procedure TMessages.DoChange;
 begin
   if Assigned(FOnChange) then FOnChange(Self);
 end;
 
-procedure TMessageList.AddMessage(Text: string);
+procedure TMessages.AddMessage(Text: string);
 var
   NewItem: TMessage;
@@ -172 +185 @@
 end;
 
-procedure TMessageList.AppendMessage(Text: string);
+procedure TMessages.AppendMessage(Text: string);
 begin
   if Count > 0 then begin
@@ -180 +193 @@
 end;
 
-{ TBreakPointList }
-
-procedure TBreakPointList.AddItem(TargetAddress: Integer);
+{ TBreakPoints }
+
+procedure TBreakPoints.AddItem(TargetAddress: Integer);
 var
   NewItem: TBreakPoint;
@@ -191 +204 @@
 end;
 
-procedure TBreakPointList.SetSystem(TargetAddress: Integer);
+procedure TBreakPoints.SetSystem(TargetAddress: Integer);
 begin
   ClearSystem;
@@ -197 +210 @@
 end;
 
-procedure TBreakPointList.AddSystem(TargetAddress: Integer);
+procedure TBreakPoints.AddSystem(TargetAddress: Integer);
 var
   NewItem: TBreakPoint;
@@ -207 +220 @@
 end;
 
-procedure TBreakPointList.ClearSystem;
+procedure TBreakPoints.ClearSystem;
 var
   I: Integer;
@@ -215 +228 @@
 end;
 
-function TBreakPointList.SearchByTargetPos(Pos: Integer): TBreakPoint;
+function TBreakPoints.SearchByTargetPos(Pos: Integer): TBreakPoint;
 var
   I: Integer;
@@ -225 +238 @@
 end;
 
-{ TDebugStepList }
-
-function TDebugStepList.SearchBySourcePos(Pos: Integer
+{ TDebugSteps }
+
+function TDebugSteps.SearchBySourcePos(Pos: Integer
   ): TDebugStep;
 var
@@ -238 +251 @@
 end;
 
-function TDebugStepList.SearchByProgramPos(Pos: Integer): TDebugStep;
+function TDebugSteps.SearchByProgramPos(Pos: Integer): TDebugStep;
 var
   I: Integer;
@@ -248 +261 @@
 end;
 
-function TDebugStepList.SearchByTargetPos(Pos: Integer
+function TDebugSteps.SearchByTargetPos(Pos: Integer
   ): TDebugStep;
 var
@@ -259 +272 @@
 end;
 
-function TDebugStepList.SearchIndexByProgramPos(Pos: Integer): Integer;
+function TDebugSteps.SearchIndexByProgramPos(Pos: Integer): Integer;
 var
   I: Integer;
@@ -269 +282 @@
 end;
 
-procedure TDebugStepList.AddStep(SourcePos, TargetPos: Integer;
+procedure TDebugSteps.AddStep(SourcePos, TargetPos: Integer;
   Operation: TStepOperation);
 var
@@ -282 +295 @@
 end;
 
-procedure TDebugStepList.UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgramFrom,
+procedure TDebugSteps.UpdateTargetPos(OldProgramFrom, OldProgramTo, NewProgramFrom,
     NewProgramTo: Integer; NewTarget: Integer = 0);
 var
@@ -311 +324 @@
 end;
 
-{ TTargetList }
-
-procedure TTargetList.LoadFromRegistry(Context: TRegistryContext);
+{ TTargets }
+
+procedure TTargets.LoadFromRegistry(Context: TRegistryContext);
 var
   I: Integer;
@@ -327 +340 @@
 end;
 
-procedure TTargetList.SaveToRegistry(Context: TRegistryContext);
+procedure TTargets.SaveToRegistry(Context: TRegistryContext);
 var
   I: Integer;
@@ -342 +355 @@
 end;
 
-function TTargetList.FindByName(Name: string): TTarget;
+function TTargets.FindByName(Name: string): TTarget;
 var
   I: Integer;
@@ -352 +365 @@
 end;
 
-procedure TTargetList.LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent
+procedure TTargets.LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent
   ; CurrentTarget: TTarget);
 var
@@ -359 +372 @@
 begin
   if Assigned(MenuItem) then begin
-    MenuItem.Clear;
+    while MenuItem.Count > Count do
+      MenuItem.Delete(MenuItem.Count - 1);
+    while MenuItem.Count < Count do begin
+      NewMenuItem := TMenuItem.Create(MenuItem);
+      MenuItem.Add(NewMenuItem);
+    end;
     for I := 0 to Count - 1 do begin
-      NewMenuItem := TMenuItem.Create(MenuItem);
-      NewMenuItem.Caption := Items[I].Name;
-      NewMenuItem.OnClick := Action;
-      NewMenuItem.ImageIndex := Items[I].ImageIndex;
-      if Items[I] = CurrentTarget then NewMenuItem.Checked := True;
-      MenuItem.Add(NewMenuItem);
+      MenuItem.Items[I].Caption := Items[I].Name;
+      MenuItem.Items[I].OnClick := Action;
+      MenuItem.Items[I].ImageIndex := Items[I].ImageIndex;
+      if Items[I] = CurrentTarget then MenuItem.Items[I].Checked := True;
     end;
   end;
@@ -414 +430 @@
   inherited;
   OptimizationLevel := coNormal;
-  BreakPoints := TBreakPointList.Create;
-  DebugSteps := TDebugStepList.Create;
-  Messages := TMessageList.Create;
+  BreakPoints := TBreakPoints.Create;
+  DebugSteps := TDebugSteps.Create;
 end;
 
 destructor TTarget.Destroy;
 begin
-  FreeAndNil(Messages);
   FreeAndNil(DebugSteps);
   FreeAndNil(BreakPoints);
@@ -429 +443 @@
 procedure TTarget.Reset;
 begin
-  Messages.Clear;
 end;
 
@@ -551 +564 @@
     CompilerPath := ReadStringWithDefault('CompilerPath', CompilerPath);
     ExecutorPath := ReadStringWithDefault('ExecutorPath', ExecutorPath);
+    Selected := ReadBoolWithDefault('Selected', Selected);
   finally
     Free;
@@ -561 +575 @@
   try
     CurrentContext := Context;
-    if CompilerPath <> '' then WriteString('CompilerPath', CompilerPath)
-      else DeleteValue('CompilerPath');
-    if ExecutorPath <> '' then WriteString('ExecutorPath', ExecutorPath)
-      else DeleteValue('ExecutorPath');
+    WriteString('CompilerPath', CompilerPath);
+    WriteString('ExecutorPath', ExecutorPath);
+    WriteBool('Selected', Selected);
   finally
     Free;