]> git.saurik.com Git - wxWidgets.git/blobdiff - src/unix/dlunix.cpp
wxColour source cleaning. Corrections to 'const unsigned char' within wxColour docs.
[wxWidgets.git] / src / unix / dlunix.cpp
index 3d85ece2bd53390d08bc5820b2769797454e932e..5dc05dd27967f62a6030c3a8887728bbc724434e 100644 (file)
 #if wxUSE_DYNLIB_CLASS
 
 #include "wx/dynlib.h"
 #if wxUSE_DYNLIB_CLASS
 
 #include "wx/dynlib.h"
+#include "wx/ffile.h"
+
+#ifndef WX_PRECOMP
+    #include "wx/intl.h"
+    #include "wx/log.h"
+#endif
+
+// only Mac OS X 10.3+ has dlfcn.h, and it is simpler to always provide our own
+// wrappers using the native functions instead of doing checks for OS version
+#ifndef __DARWIN__
+    #include <dlfcn.h>
+#endif
+
+// if some flags are not supported, just ignore them
+#ifndef RTLD_LAZY
+    #define RTLD_LAZY 0
+#endif
+
+#ifndef RTLD_NOW
+    #define RTLD_NOW 0
+#endif
+
+#ifndef RTLD_GLOBAL
+    #define RTLD_GLOBAL 0
+#endif
+
 
 #if defined(HAVE_DLOPEN) || defined(__DARWIN__)
     #define USE_POSIX_DL_FUNCS
 
 #if defined(HAVE_DLOPEN) || defined(__DARWIN__)
     #define USE_POSIX_DL_FUNCS
@@ -76,7 +102,7 @@ static
 void TranslateError(const char *path, int number)
 {
     unsigned int index;
 void TranslateError(const char *path, int number)
 {
     unsigned int index;
-    static char *OFIErrorStrings[] =
+    static const char *OFIErrorStrings[] =
     {
         "%s(%d): Object Image Load Failure\n",
         "%s(%d): Object Image Load Success\n",
     {
         "%s(%d): Object Image Load Failure\n",
         "%s(%d): Object Image Load Success\n",
@@ -84,7 +110,7 @@ void TranslateError(const char *path, int number)
         "%s(%d): No valid architecture\n",
         "%s(%d): Object image has an invalid format\n",
         "%s(%d): Invalid access (permissions?)\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",
+        "%s(%d): Unknown error code from NSCreateObjectFileImageFromFile\n"
     };
 #define NUM_OFI_ERRORS (sizeof(OFIErrorStrings) / sizeof(OFIErrorStrings[0]))
 
     };
 #define NUM_OFI_ERRORS (sizeof(OFIErrorStrings) / sizeof(OFIErrorStrings[0]))
 
@@ -129,7 +155,7 @@ void *dlopen(const char *path, int WXUNUSED(mode) /* mode is ignored */)
 
 int dlclose(void *handle)
 {
 
 int dlclose(void *handle)
 {
-    NSUnLinkModule( handle, NSUNLINKMODULE_OPTION_NONE);
+    NSUnLinkModule((NSModule)handle, NSUNLINKMODULE_OPTION_NONE);
     return 0;
 }
 
     return 0;
 }
 
@@ -143,7 +169,7 @@ void *dlsym(void *handle, const char *symbol)
     p[0] = '_';
     strcpy(p + 1, symbol);
 
     p[0] = '_';
     strcpy(p + 1, symbol);
 
-    NSSymbol nsSymbol = NSLookupSymbolInModule( handle, p );
+    NSSymbol nsSymbol = NSLookupSymbolInModule((NSModule)handle, p );
     return nsSymbol ? NSAddressOfSymbol(nsSymbol) : NULL;
 }
 
     return nsSymbol ? NSAddressOfSymbol(nsSymbol) : NULL;
 }
 
@@ -165,30 +191,17 @@ wxDllType wxDynamicLibrary::GetProgramHandle()
 /* static */
 wxDllType wxDynamicLibrary::RawLoad(const wxString& libname, int flags)
 {
 /* static */
 wxDllType wxDynamicLibrary::RawLoad(const wxString& libname, int flags)
 {
-    wxASSERT_MSG( (flags & wxDL_NOW) == 0,
+    wxASSERT_MSG( !(flags & wxDL_NOW) || !(flags & wxDL_LAZY),
                   _T("wxDL_LAZY and wxDL_NOW are mutually exclusive.") );
 
 #ifdef USE_POSIX_DL_FUNCS
                   _T("wxDL_LAZY and wxDL_NOW are mutually exclusive.") );
 
 #ifdef USE_POSIX_DL_FUNCS
-    int rtldFlags = 0;
+    // we need to use either RTLD_NOW or RTLD_LAZY because if we call dlopen()
+    // with flags == 0 recent versions of glibc just fail the call, so use
+    // RTLD_NOW even if wxDL_NOW was not specified
+    int rtldFlags = flags & wxDL_LAZY ? RTLD_LAZY : RTLD_NOW;
 
 
-#ifdef RTLD_LAZY
-    if ( flags & wxDL_LAZY )
-    {
-        rtldFlags |= RTLD_LAZY;
-    }
-#endif
-#ifdef RTLD_NOW
-    if ( flags & wxDL_NOW )
-    {
-        rtldFlags |= RTLD_NOW;
-    }
-#endif
-#ifdef RTLD_GLOBAL
     if ( flags & wxDL_GLOBAL )
     if ( flags & wxDL_GLOBAL )
-    {
         rtldFlags |= RTLD_GLOBAL;
         rtldFlags |= RTLD_GLOBAL;
-    }
-#endif
 
     return dlopen(libname.fn_str(), rtldFlags);
 #else // !USE_POSIX_DL_FUNCS
 
     return dlopen(libname.fn_str(), rtldFlags);
 #else // !USE_POSIX_DL_FUNCS
@@ -220,7 +233,7 @@ void wxDynamicLibrary::Unload(wxDllType handle)
     shl_unload(handle);
 #endif // USE_POSIX_DL_FUNCS/!USE_POSIX_DL_FUNCS
 
     shl_unload(handle);
 #endif // USE_POSIX_DL_FUNCS/!USE_POSIX_DL_FUNCS
 
-#ifdef USE_POSIX_DL_FUNCS
+#if defined(USE_POSIX_DL_FUNCS) && defined(wxHAVE_DYNLIB_ERROR)
     if ( rc != 0 )
         Error();
 #endif
     if ( rc != 0 )
         Error();
 #endif
@@ -243,6 +256,10 @@ void *wxDynamicLibrary::RawGetSymbol(wxDllType handle, const wxString& name)
     return symbol;
 }
 
     return symbol;
 }
 
