From dba036816b279bc1539a9f3894fbc414665d2bce Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Sun, 21 Apr 2019 23:22:20 +0900 Subject: Removed unnecessary and/or TDE-unrelated code. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Michele Calgaro Signed-off-by: Slávek Banko --- tqtinterface/qt4/src/kernel/tqurl.cpp | 1345 --------------------------------- 1 file changed, 1345 deletions(-) delete mode 100644 tqtinterface/qt4/src/kernel/tqurl.cpp (limited to 'tqtinterface/qt4/src/kernel/tqurl.cpp') diff --git a/tqtinterface/qt4/src/kernel/tqurl.cpp b/tqtinterface/qt4/src/kernel/tqurl.cpp deleted file mode 100644 index 81f8ca4..0000000 --- a/tqtinterface/qt4/src/kernel/tqurl.cpp +++ /dev/null @@ -1,1345 +0,0 @@ -/**************************************************************************** -** -** Implementation of TQUrl class -** -** Created : 950429 -** -** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA. -** -** 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 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 "tqurl.h" - -#ifndef TQT_NO_URL - -#include "tqdir.h" - -#include - -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 (TQ_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 tqurl.h - - \brief The TQUrl class provides a URL parser and simplifies working with URLs. -\if defined(commercial) - It is part of the TQt Enterprise Edition. -\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: - - http://www.trolltech.com:80/cgi-bin/test%20me.pl?cmd=Hello%20you - - \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 me.pl" - \row \i \l fileName() \i "test me.pl" - \row \i \l query() \i "cmd=Hello%20you" - \endtable - - Example: - - http://doc.trolltech.com/tqdockarea.html#lines - - \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 "tqdockarea.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 - requires 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_.at( 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(TQ_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(TQ_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 TQ_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::tqfromLatin1("."); - } else { - if ( pos == 0 ) - return TQString::tqfromLatin1( "/" ); - 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 // TQT_NO_URL -- cgit v1.2.3