Changeset 394 for ModularSystem/UModularSystem.pas

Timestamp:

Jul 31, 2012, 8:53:58 AM (12 years ago)

Author:

chronos

Message:

• Added: ModuleSystem package which helps manage available module instalation/uninstallation and their dependencies.

Location:

ModularSystem

Files:

• . (modified) (1 prop)
• UModularSystem.pas (modified) (4 diffs)

ModularSystem/UModularSystem.pas

@@ -20 +20 @@
     Version: string;
     Name: string;
+    Title: string;
     Dependencies: TStringList;
     Author: string;
-    Description: string;
+    Description: TStringList;
+    License: string;
     procedure Install; virtual;
     procedure Uninstall; virtual;
@@ -97 +99 @@
     Module := FindModuleByName(Dependencies[I]);
     if Assigned(Module) then begin
-      if not Module.Installed and (ModuleList.IndexOf(Module.Name) = -1) then
+      if not Module.Installed and (ModuleList.IndexOf(Module.Name) = -1) then begin
         ModuleList.Add(Module.Name);
+        EnumModulesInstall(Module.Dependencies, ModuleList);
+      end;
     end else raise Exception.CreateFmt(SModuleNotFound, [Module.Name]);
   end;
@@ -111 +115 @@
   with TModule(Modules[I]) do begin
     if (Dependencies.IndexOf(ModuleName) <> -1) and Installed and
-      (ModuleList.IndexOf(Name) = -1) then
+      (ModuleList.IndexOf(Name) = -1) then begin
       ModuleList.Add(Name);
+      Self.EnumModulesUninstall(Name, ModuleList);
+    end;
   end;
 end;
@@ -169 +175 @@
 begin
   Dependencies := TStringList.Create;
+  Description := TStringList.Create;
 end;
 
 destructor TModule.Destroy;
 begin
+  Description.Free;
   Dependencies.Free;
   inherited Destroy;