// Created: 03/12/01
// RCS-ID: $Id$
// Copyright: (c) 2001 Ron Lee <ron@debian.org>
-// Licence: wxWindows license
+// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
#ifdef __GNUG__
#include "wx/wxprec.h"
#ifdef __BORLANDC__
-#pragma hdrstop
+ #pragma hdrstop
#endif
#if wxUSE_DYNAMIC_LOADER
#ifdef __WINDOWS__
-#include "wx/msw/private.h"
+ #include "wx/msw/private.h"
#endif
#ifndef WX_PRECOMP
-#include "wx/log.h"
-#include "wx/intl.h"
+ #include "wx/log.h"
+ #include "wx/intl.h"
+ #include "wx/hash.h"
#endif
-#include "wx/dynload.h"
+#include "wx/filename.h" // for SplitPath()
+#include "wx/strconv.h"
+#include "wx/dynload.h"
+#include "wx/module.h"
+
+#if defined(__DARWIN__)
+/* Porting notes:
+ * The dlopen port is a port from dl_next.xs by Anno Siegel.
+ * dl_next.xs is itself a port from dl_dlopen.xs by Paul Marquess.
+ * The method used here is just to supply the sun style dlopen etc.
+ * functions in terms of Darwin NS*.
+ */
+void *dlopen(const char *path, int mode /* mode is ignored */);
+void *dlsym(void *handle, const char *symbol);
+int dlclose(void *handle);
+const char *dlerror(void);
+#endif
// ============================================================================
// implementation
// platform dependent files.
#if defined(__WINDOWS__) || defined(__WXPM__) || defined(__EMX__)
-const wxString wxDynamicLibrary::ms_dllext( _T(".dll") );
+ const wxChar *wxDynamicLibrary::ms_dllext = _T(".dll");
#elif defined(__UNIX__)
-#if defined(__HPUX__)
-const wxString wxDynamicLibrary::ms_dllext( _T(".sl") );
-#else
-const wxString wxDynamicLibrary::ms_dllext( _T(".so") );
-#endif
+ #if defined(__HPUX__)
+ const wxChar *wxDynamicLibrary::ms_dllext = _T(".sl");
+ #else
+ const wxChar *wxDynamicLibrary::ms_dllext = _T(".so");
+ #endif
#endif
wxDllType wxDynamicLibrary::GetProgramHandle()
{
wxASSERT_MSG(m_handle == 0, _T("Library already loaded."));
- if( !(flags & wxDL_VERBATIM) )
- libname += GetDllExt();
+ // add the proper extension for the DLL ourselves unless told not to
+ if ( !(flags & wxDL_VERBATIM) )
+ {
+ // and also check that the libname doesn't already have it
+ wxString ext;
+ wxFileName::SplitPath(libname, NULL, NULL, &ext);
+ if ( ext.empty() )
+ {
+ libname += GetDllExt();
+ }
+ }
-#if defined(__WXMAC__) && !defined(__UNIX__)
+ // different ways to load a shared library
+ //
+ // FIXME: should go to the platform-specific files!
+#if defined(__WXMAC__) && !defined(__DARWIN__)
FSSpec myFSSpec;
Ptr myMainAddr;
Str255 myErrName;
#elif defined(__WXPM__) || defined(__EMX__)
char err[256] = "";
- DosLoadModule(err, sizeof(err), libname.c_str(), &m_handle)
+ DosLoadModule(err, sizeof(err), libname.c_str(), &m_handle);
-#elif defined(HAVE_DLOPEN)
+#elif defined(HAVE_DLOPEN) || defined(__DARWIN__)
-#ifdef __VMS
+#if defined(__VMS) || defined(__DARWIN__)
m_handle = dlopen(libname.c_str(), 0); // The second parameter is ignored
-#else
+#else // !__VMS && !__DARWIN__
int rtldFlags = 0;
- if( flags & wxDL_LAZY )
+ if ( flags & wxDL_LAZY )
{
wxASSERT_MSG( (flags & wxDL_NOW) == 0,
_T("wxDL_LAZY and wxDL_NOW are mutually exclusive.") );
+#ifdef RTLD_LAZY
rtldFlags |= RTLD_LAZY;
+#else
+ wxLogDebug(_T("wxDL_LAZY is not supported on this platform"));
+#endif
}
- else if( flags & wxDL_NOW )
+ else if ( flags & wxDL_NOW )
{
+#ifdef RTLD_NOW
rtldFlags |= RTLD_NOW;
+#else
+ wxLogDebug(_T("wxDL_NOW is not supported on this platform"));
+#endif
}
- if( flags & wxDL_GLOBAL )
+
+ if ( flags & wxDL_GLOBAL )
{
-#ifdef __osf__
- wxLogDebug(_T("WARNING: RTLD_GLOBAL is not a supported on this platform."));
-#endif
+#ifdef RTLD_GLOBAL
rtldFlags |= RTLD_GLOBAL;
+#else
+ wxLogDebug(_T("RTLD_GLOBAL is not supported on this platform."));
+#endif
}
- m_handle = dlopen(libname.c_str(), rtldFlags);
-#endif // __VMS
+ m_handle = dlopen(libname.fn_str(), rtldFlags);
+#endif // __VMS || __DARWIN__ ?
#elif defined(HAVE_SHL_LOAD)
int shlFlags = 0;
{
shlFlags |= BIND_IMMEDIATE;
}
- m_handle = shl_load(libname.c_str(), BIND_DEFERRED, 0);
-
-#elif defined(__DARWIN__)
- NSObjectFileImage ofile;
- int dyld_result = NSCreateObjectFileImageFromFile(libname.c_str(), &ofile);
-
- if (dyld_result != NSObjectFileImageSuccess)
- {
- TranslateError(libname.c_str(), OFImage, dyld_result);
- }
- else
- {
- // NSLinkModule will cause the run to abort on any link error's
- // not very friendly but the error recovery functionality is limited.
- m_handle = NSLinkModule(ofile, libname.c_str(), TRUE);
- }
+ m_handle = shl_load(libname.fn_str(), BIND_DEFERRED, 0);
#elif defined(__WINDOWS__)
m_handle = ::LoadLibrary(libname.c_str());
-
#else
-#error "runtime shared lib support not implemented"
+ #error "runtime shared lib support not implemented on this platform"
#endif
if ( m_handle == 0 )
{
wxString msg(_("Failed to load shared library '%s'"));
-#ifdef HAVE_DLERROR
- const wxChar *err = dlerror();
+#if defined(HAVE_DLERROR) && !defined(__EMX__)
+
+#if wxUSE_UNICODE
+ wxWCharBuffer buffer = wxConvLocal.cMB2WC( dlerror() );
+ const wxChar *err = buffer;
+#else
+ const wxChar *err = dlerror();
+#endif
+
if( err )
wxLogError( msg, err );
#else
{
#if defined(__WXPM__) || defined(__EMX__)
DosFreeModule( m_handle );
-#elif defined(HAVE_DLOPEN)
+#elif defined(HAVE_DLOPEN) || defined(__DARWIN__)
dlclose( m_handle );
#elif defined(HAVE_SHL_LOAD)
shl_unload( m_handle );
#elif defined(__WINDOWS__)
::FreeLibrary( m_handle );
-#elif defined(__WXMAC__)
- CloseConnection( &m_handle );
+#elif defined(__WXMAC__) && !defined(__DARWIN__)
+ CloseConnection( (CFragConnectionID*) &m_handle );
#else
#error "runtime shared lib support not implemented"
#endif
bool failed = FALSE;
void *symbol = 0;
-#if defined(__WXMAC__) && !defined(__UNIX__)
+#if defined(__WXMAC__) && !defined(__DARWIN__)
Ptr symAddress;
CFragSymbolClass symClass;
Str255 symName;
#elif defined(__WXPM__) || defined(__EMX__)
DosQueryProcAddr( m_handle, 1L, name.c_str(), (PFN*)symbol );
-#elif defined(HAVE_DLOPEN)
- symbol = dlsym( m_handle, name.c_str() );
+#elif defined(HAVE_DLOPEN) || defined(__DARWIN__)
+ symbol = dlsym( m_handle, name.fn_str() );
#elif defined(HAVE_SHL_LOAD)
- if( shl_findsym( &m_handle, name.c_str(), TYPE_UNDEFINED, &symbol ) != 0 )
+ // use local variable since shl_findsym modifies the handle argument
+ // to indicate where the symbol was found (GD)
+ wxDllType the_handle = m_handle;
+ if( shl_findsym( &the_handle, name.fn_str(), TYPE_UNDEFINED, &symbol ) != 0 )
symbol = 0;
-#elif defined(__DARWIN__)
- if( NSIsSymbolNameDefined( name.c_str() ) )
- symbol = NSAddressOfSymbol( NSLookupAndBindSymbol( name.c_str() ) );
-
#elif defined(__WINDOWS__)
symbol = (void*) ::GetProcAddress( m_handle, name.mb_str() );
if ( !symbol )
{
- wxString msg(_("wxDynamicLibrary failed to GetSymbol '%s'"));
-#ifdef HAVE_DLERROR
+#if defined(HAVE_DLERROR) && !defined(__EMX__)
+
+#if wxUSE_UNICODE
+ wxWCharBuffer buffer = wxConvLocal.cMB2WC( dlerror() );
+ const wxChar *err = buffer;
+#else
const wxChar *err = dlerror();
+#endif
+
if( err )
{
- failed = TRUE;
- wxLogError( msg, err );
+ wxLogError(wxT("%s"), err);
}
#else
failed = TRUE;
// ---------------------------------------------------------------------------
-wxDLImports wxPluginLibrary::ms_classes(wxKEY_STRING);
+wxDLImports* wxPluginLibrary::ms_classes = NULL;
+
+class wxPluginLibraryModule : public wxModule
+{
+public:
+ wxPluginLibraryModule() { }
+
+ // TODO: create ms_classes on demand, why always preallocate it?
+ virtual bool OnInit()
+ {
+ wxPluginLibrary::ms_classes = new wxDLImports(wxKEY_STRING);
+ wxPluginManager::CreateManifest();
+ return TRUE;
+ }
+
+ virtual void OnExit()
+ {
+ delete wxPluginLibrary::ms_classes;
+ wxPluginLibrary::ms_classes = NULL;
+ wxPluginManager::ClearManifest();
+ }
+
+private:
+ DECLARE_DYNAMIC_CLASS(wxPluginLibraryModule )
+};
+
+IMPLEMENT_DYNAMIC_CLASS(wxPluginLibraryModule, wxModule)
+
wxPluginLibrary::wxPluginLibrary(const wxString &libname, int flags)
: m_linkcount(1)
RegisterModules();
}
else
- --m_linkcount; // Flag us for deletion
+ {
+ // Flag us for deletion
+ --m_linkcount;
+ }
}
wxPluginLibrary::~wxPluginLibrary()
}
}
+wxPluginLibrary *wxPluginLibrary::RefLib()
+{
+ wxCHECK_MSG( m_linkcount > 0, NULL,
+ _T("Library had been already deleted!") );
+
+ ++m_linkcount;
+ return this;
+}
+
bool wxPluginLibrary::UnrefLib()
{
- wxASSERT_MSG( m_objcount == 0, _T("Library unloaded before all objects were destroyed") );
- if( m_linkcount == 0 || --m_linkcount == 0 )
+ wxASSERT_MSG( m_objcount == 0,
+ _T("Library unloaded before all objects were destroyed") );
+
+ if ( --m_linkcount == 0 )
{
delete this;
return TRUE;
}
+
return FALSE;
}
// Hash all the class names into a local table too so
// we can quickly find the entry they correspond to.
-
- if( ms_classes.Get(info->m_className) == 0 )
- ms_classes.Put(info->m_className, (wxObject *) this);
+ (*ms_classes)[info->m_className] = this;
}
}
for(info = m_after; info != m_before; info = info->m_next)
{
wxClassInfo::sm_classTable->Delete(info->m_className);
- ms_classes.Delete(info->m_className);
+ ms_classes->erase(ms_classes->find(info->m_className));
}
if( wxClassInfo::sm_first == m_after )
info = wxClassInfo::sm_first;
while( info->m_next && info->m_next != m_after ) info = info->m_next;
- wxASSERT_MSG( info, _T("ClassInfo from wxPluginLibrary not found on purge"))
+ wxASSERT_MSG( info, _T("ClassInfo from wxPluginLibrary not found on purge"));
info->m_next = m_before;
}
wxASSERT_MSG( m_linkcount == 1,
_T("RegisterModules should only be called for the first load") );
- for(wxClassInfo *info = m_after; info != m_before; info = info->m_next)
+ for ( wxClassInfo *info = m_after; info != m_before; info = info->m_next)
{
if( info->IsKindOf(CLASSINFO(wxModule)) )
{
// FIXME: Likewise this is (well was) very similar to InitializeModules()
- for(wxModuleList::Node *node = m_wxmodules.GetFirst(); node; node->GetNext())
+ for ( wxModuleList::Node *node = m_wxmodules.GetFirst();
+ node;
+ node = node->GetNext())
{
if( !node->GetData()->Init() )
{
{
wxModuleList::Node *node;
- for(node = m_wxmodules.GetFirst(); node; node->GetNext())
+ for ( node = m_wxmodules.GetFirst(); node; node = node->GetNext() )
node->GetData()->Exit();
- for(node = m_wxmodules.GetFirst(); node; node->GetNext())
+ for ( node = m_wxmodules.GetFirst(); node; node = node->GetNext() )
wxModule::UnregisterModule( node->GetData() );
m_wxmodules.DeleteContents(TRUE);
// ---------------------------------------------------------------------------
-// wxPluginLibrary
+// wxPluginManager
// ---------------------------------------------------------------------------
-wxDLManifest wxPluginManager::ms_manifest(wxKEY_STRING);
+wxDLManifest* wxPluginManager::ms_manifest = NULL;
// ------------------------
// Static accessors
// ------------------------
-wxPluginLibrary *wxPluginManager::LoadLibrary(const wxString &libname, int flags)
+wxPluginLibrary *
+wxPluginManager::LoadLibrary(const wxString &libname, int flags)
{
wxString realname(libname);
if( !(flags & wxDL_VERBATIM) )
realname += wxDynamicLibrary::GetDllExt();
- wxPluginLibrary *entry = (wxPluginLibrary*) ms_manifest.Get(realname);
+ wxPluginLibrary *entry;
+
+ if ( flags & wxDL_NOSHARE )
+ {
+ entry = NULL;
+ }
+ else
+ {
+ entry = FindByName(realname);
+ }
- if( entry != 0 )
+ if ( entry )
{
+ wxLogTrace(_T("dll"),
+ _T("LoadLibrary(%s): already loaded."), realname.c_str());
+
entry->RefLib();
}
else
{
entry = new wxPluginLibrary( libname, flags );
- if( entry->IsLoaded() )
+ if ( entry->IsLoaded() )
{
- ms_manifest.Put(realname, (wxObject*) entry);
+ (*ms_manifest)[realname] = entry;
+
+ wxLogTrace(_T("dll"),
+ _T("LoadLibrary(%s): loaded ok."), realname.c_str());
+
}
else
{
- wxCHECK_MSG( entry->UnrefLib(), 0,
- _T("Currently linked library is, ..not loaded??") );
- entry = 0;
+ wxLogTrace(_T("dll"),
+ _T("LoadLibrary(%s): failed to load."), realname.c_str());
+
+ // we have created entry just above
+ if ( !entry->UnrefLib() )
+ {
+ // ... so UnrefLib() is supposed to delete it
+ wxFAIL_MSG( _T("Currently linked library is not loaded?") );
+ }
+
+ entry = NULL;
}
}
+
return entry;
}
-bool wxPluginManager::UnloadLibrary(const wxString &libname)
+bool wxPluginManager::UnloadLibrary(const wxString& libname)
{
- wxPluginLibrary *entry = (wxPluginLibrary*) ms_manifest.Get(libname);
+ wxString realname = libname;
- if( !entry )
- entry = (wxPluginLibrary*) ms_manifest.Get(libname + wxDynamicLibrary::GetDllExt());
+ wxPluginLibrary *entry = FindByName(realname);
- if( entry )
- return entry->UnrefLib();
+ if ( !entry )
+ {
+ realname += wxDynamicLibrary::GetDllExt();
- wxLogDebug(_T("Attempt to Unlink library '%s' (which is not linked)."), libname.c_str());
- return FALSE;
+ entry = FindByName(realname);
+ }
+
+ if ( !entry )
+ {
+ wxLogDebug(_T("Attempt to unload library '%s' which is not loaded."),
+ libname.c_str());
+
+ return FALSE;
+ }
+
+ wxLogTrace(_T("dll"), _T("UnloadLibrary(%s)"), realname.c_str());
+
+ if ( !entry->UnrefLib() )
+ {
+ // not really unloaded yet
+ return FALSE;
+ }
+
+ ms_manifest->erase(ms_manifest->find(realname));
+
+ return TRUE;
}
#if WXWIN_COMPATIBILITY_2_2
wxPluginLibrary *wxPluginManager::GetObjectFromHandle(wxDllType handle)
{
- wxNode *node;
- ms_manifest.BeginFind();
+ for ( wxDLManifest::iterator i = ms_manifest->begin();
+ i != ms_manifest->end();
+ ++i )
+ {
+ wxPluginLibrary * const lib = i->second;
- for(node = ms_manifest.Next(); node; node = ms_manifest.Next())
- if( ((wxPluginLibrary*)node->GetData())->GetLibHandle() == handle )
- return (wxPluginLibrary*)node->GetData();
+ if ( lib->GetLibHandle() == handle )
+ return lib;
+ }
- return 0;
+ return NULL;
}
-#endif
+#endif // WXWIN_COMPATIBILITY_2_2
// ------------------------
// Class implementation
bool wxPluginManager::Load(const wxString &libname, int flags)
{
m_entry = wxPluginManager::LoadLibrary(libname, flags);
+
return IsLoaded();
}
void wxPluginManager::Unload()
{
- wxNode *node;
- ms_manifest.BeginFind();
-
- // It's either this or store the name of the lib just to do this.
-
- for(node = ms_manifest.Next(); node; node = ms_manifest.Next())
- if( (wxPluginLibrary*)node->GetData() == m_entry )
- break;
+ wxCHECK_RET( m_entry, _T("unloading an invalid wxPluginManager?") );
- if( m_entry && m_entry->UnrefLib() )
+ for ( wxDLManifest::iterator i = ms_manifest->begin();
+ i != ms_manifest->end();
+ ++i )
{
- delete node;
- m_entry = 0;
+ if ( i->second == m_entry )
+ {
+ ms_manifest->erase(i);
+ return;
+ }
}
-}
+ m_entry->UnrefLib();
-#ifdef __DARWIN__
-// ---------------------------------------------------------------------------
-// For Darwin/Mac OS X
-// supply the sun style dlopen functions in terms of Darwin NS*
-// ---------------------------------------------------------------------------
-
-extern "C" {
-#import <mach-o/dyld.h>
-};
-
-enum dyldErrorSource
-{
- OFImage,
-};
-
-static char dl_last_error[1024];
-
-static void TranslateError(const char *path, enum dyldErrorSource type, int number)
-{
- unsigned int index;
- static char *OFIErrorStrings[] =
- {
- "%s(%d): Object Image Load Failure\n",
- "%s(%d): Object Image Load Success\n",
- "%s(%d): Not an recognisable object file\n",
- "%s(%d): No valid architecture\n",
- "%s(%d): Object image has an invalid format\n",
- "%s(%d): Invalid access (permissions?)\n",
- "%s(%d): Unknown error code from NSCreateObjectFileImageFromFile\n",
- };
-#define NUM_OFI_ERRORS (sizeof(OFIErrorStrings) / sizeof(OFIErrorStrings[0]))
-
- switch (type)
- {
- case OFImage:
- index = number;
- if (index > NUM_OFI_ERRORS - 1) {
- index = NUM_OFI_ERRORS - 1;
- }
- sprintf(dl_last_error, OFIErrorStrings[index], path, number);
- break;
-
- default:
- sprintf(dl_last_error, "%s(%d): Totally unknown error type %d\n",
- path, number, type);
- break;
- }
+ m_entry = NULL;
}
-#endif // __DARWIN__
-
-
// ---------------------------------------------------------------------------
// wxDllLoader (all these methods are static)
// ---------------------------------------------------------------------------
#if WXWIN_COMPATIBILITY_2_2
-wxDllType wxDllLoader::LoadLibrary(const wxString &name)
+wxDllType wxDllLoader::LoadLibrary(const wxString &name, bool *success)
{
- wxPluginLibrary *p = wxPluginManager::LoadLibrary(name, wxDL_DEFAULT | wxDL_VERBATIM);
- return p->GetLibHandle();
+ wxPluginLibrary *p = wxPluginManager::LoadLibrary
+ (
+ name,
+ wxDL_DEFAULT | wxDL_VERBATIM | wxDL_NOSHARE
+ );
+
+ if ( success )
+ *success = p != NULL;
+
+ return p ? p->GetLibHandle() : 0;
}
void wxDllLoader::UnloadLibrary(wxDllType handle)
{
wxPluginLibrary *p = wxPluginManager::GetObjectFromHandle(handle);
+
+ wxCHECK_RET( p, _T("Unloading a library not loaded with wxDllLoader?") );
+
p->UnrefLib();
}
-void *wxDllLoader::GetSymbol(wxDllType dllHandle, const wxString &name, bool *success)
+void *
+wxDllLoader::GetSymbol(wxDllType dllHandle, const wxString &name, bool *success)
{
wxPluginLibrary *p = wxPluginManager::GetObjectFromHandle(dllHandle);
+
+ if ( !p )
+ {
+ wxFAIL_MSG( _T("Using a library not loaded with wxDllLoader?") );
+
+ if ( success )
+ *success = FALSE;
+
+ return NULL;
+ }
+
return p->GetSymbol(name, success);
}
#endif // wxUSE_DYNAMIC_LOADER
-// vi:sts=4:sw=4:et
projects / wxWidgets.git / blobdiff