Changeset 395 for ModularSystem

Timestamp:

Jul 31, 2012, 3:58:07 PM (12 years ago)

Author:

chronos

Message:

• Added: ModularSystem modules can be marked for installation.
• Added: Relation to TAPI class where application specific interface should be implemented.

Location:

ModularSystem

Files:

• Demo/project1.ico (deleted)
• Demo/project1.lpi (deleted)
• Demo/project1.lpr (deleted)
• Demo/project1.lps (deleted)
• Demo/project1.res (deleted)
• UModularSystem.pas (modified) (9 diffs)

ModularSystem/UModularSystem.pas

@@ -10 +10 @@
 type
   TModuleManager = class;
+
+  TAPI = class
+
+  end;
 
   { TModule }
@@ -17 +21 @@
     FInstalled: Boolean;
     Manager: TModuleManager;
+    procedure SetInstalled(AValue: Boolean);
   public
     Version: string;
@@ -25 +30 @@
     Description: TStringList;
     License: string;
+    API: TAPI;
+    MarkForInstall: Boolean;
     procedure Install; virtual;
     procedure Uninstall; virtual;
@@ -32 +39 @@
     constructor Create; virtual;
     destructor Destroy; override;
-    property Installed: Boolean read FInstalled;
+    property Installed: Boolean read FInstalled write SetInstalled;
   end;
 
   { TModuleManager }
 
-  TModuleManager = class
+  TModuleManager = class(TComponent)
+  private
+    FAPI: TAPI;
+    procedure SetAPI(AValue: TAPI);
+  public
     Modules: TObjectList; // TObjectList<TModule>
     function FindModuleByName(Name: string): TModule;
@@ -44 +55 @@
     procedure EnumModulesInstall(Dependencies, ModuleList: TStringList);
     procedure EnumModulesUninstall(ModuleName: string; ModuleList: TStringList);
-    procedure RegisterModule(Module: TModule);
-    constructor Create;
+    procedure RegisterModule(Module: TModule; MarkForInstall: Boolean = False);
+    procedure UnregisterModule(Module: TModule);
+    procedure InstallMarked;
+    procedure UninstallAll;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    property API: TAPI read FAPI write SetAPI;
   end;
 
@@ -56 +71 @@
 
 { TModuleManager }
+
+procedure TModuleManager.SetAPI(AValue: TAPI);
+var
+  I: Integer;
+begin
+  if FAPI = AValue then Exit;
+  FAPI := AValue;
+  for I := 0 to Modules.Count - 1 do
+    TModule(Modules[I]).API := FAPI;
+end;
 
 function TModuleManager.FindModuleByName(Name: string): TModule;
@@ -122 +147 @@
 end;
 
-procedure TModuleManager.RegisterModule(Module: TModule);
+procedure TModuleManager.RegisterModule(Module: TModule;
+  MarkForInstall: Boolean = False);
 begin
   Modules.Add(Module);
   Module.Manager := Self;
-end;
-
-constructor TModuleManager.Create;
-begin
-  Modules := TObjectList.Create
+  Module.API := API;
+  Module.MarkForInstall := MarkForInstall;
+end;
+
+procedure TModuleManager.UnregisterModule(Module: TModule);
+begin
+  Modules.Remove(Module);
+end;
+
+procedure TModuleManager.InstallMarked;
+var
+  I: Integer;
+begin
+  for I := 0 to Modules.Count - 1 do
+  with TModule(Modules[I]) do
+    if not Installed and MarkForInstall then Install;
+end;
+
+procedure TModuleManager.UninstallAll;
+var
+  I: Integer;
+begin
+  for I := 0 to Modules.Count - 1 do
+  with TModule(Modules[I]) do
+    if Installed then Uninstall;
+end;
+
+constructor TModuleManager.Create(AOwner: TComponent);
+begin
+  inherited;
+  Modules := TObjectList.Create;
 end;
 
@@ -140 +192 @@
 
 { TModule }
+
+procedure TModule.SetInstalled(AValue: Boolean);
+begin
+  if FInstalled = AValue then Exit;
+  if AValue then Install else Uninstall;
+end;
 
 procedure TModule.Install;
@@ -180 +238 @@
 destructor TModule.Destroy;
 begin
+  Installed := False;
   Description.Free;
   Dependencies.Free;