aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UCoreModule.pas
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-16 23:19:11 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-16 23:19:11 +0000
commit4231c33ad7c7765fd3851c5c7168f8c7d367deef (patch)
treef6fb594f3263befbea762d29c9cf08f91be18da3 /Game/Code/Classes/UCoreModule.pas
parent7b2b341341c0434a6b39d0f0f36fda9b7d23d0ef (diff)
downloadusdx-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.pas21
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