diff options
author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-16 23:19:11 +0000 |
---|---|---|
committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-16 23:19:11 +0000 |
commit | 4231c33ad7c7765fd3851c5c7168f8c7d367deef (patch) | |
tree | f6fb594f3263befbea762d29c9cf08f91be18da3 /Game/Code/Classes/UCoreModule.pas | |
parent | 7b2b341341c0434a6b39d0f0f36fda9b7d23d0ef (diff) | |
download | usdx-4231c33ad7c7765fd3851c5c7168f8c7d367deef.tar.gz usdx-4231c33ad7c7765fd3851c5c7168f8c7d367deef.tar.xz usdx-4231c33ad7c7765fd3851c5c7168f8c7d367deef.zip |
nearly finished Cores loading procs
Add PluginLoader Unit to implent new PluginLoader
Reordered Delphi .dpr uses clausel
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@519 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UCoreModule.pas')
-rw-r--r-- | Game/Code/Classes/UCoreModule.pas | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/Game/Code/Classes/UCoreModule.pas b/Game/Code/Classes/UCoreModule.pas index 4d36f925..6fca5d37 100644 --- a/Game/Code/Classes/UCoreModule.pas +++ b/Game/Code/Classes/UCoreModule.pas @@ -6,19 +6,13 @@ interface Dummy Class that has Methods that will be called from Core
In the Best case every Piece of this Software is a Module
*********************}
+uses UPluginDefs;
{$IFDEF FPC}
{$MODE Delphi} {$ENDIF}
type
- PModuleInfo = ^TModuleInfo;
- TModuleInfo = record
- Name: String;
- Version: LongWord;
- Description: String;
- end;
-
TCoreModule = class
public
//Function that gives some Infos about the Module to the Core
@@ -44,6 +38,10 @@ type //Deinit is in backwards Initing Order
//If False is Returned this will cause a Forced Exit
Procedure DeInit; virtual;
+
+ //Is Called if this Module will be unloaded and has been created
+ //Should be used to Free Memory
+ Procedure Free; virtual;
end;
cCoreModule = class of TCoreModule;
@@ -102,4 +100,13 @@ begin //Dummy ftw!!
end;
+//-------------
+//Is Called if this Module will be unloaded and has been created
+//Should be used to Free Memory
+//-------------
+Procedure TCoreModule.Free;
+begin
+ //Dummy ftw!!
+end;
+
end.
\ No newline at end of file |