diff options
Diffstat (limited to 'tqtinterface/qt4/src/tools/tqtextstream.cpp')
| -rw-r--r-- | tqtinterface/qt4/src/tools/tqtextstream.cpp | 2663 |
1 files changed, 0 insertions, 2663 deletions
diff --git a/tqtinterface/qt4/src/tools/tqtextstream.cpp b/tqtinterface/qt4/src/tools/tqtextstream.cpp deleted file mode 100644 index ca4b11e..0000000 --- a/tqtinterface/qt4/src/tools/tqtextstream.cpp +++ /dev/null @@ -1,2663 +0,0 @@ -/**************************************************************************** -** -** Implementation of TQTextStream class -** -** Created : 940922 -** -** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA. -** -** 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 "tqtextstream.h" - -#ifndef TQT_NO_TEXTSTREAM -#include "tqtextcodec.h" -#include "tqregexp.h" -#include "tqbuffer.h" -#include "tqfile.h" -#include <stdio.h> -#include <ctype.h> -#include <stdlib.h> -#ifndef TQ_OS_TEMP -#include <locale.h> -#endif - -#if defined(TQ_OS_WIN32) -#include "tqt_windows.h" -#endif - -/*! - \class TQTextStream tqtextstream.h - \reentrant - \brief The TQTextStream class provides basic functions for reading - and writing text using a TQIODevice. - - \ingroup io - \ingroup text - \mainclass - - The text stream class has a functional interface that is very - similar to that of the standard C++ iostream class. - - TQt provides several global functions similar to the ones in iostream: - \table - \header \i Function \i Meaning - \row \i bin \i sets the TQTextStream to read/write binary numbers - \row \i oct \i sets the TQTextStream to read/write octal numbers - \row \i dec \i sets the TQTextStream to read/write decimal numbers - \row \i hex \i sets the TQTextStream to read/write hexadecimal numbers - \row \i endl \i forces a line break - \row \i flush \i forces the TQIODevice to flush any buffered data - \row \i ws \i eats any available whitespace (on input) - \row \i reset \i resets the TQTextStream to its default mode (see reset()) - \row \i qSetW(int) \i sets the \link width() field width \endlink - to the given argument - \row \i qSetFill(int) \i sets the \link fill() fill character - \endlink to the given argument - \row \i qSetPrecision(int) \i sets the \link precision() precision - \endlink to the given argument - \endtable - - \warning By default TQTextStream will automatically detect whether - integers in the stream are in decimal, octal, hexadecimal or - binary format when reading from the stream. In particular, a - leading '0' signifies octal, i.e. the sequence "0100" will be - interpreted as 64. - - The TQTextStream class reads and writes text; it is not appropriate - for dealing with binary data (but TQDataStream is). - - By default, output of Unicode text (i.e. TQString) is done using - the local 8-bit encoding. This can be changed using the - setEncoding() method. For input, the TQTextStream will auto-detect - standard Unicode "byte order marked" text files; otherwise the - local 8-bit encoding is used. - - The TQIODevice is set in the constructor, or later using - setDevice(). If the end of the input is reached atEnd() returns - TRUE. Data can be read into variables of the appropriate type - using the operator>>() overloads, or read in its entirety into a - single string using read(), or read a line at a time using - readLine(). Whitespace can be skipped over using skipWhiteSpace(). - You can set flags for the stream using flags() or setf(). The - stream also supports width(), precision() and fill(); use reset() - to reset the defaults. - - \sa TQDataStream -*/ - -/*! - \enum TQTextStream::Encoding - - \value Locale - \value Latin1 - \value Unicode - \value UnicodeNetworkOrder - \value UnicodeReverse - \value RawUnicode - \value UnicodeUTF8 - - See setEncoding() for an explanation of the encodings. -*/ - -/* - \class TQTSManip - - \brief The TQTSManip class is an internal helper class for the - TQTextStream. - - It is generally a very bad idea to use this class directly in - application programs. - - \internal - - This class makes it possible to give the TQTextStream function objects - with arguments, like this: - \code - TQTextStream cout( stdout, IO_WriteOnly ); - cout << setprecision( 8 ); // TQTSManip used here! - cout << 3.14159265358979323846; - \endcode - - The setprecision() function returns a TQTSManip object. - The TQTSManip object contains a pointer to a member function in - TQTextStream and an integer argument. - When serializing a TQTSManip into a TQTextStream, the function - is executed with the argument. -*/ - -/*! \fn TQTSManip::TQTSManip( TQTSMFI m, int a ) - - Constructs a TQTSManip object which will call \a m (a member function - in TQTextStream which accepts a single int) with argument \a a when - TQTSManip::exec() is called. Used internally in e.g. endl: - - \code - s << "some text" << endl << "more text"; - \endcode -*/ - -/*! \fn void TQTSManip::exec( TQTextStream& s ) - - Calls the member function specified in the constructor, for object - \a s. Used internally in e.g. endl: - - \code - s << "some text" << endl << "more text"; - \endcode -*/ - - -/***************************************************************************** - TQTextStream member functions - *****************************************************************************/ - -#if defined(TQT_CHECK_STATE) -#undef CHECK_STREAM_PRECOND -#define CHECK_STREAM_PRECOND if ( !dev ) { \ - qWarning( "TQTextStream: No tqdevice" ); \ - return *this; } -#else -#define CHECK_STREAM_PRECOND -#endif - - -#define I_SHORT 0x0010 -#define I_INT 0x0020 -#define I_LONG 0x0030 -#define I_TYPE_MASK 0x00f0 - -#define I_BASE_2 TQTS::bin -#define I_BASE_8 TQTS::oct -#define I_BASE_10 TQTS::dec -#define I_BASE_16 TQTS::hex -#define I_BASE_MASK (TQTS::bin | TQTS::oct | TQTS::dec | TQTS::hex) - -#define I_SIGNED 0x0100 -#define I_UNSIGNED 0x0200 -#define I_SIGN_MASK 0x0f00 - - -static const TQChar TQEOF = TQChar((ushort)0xffff); //guaranteed not to be a character. -static const uint getline_buf_size = 256; // bufsize used by ts_getline() - -const int TQTextStream::basefield = I_BASE_MASK; -const int TQTextStream::adjustfield = ( TQTextStream::left | - TQTextStream::right | - TQTextStream::internal ); -const int TQTextStream::floatfield = ( TQTextStream::scientific | - TQTextStream::fixed ); - - -class TQTextStreamPrivate { -public: -#ifndef TQT_NO_TEXTCODEC - TQTextStreamPrivate() - : decoder( 0 ), encoder( 0 ), sourceType( NotSet ) { } - ~TQTextStreamPrivate() { - delete decoder; - delete encoder; - } - TQTextDecoder *decoder; - TQTextEncoder *encoder; -#else - TQTextStreamPrivate() : sourceType( NotSet ) { } - ~TQTextStreamPrivate() { } -#endif - TQString ungetcBuf; - - enum SourceType { NotSet, IODevice, String, ByteArray, File }; - SourceType sourceType; -}; - - -// skips whitespace and returns the first non-whitespace character -TQChar TQTextStream::eat_ws() -{ - TQChar c; - do { c = ts_getc(); } while ( c != TQEOF && ts_isspace(c) ); - return c; -} - -void TQTextStream::init() -{ - // ### ungetcBuf = TQEOF; - dev = 0; - owndev = FALSE; - mapper = 0; - d = new TQTextStreamPrivate; - doUnicodeHeader = TRUE; // autodetect - latin1 = TRUE; // should use locale? - internalOrder = TQChar::networkOrdered(); - networkOrder = TRUE; -} - -/*! - Constructs a data stream that has no IO tqdevice. -*/ - -TQTextStream::TQTextStream() -{ - init(); - setEncoding( Locale ); - reset(); - d->sourceType = TQTextStreamPrivate::NotSet; -} - -/*! - Constructs a text stream that uses the IO tqdevice \a iod. -*/ - -TQTextStream::TQTextStream( QIODevice *iod ) -{ - init(); - setEncoding( Locale ); - dev = TQT_TQIODEVICE(iod); - reset(); - d->sourceType = TQTextStreamPrivate::IODevice; -} - -/*! - Constructs a text stream that uses the IO tqdevice \a iod. -*/ - -TQTextStream::TQTextStream( QFile *iod ) -{ - init(); - setEncoding( Locale ); - dev = TQT_TQIODEVICE(iod); - reset(); - d->sourceType = TQTextStreamPrivate::IODevice; -} - -// TODO: use special-case handling of this case in TQTextStream, and -// simplify this class to only deal with TQChar or TQString data. -class TQStringBuffer : public TQIODevice { -public: - TQStringBuffer( TQString* str ); - ~TQStringBuffer(); - bool open( int m ); - void close(); - void flush(); -#ifdef USE_QT4 - qint64 size() const; -#else - Offset size() const; -#endif - Offset at() const; - bool at( Offset pos ); -#ifdef USE_QT4 - qint64 readData( char *p, qint64 len ); - qint64 writeData( const char *p, qint64 len ); -#else - TQ_LONG readBlock( char *p, TQ_ULONG len ); - TQ_LONG writeBlock( const char *p, TQ_ULONG len ); -#endif - int getch(); - int putch( int ch ); - int ungetch( int ch ); -protected: - TQString* s; - -private: - TQStringBuffer( const TQStringBuffer & ); - TQStringBuffer &operator=( const TQStringBuffer & ); -}; - - -TQStringBuffer::TQStringBuffer( TQString* str ) -{ - s = str; -} - -TQStringBuffer::~TQStringBuffer() -{ -} - - -bool TQStringBuffer::open( int m ) -{ - if ( !s ) { -#if defined(TQT_CHECK_STATE) - qWarning( "TQStringBuffer::open: No string" ); -#endif - return FALSE; - } - if ( isOpen() ) { -#if defined(TQT_CHECK_STATE) - qWarning( "TQStringBuffer::open: Buffer already open" ); -#endif - return FALSE; - } - setMode( m ); - if ( m & IO_Truncate ) - s->truncate( 0 ); - - if ( m & IO_Append ) { - seek(s->length()*sizeof(TQChar)); - } else { - seek(0); - } - setState( IO_Open ); - resetqStatus(); - return TRUE; -} - -void TQStringBuffer::close() -{ - if ( isOpen() ) { - setFlags( IO_Direct ); - seek(0); - } -} - -void TQStringBuffer::flush() -{ -} - -#ifdef USE_QT4 -qint64 TQStringBuffer::size() const -#else -TQIODevice::Offset TQStringBuffer::size() const -#endif -{ - return s ? s->length()*sizeof(TQChar) : 0; -} - -TQIODevice::Offset TQStringBuffer::at() const -{ - return pos(); -} - -bool TQStringBuffer::at( Offset pos ) -{ -#if defined(TQT_CHECK_STATE) - if ( !isOpen() ) { - qWarning( "TQStringBuffer::at: Buffer is not open" ); - return FALSE; - } -#endif - if ( pos >= s->length()*2 ) { -#if defined(TQT_CHECK_RANGE) -#if defined(TQT_ABI_QT4) - qWarning( "TQStringBuffer::at: Index %lld out of range", pos ); -#else - qWarning( "TQStringBuffer::at: Index %lu out of range", pos ); -#endif -#endif - return FALSE; - } - seek(pos); - return TRUE; -} - -#ifdef USE_QT4 -qint64 TQStringBuffer::readData( char *p, qint64 len ) -#else -TQ_LONG TQStringBuffer::readBlock( char *p, TQ_ULONG len ) -#endif -{ -#if defined(TQT_CHECK_STATE) - TQ_CHECK_PTR( p ); - if ( !isOpen() ) { - qWarning( "TQStringBuffer::readBlock: Buffer not open" ); - return -1; - } - if ( !isReadable() ) { - qWarning( "TQStringBuffer::readBlock: Read operation not permitted" ); - return -1; - } -#endif - if ( pos() + len > s->length()*sizeof(TQChar) ) { - // overflow - if ( (uint)pos() >= s->length()*sizeof(TQChar) ) { - setqStatus( IO_ReadError ); - return -1; - } else { - len = s->length()*2 - (uint)pos(); - } - } - memcpy( p, ((const char*)(s->tqunicode()))+pos(), len ); - seek(pos()+len); - return len; -} - -#ifdef USE_QT4 -qint64 TQStringBuffer::writeData( const char *p, qint64 len ) -#else -TQ_LONG TQStringBuffer::writeBlock( const char *p, TQ_ULONG len ) -#endif -{ -#if defined(TQT_CHECK_NULL) - if ( p == 0 && len != 0 ) - qWarning( "TQStringBuffer::writeBlock: Null pointer error" ); -#endif -#if defined(TQT_CHECK_STATE) - if ( !isOpen() ) { - qWarning( "TQStringBuffer::writeBlock: Buffer not open" ); - return -1; - } - if ( !isWritable() ) { - qWarning( "TQStringBuffer::writeBlock: Write operation not permitted" ); - return -1; - } - if ( pos()&1 ) { - qWarning( "TQStringBuffer::writeBlock: non-even index - non Unicode" ); - return -1; - } - if ( len&1 ) { - qWarning( "TQStringBuffer::writeBlock: non-even length - non Unicode" ); - return -1; - } -#endif - s->replace(pos()/2, len/2, (TQChar*)p, len/2); - seek(pos()+len); - return len; -} - -int TQStringBuffer::getch() -{ -#if defined(TQT_CHECK_STATE) - if ( !isOpen() ) { - qWarning( "TQStringBuffer::getch: Buffer not open" ); - return -1; - } - if ( !isReadable() ) { - qWarning( "TQStringBuffer::getch: Read operation not permitted" ); - return -1; - } -#endif - if ( (uint)pos() >= s->length()*2 ) { // overflow - setqStatus( IO_ReadError ); - return -1; - } - int retval = (int)((const uchar *)s->tqunicode())[pos()]; - seek(pos()+1); - return retval; -} - -int TQStringBuffer::putch( int ch ) -{ - char c = ch; - if ( writeBlock(&c,1) < 0 ) - return -1; - else - return ch; -} - -int TQStringBuffer::ungetch( int ch ) -{ -#if defined(TQT_CHECK_STATE) - if ( !isOpen() ) { - qWarning( "TQStringBuffer::ungetch: Buffer not open" ); - return -1; - } - if ( !isReadable() ) { - qWarning( "TQStringBuffer::ungetch: Read operation not permitted" ); - return -1; - } -#endif - if ( ch != -1 ) { // something to do with eof - if ( pos() ) - seek(pos()-1); - else - ch = -1; - } - return ch; -} - - -/*! - Constructs a text stream that operates on the Unicode TQString, \a - str, through an internal tqdevice. The \a filemode argument is - passed to the tqdevice's open() function; see \l{TQIODevice::mode()}. - - If you set an encoding or codec with setEncoding() or setCodec(), - this setting is ignored for text streams that operate on TQString. - - Example: - \code - TQString str; - TQTextStream ts( &str, IO_WriteOnly ); - ts << "pi = " << 3.14; // str == "pi = 3.14" - \endcode - - Writing data to the text stream will modify the contents of the - string. The string will be expanded when data is written beyond - the end of the string. Note that the string will not be truncated: - \code - TQString str = "pi = 3.14"; - TQTextStream ts( &str, IO_WriteOnly ); - ts << "2+2 = " << 2+2; // str == "2+2 = 414" - \endcode - - Note that because TQString is Unicode, you should not use - readRawBytes() or writeRawBytes() on such a stream. -*/ - -TQTextStream::TQTextStream( TQString* str, int filemode ) -{ - // TODO: optimize for this case as it becomes more common - // (see TQStringBuffer above) - init(); - dev = new TQStringBuffer( str ); - ((TQStringBuffer *)dev)->open( filemode ); - owndev = TRUE; - setEncoding(RawUnicode); - reset(); - d->sourceType = TQTextStreamPrivate::String; -} - -/*! \obsolete - - This constructor is equivalent to the constructor taking a TQString* - parameter. -*/ - -TQTextStream::TQTextStream( TQString& str, int filemode ) -{ - init(); - dev = new TQStringBuffer( &str ); - ((TQStringBuffer *)dev)->open( filemode ); - owndev = TRUE; - setEncoding(RawUnicode); - reset(); - d->sourceType = TQTextStreamPrivate::String; -} - -/*! - Constructs a text stream that operates on the byte array, \a a, - through an internal TQBuffer tqdevice. The \a mode argument is passed - to the tqdevice's open() function; see \l{TQIODevice::mode()}. - - Example: - \code - TQByteArray array; - TQTextStream ts( array, IO_WriteOnly ); - ts << "pi = " << 3.14 << '\0'; // array == "pi = 3.14" - \endcode - - Writing data to the text stream will modify the contents of the - array. The array will be expanded when data is written beyond the - end of the string. - - Same example, using a TQBuffer: - \code - TQByteArray array; - TQBuffer buf( array ); - buf.open( IO_WriteOnly ); - TQTextStream ts( &buf ); - ts << "pi = " << 3.14 << '\0'; // array == "pi = 3.14" - buf.close(); - \endcode -*/ - -TQTextStream::TQTextStream( TQByteArray a, int mode ) -{ - init(); - dev = TQT_TQIODEVICE(new TQBuffer( a )); - ((TQBuffer *)dev)->open( (QIODevice::OpenModeFlag)mode ); - owndev = TRUE; - setEncoding( Latin1 ); //### Locale??? - reset(); - d->sourceType = TQTextStreamPrivate::ByteArray; -} - -/*! - Constructs a text stream that operates on an existing file handle - \a fh through an internal TQFile tqdevice. The \a mode argument is - passed to the tqdevice's open() function; see \l{TQIODevice::mode()}. - - Note that if you create a TQTextStream \c cout or another name that - is also used for another variable of a different type, some - linkers may confuse the two variables, which will often cause - crashes. -*/ - -TQTextStream::TQTextStream( FILE *fh, int mode ) -{ - init(); - setEncoding( Locale ); //### - dev = TQT_TQIODEVICE(new TQFile); - ((TQFile *)dev)->open( mode, fh ); - owndev = TRUE; - reset(); - d->sourceType = TQTextStreamPrivate::File; -} - -/*! - Destroys the text stream. - - The destructor does not affect the current IO tqdevice. -*/ - -TQTextStream::~TQTextStream() -{ - if ( owndev ) - delete dev; - delete d; -} - -/*! - Positions the read pointer at the first non-whitespace character. -*/ -void TQTextStream::skipWhiteSpace() -{ - ts_ungetc( eat_ws() ); -} - -/*! - Internal. -*/ -int TQTextStream::dev_getch() { - if (d->sourceType == TQTextStreamPrivate::String) - return static_cast<TQStringBuffer*>(dev)->getch(); - else - return dev->getch(); -} - -/*! - Internal. -*/ -int TQTextStream::dev_ungetch(int ch) { - if (d->sourceType == TQTextStreamPrivate::String) - return static_cast<TQStringBuffer*>(dev)->ungetch(ch); - else - return dev->ungetch(ch); -} - -/*! - Tries to read \a len characters from the stream and stores them in - \a buf. Returns the number of characters really read. - - \warning There will no TQEOF appended if the read reaches the end - of the file. EOF is reached when the return value does not equal - \a len. -*/ -uint TQTextStream::ts_getbuf( TQChar* buf, uint len ) -{ - if ( len < 1 ) - return 0; - - uint rnum = 0; // the number of TQChars really read - - if ( d && d->ungetcBuf.length() ) { - while ( rnum < len && rnum < d->ungetcBuf.length() ) { - *buf = d->ungetcBuf.constref( rnum ); - buf++; - rnum++; - } - d->ungetcBuf = d->ungetcBuf.mid( rnum ); - if ( rnum >= len ) - return rnum; - } - - // we use dev_ungetch() for one of the bytes of the tqunicode - // byte-order mark, but a local unget hack for the other byte: - int ungetHack = EOF; - - if ( doUnicodeHeader ) { - doUnicodeHeader = FALSE; // only at the top - int c1 = dev_getch(); - if ( c1 == EOF ) - return rnum; - int c2 = dev_getch(); - if ( c1 == 0xfe && c2 == 0xff ) { - mapper = 0; - latin1 = FALSE; - internalOrder = TQChar::networkOrdered(); - networkOrder = TRUE; - } else if ( c1 == 0xff && c2 == 0xfe ) { - mapper = 0; - latin1 = FALSE; - internalOrder = !TQChar::networkOrdered(); - networkOrder = FALSE; - } else { - if ( c2 != EOF ) { - dev_ungetch( c2 ); - ungetHack = c1; - } else { - /* - A small bug might hide here. If only the first byte - of a file has made it so far, and that first byte - is half of the byte-order mark, then the utfness - will not be detected. - */ - dev_ungetch( c1 ); - } - } - } - -#ifndef TQT_NO_TEXTCODEC - if ( mapper ) { - bool shortRead = FALSE; - if ( !d->decoder ) - d->decoder = mapper->makeDecoder(); - while( rnum < len ) { - TQString s; - bool readBlock = !( len == 1+rnum ); - for (;;) { - // for efficiency: normally read a whole block - if ( readBlock ) { - // guess buffersize; this may be wrong (too small or too - // big). But we can handle this (either iterate reading - // or use ungetcBuf). - // Note that this might cause problems for codecs where - // one byte can result in >1 Unicode Characters if bytes - // are written to the stream in the meantime (loss of - // synchronicity). - uint rlen = len - rnum; - char *cbuf = new char[ rlen ]; - if ( ungetHack != EOF ) { - rlen = 1+dev->readBlock( cbuf+1, rlen-1 ); - cbuf[0] = (char)ungetHack; - ungetHack = EOF; - } else { - rlen = dev->readBlock( cbuf, rlen ); - } - s += d->decoder->toUnicode( cbuf, rlen ); - delete[] cbuf; - // use buffered reading only for the first time, because we - // have to get the stream synchronous again (this is easier - // with single character reading) - readBlock = FALSE; - } - // get stream (and codec) in sync - int c; - if ( ungetHack == EOF ) { - c = dev_getch(); - } else { - c = ungetHack; - ungetHack = EOF; - } - if ( c == EOF ) { - shortRead = TRUE; - break; - } - char b = c; - uint lengthBefore = s.length(); - s += d->decoder->toUnicode( &b, 1 ); - if ( s.length() > lengthBefore ) - break; // it seems we are in sync now - } - uint i = 0; - uint end = TQMIN( len-rnum, s.length() ); - while( i < end ) { - *buf = s.constref(i++); - buf++; - } - rnum += end; - if ( s.length() > i ) { - // could be = but append is clearer - d->ungetcBuf.append( s.mid( i ) ); - } - if ( shortRead ) - return rnum; - } - } else -#endif - if ( latin1 ) { - if ( len == 1+rnum ) { - // use this method for one character because it is more efficient - // (arnt doubts whether it makes a difference, but lets it stand) - int c = (ungetHack == EOF) ? dev_getch() : ungetHack; - if ( c != EOF ) { - *buf = (char)c; - buf++; - rnum++; - } - } else { - if ( ungetHack != EOF ) { - *buf = (char)ungetHack; - buf++; - rnum++; - ungetHack = EOF; - } - char *cbuf = new char[len - rnum]; - while ( !dev->atEnd() && rnum < len ) { - uint rlen = len - rnum; - rlen = dev->readBlock( cbuf, rlen ); - char *it = cbuf; - char *end = cbuf + rlen; - while ( it < end ) { - *buf = *it; - buf++; - it++; - } - rnum += rlen; - } - delete[] cbuf; - } - } else { // UCS-2 or UTF-16 - if ( len == 1+rnum ) { - int c1 = (ungetHack == EOF) ? dev_getch() : ungetHack; - if ( c1 == EOF ) - return rnum; - int c2 = dev_getch(); - if ( c2 == EOF ) - return rnum; - - if ( networkOrder ) { - *buf = TQChar( c2, c1 ); - } else { - *buf = TQChar( c1, c2 ); - } - buf++; - rnum++; - } else { - char *cbuf = new char[ 2*( len - rnum ) ]; // for paranoids: overflow possible - while ( !dev->atEnd() && rnum < len ) { - uint rlen = 2 * ( len-rnum ); - if ( ungetHack != EOF ) { - rlen = 1+dev->readBlock( cbuf+1, rlen-1 ); - cbuf[0] = (char)ungetHack; - ungetHack = EOF; - } else { - rlen = dev->readBlock( cbuf, rlen ); - } - // We can't use an odd number of bytes, so put it back. But - // do it only if we are capable of reading more -- normally - // there should not be an odd number, but the file might be - // truncated or not in UTF-16... - if ( (rlen & 1) == 1 ) - if ( !dev->atEnd() ) - dev_ungetch( cbuf[--rlen] ); - uint i = 0; - if ( networkOrder ) { - while( i < rlen ) { - *buf = TQChar( cbuf[i+1], cbuf[i] ); - buf++; - i+=2; - } - } else { - while( i < rlen ) { - *buf = TQChar( cbuf[i], cbuf[i+1] ); - buf++; - i+=2; - } - } - rnum += i/2; - } - delete[] cbuf; - } - } - return rnum; -} - -/*! - Tries to read one line, but at most len characters from the stream - and stores them in \a buf. - - Returns the number of characters really read. Newlines are not - stripped. - - There will be a TQEOF appended if the read reaches the end of file; - this is different to ts_getbuf(). - - This function works only if a newline (as byte) is also a newline - (as resulting character) since it uses TQIODevice::readLine(). So - use it only for such codecs where this is true! - - This function is (almost) a no-op for UTF 16. Don't use it if - doUnicodeHeader is TRUE! -*/ -uint TQTextStream::ts_getline( TQChar* buf ) -{ - uint rnum=0; // the number of TQChars really read - char cbuf[ getline_buf_size+1 ]; - - if ( d && d->ungetcBuf.length() ) { - while( rnum < getline_buf_size && rnum < d->ungetcBuf.length() ) { - buf[rnum] = d->ungetcBuf.constref(rnum); - rnum++; - } - d->ungetcBuf = d->ungetcBuf.mid( rnum ); - if ( rnum >= getline_buf_size ) - return rnum; - } - -#ifndef TQT_NO_TEXTCODEC - if ( mapper ) { - if ( !d->decoder ) - d->decoder = mapper->makeDecoder(); - TQString s; - bool readBlock = TRUE; - for (;;) { - // for efficiency: try to read a line - if ( readBlock ) { - int rlen = getline_buf_size - rnum; - rlen = dev->readLine( cbuf, rlen+1 ); - if ( rlen == -1 ) - rlen = 0; - s += d->decoder->toUnicode( cbuf, rlen ); - readBlock = FALSE; - } - if ( dev->atEnd() - || s.at( s.length()-1 ) == '\n' - || s.at( s.length()-1 ) == '\r' - ) { - break; - } else { - // get stream (and codec) in sync - int c; - c = dev_getch(); - if ( c == EOF ) { - break; - } - char b = c; - uint lengthBefore = s.length(); - s += d->decoder->toUnicode( &b, 1 ); - if ( s.length() > lengthBefore ) - break; // it seems we are in sync now - } - } - uint i = 0; - while( rnum < getline_buf_size && i < s.length() ) - buf[rnum++] = s.constref(i++); - if ( s.length() > i ) - // could be = but append is clearer - d->ungetcBuf.append( s.mid( i ) ); - if ( rnum < getline_buf_size && dev->atEnd() ) - buf[rnum++] = TQEOF; - } else -#endif - if ( latin1 ) { - int rlen = getline_buf_size - rnum; - rlen = dev->readLine( cbuf, rlen+1 ); - if ( rlen == -1 ) - rlen = 0; - char *end = cbuf+rlen; - char *it = cbuf; - buf +=rnum; - while ( it != end ) { - buf->setCell( *(it++) ); - buf->setRow( 0 ); - buf++; - } - rnum += rlen; - if ( rnum < getline_buf_size && dev->atEnd() ) - buf[1] = TQEOF; - } - return rnum; -} - - -/*! - Puts one character into the stream. -*/ -void TQTextStream::ts_putc( TQChar c ) -{ -#ifndef TQT_NO_TEXTCODEC - if ( mapper ) { - if ( !d->encoder ) - d->encoder = mapper->makeEncoder(); - int len = 1; - TQString s = c; - TQCString block = d->encoder->fromUnicode( s, len ); - dev->writeBlock( block, len ); - } else -#endif - if ( latin1 ) { - if ( c.row() ) - dev->putch( '?' ); // unknown character - else - dev->putch( c.cell() ); - } else { - if ( doUnicodeHeader ) { - doUnicodeHeader = FALSE; - ts_putc( TQChar::byteOrderMark ); - } - if ( internalOrder ) { - // this case is needed by TQStringBuffer - dev->writeBlock( (char*)&c, sizeof(TQChar) ); - } else if ( networkOrder ) { - dev->putch( c.row() ); - dev->putch( c.cell() ); - } else { - dev->putch( c.cell() ); - dev->putch( c.row() ); - } - } -} - -/*! - Puts one character into the stream. -*/ -void TQTextStream::ts_putc( int ch ) -{ - ts_putc( TQChar((ushort)ch) ); -} - -bool TQTextStream::ts_isdigit( TQChar c ) -{ - return c.isDigit(); -} - -bool TQTextStream::ts_isspace( TQChar c ) -{ - return c.isSpace(); -} - -void TQTextStream::ts_ungetc( TQChar c ) -{ - if ( c.tqunicode() == 0xffff ) - return; - - d->ungetcBuf.prepend( c ); -} - - - -/*! - Reads \a len bytes from the stream into \a s and returns a - reference to the stream. - - The buffer \a s must be preallocated. - - Note that no encoding is done by this function. - - \warning The behavior of this function is undefined unless the - stream's encoding is set to Unicode or Latin1. - - \sa TQIODevice::readBlock() -*/ - -TQTextStream &TQTextStream::readRawBytes( char *s, uint len ) -{ - dev->readBlock( s, len ); - return *this; -} - -/*! - Writes the \a len bytes from \a s to the stream and returns a - reference to the stream. - - Note that no encoding is done by this function. - - \sa TQIODevice::writeBlock() -*/ - -TQTextStream &TQTextStream::writeRawBytes( const char* s, uint len ) -{ - dev->writeBlock( s, len ); - return *this; -} - - -TQTextStream &TQTextStream::writeBlock( const char* p, uint len ) -{ - if ( doUnicodeHeader ) { - doUnicodeHeader = FALSE; - if ( !mapper && !latin1 ) - ts_putc( TQChar::byteOrderMark ); - } - // TQCString and const char * are treated as Latin-1 - if ( !mapper && latin1 ) { - dev->writeBlock( p, len ); - } else if ( !mapper && internalOrder ) { - TQChar *u = new TQChar[len]; - for ( uint i = 0; i < len; i++ ) - u[i] = p[i]; - dev->writeBlock( (char*)u, len * sizeof(TQChar) ); - delete [] u; - } -#ifndef TQT_NO_TEXTCODEC - else if (mapper) { - if (!d->encoder) - d->encoder = mapper->makeEncoder(); - TQString s = TQString::tqfromLatin1(p, len); - int l = len; - TQCString block = d->encoder->fromUnicode(s, l); - dev->writeBlock(block, l); - } -#endif - else { - for ( uint i = 0; i < len; i++ ) - ts_putc( (uchar)p[i] ); - } - return *this; -} - -TQTextStream &TQTextStream::writeBlock( const TQChar* p, uint len ) -{ -#ifndef TQT_NO_TEXTCODEC - if ( mapper ) { - if ( !d->encoder ) - d->encoder = mapper->makeEncoder(); - TQConstString s( p, len ); - int l = len; - TQCString block = d->encoder->fromUnicode( s.string(), l ); - dev->writeBlock( block, l ); - } else -#endif - if ( latin1 ) { - char *str = TQString::tqunicodeToLatin1( p, len ); - dev->writeBlock( str, len ); - delete [] str; - } else if ( internalOrder ) { - if ( doUnicodeHeader ) { - doUnicodeHeader = FALSE; - ts_putc( TQChar::byteOrderMark ); - } - dev->writeBlock( (char*)p, sizeof(TQChar)*len ); - } else { - for (uint i=0; i<len; i++) - ts_putc( p[i] ); - } - return *this; -} - -/*! - Resets the text stream. - - \list - \i All flags are set to 0. - \i The field width is set to 0. - \i The fill character is set to ' ' (Space). - \i The precision is set to 6. - \endlist - - \sa setf(), width(), fill(), precision() -*/ - -void TQTextStream::reset() -{ - fflags = 0; - fwidth = 0; - fillchar = ' '; - fprec = 6; -} - -/*! - \fn TQIODevice *TQTextStream::tqdevice() const - - Returns the IO tqdevice currently set. - - \sa setDevice(), unsetDevice() -*/ - -/*! - Sets the IO tqdevice to \a iod. - - \sa tqdevice(), unsetDevice() -*/ - -void TQTextStream::setDevice( TQIODevice *iod ) -{ - if ( owndev ) { - delete dev; - owndev = FALSE; - } - dev = iod; - d->sourceType = TQTextStreamPrivate::IODevice; -} - -/*! - Unsets the IO tqdevice. Equivalent to setDevice( 0 ). - - \sa tqdevice(), setDevice() -*/ - -void TQTextStream::unsetDevice() -{ - setDevice( 0 ); - d->sourceType = TQTextStreamPrivate::NotSet; -} - -/*! - \fn bool TQTextStream::atEnd() const - - Returns TRUE if the IO tqdevice has reached the end position (end of - the stream or file) or if there is no IO tqdevice set; otherwise - returns FALSE. - - \sa TQIODevice::atEnd() -*/ - -/*!\fn bool TQTextStream::eof() const - - \obsolete - - This function has been renamed to atEnd(). - - \sa TQIODevice::atEnd() -*/ - -/***************************************************************************** - TQTextStream read functions - *****************************************************************************/ - - -/*! - \overload - - Reads a char \a c from the stream and returns a reference to the - stream. Note that whitespace is skipped. -*/ - -TQTextStream &TQTextStream::operator>>( char &c ) -{ - CHECK_STREAM_PRECOND - c = eat_ws(); - return *this; -} - -/*! - Reads a char \a c from the stream and returns a reference to the - stream. Note that whitespace is \e not skipped. -*/ - -TQTextStream &TQTextStream::operator>>( TQChar &c ) -{ - CHECK_STREAM_PRECOND - c = ts_getc(); - return *this; -} - - -ulong TQTextStream::input_bin() -{ - ulong val = 0; - TQChar ch = eat_ws(); - int dv = ch.digitValue(); - while ( dv == 0 || dv == 1 ) { - val = ( val << 1 ) + dv; - ch = ts_getc(); - dv = ch.digitValue(); - } - if ( ch != TQEOF ) - ts_ungetc( ch ); - return val; -} - -ulong TQTextStream::input_oct() -{ - ulong val = 0; - TQChar ch = eat_ws(); - int dv = ch.digitValue(); - while ( dv >= 0 && dv <= 7 ) { - val = ( val << 3 ) + dv; - ch = ts_getc(); - dv = ch.digitValue(); - } - if ( dv == 8 || dv == 9 ) { - while ( ts_isdigit(ch) ) - ch = ts_getc(); - } - if ( ch != TQEOF ) - ts_ungetc( ch ); - return val; -} - -ulong TQTextStream::input_dec() -{ - ulong val = 0; - TQChar ch = eat_ws(); - int dv = ch.digitValue(); - while ( ts_isdigit(ch) ) { - val = val * 10 + dv; - ch = ts_getc(); - dv = ch.digitValue(); - } - if ( ch != TQEOF ) - ts_ungetc( ch ); - return val; -} - -ulong TQTextStream::input_hex() -{ - ulong val = 0; - TQChar ch = eat_ws(); - char c = ch; - while ( isxdigit((uchar) c) ) { - val <<= 4; - if ( ts_isdigit(c) ) - val += c - '0'; - else - val += 10 + tolower( (uchar) c ) - 'a'; - c = ch = ts_getc(); - } - if ( ch != TQEOF ) - ts_ungetc( ch ); - return val; -} - -long TQTextStream::input_int() -{ - long val; - TQChar ch; - char c; - switch ( flags() & basefield ) { - case bin: - val = (long)input_bin(); - break; - case oct: - val = (long)input_oct(); - break; - case dec: - c = ch = eat_ws(); - if ( ch == TQEOF ) { - val = 0; - } else { - if ( !(c == '-' || c == '+') ) - ts_ungetc( ch ); - if ( c == '-' ) { - ulong v = input_dec(); - if ( v ) { // ensure that LONG_MIN can be read - v--; - val = -((long)v) - 1; - } else { - val = 0; - } - } else { - val = (long)input_dec(); - } - } - break; - case hex: - val = (long)input_hex(); - break; - default: - val = 0; - c = ch = eat_ws(); - if ( c == '0' ) { // bin, oct or hex - c = ch = ts_getc(); - if ( tolower((uchar) c) == 'x' ) - val = (long)input_hex(); - else if ( tolower((uchar) c) == 'b' ) - val = (long)input_bin(); - else { // octal - ts_ungetc( ch ); - if ( c >= '0' && c <= '7' ) { - val = (long)input_oct(); - } else { - val = 0; - } - } - } else if ( ts_isdigit(ch) ) { - ts_ungetc( ch ); - val = (long)input_dec(); - } else if ( c == '-' || c == '+' ) { - ulong v = input_dec(); - if ( c == '-' ) { - if ( v ) { // ensure that LONG_MIN can be read - v--; - val = -((long)v) - 1; - } else { - val = 0; - } - } else { - val = (long)v; - } - } - } - return val; -} - -// -// We use a table-driven FSM to parse floating point numbers -// strtod() cannot be used directly since we're reading from a TQIODevice -// - -double TQTextStream::input_double() -{ - const int Init = 0; // states - const int Sign = 1; - const int Mantissa = 2; - const int Dot = 3; - const int Abscissa = 4; - const int ExpMark = 5; - const int ExpSign = 6; - const int Exponent = 7; - const int Done = 8; - - const int InputSign = 1; // input tokens - const int InputDigit = 2; - const int InputDot = 3; - const int InputExp = 4; - - static const uchar table[8][5] = { - /* None InputSign InputDigit InputDot InputExp */ - { 0, Sign, Mantissa, Dot, 0, }, // Init - { 0, 0, Mantissa, Dot, 0, }, // Sign - { Done, Done, Mantissa, Dot, ExpMark,}, // Mantissa - { 0, 0, Abscissa, 0, 0, }, // Dot - { Done, Done, Abscissa, Done, ExpMark,}, // Abscissa - { 0, ExpSign, Exponent, 0, 0, }, // ExpMark - { 0, 0, Exponent, 0, 0, }, // ExpSign - { Done, Done, Exponent, Done, Done } // Exponent - }; - - int state = Init; // parse state - int input; // input token - - char buf[256]; - int i = 0; - TQChar c = eat_ws(); - - for (;;) { - - switch ( c ) { - case '+': - case '-': - input = InputSign; - break; - case '0': case '1': case '2': case '3': case '4': - case '5': case '6': case '7': case '8': case '9': - input = InputDigit; - break; - case '.': - input = InputDot; - break; - case 'e': - case 'E': - input = InputExp; - break; - default: - input = 0; - break; - } - - state = table[state][input]; - - if ( state == 0 || state == Done || i > 250 ) { - if ( i > 250 ) { // ignore rest of digits - do { c = ts_getc(); } while ( c != TQEOF && ts_isdigit(c) ); - } - if ( c != TQEOF ) - ts_ungetc( c ); - buf[i] = '\0'; - char *end; - return strtod( buf, &end ); - } - - buf[i++] = c; - c = ts_getc(); - } - -#if !defined(TQ_CC_EDG) - return 0.0; -#endif -} - - -/*! - \overload - - Reads a signed \c short integer \a i from the stream and returns a - reference to the stream. See flags() for an explanation of the - expected input format. -*/ - -TQTextStream &TQTextStream::operator>>( signed short &i ) -{ - CHECK_STREAM_PRECOND - i = (signed short)input_int(); - return *this; -} - - -/*! - \overload - - Reads an unsigned \c short integer \a i from the stream and - returns a reference to the stream. See flags() for an explanation - of the expected input format. -*/ - -TQTextStream &TQTextStream::operator>>( unsigned short &i ) -{ - CHECK_STREAM_PRECOND - i = (unsigned short)input_int(); - return *this; -} - - -/*! - \overload - - Reads a signed \c int \a i from the stream and returns a reference - to the stream. See flags() for an explanation of the expected - input format. -*/ - -TQTextStream &TQTextStream::operator>>( signed int &i ) -{ - CHECK_STREAM_PRECOND - i = (signed int)input_int(); - return *this; -} - - -/*! - \overload - - Reads an unsigned \c int \a i from the stream and returns a - reference to the stream. See flags() for an explanation of the - expected input format. -*/ - -TQTextStream &TQTextStream::operator>>( unsigned int &i ) -{ - CHECK_STREAM_PRECOND - i = (unsigned int)input_int(); - return *this; -} - - -/*! - \overload - - Reads a signed \c long int \a i from the stream and returns a - reference to the stream. See flags() for an explanation of the - expected input format. -*/ - -TQTextStream &TQTextStream::operator>>( signed long &i ) -{ - CHECK_STREAM_PRECOND - i = (signed long)input_int(); - return *this; -} - - -/*! - \overload - - Reads an unsigned \c long int \a i from the stream and returns a - reference to the stream. See flags() for an explanation of the - expected input format. -*/ - -TQTextStream &TQTextStream::operator>>( unsigned long &i ) -{ - CHECK_STREAM_PRECOND - i = (unsigned long)input_int(); - return *this; -} - - -/*! - \overload - - Reads a \c float \a f from the stream and returns a reference to - the stream. See flags() for an explanation of the expected input - format. -*/ - -TQTextStream &TQTextStream::operator>>( float &f ) -{ - CHECK_STREAM_PRECOND - f = (float)input_double(); - return *this; -} - - -/*! - \overload - - Reads a \c double \a f from the stream and returns a reference to - the stream. See flags() for an explanation of the expected input - format. -*/ - -TQTextStream &TQTextStream::operator>>( double &f ) -{ - CHECK_STREAM_PRECOND - f = input_double(); - return *this; -} - - -/*! - \overload - - Reads a "word" from the stream into \a s and returns a reference - to the stream. - - A word consists of characters for which isspace() returns FALSE. -*/ - -TQTextStream &TQTextStream::operator>>( char *s ) -{ - CHECK_STREAM_PRECOND - int maxlen = width( 0 ); - TQChar c = eat_ws(); - if ( !maxlen ) - maxlen = -1; - while ( c != TQEOF ) { - if ( ts_isspace(c) || maxlen-- == 0 ) { - ts_ungetc( c ); - break; - } - *s++ = c; - c = ts_getc(); - } - - *s = '\0'; - return *this; -} - -/*! - \overload - - Reads a "word" from the stream into \a str and returns a reference - to the stream. - - A word consists of characters for which isspace() returns FALSE. -*/ - -TQTextStream &TQTextStream::operator>>( TQString &str ) -{ - CHECK_STREAM_PRECOND - str=TQString::tqfromLatin1(""); - TQChar c = eat_ws(); - - while ( c != TQEOF ) { - if ( ts_isspace(c) ) { - ts_ungetc( c ); - break; - } - str += c; - c = ts_getc(); - } - return *this; -} - -/*! - \overload - - Reads a "word" from the stream into \a str and returns a reference - to the stream. - - A word consists of characters for which isspace() returns FALSE. -*/ - -TQTextStream &TQTextStream::operator>>( TQCString &str ) -{ - CHECK_STREAM_PRECOND - TQCString *dynbuf = 0; - const int buflen = 256; - char buffer[buflen]; - char *s = buffer; - int i = 0; - TQChar c = eat_ws(); - - while ( c != TQEOF ) { - if ( ts_isspace(c) ) { - ts_ungetc( c ); - break; - } - if ( i >= buflen-1 ) { - if ( !dynbuf ) { // create dynamic buffer - dynbuf = new TQCString(buflen*2); - memcpy( dynbuf->data(), s, i ); // copy old data - } else if ( i >= (int)dynbuf->size()-1 ) { - dynbuf->resize( dynbuf->size()*2 ); - } - s = dynbuf->data(); - } - s[i++] = c; - c = ts_getc(); - } - str.resize( i+1 ); - memcpy( str.data(), s, i ); - delete dynbuf; - return *this; -} - - -/*! - Reads a line from the stream and returns a string containing the - text. - - The returned string does not contain any trailing newline or - carriage return. Note that this is different from - TQIODevice::readLine(), which does not strip the newline at the end - of the line. - - On EOF you will get a TQString that is null. On reading an empty - line the returned TQString is empty but not null. - - \sa TQIODevice::readLine() -*/ - -TQString TQTextStream::readLine() -{ -#if defined(TQT_CHECK_STATE) - if ( !dev ) { - qWarning( "TQTextStream::readLine: No tqdevice" ); - return TQString::null; - } -#endif - bool readCharByChar = TRUE; - TQString result; -#if 0 - if ( !doUnicodeHeader && ( - (latin1) || - (mapper != 0 && mapper->mibEnum() == 106 ) // UTF 8 - ) ) { - readCharByChar = FALSE; - // use optimized read line - TQChar c[getline_buf_size]; - int pos = 0; - bool eof = FALSE; - - for (;;) { - pos = ts_getline( c ); - if ( pos == 0 ) { - // something went wrong; try fallback - readCharByChar = TRUE; - //dev->resetqStatus(); - break; - } - if ( c[pos-1] == TQEOF || c[pos-1] == '\n' ) { - if ( pos>2 && c[pos-1]==TQEOF && c[pos-2]=='\n' ) { - result += TQString( c, pos-2 ); - } else if ( pos > 1 ) { - result += TQString( c, pos-1 ); - } - if ( pos == 1 && c[pos-1] == TQEOF ) - eof = TRUE; - break; - } else { - result += TQString( c, pos ); - } - } - if ( eof && result.isEmpty() ) - return TQString::null; - } -#endif - if ( readCharByChar ) { - const int buf_size = 256; - TQChar c[buf_size]; - int pos = 0; - - c[pos] = ts_getc(); - if ( c[pos] == TQEOF ) - return TQString::null; - - while ( c[pos] != TQEOF && c[pos] != '\n' ) { - if ( c[pos] == '\r' ) { // ( handle mac and dos ) - TQChar nextc = ts_getc(); - if ( nextc != '\n' ) - ts_ungetc( nextc ); - break; - } - pos++; - if ( pos >= buf_size ) { - result += TQString( c, pos ); - pos = 0; - } - c[pos] = ts_getc(); - } - result += TQString( c, pos ); - } - - return result; -} - - -/*! - Reads the entire stream from the current position, and returns a string - containing the text. - - \sa TQIODevice::readLine() -*/ - -TQString TQTextStream::read() -{ -#if defined(TQT_CHECK_STATE) - if ( !dev ) { - qWarning( "TQTextStream::read: No tqdevice" ); - return TQString::null; - } -#endif - TQString result; - const uint bufsize = 512; - TQChar buf[bufsize]; - uint i, num, start; - bool skipped_cr = FALSE; - - for (;;) { - num = ts_getbuf(buf,bufsize); - // convert dos (\r\n) and mac (\r) style eol to unix style (\n) - start = 0; - for ( i=0; i<num; i++ ) { - if ( buf[i] == '\r' ) { - // Only skip single cr's preceding lf's - if ( skipped_cr ) { - result += buf[i]; - start++; - } else { - result += TQString( &buf[start], i-start ); - start = i+1; - skipped_cr = TRUE; - } - } else { - if ( skipped_cr ) { - if ( buf[i] != '\n' ) { - // Should not have skipped it - result += '\n'; - } - skipped_cr = FALSE; - } - } - } - if ( start < num ) - result += TQString( &buf[start], i-start ); - if ( num != bufsize ) // if ( EOF ) - break; - } - return result; -} - - - -/***************************************************************************** - TQTextStream write functions - *****************************************************************************/ - -/*! - Writes character \c char to the stream and returns a reference to - the stream. - - The character \a c is assumed to be Latin1 encoded independent of - the Encoding set for the TQTextStream. -*/ -TQTextStream &TQTextStream::operator<<( TQChar c ) -{ - CHECK_STREAM_PRECOND - ts_putc( c ); - return *this; -} - -/*! - \overload - - Writes character \a c to the stream and returns a reference to the - stream. -*/ -TQTextStream &TQTextStream::operator<<( char c ) -{ - CHECK_STREAM_PRECOND - unsigned char uc = (unsigned char) c; - ts_putc( uc ); - return *this; -} - -TQTextStream &TQTextStream::output_int( int format, ulong n, bool neg ) -{ - static const char hexdigits_lower[] = "0123456789abcdef"; - static const char hexdigits_upper[] = "0123456789ABCDEF"; - CHECK_STREAM_PRECOND - char buf[76]; - register char *p; - int len; - const char *hexdigits; - - switch ( flags() & I_BASE_MASK ) { - - case I_BASE_2: // output binary number - switch ( format & I_TYPE_MASK ) { - case I_SHORT: len=16; break; - case I_INT: len=sizeof(int)*8; break; - case I_LONG: len=32; break; - default: len = 0; - } - p = &buf[74]; // go reverse order - *p = '\0'; - while ( len-- ) { - *--p = (char)(n&1) + '0'; - n >>= 1; - if ( !n ) - break; - } - if ( flags() & showbase ) { // show base - *--p = (flags() & uppercase) ? 'B' : 'b'; - *--p = '0'; - } - break; - - case I_BASE_8: // output octal number - p = &buf[74]; - *p = '\0'; - do { - *--p = (char)(n&7) + '0'; - n >>= 3; - } while ( n ); - if ( flags() & showbase ) - *--p = '0'; - break; - - case I_BASE_16: // output hexadecimal number - p = &buf[74]; - *p = '\0'; - hexdigits = (flags() & uppercase) ? - hexdigits_upper : hexdigits_lower; - do { - *--p = hexdigits[(int)n&0xf]; - n >>= 4; - } while ( n ); - if ( flags() & showbase ) { - *--p = (flags() & uppercase) ? 'X' : 'x'; - *--p = '0'; - } - break; - - default: // decimal base is default - p = &buf[74]; - *p = '\0'; - if ( neg ) - n = (ulong)(-(long)n); - do { - *--p = ((int)(n%10)) + '0'; - n /= 10; - } while ( n ); - if ( neg ) - *--p = '-'; - else if ( flags() & showpos ) - *--p = '+'; - if ( (flags() & internal) && fwidth && !ts_isdigit(*p) ) { - ts_putc( *p ); // special case for internal - ++p; // padding - fwidth--; - return *this << (const char*)p; - } - } - if ( fwidth ) { // adjustment required - if ( !(flags() & left) ) { // but NOT left adjustment - len = tqstrlen(p); - int padlen = fwidth - len; - if ( padlen <= 0 ) { // no padding required - writeBlock( p, len ); - } else if ( padlen < (int)(p-buf) ) { // speeds up padding - memset( p-padlen, (char)fillchar, padlen ); - writeBlock( p-padlen, padlen+len ); - } - else // standard padding - *this << (const char*)p; - } - else - *this << (const char*)p; - fwidth = 0; // reset field width - } - else - writeBlock( p, tqstrlen(p) ); - return *this; -} - - -/*! - \overload - - Writes a \c short integer \a i to the stream and returns a - reference to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( signed short i ) -{ - return output_int( I_SHORT | I_SIGNED, i, i < 0 ); -} - - -/*! - \overload - - Writes an \c unsigned \c short integer \a i to the stream and - returns a reference to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( unsigned short i ) -{ - return output_int( I_SHORT | I_UNSIGNED, i, FALSE ); -} - - -/*! - \overload - - Writes an \c int \a i to the stream and returns a reference to the - stream. -*/ - -TQTextStream &TQTextStream::operator<<( signed int i ) -{ - return output_int( I_INT | I_SIGNED, i, i < 0 ); -} - - -/*! - \overload - - Writes an \c unsigned \c int \a i to the stream and returns a - reference to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( unsigned int i ) -{ - return output_int( I_INT | I_UNSIGNED, i, FALSE ); -} - - -/*! - \overload - - Writes a \c long \c int \a i to the stream and returns a reference - to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( signed long i ) -{ - return output_int( I_LONG | I_SIGNED, i, i < 0 ); -} - - -/*! - \overload - - Writes an \c unsigned \c long \c int \a i to the stream and - returns a reference to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( unsigned long i ) -{ - return output_int( I_LONG | I_UNSIGNED, i, FALSE ); -} - - -/*! - \overload - - Writes a \c float \a f to the stream and returns a reference to - the stream. -*/ - -TQTextStream &TQTextStream::operator<<( float f ) -{ - return *this << (double)f; -} - -/*! - \overload - - Writes a \c double \a f to the stream and returns a reference to - the stream. -*/ - -TQTextStream &TQTextStream::operator<<( double f ) -{ - CHECK_STREAM_PRECOND - char f_char; - char format[16]; - if ( (flags()&floatfield) == fixed ) - f_char = 'f'; - else if ( (flags()&floatfield) == scientific ) - f_char = (flags() & uppercase) ? 'E' : 'e'; - else - f_char = (flags() & uppercase) ? 'G' : 'g'; - register char *fs = format; // generate format string - *fs++ = '%'; // "%.<prec>l<f_char>" - *fs++ = '.'; - int prec = precision(); - if ( prec > 99 ) - prec = 99; - if ( prec >= 10 ) { - *fs++ = prec / 10 + '0'; - *fs++ = prec % 10 + '0'; - } else { - *fs++ = prec + '0'; - } - *fs++ = 'l'; - *fs++ = f_char; - *fs = '\0'; - TQString num; - num.sprintf(format, f); // convert to text - if ( fwidth ) // padding - *this << num.latin1(); - else // just write it - writeBlock(num.latin1(), num.length()); - return *this; -} - - -/*! - \overload - - Writes a string to the stream and returns a reference to the - stream. - - The string \a s is assumed to be Latin1 encoded independent of the - Encoding set for the TQTextStream. -*/ - -TQTextStream &TQTextStream::operator<<( const char* s ) -{ - CHECK_STREAM_PRECOND - char padbuf[48]; - uint len = tqstrlen( s ); // don't write null terminator - if ( fwidth ) { // field width set - int padlen = fwidth - len; - fwidth = 0; // reset width - if ( padlen > 0 ) { - char *ppad; - if ( padlen > 46 ) { // create extra big fill buffer - ppad = new char[padlen]; - TQ_CHECK_PTR( ppad ); - } else { - ppad = padbuf; - } - memset( ppad, (char)fillchar, padlen ); // fill with fillchar - if ( !(flags() & left) ) { - writeBlock( ppad, padlen ); - padlen = 0; - } - writeBlock( s, len ); - if ( padlen ) - writeBlock( ppad, padlen ); - if ( ppad != padbuf ) // delete extra big fill buf - delete[] ppad; - return *this; - } - } - writeBlock( s, len ); - return *this; -} - -/*! - \overload - - Writes \a s to the stream and returns a reference to the stream. - - The string \a s is assumed to be Latin1 encoded independent of the - Encoding set for the TQTextStream. -*/ - -TQTextStream &TQTextStream::operator<<( const TQCString & s ) -{ - return operator<<(s.data()); -} - -/*! - \overload - - Writes \a s to the stream and returns a reference to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( const TQString& s ) -{ - if ( !mapper && latin1 ) - return operator<<(s.latin1()); - CHECK_STREAM_PRECOND - TQString s1 = s; - if ( fwidth ) { // field width set - if ( !(flags() & left) ) { - s1 = s.rightJustify(fwidth, (char)fillchar); - } else { - s1 = s.leftJustify(fwidth, (char)fillchar); - } - fwidth = 0; // reset width - } - writeBlock( s1.tqunicode(), s1.length() ); - return *this; -} - - -/*! - \overload - - Writes a pointer to the stream and returns a reference to the - stream. - - The \a ptr is output as an unsigned long hexadecimal integer. -*/ - -TQTextStream &TQTextStream::operator<<( void *ptr ) -{ - int f = flags(); - setf( hex, basefield ); - setf( showbase ); - unsetf( uppercase ); - output_int( I_LONG | I_UNSIGNED, (ulong)ptr, FALSE ); - flags( f ); - return *this; -} - - -/*! - \fn int TQTextStream::flags() const - - Returns the current stream flags. The default value is 0. - - \table - \header \i Flag \i Meaning - \row \i \c skipws \i Not currently used; whitespace always skipped - \row \i \c left \i Numeric fields are left-aligned - \row \i \c right - \i Not currently used (by default, numerics are right-aligned) - \row \i \c internal \i Puts any padding spaces between +/- and value - \row \i \c bin \i Output \e and input only in binary - \row \i \c oct \i Output \e and input only in octal - \row \i \c dec \i Output \e and input only in decimal - \row \i \c hex \i Output \e and input only in hexadecimal - \row \i \c showbase - \i Annotates numeric outputs with 0b, 0, or 0x if in \c bin, - \c oct, or \c hex format - \row \i \c showpoint \i Not currently used - \row \i \c uppercase \i Uses 0B and 0X rather than 0b and 0x - \row \i \c showpos \i Shows + for positive numeric values - \row \i \c scientific \i Uses scientific notation for floating point values - \row \i \c fixed \i Uses fixed-point notation for floating point values - \endtable - - Note that unless \c bin, \c oct, \c dec, or \c hex is set, the - input base is octal if the value starts with 0, hexadecimal if it - starts with 0x, binary if it starts with 0b, and decimal - otherwise. - - \sa setf(), unsetf() -*/ - -/*! - \fn int TQTextStream::flags( int f ) - - \overload - - Sets the stream flags to \a f. Returns the previous stream flags. - - \sa setf(), unsetf(), flags() -*/ - -/*! - \fn int TQTextStream::setf( int bits ) - - Sets the stream flag bits \a bits. Returns the previous stream - flags. - - Equivalent to \c{flags( flags() | bits )}. - - \sa setf(), unsetf() -*/ - -/*! - \fn int TQTextStream::setf( int bits, int mask ) - - \overload - - Sets the stream flag bits \a bits with a bit mask \a mask. Returns - the previous stream flags. - - Equivalent to \c{flags( (flags() & ~mask) | (bits & mask) )}. - - \sa setf(), unsetf() -*/ - -/*! - \fn int TQTextStream::unsetf( int bits ) - - Clears the stream flag bits \a bits. Returns the previous stream - flags. - - Equivalent to \c{flags( flags() & ~mask )}. - - \sa setf() -*/ - -/*! - \fn int TQTextStream::width() const - - Returns the field width. The default value is 0. -*/ - -/*! - \fn int TQTextStream::width( int w ) - - \overload - - Sets the field width to \a w. Returns the previous field width. -*/ - -/*! - \fn int TQTextStream::fill() const - - Returns the fill character. The default value is ' ' (space). -*/ - -/*! - \overload int TQTextStream::fill( int f ) - - Sets the fill character to \a f. Returns the previous fill character. -*/ - -/*! - \fn int TQTextStream::precision() const - - Returns the precision. The default value is 6. -*/ - -/*! - \fn int TQTextStream::precision( int p ) - - \overload - - Sets the precision to \a p. Returns the previous precision setting. -*/ - - - /***************************************************************************** - TQTextStream manipulators - *****************************************************************************/ - -TQTextStream &bin( TQTextStream &s ) -{ - s.setf(TQTS::bin,TQTS::basefield); - return s; -} - -TQTextStream &oct( TQTextStream &s ) -{ - s.setf(TQTS::oct,TQTS::basefield); - return s; -} - -TQTextStream &dec( TQTextStream &s ) -{ - s.setf(TQTS::dec,TQTS::basefield); - return s; -} - -TQTextStream &hex( TQTextStream &s ) -{ - s.setf(TQTS::hex,TQTS::basefield); - return s; -} - -TQTextStream &endl( TQTextStream &s ) -{ - return s << '\n'; -} - -TQTextStream &flush( TQTextStream &s ) -{ - if ( s.tqdevice() ) - s.tqdevice()->flush(); - return s; -} - -TQTextStream &ws( TQTextStream &s ) -{ - s.skipWhiteSpace(); - return s; -} - -TQTextStream &reset( TQTextStream &s ) -{ - s.reset(); - return s; -} - - -/*! - \class TQTextIStream tqtextstream.h - \reentrant - \brief The TQTextIStream class is a convenience class for input streams. - - \ingroup io - \ingroup text - - This class provides a shorthand for creating simple input - \l{TQTextStream}s without having to pass a \e mode argument to the - constructor. - - This class makes it easy, for example, to write things like this: - \code - TQString data = "123 456"; - int a, b; - TQTextIStream(&data) >> a >> b; - \endcode - - \sa TQTextOStream -*/ - -/*! - \fn TQTextIStream::TQTextIStream( const TQString *s ) - - Constructs a stream to read from the string \a s. -*/ -/*! - \fn TQTextIStream::TQTextIStream( TQByteArray ba ) - - Constructs a stream to read from the array \a ba. -*/ -/*! - \fn TQTextIStream::TQTextIStream( FILE *f ) - - Constructs a stream to read from the file \a f. -*/ - - -/*! - \class TQTextOStream - \reentrant - \brief The TQTextOStream class is a convenience class for output streams. - - \ingroup io - \ingroup text - - This class provides a shorthand for creating simple output - \l{TQTextStream}s without having to pass a \e mode argument to the - constructor. - - This makes it easy for example, to write things like this: - \code - TQString result; - TQTextOStream(&result) << "pi = " << 3.14; - \endcode -*/ - -/*! - \fn TQTextOStream::TQTextOStream( TQString *s ) - - Constructs a stream to write to string \a s. -*/ -/*! - \fn TQTextOStream::TQTextOStream( TQByteArray ba ) - - Constructs a stream to write to the array \a ba. -*/ -/*! - \fn TQTextOStream::TQTextOStream( FILE *f ) - - Constructs a stream to write to the file \a f. -*/ - - - -/*! - Sets the encoding of this stream to \a e, where \a e is one of the - following values: - \table - \header \i Encoding \i Meaning - \row \i Locale - \i Uses local file format (Latin1 if locale is not set), but - autodetecting Unicode(utf16) on input. - \row \i Unicode - \i Uses Unicode(utf16) for input and output. Output will be - written in the order most efficient for the current platform - (i.e. the order used internally in TQString). - \row \i UnicodeUTF8 - \i Using Unicode(utf8) for input and output. If you use it for - input it will autodetect utf16 and use it instead of utf8. - \row \i Latin1 - \i ISO-8859-1. Will not autodetect utf16. - \row \i UnicodeNetworkOrder - \i Uses network order Unicode(utf16) for input and output. - Useful when reading Unicode data that does not start with the - byte order marker. - \row \i UnicodeReverse - \i Uses reverse network order Unicode(utf16) for input and - output. Useful when reading Unicode data that does not start - with the byte order marker or when writing data that should be - read by buggy Windows applications. - \row \i RawUnicode - \i Like Unicode, but does not write the byte order marker nor - does it auto-detect the byte order. Useful only when writing to - non-persistent storage used by a single process. - \endtable - - \c Locale and all Unicode encodings, except \c RawUnicode, will look - at the first two bytes in an input stream to determine the byte - order. The initial byte order marker will be stripped off before - data is read. - - Note that this function should be called before any data is read to - or written from the stream. - - \sa setCodec() -*/ - -void TQTextStream::setEncoding( Encoding e ) -{ - if ( d->sourceType == TQTextStreamPrivate::String ) - return; - - switch ( e ) { - case Unicode: - mapper = 0; - latin1 = FALSE; - doUnicodeHeader = TRUE; - internalOrder = TRUE; - networkOrder = TQChar::networkOrdered(); - break; - case UnicodeUTF8: -#ifndef TQT_NO_TEXTCODEC - mapper = TQTextCodec::codecForMib( 106 ); - latin1 = FALSE; - doUnicodeHeader = TRUE; - internalOrder = TRUE; - networkOrder = TQChar::networkOrdered(); -#else - mapper = 0; - latin1 = TRUE; - doUnicodeHeader = TRUE; -#endif - break; - case UnicodeNetworkOrder: - mapper = 0; - latin1 = FALSE; - doUnicodeHeader = TRUE; - internalOrder = TQChar::networkOrdered(); - networkOrder = TRUE; - break; - case UnicodeReverse: - mapper = 0; - latin1 = FALSE; - doUnicodeHeader = TRUE; - internalOrder = !TQChar::networkOrdered(); - networkOrder = FALSE; - break; - case RawUnicode: - mapper = 0; - latin1 = FALSE; - doUnicodeHeader = FALSE; - internalOrder = TRUE; - networkOrder = TQChar::networkOrdered(); - break; - case Locale: - latin1 = TRUE; // fallback to Latin-1 -#ifndef TQT_NO_TEXTCODEC - mapper = TQTextCodec::codecForLocale(); - // optimized Latin-1 processing -#if defined(TQ_OS_WIN32) - if ( GetACP() == 1252 ) - mapper = 0; -#endif - if ( mapper && mapper->mibEnum() == 4 ) -#endif - mapper = 0; - - doUnicodeHeader = TRUE; // If it reads as Unicode, accept it - break; - case Latin1: - mapper = 0; - doUnicodeHeader = FALSE; - latin1 = TRUE; - break; - } -} - - -#ifndef TQT_NO_TEXTCODEC -/*! - Sets the codec for this stream to \a codec. Will not try to - autodetect Unicode. - - Note that this function should be called before any data is read - to/written from the stream. - - \sa setEncoding(), codec() -*/ - -void TQTextStream::setCodec( TQTextCodec *codec ) -{ - if ( d->sourceType == TQTextStreamPrivate::String ) - return; // TQString does not need any codec - mapper = codec; - latin1 = ( codec->mibEnum() == 4 ); - if ( latin1 ) - mapper = 0; - doUnicodeHeader = FALSE; -} - -/*! - Returns the codec actually used for this stream. - - If Unicode is automatically detected in input, a codec with \link - TQTextCodec::name() name() \endlink "ISO-10646-UCS-2" is returned. - - \sa setCodec() -*/ - -TQTextCodec *TQTextStream::codec() -{ - if ( mapper ) { - return mapper; - } else { - // 4 is "ISO 8859-1", 1000 is "ISO-10646-UCS-2" - return TQTextCodec::codecForMib( latin1 ? 4 : 1000 ); - } -} - -#endif - -#endif // TQT_NO_TEXTSTREAM |