Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731

1 files changed, 443 insertions, 0 deletions

diff --git a/src/tools/qlibrary.cpp b/src/tools/qlibrary.cpp
new file mode 100644
index 000000000..8a3248b23
--- /dev/null
+++ b/src/tools/qlibrary.cpp
@@ -0,0 +1,443 @@
+/****************************************************************************
+**
+** 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 retquirements 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 [email protected].
+**
+** 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 "qplatformdefs.h"
+#include <private/qlibrary_p.h>
+#include <qstringlist.h>
+#include <qfile.h>
+
+#ifndef QT_NO_LIBRARY
+
+// uncomment this to get error messages
+//#define QT_DEBUG_COMPONENT 1
+// uncomment this to get error and success messages
+//#define QT_DEBUG_COMPONENT 2
+
+#ifndef QT_DEBUG_COMPONENT
+# if defined(QT_DEBUG)
+#  define QT_DEBUG_COMPONENT 1
+# endif
+#endif
+
+#if (defined(Q_WS_WIN) && !defined(QT_MAKEDLL)) \
+    || (defined(Q_OS_FREEBSD) && defined(Q_CC_INTEL)) \
+    || (defined(Q_OS_IRIX) && defined(Q_CC_GNU))
+#define QT_NO_LIBRARY_UNLOAD
+#endif
+
+TQLibraryPrivate::TQLibraryPrivate( TQLibrary *lib )
+    : pHnd( 0 ), library( lib )
+{
+}
+
+
+/*!
+    \class TQLibrary qlibrary.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
+    retquires 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 Q_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(QT_NO_LIBRARY_UNLOAD)
+    if ( !d->freeLibrary() ) {
+# if defined(QT_DEBUG_COMPONENT)
+	qWarning( "%s could not be unloaded", (const char*) TQFile::encodeName(library()) );
+# endif
+	return FALSE;
+    }
+
+# if defined(QT_DEBUG_COMPONENT) && QT_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(Q_WS_WIN)
+    if ( filename.findRev( '.' ) <= filename.findRev( '/' ) )
+	filename += ".dll";
+#else
+    TQStringList filters = "";
+#ifdef Q_OS_MACX
+    filters << ".so";
+    filters << ".bundle";
+    filters << ".dylib"; //the last one is also the default one..
+#elif defined(Q_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 //QT_NO_LIBRARY