]> git.saurik.com Git - wxWidgets.git/blob - src/common/module.cpp
update to make digitalmars compile/link libraries
[wxWidgets.git] / src / common / module.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: module.cpp
3 // Purpose: Modules initialization/destruction
4 // Author: Wolfram Gloger/adapted by Guilhem Lavaux
5 // Modified by:
6 // Created: 04/11/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Wolfram Gloger and Guilhem Lavaux
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "module.h"
14 #endif
15
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
18
19 #ifdef __BORLANDC__
20 #pragma hdrstop
21 #endif
22
23 #include "wx/module.h"
24 #include "wx/hash.h"
25 #include "wx/listimpl.cpp"
26
27 WX_DEFINE_LIST(wxModuleList);
28
29 IMPLEMENT_CLASS(wxModule, wxObject)
30
31 wxModuleList wxModule::m_modules;
32
33 void wxModule::RegisterModule(wxModule* module)
34 {
35 m_modules.Append(module);
36 }
37
38 void wxModule::UnregisterModule(wxModule* module)
39 {
40 m_modules.DeleteObject(module);
41 }
42
43 // Collect up all module-derived classes, create an instance of each,
44 // and register them.
45 void wxModule::RegisterModules()
46 {
47 wxNode *node;
48 wxClassInfo* classInfo;
49
50 wxClassInfo::sm_classTable->BeginFind();
51 node = wxClassInfo::sm_classTable->Next();
52 while (node)
53 {
54 classInfo = (wxClassInfo *)node->GetData();
55 if ( classInfo->IsKindOf(CLASSINFO(wxModule)) &&
56 (classInfo != (& (wxModule::sm_classwxModule))) )
57 {
58 wxModule* module = (wxModule *)classInfo->CreateObject();
59 RegisterModule(module);
60 }
61 node = wxClassInfo::sm_classTable->Next();
62 }
63 }
64
65 bool wxModule::InitializeModules()
66 {
67 // Initialize user-defined modules
68 wxModuleList::Node *node;
69 for ( node = m_modules.GetFirst(); node; node = node->GetNext() )
70 {
71 if ( !node->GetData()->Init() )
72 {
73 // clean up already initialized modules - process in reverse order
74 wxModuleList::Node *n;
75 for ( n = node->GetPrevious(); n; n = n->GetPrevious() )
76 {
77 n->GetData()->OnExit();
78 }
79
80 return FALSE;
81 }
82 }
83
84 return TRUE;
85 }
86
87 void wxModule::CleanUpModules()
88 {
89 // Cleanup user-defined modules
90 wxModuleList::Node *node;
91 for ( node = m_modules.GetFirst(); node; node = node->GetNext() )
92 {
93 node->GetData()->Exit();
94 }
95
96 m_modules.DeleteContents(TRUE);
97 m_modules.Clear();
98 }
99