diff options
Diffstat (limited to 'tqtinterface/qt4/src/tools/tqlibrary.cpp')
| -rw-r--r-- | tqtinterface/qt4/src/tools/tqlibrary.cpp | 443 |
1 files changed, 0 insertions, 443 deletions
diff --git a/tqtinterface/qt4/src/tools/tqlibrary.cpp b/tqtinterface/qt4/src/tools/tqlibrary.cpp deleted file mode 100644 index 5236cd5..0000000 --- a/tqtinterface/qt4/src/tools/tqlibrary.cpp +++ /dev/null @@ -1,443 +0,0 @@ -/**************************************************************************** -** -** Implementation of TQLibrary class -** -** Created : 000101 -** -** Copyright (C) 2000-2008 Trolltech ASA. All rights reserved. -** -** This file is part of the tools module of the TQt GUI Toolkit. -** -** This file may be used under the terms of the GNU General -** Public License versions 2.0 or 3.0 as published by the Free -** Software Foundation and appearing in the files LICENSE.GPL2 -** and LICENSE.GPL3 included in the packaging of this file. -** Alternatively you may (at your option) use any later version -** of the GNU General Public License if such license has been -** publicly approved by Trolltech ASA (or its successors, if any) -** and the KDE Free TQt Foundation. -** -** Please review the following information to ensure GNU General -** Public Licensing requirements will be met: -** http://trolltech.com/products/qt/licenses/licensing/opensource/. -** If you are unsure which license is appropriate for your use, please -** review the following information: -** http://trolltech.com/products/qt/licenses/licensing/licensingoverview -** or contact the sales department at sales@trolltech.com. -** -** This file may be used under the terms of the Q Public License as -** defined by Trolltech ASA and appearing in the file LICENSE.TQPL -** included in the packaging of this file. Licensees holding valid TQt -** Commercial licenses may use this file in accordance with the TQt -** Commercial License Agreement provided with the Software. -** -** This file is provided "AS IS" with NO WARRANTY OF ANY KIND, -** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR -** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted -** herein. -** -**********************************************************************/ - -#include "tqplatformdefs.h" -#include <private/tqlibrary_p.h> -#include <tqstringlist.h> -#include <tqfile.h> - -#ifndef TQT_NO_LIBRARY - -// uncomment this to get error messages -//#define TQT_DEBUG_COMPONENT 1 -// uncomment this to get error and success messages -//#define TQT_DEBUG_COMPONENT 2 - -#ifndef TQT_DEBUG_COMPONENT -# if defined(TQT_DEBUG) -# define TQT_DEBUG_COMPONENT 1 -# endif -#endif - -#if (defined(TQ_WS_WIN) && !defined(TQT_MAKEDLL)) \ - || (defined(TQ_OS_FREEBSD) && defined(TQ_CC_INTEL)) \ - || (defined(TQ_OS_IRIX) && defined(TQ_CC_GNU)) -#define TQT_NO_LIBRARY_UNLOAD -#endif - -TQLibraryPrivate::TQLibraryPrivate( TQLibrary *lib ) - : pHnd( 0 ), library( lib ) -{ -} - - -/*! - \class TQLibrary tqlibrary.h - \reentrant - \brief The TQLibrary class provides a wrapper for handling shared libraries. - - \mainclass - \ingroup plugins - - An instance of a TQLibrary object can handle a single shared - library and provide access to the functionality in the library in - a platform independent way. If the library is a component server, - TQLibrary provides access to the exported component and can - directly query this component for interfaces. - - TQLibrary ensures that the shared library is loaded and stays in - memory whilst it is in use. TQLibrary can also unload the library - on destruction and release unused resources. - - A typical use of TQLibrary is to resolve an exported symbol in a - shared object, and to call the function that this symbol - represents. This is called "explicit linking" in contrast to - "implicit linking", which is done by the link step in the build - process when linking an executable against a library. - - The following code snippet loads a library, resolves the symbol - "mysymbol", and calls the function if everything succeeded. If - something went wrong, e.g. the library file does not exist or the - symbol is not defined, the function pointer will be 0 and won't be - called. When the TQLibrary object is destroyed the library will be - unloaded, making all references to memory allocated in the library - invalid. - - \code - typedef void (*MyPrototype)(); - MyPrototype myFunction; - - TQLibrary myLib( "mylib" ); - myFunction = (MyPrototype) myLib.resolve( "mysymbol" ); - if ( myFunction ) { - myFunction(); - } - \endcode -*/ - -/*! - Creates a TQLibrary object for the shared library \a filename. The - library will be unloaded in the destructor. - - Note that \a filename does not need to include the (platform specific) - file extension, so calling - \code - TQLibrary lib( "mylib" ); - \endcode - is equivalent to calling - \code - TQLibrary lib( "mylib.dll" ); - \endcode - on Windows, and - \code - TQLibrary lib( "libmylib.so" ); - \endcode - on Unix. Specifying the extension is not recommended, since - doing so introduces a platform dependency. - - If \a filename does not include a path, the library loader will - look for the file in the platform specific search paths. - - \sa load() unload(), setAutoUnload() -*/ -TQLibrary::TQLibrary( const TQString& filename ) - : libfile( filename ), aunload( TRUE ) -{ - libfile.replace( '\\', '/' ); - d = new TQLibraryPrivate( this ); -} - -/*! - Deletes the TQLibrary object. - - The library will be unloaded if autoUnload() is TRUE (the - default), otherwise it stays in memory until the application - exits. - - \sa unload(), setAutoUnload() -*/ -TQLibrary::~TQLibrary() -{ - if ( autoUnload() ) - unload(); - - delete d; -} - -/*! - Returns the address of the exported symbol \a symb. The library is - loaded if necessary. The function returns 0 if the symbol could - not be resolved or the library could not be loaded. - - \code - typedef int (*avgProc)( int, int ); - - avgProc avg = (avgProc) library->resolve( "avg" ); - if ( avg ) - return avg( 5, 8 ); - else - return -1; - \endcode - - The symbol must be exported as a C-function from the library. This - requires the \c {extern "C"} notation if the library is compiled - with a C++ compiler. On Windows you also have to explicitly export - the function from the DLL using the \c {__declspec(dllexport)} - compiler directive. - - \code - extern "C" MY_EXPORT_MACRO int avg(int a, int b) - { - return (a + b) / 2; - } - \endcode - - with \c MY_EXPORT defined as - - \code - #ifdef TQ_WS_WIN - # define MY_EXPORT __declspec(dllexport) - #else - # define MY_EXPORT - #endif - \endcode - - On Darwin and Mac OS X this function uses code from dlcompat, part of the - OpenDarwin project. - - \legalese - - Copyright (c) 2002 Jorge Acereda and Peter O'Gorman - - Permission is hereby granted, free of charge, to any person obtaining - a copy of this software and associated documentation files (the - "Software"), to deal in the Software without restriction, including - without limitation the rights to use, copy, modify, merge, publish, - distribute, sublicense, and/or sell copies of the Software, and to - permit persons to whom the Software is furnished to do so, subject to - the following conditions: - - The above copyright notice and this permission notice shall be - included in all copies or substantial portions of the Software. - - THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, - EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND - NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE - LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION - OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION - WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -*/ -void *TQLibrary::resolve( const char* symb ) -{ - if ( !d->pHnd ) - load(); - if ( !d->pHnd ) - return 0; - - void *address = d->resolveSymbol( symb ); - - return address; -} - -/*! - \overload - - Loads the library \a filename and returns the address of the - exported symbol \a symb. Note that like the constructor, \a - filename does not need to include the (platform specific) file - extension. The library remains loaded until the process exits. - - The function returns 0 if the symbol could not be resolved or the - library could not be loaded. - - This function is useful only if you want to resolve a single - symbol, e.g. a function pointer from a specific library once: - - \code - typedef void (*FunctionType)(); - static FunctionType *ptrFunction = 0; - static bool triedResolve = FALSE; - if ( !ptrFunction && !triedResolve ) - ptrFunction = TQLibrary::resolve( "mylib", "mysymb" ); - - if ( ptrFunction ) - ptrFunction(); - else - ... - \endcode - - If you want to resolve multiple symbols, use a TQLibrary object and - call the non-static version of resolve(). - - \sa resolve() -*/ -void *TQLibrary::resolve( const TQString &filename, const char *symb ) -{ - TQLibrary lib( filename ); - lib.setAutoUnload( FALSE ); - return lib.resolve( symb ); -} - -/*! - Returns TRUE if the library is loaded; otherwise returns FALSE. - - \sa unload() -*/ -bool TQLibrary::isLoaded() const -{ - return d->pHnd != 0; -} - -/*! - Loads the library. Since resolve() always calls this function - before resolving any symbols it is not necessary to call it - explicitly. In some situations you might want the library loaded - in advance, in which case you would use this function. - - On Darwin and Mac OS X this function uses code from dlcompat, part of the - OpenDarwin project. - - \legalese - - Copyright (c) 2002 Jorge Acereda and Peter O'Gorman - - Permission is hereby granted, free of charge, to any person obtaining - a copy of this software and associated documentation files (the - "Software"), to deal in the Software without restriction, including - without limitation the rights to use, copy, modify, merge, publish, - distribute, sublicense, and/or sell copies of the Software, and to - permit persons to whom the Software is furnished to do so, subject to - the following conditions: - - The above copyright notice and this permission notice shall be - included in all copies or substantial portions of the Software. - - THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, - EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND - NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE - LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION - OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION - WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -*/ -bool TQLibrary::load() -{ - if (libfile.isEmpty()) - return FALSE; - return d->loadLibrary(); -} - -/*! - Unloads the library and returns TRUE if the library could be - unloaded; otherwise returns FALSE. - - This function is called by the destructor if autoUnload() is - enabled. - - \sa resolve() -*/ -bool TQLibrary::unload() -{ - if ( !d->pHnd ) - return TRUE; - -#if !defined(TQT_NO_LIBRARY_UNLOAD) - if ( !d->freeLibrary() ) { -# if defined(TQT_DEBUG_COMPONENT) - qWarning( "%s could not be unloaded", (const char*) TQFile::encodeName(library()) ); -# endif - return FALSE; - } - -# if defined(TQT_DEBUG_COMPONENT) && TQT_DEBUG_COMPONENT == 2 - qWarning( "%s has been unloaded", (const char*) TQFile::encodeName(library()) ); -# endif - d->pHnd = 0; -#endif - return TRUE; -} - -/*! - Returns TRUE if the library will be automatically unloaded when - this wrapper object is destructed; otherwise returns FALSE. The - default is TRUE. - - \sa setAutoUnload() -*/ -bool TQLibrary::autoUnload() const -{ - return (bool)aunload; -} - -/*! - If \a enabled is TRUE (the default), the wrapper object is set to - automatically unload the library upon destruction. If \a enabled - is FALSE, the wrapper object is not unloaded unless you explicitly - call unload(). - - \sa autoUnload() -*/ -void TQLibrary::setAutoUnload( bool enabled ) -{ - aunload = enabled; -} - -/*! - Returns the filename of the shared library this TQLibrary object - handles, including the platform specific file extension. - - For example: - \code - TQLibrary lib( "mylib" ); - TQString str = lib.library(); - \endcode - will set \e str to "mylib.dll" on Windows, and "libmylib.so" on Linux. -*/ -TQString TQLibrary::library() const -{ - if ( libfile.isEmpty() ) - return libfile; - - TQString filename = libfile; - -#if defined(TQ_WS_WIN) - if ( filename.findRev( '.' ) <= filename.findRev( '/' ) ) - filename += ".dll"; -#else - TQStringList filters = ""; -#ifdef TQ_OS_MACX - filters << ".so"; - filters << ".bundle"; - filters << ".dylib"; //the last one is also the default one.. -#elif defined(TQ_OS_HPUX) - filters << ".sl"; -#else - filters << ".so"; -#endif - for(TQStringList::Iterator it = filters.begin(); TRUE; ) { - TQString filter = (*it); - ++it; - - if(TQFile::exists(filename + filter)) { - filename += filter; - break; - } else if(!filter.isEmpty()) { - TQString tmpfilename = filename; - const int x = tmpfilename.findRev( "/" ); - if ( x != -1 ) { - TQString path = tmpfilename.left( x + 1 ); - TQString file = tmpfilename.right( tmpfilename.length() - x - 1 ); - tmpfilename = TQString( "%1lib%2" ).arg( path ).arg( file ); - } else { - tmpfilename = TQString( "lib%1" ).arg( filename ); - } - if ( !filename.contains(".so") ) - tmpfilename += filter; - if(TQFile::exists(tmpfilename) || it == filters.end()) { - filename = tmpfilename; - break; - } - } - } -#endif - return filename; -} -#endif //TQT_NO_LIBRARY |