+// ----------------------------------------------------------------------------
+// error handling
+// ----------------------------------------------------------------------------
+
 #ifdef wxHAVE_DYNLIB_ERROR
 
 /* static */
 #ifdef wxHAVE_DYNLIB_ERROR
 
 /* static */
@@ -260,5 +277,118 @@ void wxDynamicLibrary::Error()
 
 #endif // wxHAVE_DYNLIB_ERROR
 
 
 #endif // wxHAVE_DYNLIB_ERROR
 
+// ----------------------------------------------------------------------------
+// listing loaded modules
+// ----------------------------------------------------------------------------
+
+// wxDynamicLibraryDetails declares this class as its friend, so put the code
+// initializing new details objects here
+class wxDynamicLibraryDetailsCreator
+{
+public:
+    // create a new wxDynamicLibraryDetails from the given data
+    static wxDynamicLibraryDetails *
+    New(unsigned long start, unsigned long end, const wxString& path)
+    {
+        wxDynamicLibraryDetails *details = new wxDynamicLibraryDetails;
+        details->m_path = path;
+        details->m_name = path.AfterLast(_T('/'));
+        details->m_address = wxUIntToPtr(start);
+        details->m_length = end - start;
+
+        // try to extract the library version from its name
+        const size_t posExt = path.rfind(_T(".so"));
+        if ( posExt != wxString::npos )
+        {
+            if ( path.c_str()[posExt + 3] == _T('.') )
+            {
+                // assume "libfoo.so.x.y.z" case
+                details->m_version.assign(path, posExt + 4, wxString::npos);
+            }
+            else
+            {
+                size_t posDash = path.find_last_of(_T('-'), posExt);
+                if ( posDash != wxString::npos )
+                {
+                    // assume "libbar-x.y.z.so" case
+                    posDash++;
+                    details->m_version.assign(path, posDash, posExt - posDash);
+                }
+            }
+        }
+
+        return details;
+    }
+};
+
+/* static */
+wxDynamicLibraryDetailsArray wxDynamicLibrary::ListLoaded()
+{
+    wxDynamicLibraryDetailsArray dlls;
+
+#ifdef __LINUX__
+    // examine /proc/self/maps to find out what is loaded in our address space
+    wxFFile file(_T("/proc/self/maps"));
+    if ( file.IsOpened() )
+    {
+        // details of the module currently being parsed
+        wxString pathCur;
+        unsigned long startCur = 0,
+                      endCur = 0;
+
+        char path[1024];
+        char buf[1024];
+        while ( fgets(buf, WXSIZEOF(buf), file.fp()) )
+        {
+            // format is: start-end perm something? maj:min inode path
+            unsigned long start, end;
+            switch ( sscanf(buf, "%08lx-%08lx %*4s %*08x %*02d:%*02d %*d %1024s\n",
+                            &start, &end, path) )
+            {
+                case 2:
+                    // there may be no path column
+                    path[0] = '\0';
+                    break;
+
+                case 3:
+                    // nothing to do, read everything we wanted
+                    break;
+
+                default:
+                    // chop '\n'
+                    buf[strlen(buf) - 1] = '\0';
+                    wxLogDebug(_T("Failed to parse line \"%s\" in /proc/self/maps."),
+                               buf);
+                    continue;
+            }
+
+            wxString pathNew = wxString::FromAscii(path);
+            if ( pathCur.empty() )
+            {
+                // new module start
+                pathCur = pathNew;
+                startCur = start;
+                endCur = end;
+            }
+            else if ( pathCur == pathNew )
+            {
+                // continuation of the same module
+                wxASSERT_MSG( start == endCur, _T("hole in /proc/self/maps?") );
+                endCur = end;
+            }
+            else // end of the current module
+            {
+                dlls.Add(wxDynamicLibraryDetailsCreator::New(startCur,
+                                                             endCur,
+                                                             pathCur));
+                pathCur.clear();
+            }
+        }
+    }
+#endif // __LINUX__
+
+    return dlls;
+}
+
 #endif // wxUSE_DYNLIB_CLASS
 
 #endif // wxUSE_DYNLIB_CLASS