Changeset 91 for trunk/Packages/ModularSystem

Timestamp:

Sep 7, 2012, 8:36:13 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Modulární systém přepracován tak, aby podporoval metody Install, Uninstall a Upgrade použitelné pro persistentní data. Původní metody Install a Uninstall přejmenovýny na Start a Stop.

File:

• trunk/Packages/ModularSystem/UModularSystem.pas (modified) (11 diffs)

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -19 +19 @@
   TModule = class(TComponent)
   private
+    FRunning: Boolean;
     FInstalled: Boolean;
     Manager: TModuleManager;
@@ -29 +30 @@
     FDescription: TStringList;
     procedure SetInstalled(AValue: Boolean);
+    procedure SetRunning(AValue: Boolean);
   public
     API: TAPI;
     MarkForInstall: Boolean;
+    procedure Start; virtual;
+    procedure Stop; virtual;
     procedure Install; virtual;
     procedure Uninstall; virtual;
-    procedure Update; virtual;
+    procedure Upgrade; virtual;
+    procedure EnumModulesStart(ModuleList: TStringList);
+    procedure EnumModulesStop(ModuleList: TStringList);
     procedure EnumModulesInstall(ModuleList: TStringList);
     procedure EnumModulesUninstall(ModuleList: TStringList);
     constructor Create(Owner: TComponent); virtual;
     destructor Destroy; override;
+    property Running: Boolean read FRunning write SetRunning;
     property Installed: Boolean read FInstalled write SetInstalled;
   published
@@ -59 +66 @@
     Modules: TObjectList; // TObjectList<TModule>
     function FindModuleByName(Name: string): TModule;
+    procedure StartDependencies(ModuleName: string; Dependencies: TStringList);
+    procedure StopDependencies(ModuleName: string);
+    procedure EnumModulesStart(Dependencies, ModuleList: TStringList);
+    procedure EnumModulesStop(ModuleName: string; ModuleList: TStringList);
     procedure InstallDependencies(ModuleName: string; Dependencies: TStringList);
     procedure UninstallDependencies(ModuleName: string);
@@ -65 +76 @@
     procedure RegisterModule(Module: TModule; MarkForInstall: Boolean = False);
     procedure UnregisterModule(Module: TModule);
+    procedure StartInstalled;
     procedure InstallMarked;
+    procedure StopAll;
     procedure UninstallAll;
     constructor Create(AOwner: TComponent); override;
@@ -107 +120 @@
 end;
 
-procedure TModuleManager.InstallDependencies(ModuleName: string; Dependencies: TStringList);
+procedure TModuleManager.StartDependencies(ModuleName: string; Dependencies: TStringList);
+var
+  Module: TModule;
+  I: Integer;
+begin
+  for I := 0 to Dependencies.Count - 1 do begin
+    Module := FindModuleByName(Dependencies[I]);
+    if Assigned(Module) then begin
+      if not Module.Running then Module.Start;
+    end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
+  end;
+end;
+
+procedure TModuleManager.StopDependencies(ModuleName: string);
+var
+  I: Integer;
+begin
+  for I := 0 to Modules.Count - 1 do
+  with TModule(Modules[I]) do begin
+    if (Dependencies.IndexOf(ModuleName) <> - 1) and Running then Stop;
+  end;
+end;
+
+procedure TModuleManager.EnumModulesStart(Dependencies,
+  ModuleList: TStringList);
+var
+  Module: TModule;
+  I: Integer;
+begin
+  for I := 0 to Dependencies.Count - 1 do begin
+    Module := FindModuleByName(Dependencies[I]);
+    if Assigned(Module) then begin
+      if not Module.Running and (ModuleList.IndexOf(Module.Identification) = -1) then begin
+        ModuleList.Add(Module.Identification);
+        EnumModulesStart(Module.Dependencies, ModuleList);
+      end;
+    end else raise Exception.CreateFmt(SModuleNotFound, [Module.Identification]);
+  end;
+end;
+
+procedure TModuleManager.EnumModulesStop(ModuleName: string;
+  ModuleList: TStringList);
+var
+  I: Integer;
+begin
+  for I := 0 to Modules.Count - 1 do
+  with TModule(Modules[I]) do begin
+    if (Dependencies.IndexOf(ModuleName) <> -1) and Running and
+      (ModuleList.IndexOf(Identification) = -1) then begin
+      ModuleList.Add(Identification);
+      Self.EnumModulesStop(Identification, ModuleList);
+    end;
+  end;
+end;
+
+procedure TModuleManager.InstallDependencies(ModuleName: string;
+  Dependencies: TStringList);
 var
   Module: TModule;
@@ -176 +245 @@
 end;
 
+procedure TModuleManager.StartInstalled;
+var
+  I: Integer;
+begin
+  for I := 0 to Modules.Count - 1 do
+  with TModule(Modules[I]) do
+    if not Running and Installed then Start;
+end;
+
 procedure TModuleManager.InstallMarked;
 var
@@ -185 +263 @@
 end;
 
+procedure TModuleManager.StopAll;
+var
+  I: Integer;
+begin
+  for I := 0 to Modules.Count - 1 do
+  with TModule(Modules[I]) do
+    if Running then Stop;
+end;
+
 procedure TModuleManager.UninstallAll;
 var
@@ -202 +289 @@
 destructor TModuleManager.Destroy;
 begin
-  UninstallAll;
+  StopAll;
   FreeAndNil(Modules);
   inherited Destroy;
@@ -209 +296 @@
 { TModule }
 
+procedure TModule.SetRunning(AValue: Boolean);
+begin
+  if FRunning = AValue then Exit;
+  if AValue then Start else Stop;
+end;
+
 procedure TModule.SetInstalled(AValue: Boolean);
 begin
   if FInstalled = AValue then Exit;
   if AValue then Install else Uninstall;
+end;
+
+procedure TModule.Start;
+begin
+  if Running then Exit;
+  Manager.StartDependencies(Identification, Dependencies);
+  FRunning := True;
+end;
+
+procedure TModule.Stop;
+begin
+  if not Running then Exit;
+  Manager.StopDependencies(Identification);
+  FRunning := False;
 end;
 
@@ -225 +332 @@
 begin
   if not Installed then Exit;
+  if Running then Stop;
   Manager.UninstallDependencies(Identification);
   FInstalled := False;
 end;
 
-procedure TModule.Update;
-begin
-  if not Installed then Exit;
+procedure TModule.Upgrade;
+begin
+  if not Running then Exit;
+end;
+
+procedure TModule.EnumModulesStart(ModuleList: TStringList);
+begin
+  ModuleList.Clear;
+  Manager.EnumModulesStart(Dependencies, ModuleList);
+end;
+
+procedure TModule.EnumModulesStop(ModuleList: TStringList);
+begin
+  ModuleList.Clear;
+  Manager.EnumModulesStop(Identification, ModuleList);
 end;
 
@@ -255 +375 @@
 destructor TModule.Destroy;
 begin
-  Installed := False;
+  Running := False;
   Description.Free;
   Dependencies.Free;