Added TQt4 HEAD

1 files changed, 2663 insertions, 0 deletions

diff --git a/tqtinterface/qt4/src/tools/tqtextstream.cpp b/tqtinterface/qt4/src/tools/tqtextstream.cpp
new file mode 100644
index 0000000..842cb7e
--- /dev/null
+++ b/tqtinterface/qt4/src/tools/tqtextstream.cpp
@@ -0,0 +1,2663 @@
+/****************************************************************************
+**
+** 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 tqcontains 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->tqreplace(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 tqmask )
+
+    \overload
+
+    Sets the stream flag bits \a bits with a bit tqmask \a tqmask. Returns
+    the previous stream flags.
+
+    Equivalent to \c{flags( (flags() & ~tqmask) | (bits & tqmask) )}.
+
+    \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() & ~tqmask )}.
+
+    \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