Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731

1 files changed, 1345 insertions, 0 deletions

diff --git a/src/kernel/qurl.cpp b/src/kernel/qurl.cpp
new file mode 100644
index 000000000..b018f2778
--- /dev/null
+++ b/src/kernel/qurl.cpp
@@ -0,0 +1,1345 @@
+/****************************************************************************
+**
+** Implementation of TQUrl class
+**
+** Created : 950429
+**
+** Copyright (C) 1992-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the kernel 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 "qurl.h"
+
+#ifndef QT_NO_URL
+
+#include "qdir.h"
+
+#include <stdlib.h>
+
+class TQUrlPrivate
+{
+public:
+    TQString protocol;
+    TQString user;
+    TQString pass;
+    TQString host;
+    TQString path, cleanPath;
+    TQString refEncoded;
+    TQString queryEncoded;
+    bool isValid;
+    int port;
+    bool cleanPathDirty;
+};
+
+/*!
+    Replaces backslashes with slashes and removes multiple occurrences
+    of slashes or backslashes if \c allowMultiple is FALSE.
+*/
+
+static void slashify( TQString& s, bool allowMultiple = TRUE )
+{
+    bool justHadSlash = FALSE;
+    for ( int i = 0; i < (int)s.length(); i++ ) {
+	if ( !allowMultiple && justHadSlash &&
+	     ( s[ i ] == '/' || s[ i ] == '\\' ) ) {
+	    s.remove( i, 1 );
+	    --i;
+	    continue;
+	}
+	if ( s[ i ] == '\\' )
+	    s[ i ] = '/';
+#if defined (Q_WS_MAC9)
+	if ( s[ i ] == ':' && (i == (int)s.length()-1 || s[ i + 1 ] != '/' ) ) //mac colon's go away, unless after a protocol
+		s[ i ] = '/';
+#endif
+	if ( s[ i ] == '/' )
+	    justHadSlash = TRUE;
+	else
+	    justHadSlash = FALSE;
+    }
+}
+
+
+
+/*!
+    \class TQUrl qurl.h
+
+    \brief The TQUrl class provides a URL parser and simplifies working with URLs.
+\if defined(commercial)
+    It is part of the <a href="commercialeditions.html">TQt Enterprise Edition</a>.
+\endif
+
+    \ingroup io
+    \ingroup misc
+    \mainclass
+
+    \module network
+
+    The TQUrl class is provided for simple work with URLs. It can
+    parse, decode, encode, etc.
+
+    TQUrl works with the decoded path and encoded query in turn.
+
+    Example:
+
+    <tt>http://www.trolltech.com:80/cgi-bin/test%20me.pl?cmd=Hello%20you</tt>
+
+    \table
+    \header \i Function	    \i Returns
+    \row \i \l protocol()   \i "http"
+    \row \i \l host()	    \i "www.trolltech.com"
+    \row \i \l port()	    \i 80
+    \row \i \l path()	    \i "/cgi-bin/test&nbsp;me.pl"
+    \row \i \l fileName()   \i "test&nbsp;me.pl"
+    \row \i \l query()	    \i "cmd=Hello%20you"
+    \endtable
+
+    Example:
+
+    <tt>http://doc.trolltech.com/qdockarea.html#lines</tt>
+
+    \table
+    \header \i Function	    \i Returns
+    \row \i \l protocol()   \i "http"
+    \row \i \l host()	    \i "doc.trolltech.com"
+    \row \i \l fileName()   \i "qdockarea.html"
+    \row \i \l ref()	    \i "lines"
+    \endtable
+
+    The individual parts of a URL can be set with setProtocol(),
+    setHost(), setPort(), setPath(), setFileName(), setRef() and
+    setQuery(). A URL could contain, for example, an ftp address which
+    retquires a user name and password; these can be set with setUser()
+    and setPassword().
+
+    Because path is always encoded internally you must not use "%00"
+    in the path, although this is okay (but not recommended) for the
+    query.
+
+    TQUrl is normally used like this:
+
+    \code
+    TQUrl url( "http://www.trolltech.com" );
+    // or
+    TQUrl url( "file:/home/myself/Mail", "Inbox" );
+    \endcode
+
+    You can then access and manipulate the various parts of the URL.
+
+    To make it easy to work with TQUrls and TQStrings, TQUrl implements
+    the necessary cast and assignment operators so you can do
+    following:
+
+    \code
+    TQUrl url( "http://www.trolltech.com" );
+    TQString s = url;
+    // or
+    TQString s( "http://www.trolltech.com" );
+    TQUrl url( s );
+    \endcode
+
+    Use the static functions, encode() and decode() to encode or
+    decode a URL in a string. (They operate on the string in-place.)
+    The isRelativeUrl() static function returns TRUE if the given
+    string is a relative URL.
+
+    If you want to use a URL to work on a hierarchical structure (e.g.
+    a local or remote filesystem), you might want to use the subclass
+    TQUrlOperator.
+
+    \sa TQUrlOperator
+*/
+
+
+/*!
+    Constructs an empty URL that is invalid.
+*/
+
+TQUrl::TQUrl()
+{
+    d = new TQUrlPrivate;
+    d->isValid = FALSE;
+    d->port = -1;
+    d->cleanPathDirty = TRUE;
+}
+
+/*!
+    Constructs a URL by parsing the string \a url.
+
+    If you pass a string like "/home/qt", the "file" protocol is
+    assumed.
+*/
+
+TQUrl::TQUrl( const TQString& url )
+{
+    d = new TQUrlPrivate;
+    d->protocol = "file";
+    d->port = -1;
+    parse( url );
+}
+
+/*!
+    Copy constructor. Copies the data of \a url.
+*/
+
+TQUrl::TQUrl( const TQUrl& url )
+{
+    d = new TQUrlPrivate;
+    *d = *url.d;
+}
+
+/*!
+    Returns TRUE if \a url is relative; otherwise returns FALSE.
+*/
+
+bool TQUrl::isRelativeUrl( const TQString &url )
+{
+    int colon = url.find( ":" );
+    int slash = url.find( "/" );
+
+    return ( slash != 0 && ( colon == -1 || ( slash != -1 && colon > slash ) ) );
+}
+
+/*!
+    Constructs an URL taking \a url as the base (context) and
+    \a relUrl as a relative URL to \a url. If \a relUrl is not relative,
+    \a relUrl is taken as the new URL.
+
+    For example, the path of
+    \code
+    TQUrl url( "ftp://ftp.trolltech.com/qt/source", "qt-2.1.0.tar.gz" );
+    \endcode
+    will be "/qt/srource/qt-2.1.0.tar.gz".
+
+    On the other hand,
+    \code
+    TQUrl url( "ftp://ftp.trolltech.com/qt/source", "/usr/local" );
+    \endcode
+    will result in a new URL, "ftp://ftp.trolltech.com/usr/local",
+    because "/usr/local" isn't relative.
+
+    Similarly,
+    \code
+    TQUrl url( "ftp://ftp.trolltech.com/qt/source", "file:/usr/local" );
+    \endcode
+    will result in a new URL, with "/usr/local" as the path
+    and "file" as the protocol.
+
+    Normally it is expected that the path of \a url points to a
+    directory, even if the path has no slash at the end. But if you
+    want the constructor to handle the last part of the path as a file
+    name if there is no slash at the end, and to let it be replaced by
+    the file name of \a relUrl (if it contains one), set \a checkSlash
+    to TRUE.
+*/
+
+TQUrl::TQUrl( const TQUrl& url, const TQString& relUrl, bool checkSlash )
+{
+    d = new TQUrlPrivate;
+    TQString rel = relUrl;
+    slashify( rel );
+
+    TQUrl urlTmp( url );
+    if ( !urlTmp.isValid() ) {
+	urlTmp.reset();
+    }
+    if ( isRelativeUrl( rel ) ) {
+	if ( rel[ 0 ] == '#' ) {
+	    *this = urlTmp;
+	    rel.remove( (uint)0, 1 );
+	    decode( rel );
+	    setRef( rel );
+	} else if ( rel[ 0 ] == '?' ) {
+	    *this = urlTmp;
+	    rel.remove( (uint)0, 1 );
+	    setQuery( rel );
+	} else {
+	    decode( rel );
+	    *this = urlTmp;
+	    setRef( TQString::null );
+	    if ( checkSlash && d->cleanPath[(int)path().length()-1] != '/' ) {
+		if ( isRelativeUrl( path() ) )
+		    setEncodedPathAndQuery( rel );
+		else
+		    setFileName( rel );
+	    } else {
+		TQString p = urlTmp.path();
+		if ( p.isEmpty() ) {
+		    // allow URLs like "file:foo"
+		    if ( !d->host.isEmpty() && !d->user.isEmpty() && !d->pass.isEmpty() )
+			p = "/";
+		}
+		if ( !p.isEmpty() && p.right(1)!="/" )
+		    p += "/";
+		p += rel;
+		d->path = p;
+		d->cleanPathDirty = TRUE;
+	    }
+	}
+    } else {
+	if ( rel[ 0 ] == TQChar( '/' ) ) {
+	    *this = urlTmp;
+	    setEncodedPathAndQuery( rel );
+	} else {
+	    *this = rel;
+	}
+    }
+}
+
+/*!
+    Destructor.
+*/
+
+TQUrl::~TQUrl()
+{
+    delete d;
+    d = 0;
+}
+
+/*!
+    Returns the protocol of the URL. Typically, "file", "http", "ftp",
+    etc.
+
+    \sa setProtocol()
+*/
+
+TQString TQUrl::protocol() const
+{
+    return d->protocol;
+}
+
+/*!
+    Sets the protocol of the URL to \a protocol. Typically, "file",
+    "http", "ftp", etc.
+
+    \sa protocol()
+*/
+
+void TQUrl::setProtocol( const TQString& protocol )
+{
+    d->protocol = protocol;
+    if ( hasHost() )
+	d->isValid = TRUE;
+}
+
+/*!
+    Returns the username of the URL.
+
+    \sa setUser() setPassword()
+*/
+
+TQString TQUrl::user() const
+{
+    return  d->user;
+}
+
+/*!
+    Sets the username of the URL to \a user.
+
+    \sa user() setPassword()
+*/
+
+void TQUrl::setUser( const TQString& user )
+{
+    d->user = user;
+}
+
+/*!
+    Returns TRUE if the URL contains a username; otherwise returns
+    FALSE.
+
+    \sa setUser() setPassword()
+*/
+
+bool TQUrl::hasUser() const
+{
+    return !d->user.isEmpty();
+}
+
+/*!
+    Returns the password of the URL.
+
+    \warning Passwords passed in URLs are normally \e insecure; this
+    is due to the mechanism, not because of TQt.
+
+    \sa setPassword() setUser()
+*/
+
+TQString TQUrl::password() const
+{
+    return d->pass;
+}
+
+/*!
+    Sets the password of the URL to \a pass.
+
+    \warning Passwords passed in URLs are normally \e insecure; this
+    is due to the mechanism, not because of TQt.
+
+    \sa password() setUser()
+*/
+
+void TQUrl::setPassword( const TQString& pass )
+{
+    d->pass = pass;
+}
+
+/*!
+    Returns TRUE if the URL contains a password; otherwise returns
+    FALSE.
+
+    \warning Passwords passed in URLs are normally \e insecure; this
+    is due to the mechanism, not because of TQt.
+
+    \sa setPassword() setUser()
+*/
+
+bool TQUrl::hasPassword() const
+{
+    return !d->pass.isEmpty();
+}
+
+/*!
+    Returns the hostname of the URL.
+
+    \sa setHost() hasHost()
+*/
+
+TQString TQUrl::host() const
+{
+    return d->host;
+}
+
+/*!
+    Sets the hostname of the URL to \a host.
+
+    \sa host() hasHost()
+*/
+
+void TQUrl::setHost( const TQString& host )
+{
+    d->host = host;
+    if ( !d->protocol.isNull() && d->protocol != "file" )
+	d->isValid = TRUE;
+}
+
+/*!
+    Returns TRUE if the URL contains a hostname; otherwise returns
+    FALSE.
+
+    \sa setHost()
+*/
+
+bool TQUrl::hasHost() const
+{
+    return !d->host.isEmpty();
+}
+
+/*!
+    Returns the port of the URL or -1 if no port has been set.
+
+    \sa setPort()
+*/
+
+int TQUrl::port() const
+{
+    return d->port;
+}
+
+/*!
+    Sets the port of the URL to \a port.
+
+    \sa port()
+*/
+
+void TQUrl::setPort( int port )
+{
+    d->port = port;
+}
+
+/*!
+    Returns TRUE if the URL contains a port; otherwise returns FALSE.
+
+    \sa setPort()
+*/
+
+bool TQUrl::hasPort() const
+{
+    return d->port >= 0;
+}
+
+/*!
+    Sets the path of the URL to \a path.
+
+    \sa path() hasPath()
+*/
+
+void TQUrl::setPath( const TQString& path )
+{
+    d->path = path;
+    slashify( d->path );
+    d->cleanPathDirty = TRUE;
+    d->isValid = TRUE;
+}
+
+/*!
+    Returns TRUE if the URL contains a path; otherwise returns FALSE.
+
+    \sa path() setPath()
+*/
+
+bool TQUrl::hasPath() const
+{
+    return !d->path.isEmpty();
+}
+
+/*!
+    Sets the query of the URL to \a txt. \a txt must be encoded.
+
+    \sa query() encode()
+*/
+
+void TQUrl::setQuery( const TQString& txt )
+{
+    d->queryEncoded = txt;
+}
+
+/*!
+    Returns the (encoded) query of the URL.
+
+    \sa setQuery() decode()
+*/
+
+TQString TQUrl::query() const
+{
+    return d->queryEncoded;
+}
+
+/*!
+    Returns the (encoded) reference of the URL.
+
+    \sa setRef() hasRef() decode()
+*/
+
+TQString TQUrl::ref() const
+{
+    return d->refEncoded;
+}
+
+/*!
+    Sets the reference of the URL to \a txt. \a txt must be encoded.
+
+    \sa ref() hasRef() encode()
+*/
+
+void TQUrl::setRef( const TQString& txt )
+{
+    d->refEncoded = txt;
+}
+
+/*!
+    Returns TRUE if the URL has a reference; otherwise returns FALSE.
+
+    \sa setRef()
+*/
+
+bool TQUrl::hasRef() const
+{
+    return !d->refEncoded.isEmpty();
+}
+
+/*!
+    Returns TRUE if the URL is valid; otherwise returns FALSE. A URL
+    is invalid if it cannot be parsed, for example.
+*/
+
+bool TQUrl::isValid() const
+{
+    return d->isValid;
+}
+
+/*!
+    Resets all parts of the URL to their default values and
+    invalidates it.
+*/
+
+void TQUrl::reset()
+{
+    d->protocol = "file";
+    d->user = "";
+    d->pass = "";
+    d->host = "";
+    d->path = "";
+    d->queryEncoded = "";
+    d->refEncoded = "";
+    d->isValid = TRUE;
+    d->port = -1;
+    d->cleanPathDirty = TRUE;
+}
+
+/*!
+    Parses the \a url.
+*/
+
+bool TQUrl::parse( const TQString& url )
+{
+    TQString url_( url );
+    slashify( url_ );
+
+    if ( url_.isEmpty() ) {
+	d->isValid = FALSE;
+	return FALSE;
+    }
+
+    d->cleanPathDirty = TRUE;
+    d->isValid = TRUE;
+    TQString oldProtocol = d->protocol;
+    d->protocol = TQString::null;
+
+    const int Init	= 0;
+    const int Protocol	= 1;
+    const int Separator1= 2; // :
+    const int Separator2= 3; // :/
+    const int Separator3= 4; // :// or more slashes
+    const int User	= 5;
+    const int Pass	= 6;
+    const int Host	= 7;
+    const int Path	= 8;
+    const int Ref	= 9;
+    const int Query	= 10;
+    const int Port	= 11;
+    const int Done	= 12;
+
+    const int InputAlpha= 1;
+    const int InputDigit= 2;
+    const int InputSlash= 3;
+    const int InputColon= 4;
+    const int InputAt	= 5;
+    const int InputHash = 6;
+    const int InputQuery= 7;
+
+    static uchar table[ 12 ][ 8 ] = {
+     /* None       InputAlpha  InputDigit  InputSlash  InputColon  InputAt     InputHash   InputQuery */
+	{ 0,       Protocol,   0,          Path,       0,          0,          0,          0,         }, // Init
+	{ 0,       Protocol,   Protocol,   0,          Separator1, 0,          0,          0,         }, // Protocol
+	{ 0,       Path,       Path,       Separator2, 0,          0,          0,          0,         }, // Separator1
+	{ 0,       Path,       Path,       Separator3, 0,          0,          0,          0,         }, // Separator2
+	{ 0,       User,       User,       Separator3, Pass,       Host,       0,          0,         }, // Separator3
+	{ 0,       User,       User,       User,       Pass,       Host,       User,       User,      }, // User
+	{ 0,       Pass,       Pass,       Pass,       Pass,       Host,       Pass,       Pass,      }, // Pass
+	{ 0,       Host,       Host,       Path,       Port,       Host,       Ref,        Query,     }, // Host
+	{ 0,       Path,       Path,       Path,       Path,       Path,       Ref,        Query,     }, // Path
+	{ 0,       Ref,        Ref,        Ref,        Ref,        Ref,        Ref,        Query,     }, // Ref
+	{ 0,       Query,      Query,      Query,      Query,      Query,      Query,      Query,     }, // Query
+	{ 0,       0,          Port,       Path,       0,          0,          0,          0,         }  // Port
+    };
+
+    bool relPath = FALSE;
+
+    relPath = FALSE;
+    bool forceRel = FALSE;
+
+    // If ':' is at pos 1, we have only one letter
+    // before that separator => that's a drive letter!
+    if ( url_.length() >= 2 && url_[1] == ':' )
+	relPath = forceRel = TRUE;
+
+    int hasNoHost = -1;
+    int cs = url_.find( ":/" );
+    if ( cs != -1 ) // if a protocol is there, find out if there is a host or directly the path after it
+	hasNoHost = url_.find( "///", cs );
+    table[ 4 ][ 1 ] = User;
+    table[ 4 ][ 2 ] = User;
+    if ( cs == -1 || forceRel ) { // we have a relative file
+	if ( url.find( ':' ) == -1 || forceRel ) {
+	    table[ 0 ][ 1 ] = Path;
+	    // Filenames may also begin with a digit
+	    table[ 0 ][ 2 ] = Path;
+	} else {
+	    table[ 0 ][ 1 ] = Protocol;
+	}
+	relPath = TRUE;
+    } else { // some checking
+	table[ 0 ][ 1 ] = Protocol;
+
+	// find the part between the protocol and the path as the meaning
+	// of that part is dependend on some chars
+	++cs;
+	while ( url_[ cs ] == '/' )
+	    ++cs;
+	int slash = url_.find( "/", cs );
+	if ( slash == -1 )
+	    slash = url_.length() - 1;
+	TQString tmp = url_.mid( cs, slash - cs + 1 );
+
+	if ( !tmp.isEmpty() ) { // if this part exists
+
+	    // look for the @ in this part
+	    int at = tmp.find( "@" );
+	    if ( at != -1 )
+		at += cs;
+	    // we have no @, which means host[:port], so directly
+	    // after the protocol the host starts, or if the protocol
+	    // is file or there were more than 2 slashes, it�s the
+	    // path
+	    if ( at == -1 ) {
+		if ( url_.left( 4 ) == "file" || hasNoHost != -1 )
+		    table[ 4 ][ 1 ] = Path;
+		else
+		    table[ 4 ][ 1 ] = Host;
+		table[ 4 ][ 2 ] = table[ 4 ][ 1 ];
+	    }
+	}
+    }
+
+    int state = Init; // parse state
+    int input; // input token
+
+    TQChar c = url_[ 0 ];
+    int i = 0;
+    TQString port;
+
+    for ( ;; ) {
+	switch ( c ) {
+	case '?':
+	    input = InputQuery;
+	    break;
+	case '#':
+	    input = InputHash;
+	    break;
+	case '@':
+	    input = InputAt;
+	    break;
+	case ':':
+	    input = InputColon;
+	    break;
+	case '/':
+	    input = InputSlash;
+	    break;
+	case '1': case '2': case '3': case '4': case '5':
+	case '6': case '7': case '8': case '9': case '0':
+	    input = InputDigit;
+	    break;
+	default:
+	    input = InputAlpha;
+	}
+
+	state = table[ state ][ input ];
+
+	switch ( state ) {
+	case Protocol:
+	    d->protocol += c;
+	    break;
+	case User:
+	    d->user += c;
+	    break;
+	case Pass:
+	    d->pass += c;
+	    break;
+	case Host:
+	    d->host += c;
+	    break;
+	case Path:
+	    d->path += c;
+	    break;
+	case Ref:
+	    d->refEncoded += c;
+	    break;
+	case Query:
+	    d->queryEncoded += c;
+	    break;
+	case Port:
+	    port += c;
+	    break;
+	default:
+	    break;
+	}
+
+	++i;
+	if ( i > (int)url_.length() - 1 || state == Done || state == 0 )
+	    break;
+	c = url_[ i ];
+
+    }
+
+    if ( !port.isEmpty() ) {
+	port.remove( (uint)0, 1 );
+	d->port = atoi( port.latin1() );
+    }
+
+    // error
+    if ( i < (int)url_.length() - 1 ) {
+	d->isValid = FALSE;
+	return FALSE;
+    }
+
+
+    if ( d->protocol.isEmpty() )
+	d->protocol = oldProtocol;
+
+    if ( d->path.isEmpty() )
+	d->path = "/";
+
+    // hack for windows
+    if ( d->path.length() == 2 && d->path[ 1 ] == ':' )
+	d->path += "/";
+
+    // #### do some corrections, should be done nicer too
+    if ( !d->pass.isEmpty() ) {
+	if ( d->pass[ 0 ] == ':' )
+	    d->pass.remove( (uint)0, 1 );
+	decode( d->pass );
+    }
+    if ( !d->user.isEmpty() ) {
+	decode( d->user );
+    }
+    if ( !d->path.isEmpty() ) {
+	if ( d->path[ 0 ] == '@' || d->path[ 0 ] == ':' )
+	    d->path.remove( (uint)0, 1 );
+	if ( d->path[ 0 ] != '/' && !relPath && d->path[ 1 ] != ':' )
+	    d->path.prepend( "/" );
+    }
+    if ( !d->refEncoded.isEmpty() && d->refEncoded[ 0 ] == '#' )
+	d->refEncoded.remove( (uint)0, 1 );
+    if ( !d->queryEncoded.isEmpty() && d->queryEncoded[ 0 ] == '?' )
+	d->queryEncoded.remove( (uint)0, 1 );
+    if ( !d->host.isEmpty() && d->host[ 0 ] == '@' )
+	d->host.remove( (uint)0, 1 );
+
+#if defined(Q_OS_WIN32)
+    // hack for windows file://machine/path syntax
+    if ( d->protocol == "file" ) {
+	if ( url.left( 7 ) == "file://" &&
+	     d->path.length() > 1 && d->path[ 1 ] != ':' )
+		 d->path.prepend( "/" );
+    }
+#endif
+
+    decode( d->path );
+    d->cleanPathDirty = TRUE;
+
+#if 0
+    qDebug( "URL: %s", url.latin1() );
+    qDebug( "protocol: %s", d->protocol.latin1() );
+    qDebug( "user: %s", d->user.latin1() );
+    qDebug( "pass: %s", d->pass.latin1() );
+    qDebug( "host: %s", d->host.latin1() );
+    qDebug( "path: %s", path().latin1() );
+    qDebug( "ref: %s", d->refEncoded.latin1() );
+    qDebug( "query: %s", d->queryEncoded.latin1() );
+    qDebug( "port: %d\n\n----------------------------\n\n", d->port );
+#endif
+
+    return TRUE;
+}
+
+/*!
+    \overload
+
+    Parses \a url and assigns the resulting data to this class.
+
+    If you pass a string like "/home/qt" the "file" protocol will be
+    assumed.
+*/
+
+TQUrl& TQUrl::operator=( const TQString& url )
+{
+    reset();
+    parse( url );
+
+    return *this;
+}
+
+/*!
+    Assigns the data of \a url to this class.
+*/
+
+TQUrl& TQUrl::operator=( const TQUrl& url )
+{
+    *d = *url.d;
+    return *this;
+}
+
+/*!
+    Compares this URL with \a url and returns TRUE if they are equal;
+    otherwise returns FALSE.
+*/
+
+bool TQUrl::operator==( const TQUrl& url ) const
+{
+    if ( !isValid() || !url.isValid() )
+	return FALSE;
+
+    if ( d->protocol == url.d->protocol &&
+	 d->user == url.d->user &&
+	 d->pass == url.d->pass &&
+	 d->host == url.d->host &&
+	 d->path == url.d->path &&
+	 d->queryEncoded == url.d->queryEncoded &&
+	 d->refEncoded == url.d->refEncoded &&
+	 d->isValid == url.d->isValid &&
+	 d->port == url.d->port )
+	return TRUE;
+
+    return FALSE;
+}
+
+/*!
+    \overload
+
+    Compares this URL with \a url. \a url is parsed first. Returns
+    TRUE if \a url is equal to this url; otherwise returns FALSE.
+*/
+
+bool TQUrl::operator==( const TQString& url ) const
+{
+    TQUrl u( url );
+    return ( *this == u );
+}
+
+/*!
+    Sets the file name of the URL to \a name. If this URL contains a
+    fileName(), the original file name is replaced by \a name.
+
+    See the documentation of fileName() for a more detailed discussion
+    of what is handled as file name and what is handled as a directory
+    path.
+
+    \sa fileName()
+*/
+
+void TQUrl::setFileName( const TQString& name )
+{
+    TQString fn( name );
+    slashify( fn );
+
+    while ( fn[ 0 ] == '/' )
+	fn.remove( (uint)0, 1 );
+
+    TQString p;
+    if ( path().isEmpty() ) {
+	p = "/";
+    } else {
+	p = path();
+	int slash = p.findRev( TQChar( '/' ) );
+	if ( slash == -1 ) {
+	    p = "/";
+	} else if ( p[ (int)p.length() - 1 ] != '/' ) {
+	    p.truncate( slash + 1 );
+	}
+    }
+
+    p += fn;
+    if ( !d->queryEncoded.isEmpty() )
+	p += "?" + d->queryEncoded;
+    setEncodedPathAndQuery( p );
+}
+
+/*!
+    Returns the encoded path and query.
+
+    \sa decode()
+*/
+
+TQString TQUrl::encodedPathAndQuery()
+{
+    TQString p = path();
+    if ( p.isEmpty() )
+	p = "/";
+
+    encode( p );
+
+    if ( !d->queryEncoded.isEmpty() ) {
+	p += "?";
+	p += d->queryEncoded;
+    }
+
+    return p;
+}
+
+/*!
+    Parses \a pathAndQuery for a path and query and sets those values.
+    The whole string must be encoded.
+
+    \sa encode()
+*/
+
+void TQUrl::setEncodedPathAndQuery( const TQString& pathAndQuery )
+{
+    d->cleanPathDirty = TRUE;
+    int pos = pathAndQuery.find( '?' );
+    if ( pos == -1 ) {
+	d->path = pathAndQuery;
+	d->queryEncoded = "";
+    } else {
+	d->path = pathAndQuery.left( pos );
+	d->queryEncoded = pathAndQuery.mid( pos + 1 );
+    }
+
+    decode( d->path );
+    d->cleanPathDirty = TRUE;
+}
+
+extern bool qt_resolve_symlinks; // defined in qapplication.cpp
+
+/*!
+    Returns the path of the URL. If \a correct is TRUE, the path is
+    cleaned (deals with too many or too few slashes, cleans things
+    like "/../..", etc). Otherwise path() returns exactly the path
+    that was parsed or set.
+
+    \sa setPath() hasPath()
+*/
+TQString TQUrl::path( bool correct ) const
+{
+    if ( !correct )
+	return d->path;
+
+    if ( d->cleanPathDirty ) {
+	bool check = TRUE;
+	if ( TQDir::isRelativePath( d->path ) ) {
+	    d->cleanPath = d->path;
+	} else if ( isLocalFile() ) {
+#if defined(Q_OS_WIN32)
+	    // hack for stuff like \\machine\path and //machine/path on windows
+	    if ( ( d->path.left( 1 ) == "/" || d->path.left( 1 ) == "\\" ) &&
+		 d->path.length() > 1 ) {
+		d->cleanPath = d->path;
+		bool share = (d->cleanPath[0] == '\\' && d->cleanPath[1] == '\\') ||
+		             (d->cleanPath[0] == '/' && d->cleanPath[1] == '/');
+		slashify( d->cleanPath, FALSE );
+		d->cleanPath = TQDir::cleanDirPath( d->cleanPath );
+		if ( share ) {
+		    check = FALSE;
+		    while (d->cleanPath.at(0) != '/' || d->cleanPath.at(1) != '/')
+			d->cleanPath.prepend("/");
+		}
+	    }
+#endif
+	    if ( check ) {
+		TQFileInfo fi( d->path );
+		if ( !fi.exists() )
+		    d->cleanPath = d->path;
+		else if ( fi.isDir() ) {
+                    TQString canPath = TQDir( d->path ).canonicalPath();
+                    TQString dir;
+                    if ( qt_resolve_symlinks && !canPath.isNull() )
+			dir = TQDir::cleanDirPath( canPath );
+                    else
+			dir = TQDir::cleanDirPath( TQDir( d->path ).absPath() );
+		    dir += "/";
+		    if ( dir == "//" )
+			d->cleanPath = "/";
+		    else
+			d->cleanPath = dir;
+		} else {
+		    TQString p =
+			TQDir::cleanDirPath( (qt_resolve_symlinks ?
+					    fi.dir().canonicalPath() :
+					    fi.dir().absPath()) );
+		    d->cleanPath = p + "/" + fi.fileName();
+		}
+	    }
+	} else {
+	    if ( d->path != "/" && d->path[ (int)d->path.length() - 1 ] == '/' )
+		d->cleanPath = TQDir::cleanDirPath( d->path ) + "/";
+	    else
+		d->cleanPath = TQDir::cleanDirPath( d->path );
+	}
+
+	if ( check )
+	    slashify( d->cleanPath, FALSE );
+	d->cleanPathDirty = FALSE;
+    }
+
+    return d->cleanPath;
+}
+
+/*!
+    Returns TRUE if the URL is a local file; otherwise returns FALSE.
+*/
+
+bool TQUrl::isLocalFile() const
+{
+    return d->protocol == "file";
+}
+
+/*!
+    Returns the file name of the URL. If the path of the URL doesn't
+    have a slash at the end, the part between the last slash and the
+    end of the path string is considered to be the file name. If the
+    path has a slash at the end, an empty string is returned here.
+
+    \sa setFileName()
+*/
+
+TQString TQUrl::fileName() const
+{
+    if ( d->path.isEmpty() || d->path.endsWith( "/" )
+#ifdef Q_WS_WIN
+	|| d->path.endsWith( "\\" )
+#endif
+	)
+	return TQString::null;
+
+    return TQFileInfo( d->path ).fileName();
+}
+
+/*!
+    Adds the path \a pa to the path of the URL.
+
+    \sa setPath() hasPath()
+*/
+
+void TQUrl::addPath( const TQString& pa )
+{
+    if ( pa.isEmpty() )
+	return;
+
+    TQString p( pa );
+    slashify( p );
+
+    if ( path().isEmpty() ) {
+	if ( p[ 0 ] != TQChar( '/' ) )
+	    d->path = "/" + p;
+	else
+	    d->path = p;
+    } else {
+	if ( p[ 0 ] != TQChar( '/' ) && d->path[ (int)d->path.length() - 1 ] != '/' )
+	    d->path += "/" + p;
+	else
+	    d->path += p;
+    }
+    d->cleanPathDirty = TRUE;
+}
+
+/*!
+    Returns the directory path of the URL. This is the part of the
+    path of the URL without the fileName(). See the documentation of
+    fileName() for a discussion of what is handled as file name and
+    what is handled as directory path.
+
+    \sa setPath() hasPath()
+*/
+
+TQString TQUrl::dirPath() const
+{
+    if ( path().isEmpty() )
+	return TQString::null;
+
+    TQString s = path();
+    int pos = s.findRev( '/' );
+    if ( pos == -1 ) {
+	return TQString::fromLatin1(".");
+    } else {
+	if ( pos == 0 )
+	    return TQString::fromLatin1( "/" );
+	return s.left( pos );
+    }
+}
+
+/*!
+    Encodes the \a url in-place into UTF-8.  For example
+
+    \code
+	TQString url = http://www.trolltech.com
+	TQUrl::encode( url );
+	// url is now "http%3A//www%20trolltech%20com"
+    \endcode
+
+  \sa decode()
+*/
+
+void TQUrl::encode( TQString& url )
+{
+    if ( url.isEmpty() )
+	return;
+
+    TQCString curl = url.utf8();
+    int oldlen = curl.length();
+
+    const TQCString special( "+<>#@\"&%$:,;?={}|^~[]\'`\\ \n\t\r" );
+    TQString newUrl;
+    int newlen = 0;
+
+    for ( int i = 0; i < oldlen ;++i ) {
+	uchar inCh = (uchar)curl[ i ];
+
+	if ( inCh >= 128 || special.contains(inCh) ) {
+	    newUrl[ newlen++ ] = TQChar( '%' );
+
+	    ushort c = inCh / 16;
+	    c += c > 9 ? 'A' - 10 : '0';
+	    newUrl[ newlen++ ] = c;
+
+	    c = inCh % 16;
+	    c += c > 9 ? 'A' - 10 : '0';
+	    newUrl[ newlen++ ] = c;
+	} else {
+	    newUrl[ newlen++ ] = inCh;
+	}
+    }
+
+    url = newUrl;
+}
+
+static uchar hex_to_int( uchar c )
+{
+    if ( c >= 'A' && c <= 'F' )
+	return c - 'A' + 10;
+    if ( c >= 'a' && c <= 'f')
+	return c - 'a' + 10;
+    if ( c >= '0' && c <= '9')
+	return c - '0';
+    return 0;
+}
+
+/*!
+    Decodes the \a url in-place into UTF-8.  For example
+
+    \code
+	TQString url = "http%3A//www%20trolltech%20com"
+	TQUrl::decode( url );
+	// url is now "http://www.trolltech.com"
+    \endcode
+
+    \sa encode()
+*/
+
+void TQUrl::decode( TQString& url )
+{
+    if ( url.isEmpty() )
+	return;
+
+    int newlen = 0;
+    TQCString curl = url.utf8();
+    int oldlen = curl.length();
+
+    TQCString newUrl(oldlen);
+
+    int i = 0;
+    while ( i < oldlen ) {
+	uchar c = (uchar)curl[ i++ ];
+	if ( c == '%' && i <= oldlen - 2 ) {
+	    c = hex_to_int( (uchar)curl[ i ] ) * 16 + hex_to_int( (uchar)curl[ i + 1 ] );
+	    i += 2;
+	}
+	newUrl [ newlen++ ] = c;
+    }
+    newUrl.truncate( newlen );
+
+    url = TQString::fromUtf8(newUrl.data());
+}
+
+
+/*!
+    Composes a string version of the URL and returns it. If \a
+    encodedPath is TRUE the path in the returned string is encoded. If
+    \a forcePrependProtocol is TRUE and \a encodedPath looks like a
+    local filename, the "file:/" protocol is also prepended.
+
+    \sa encode() decode()
+*/
+
+TQString TQUrl::toString( bool encodedPath, bool forcePrependProtocol ) const
+{
+    TQString res, p = path();
+    if ( encodedPath )
+	encode( p );
+
+    if ( isLocalFile() ) {
+	if ( forcePrependProtocol )
+	    res = d->protocol + ":" + p;
+	else
+	    res = p;
+    } else if ( d->protocol == "mailto" ) {
+	res = d->protocol + ":" + p;
+    } else {
+	res = d->protocol + "://";
+	if ( !d->user.isEmpty() || !d->pass.isEmpty() ) {
+	    TQString tmp;
+	    if ( !d->user.isEmpty() ) {
+		tmp = d->user;
+		encode( tmp );
+		res += tmp;
+	    }
+	    if ( !d->pass.isEmpty() ) {
+		tmp = d->pass;
+		encode( tmp );
+		res += ":" + tmp;
+	    }
+	    res += "@";
+	}
+	res += d->host;
+	if ( d->port != -1 )
+	    res += ":" + TQString( "%1" ).arg( d->port );
+	if ( !p.isEmpty() ) {
+	    if ( !d->host.isEmpty() && p[0]!='/' )
+		res += "/";
+	    res += p;
+	}
+    }
+
+    if ( !d->refEncoded.isEmpty() )
+	res += "#" + d->refEncoded;
+    if ( !d->queryEncoded.isEmpty() )
+	res += "?" + d->queryEncoded;
+
+    return res;
+}
+
+/*!
+    Composes a string version of the URL and returns it.
+
+    \sa TQUrl::toString()
+*/
+
+TQUrl::operator TQString() const
+{
+    return toString();
+}
+
+/*!
+    Changes the directory to one directory up.
+
+    \sa setPath()
+*/
+
+bool TQUrl::cdUp()
+{
+    d->path += "/..";
+    d->cleanPathDirty = TRUE;
+    return TRUE;
+}
+
+#endif // QT_NO_URL