From 0cf411b09cf5d8970b873a338a69eae98d5ce5d8 Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Sat, 8 Jun 2024 12:56:43 +0900 Subject: Rename text nt* related files to equivalent tq* Signed-off-by: Michele Calgaro --- src/tools/ntqtextstream.h | 341 ------ src/tools/ntqtl.h | 2 +- src/tools/qfeatures.txt | 8 +- src/tools/qsettings.cpp | 2 +- src/tools/qt_tools.pri | 4 +- src/tools/qtextstream.cpp | 2632 -------------------------------------------- src/tools/tqstring.cpp | 2 +- src/tools/tqtextstream.cpp | 2632 ++++++++++++++++++++++++++++++++++++++++++++ src/tools/tqtextstream.h | 341 ++++++ 9 files changed, 2982 insertions(+), 2982 deletions(-) delete mode 100644 src/tools/ntqtextstream.h delete mode 100644 src/tools/qtextstream.cpp create mode 100644 src/tools/tqtextstream.cpp create mode 100644 src/tools/tqtextstream.h (limited to 'src/tools') diff --git a/src/tools/ntqtextstream.h b/src/tools/ntqtextstream.h deleted file mode 100644 index ab2366b39..000000000 --- a/src/tools/ntqtextstream.h +++ /dev/null @@ -1,341 +0,0 @@ -/**************************************************************************** -** -** Definition of TQTextStream class -** -** Created : 940922 -** -** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved. -** -** This file is part of the tools module of the TQt GUI Toolkit. -** -** This file may be used under the terms of the GNU General -** Public License versions 2.0 or 3.0 as published by the Free -** Software Foundation and appearing in the files LICENSE.GPL2 -** and LICENSE.GPL3 included in the packaging of this file. -** Alternatively you may (at your option) use any later version -** of the GNU General Public License if such license has been -** publicly approved by Trolltech ASA (or its successors, if any) -** and the KDE Free TQt Foundation. -** -** Please review the following information to ensure GNU General -** Public Licensing 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. -** -**********************************************************************/ - -#ifndef TQTEXTSTREAM_H -#define TQTEXTSTREAM_H - -#ifndef QT_H -#include "ntqiodevice.h" -#include "tqstring.h" -#include -#endif // QT_H - -#ifndef TQT_NO_TEXTSTREAM -class TQTextCodec; -class TQTextDecoder; - -class TQTextStreamPrivate; - -class TQ_EXPORT TQTextStream // text stream class -{ -public: - enum Encoding { Locale, Latin1, Unicode, UnicodeNetworkOrder, - UnicodeReverse, RawUnicode, UnicodeUTF8 }; - - void setEncoding( Encoding ); -#ifndef TQT_NO_TEXTCODEC - void setCodec( TQTextCodec* ); - TQTextCodec *codec(); -#endif - - TQTextStream(); - TQTextStream( TQIODevice * ); - TQTextStream( TQString*, int mode ); - TQTextStream( TQString&, int mode ); // obsolete - TQTextStream( TQByteArray, int mode ); - TQTextStream( FILE *, int mode ); - virtual ~TQTextStream(); - - TQIODevice *device() const; - void setDevice( TQIODevice * ); - void unsetDevice(); - - bool atEnd() const; - bool eof() const; - - TQTextStream &operator>>( TQChar & ); - TQTextStream &operator>>( char & ); - TQTextStream &operator>>( signed short & ); - TQTextStream &operator>>( unsigned short & ); - TQTextStream &operator>>( signed int & ); - TQTextStream &operator>>( unsigned int & ); - TQTextStream &operator>>( signed long & ); - TQTextStream &operator>>( unsigned long & ); - TQTextStream &operator>>( float & ); - TQTextStream &operator>>( double & ); - TQTextStream &operator>>( char * ); - TQTextStream &operator>>( TQString & ); - TQTextStream &operator>>( TQCString & ); - - TQTextStream &operator<<( TQChar ); - TQTextStream &operator<<( char ); - TQTextStream &operator<<( signed short ); - TQTextStream &operator<<( unsigned short ); - TQTextStream &operator<<( signed int ); - TQTextStream &operator<<( unsigned int ); - TQTextStream &operator<<( signed long ); - TQTextStream &operator<<( unsigned long ); - TQTextStream &operator<<( signed long long ); - TQTextStream &operator<<( unsigned long long ); - TQTextStream &operator<<( float ); - TQTextStream &operator<<( double ); - TQTextStream &operator<<( const char* ); - TQTextStream &operator<<( const TQString & ); - TQTextStream &operator<<( const TQCString & ); - TQTextStream &operator<<( void * ); // any pointer - - TQTextStream &readRawBytes( char *, uint len ); - TQTextStream &writeRawBytes( const char* , uint len ); - - TQString readLine(); - TQString read(); - void skipWhiteSpace(); - - enum { - skipws = 0x0001, // skip whitespace on input - left = 0x0002, // left-adjust output - right = 0x0004, // right-adjust output - internal = 0x0008, // pad after sign - bin = 0x0010, // binary format integer - oct = 0x0020, // octal format integer - dec = 0x0040, // decimal format integer - hex = 0x0080, // hex format integer - showbase = 0x0100, // show base indicator - showpoint = 0x0200, // force decimal point (float) - uppercase = 0x0400, // upper-case hex output - showpos = 0x0800, // add '+' to positive integers - scientific= 0x1000, // scientific float output - fixed = 0x2000 // fixed float output - }; - - static const int basefield; // bin | oct | dec | hex - static const int adjustfield; // left | right | internal - static const int floatfield; // scientific | fixed - - int flags() const; - int flags( int f ); - int setf( int bits ); - int setf( int bits, int mask ); - int unsetf( int bits ); - - void reset(); - - int width() const; - int width( int ); - int fill() const; - int fill( int ); - int precision() const; - int precision( int ); - -private: - long input_int(); - void init(); - TQTextStream &output_int( int, unsigned long long, bool ); - - TQIODevice *dev; - - int fflags; - int fwidth; - int fillchar; - int fprec; - bool doUnicodeHeader; - bool owndev; - TQTextCodec *mapper; - TQTextStreamPrivate * d; - TQChar unused1; // ### remove in TQt 4.0 - bool latin1; - bool internalOrder; - bool networkOrder; - void *unused2; // ### remove in TQt 4.0 - - TQChar eat_ws(); - uint ts_getline( TQChar* ); - void ts_ungetc( TQChar ); - TQChar ts_getc(); - uint ts_getbuf( TQChar*, uint ); - void ts_putc(int); - void ts_putc(TQChar); - bool ts_isspace(TQChar); - bool ts_isdigit(TQChar); - ulong input_bin(); - ulong input_oct(); - ulong input_dec(); - ulong input_hex(); - double input_double(); - TQTextStream &writeBlock( const char* p, uint len ); - TQTextStream &writeBlock( const TQChar* p, uint len ); - -private: // Disabled copy constructor and operator= -#if defined(TQ_DISABLE_COPY) - TQTextStream( const TQTextStream & ); - TQTextStream &operator=( const TQTextStream & ); -#endif -}; - -typedef TQTextStream TQTS; - -class TQ_EXPORT TQTextIStream : public TQTextStream { -public: - TQTextIStream( const TQString* s ) : - TQTextStream((TQString*)s,IO_ReadOnly) { } - TQTextIStream( TQByteArray ba ) : - TQTextStream(ba,IO_ReadOnly) { } - TQTextIStream( FILE *f ) : - TQTextStream(f,IO_ReadOnly) { } - -private: // Disabled copy constructor and operator= -#if defined(TQ_DISABLE_COPY) - TQTextIStream( const TQTextIStream & ); - TQTextIStream &operator=( const TQTextIStream & ); -#endif -}; - -class TQ_EXPORT TQTextOStream : public TQTextStream { -public: - TQTextOStream( TQString* s ) : - TQTextStream(s,IO_WriteOnly) { } - TQTextOStream( TQByteArray ba ) : - TQTextStream(ba,IO_WriteOnly) { } - TQTextOStream( FILE *f ) : - TQTextStream(f,IO_WriteOnly) { } - -private: // Disabled copy constructor and operator= -#if defined(TQ_DISABLE_COPY) - TQTextOStream( const TQTextOStream & ); - TQTextOStream &operator=( const TQTextOStream & ); -#endif -}; - -/***************************************************************************** - TQTextStream inline functions - *****************************************************************************/ - -inline TQIODevice *TQTextStream::device() const -{ return dev; } - -inline bool TQTextStream::atEnd() const -{ return dev ? dev->atEnd() : FALSE; } - -inline bool TQTextStream::eof() const -{ return atEnd(); } - -inline int TQTextStream::flags() const -{ return fflags; } - -inline int TQTextStream::flags( int f ) -{ int oldf = fflags; fflags = f; return oldf; } - -inline int TQTextStream::setf( int bits ) -{ int oldf = fflags; fflags |= bits; return oldf; } - -inline int TQTextStream::setf( int bits, int mask ) -{ int oldf = fflags; fflags = (fflags & ~mask) | (bits & mask); return oldf; } - -inline int TQTextStream::unsetf( int bits ) -{ int oldf = fflags; fflags &= ~bits; return oldf; } - -inline int TQTextStream::width() const -{ return fwidth; } - -inline int TQTextStream::width( int w ) -{ int oldw = fwidth; fwidth = w; return oldw; } - -inline int TQTextStream::fill() const -{ return fillchar; } - -inline int TQTextStream::fill( int f ) -{ int oldc = fillchar; fillchar = f; return oldc; } - -inline int TQTextStream::precision() const -{ return fprec; } - -inline int TQTextStream::precision( int p ) -{ int oldp = fprec; fprec = p; return oldp; } - -/*! - Returns one character from the stream, or EOF. -*/ -inline TQChar TQTextStream::ts_getc() -{ TQChar r; return ( ts_getbuf( &r,1 ) == 1 ? r : TQChar((ushort)0xffff) ); } - -/***************************************************************************** - TQTextStream manipulators - *****************************************************************************/ - -typedef TQTextStream & (*TQTSFUNC)(TQTextStream &);// manipulator function -typedef int (TQTextStream::*TQTSMFI)(int); // manipulator w/int argument - -class TQ_EXPORT TQTSManip { // text stream manipulator -public: - TQTSManip( TQTSMFI m, int a ) { mf=m; arg=a; } - void exec( TQTextStream &s ) { (s.*mf)(arg); } -private: - TQTSMFI mf; // TQTextStream member function - int arg; // member function argument -}; - -TQ_EXPORT inline TQTextStream &operator>>( TQTextStream &s, TQTSFUNC f ) -{ return (*f)( s ); } - -TQ_EXPORT inline TQTextStream &operator<<( TQTextStream &s, TQTSFUNC f ) -{ return (*f)( s ); } - -TQ_EXPORT inline TQTextStream &operator<<( TQTextStream &s, TQTSManip m ) -{ m.exec(s); return s; } - -TQ_EXPORT TQTextStream &bin( TQTextStream &s ); // set bin notation -TQ_EXPORT TQTextStream &oct( TQTextStream &s ); // set oct notation -TQ_EXPORT TQTextStream &dec( TQTextStream &s ); // set dec notation -TQ_EXPORT TQTextStream &hex( TQTextStream &s ); // set hex notation -TQ_EXPORT TQTextStream &endl( TQTextStream &s ); // insert EOL ('\n') -TQ_EXPORT TQTextStream &flush( TQTextStream &s ); // flush output -TQ_EXPORT TQTextStream &ws( TQTextStream &s ); // eat whitespace on input -TQ_EXPORT TQTextStream &reset( TQTextStream &s ); // set default flags - -TQ_EXPORT inline TQTSManip qSetW( int w ) -{ - TQTSMFI func = &TQTextStream::width; - return TQTSManip(func,w); -} - -TQ_EXPORT inline TQTSManip qSetFill( int f ) -{ - TQTSMFI func = &TQTextStream::fill; - return TQTSManip(func,f); -} - -TQ_EXPORT inline TQTSManip qSetPrecision( int p ) -{ - TQTSMFI func = &TQTextStream::precision; - return TQTSManip(func,p); -} - -#endif // TQT_NO_TEXTSTREAM -#endif // TQTEXTSTREAM_H diff --git a/src/tools/ntqtl.h b/src/tools/ntqtl.h index 8b8724f9e..712129746 100644 --- a/src/tools/ntqtl.h +++ b/src/tools/ntqtl.h @@ -43,7 +43,7 @@ #ifndef QT_H #include "ntqglobal.h" -#include "ntqtextstream.h" +#include "tqtextstream.h" #include "tqstring.h" #endif // QT_H diff --git a/src/tools/qfeatures.txt b/src/tools/qfeatures.txt index 3c14ef270..fd6cb62cb 100644 --- a/src/tools/qfeatures.txt +++ b/src/tools/qfeatures.txt @@ -194,7 +194,7 @@ SeeAlso: ??? Feature: TEXTSTREAM Section: File I/O Requires: -Name: QTextStream +Name: TQTextStream SeeAlso: ??? Feature: DATASTREAM @@ -993,7 +993,7 @@ SeeAlso: ??? Feature: TEXTVIEW Section: Widgets Requires: TEXTEDIT -Name: QTextView +Name: TQTextView SeeAlso: ??? Feature: TEXTEDIT @@ -1090,7 +1090,7 @@ SeeAlso: ??? Feature: TEXTBROWSER Section: Widgets Requires: TEXTVIEW MIME -Name: QTextBrowser +Name: TQTextBrowser SeeAlso: ??? Feature: LISTBOX @@ -1276,7 +1276,7 @@ SeeAlso: ??? Feature: TEXTCODECPLUGIN Section: Internationalization Requires: COMPONENT TEXTCODEC -Name: QTextCodecPlugin +Name: TQTextCodecPlugin SeeAlso: ??? diff --git a/src/tools/qsettings.cpp b/src/tools/qsettings.cpp index ecaa3f7d6..ebec81889 100644 --- a/src/tools/qsettings.cpp +++ b/src/tools/qsettings.cpp @@ -61,7 +61,7 @@ static inline int qt_open( const char *pathname, int flags, mode_t mode ) #include "ntqfile.h" #include "ntqfileinfo.h" #include "tqmap.h" -#include "ntqtextstream.h" +#include "tqtextstream.h" #include "ntqregexp.h" #include #ifndef NO_ERRNO_H diff --git a/src/tools/qt_tools.pri b/src/tools/qt_tools.pri index 283d7c5ed..54cfd4414 100644 --- a/src/tools/qt_tools.pri +++ b/src/tools/qt_tools.pri @@ -55,7 +55,7 @@ tools { $$TOOLS_H/tqstringlist.h \ $$TOOLS_H/tqstrlist.h \ $$TOOLS_H/tqstrvec.h \ - $$TOOLS_H/ntqtextstream.h \ + $$TOOLS_H/tqtextstream.h \ $$TOOLS_P/qthreadinstance_p.h \ $$TOOLS_H/ntqthreadstorage.h\ $$TOOLS_P/qunicodetables_p.h \ @@ -135,7 +135,7 @@ tools { $$TOOLS_CPP/qsemaphore.cpp \ $$TOOLS_CPP/qsettings.cpp \ $$TOOLS_CPP/tqstringlist.cpp \ - $$TOOLS_CPP/qtextstream.cpp \ + $$TOOLS_CPP/tqtextstream.cpp \ $$TOOLS_CPP/qunicodetables.cpp \ $$TOOLS_CPP/qucom.cpp \ $$TOOLS_CPP/quuid.cpp diff --git a/src/tools/qtextstream.cpp b/src/tools/qtextstream.cpp deleted file mode 100644 index 85059dafc..000000000 --- a/src/tools/qtextstream.cpp +++ /dev/null @@ -1,2632 +0,0 @@ -/**************************************************************************** -** -** Implementation of TQTextStream class -** -** Created : 940922 -** -** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved. -** -** This file is part of the tools module of the TQt GUI Toolkit. -** -** This file may be used under the terms of the GNU General -** Public License versions 2.0 or 3.0 as published by the Free -** Software Foundation and appearing in the files LICENSE.GPL2 -** and LICENSE.GPL3 included in the packaging of this file. -** Alternatively you may (at your option) use any later version -** of the GNU General Public License if such license has been -** publicly approved by Trolltech ASA (or its successors, if any) -** and the KDE Free TQt Foundation. -** -** Please review the following information to ensure GNU General -** Public Licensing 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 "ntqtextstream.h" - -#ifndef TQT_NO_TEXTSTREAM -#include "ntqtextcodec.h" -#include "ntqregexp.h" -#include "ntqbuffer.h" -#include "ntqfile.h" -#include -#include -#include -#ifndef Q_OS_TEMP -#include -#endif - -#if defined(Q_OS_WIN32) -#include "qt_windows.h" -#endif - -/*! - \class TQTextStream ntqtextstream.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(QT_CHECK_STATE) -#undef CHECK_STREAM_PRECOND -#define CHECK_STREAM_PRECOND if ( !dev ) { \ - tqWarning( "TQTextStream: No device" ); \ - return *this; } -#else -#define CHECK_STREAM_PRECOND -#endif - - -#define I_SHORT 0x0010 -#define I_INT 0x0020 -#define I_LONG 0x0030 -#define I_LONGLONG 0x0040 -#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 device. -*/ - -TQTextStream::TQTextStream() -{ - init(); - setEncoding( Locale ); - reset(); - d->sourceType = TQTextStreamPrivate::NotSet; -} - -/*! - Constructs a text stream that uses the IO device \a iod. -*/ - -TQTextStream::TQTextStream( TQIODevice *iod ) -{ - init(); - setEncoding( Locale ); - dev = 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(); - Offset size() const; - Offset at() const; - bool at( Offset pos ); - TQ_LONG readBlock( char *p, TQ_ULONG len ); - TQ_LONG writeBlock( const char *p, TQ_ULONG len ); - 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(QT_CHECK_STATE) - tqWarning( "TQStringBuffer::open: No string" ); -#endif - return FALSE; - } - if ( isOpen() ) { -#if defined(QT_CHECK_STATE) - tqWarning( "TQStringBuffer::open: Buffer already open" ); -#endif - return FALSE; - } - setMode( m ); - if ( m & IO_Truncate ) - s->truncate( 0 ); - - if ( m & IO_Append ) { - ioIndex = s->length()*sizeof(TQChar); - } else { - ioIndex = 0; - } - setState( IO_Open ); - resetStatus(); - return TRUE; -} - -void TQStringBuffer::close() -{ - if ( isOpen() ) { - setFlags( IO_Direct ); - ioIndex = 0; - } -} - -void TQStringBuffer::flush() -{ -} - -TQIODevice::Offset TQStringBuffer::size() const -{ - return s ? s->length()*sizeof(TQChar) : 0; -} - -TQIODevice::Offset TQStringBuffer::at() const -{ - return ioIndex; -} - -bool TQStringBuffer::at( Offset pos ) -{ -#if defined(QT_CHECK_STATE) - if ( !isOpen() ) { - tqWarning( "TQStringBuffer::at: Buffer is not open" ); - return FALSE; - } -#endif - if ( pos >= s->length()*2 ) { -#if defined(QT_CHECK_RANGE) - tqWarning( "TQStringBuffer::at: Index %lu out of range", pos ); -#endif - return FALSE; - } - ioIndex = pos; - return TRUE; -} - - -TQ_LONG TQStringBuffer::readBlock( char *p, TQ_ULONG len ) -{ -#if defined(QT_CHECK_STATE) - TQ_CHECK_PTR( p ); - if ( !isOpen() ) { - tqWarning( "TQStringBuffer::readBlock: Buffer not open" ); - return -1; - } - if ( !isReadable() ) { - tqWarning( "TQStringBuffer::readBlock: Read operation not permitted" ); - return -1; - } -#endif - if ( ioIndex + len > s->length()*sizeof(TQChar) ) { - // overflow - if ( (uint)ioIndex >= s->length()*sizeof(TQChar) ) { - setStatus( IO_ReadError ); - return -1; - } else { - len = s->length()*2 - (uint)ioIndex; - } - } - memcpy( p, ((const char*)(s->unicode()))+ioIndex, len ); - ioIndex += len; - return len; -} - -TQ_LONG TQStringBuffer::writeBlock( const char *p, TQ_ULONG len ) -{ -#if defined(QT_CHECK_NULL) - if ( p == 0 && len != 0 ) - tqWarning( "TQStringBuffer::writeBlock: Null pointer error" ); -#endif -#if defined(QT_CHECK_STATE) - if ( !isOpen() ) { - tqWarning( "TQStringBuffer::writeBlock: Buffer not open" ); - return -1; - } - if ( !isWritable() ) { - tqWarning( "TQStringBuffer::writeBlock: Write operation not permitted" ); - return -1; - } - if ( ioIndex&1 ) { - tqWarning( "TQStringBuffer::writeBlock: non-even index - non Unicode" ); - return -1; - } - if ( len&1 ) { - tqWarning( "TQStringBuffer::writeBlock: non-even length - non Unicode" ); - return -1; - } -#endif - s->replace(ioIndex/2, len/2, (TQChar*)p, len/2); - ioIndex += len; - return len; -} - -int TQStringBuffer::getch() -{ -#if defined(QT_CHECK_STATE) - if ( !isOpen() ) { - tqWarning( "TQStringBuffer::getch: Buffer not open" ); - return -1; - } - if ( !isReadable() ) { - tqWarning( "TQStringBuffer::getch: Read operation not permitted" ); - return -1; - } -#endif - if ( (uint)ioIndex >= s->length()*2 ) { // overflow - setStatus( IO_ReadError ); - return -1; - } - return (int)((const uchar *)s->unicode())[ioIndex++]; -} - -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(QT_CHECK_STATE) - if ( !isOpen() ) { - tqWarning( "TQStringBuffer::ungetch: Buffer not open" ); - return -1; - } - if ( !isReadable() ) { - tqWarning( "TQStringBuffer::ungetch: Read operation not permitted" ); - return -1; - } -#endif - if ( ch != -1 ) { // something to do with eof - if ( ioIndex ) - ioIndex--; - else - ch = -1; - } - return ch; -} - - -/*! - Constructs a text stream that operates on the Unicode TQString, \a - str, through an internal device. The \a filemode argument is - passed to the device'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 device. The \a mode argument is passed - to the device'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 = new TQBuffer( a ); - ((TQBuffer *)dev)->open( 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 device. The \a mode argument is - passed to the device'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 = 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 device. -*/ - -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() ); -} - - -/*! - 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 unicode - // 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.unicode() == 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::fromLatin1(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::unicodeToLatin1( 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; isourceType = TQTextStreamPrivate::IODevice; -} - -/*! - Unsets the IO device. Equivalent to setDevice( 0 ). - - \sa device(), setDevice() -*/ - -void TQTextStream::unsetDevice() -{ - setDevice( 0 ); - d->sourceType = TQTextStreamPrivate::NotSet; -} - -/*! - \fn bool TQTextStream::atEnd() const - - Returns TRUE if the IO device has reached the end position (end of - the stream or file) or if there is no IO device 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(Q_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::fromLatin1(""); - 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(QT_CHECK_STATE) - if ( !dev ) { - tqWarning( "TQTextStream::readLine: No device" ); - 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->resetStatus(); - 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(QT_CHECK_STATE) - if ( !dev ) { - tqWarning( "TQTextStream::read: No device" ); - 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>= 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 = (unsigned long long)(-(long 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 long long \c int \a i to the stream and returns a reference - to the stream. -*/ - -TQTextStream &TQTextStream::operator<<( signed long long i ) -{ - return output_int( I_LONGLONG | 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 long i ) -{ - return output_int( I_LONGLONG | 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'; - char *fs = format; // generate format string - *fs++ = '%'; // "%.l" - *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.unicode(), 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.device() ) - s.device()->flush(); - return s; -} - -TQTextStream &ws( TQTextStream &s ) -{ - s.skipWhiteSpace(); - return s; -} - -TQTextStream &reset( TQTextStream &s ) -{ - s.reset(); - return s; -} - - -/*! - \class TQTextIStream ntqtextstream.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(Q_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 diff --git a/src/tools/tqstring.cpp b/src/tools/tqstring.cpp index a48af12fc..fff59c613 100644 --- a/src/tools/tqstring.cpp +++ b/src/tools/tqstring.cpp @@ -54,7 +54,7 @@ #include "ntqregexp.h" #include "ntqdatastream.h" #ifndef TQT_NO_TEXTCODEC -#include "ntqtextcodec.h" +#include "tqtextcodec.h" #endif #include "ntqlocale.h" #include "qlocale_p.h" diff --git a/src/tools/tqtextstream.cpp b/src/tools/tqtextstream.cpp new file mode 100644 index 000000000..218c9b106 --- /dev/null +++ b/src/tools/tqtextstream.cpp @@ -0,0 +1,2632 @@ +/**************************************************************************** +** +** Implementation of TQTextStream class +** +** Created : 940922 +** +** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved. +** +** This file is part of the tools module of the TQt GUI Toolkit. +** +** This file may be used under the terms of the GNU General +** Public License versions 2.0 or 3.0 as published by the Free +** Software Foundation and appearing in the files LICENSE.GPL2 +** and LICENSE.GPL3 included in the packaging of this file. +** Alternatively you may (at your option) use any later version +** of the GNU General Public License if such license has been +** publicly approved by Trolltech ASA (or its successors, if any) +** and the KDE Free TQt Foundation. +** +** Please review the following information to ensure GNU General +** Public Licensing 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 "ntqregexp.h" +#include "ntqbuffer.h" +#include "ntqfile.h" +#include +#include +#include +#ifndef Q_OS_TEMP +#include +#endif + +#if defined(Q_OS_WIN32) +#include "qt_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(QT_CHECK_STATE) +#undef CHECK_STREAM_PRECOND +#define CHECK_STREAM_PRECOND if ( !dev ) { \ + tqWarning( "TQTextStream: No device" ); \ + return *this; } +#else +#define CHECK_STREAM_PRECOND +#endif + + +#define I_SHORT 0x0010 +#define I_INT 0x0020 +#define I_LONG 0x0030 +#define I_LONGLONG 0x0040 +#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 device. +*/ + +TQTextStream::TQTextStream() +{ + init(); + setEncoding( Locale ); + reset(); + d->sourceType = TQTextStreamPrivate::NotSet; +} + +/*! + Constructs a text stream that uses the IO device \a iod. +*/ + +TQTextStream::TQTextStream( TQIODevice *iod ) +{ + init(); + setEncoding( Locale ); + dev = 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(); + Offset size() const; + Offset at() const; + bool at( Offset pos ); + TQ_LONG readBlock( char *p, TQ_ULONG len ); + TQ_LONG writeBlock( const char *p, TQ_ULONG len ); + 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(QT_CHECK_STATE) + tqWarning( "TQStringBuffer::open: No string" ); +#endif + return FALSE; + } + if ( isOpen() ) { +#if defined(QT_CHECK_STATE) + tqWarning( "TQStringBuffer::open: Buffer already open" ); +#endif + return FALSE; + } + setMode( m ); + if ( m & IO_Truncate ) + s->truncate( 0 ); + + if ( m & IO_Append ) { + ioIndex = s->length()*sizeof(TQChar); + } else { + ioIndex = 0; + } + setState( IO_Open ); + resetStatus(); + return TRUE; +} + +void TQStringBuffer::close() +{ + if ( isOpen() ) { + setFlags( IO_Direct ); + ioIndex = 0; + } +} + +void TQStringBuffer::flush() +{ +} + +TQIODevice::Offset TQStringBuffer::size() const +{ + return s ? s->length()*sizeof(TQChar) : 0; +} + +TQIODevice::Offset TQStringBuffer::at() const +{ + return ioIndex; +} + +bool TQStringBuffer::at( Offset pos ) +{ +#if defined(QT_CHECK_STATE) + if ( !isOpen() ) { + tqWarning( "TQStringBuffer::at: Buffer is not open" ); + return FALSE; + } +#endif + if ( pos >= s->length()*2 ) { +#if defined(QT_CHECK_RANGE) + tqWarning( "TQStringBuffer::at: Index %lu out of range", pos ); +#endif + return FALSE; + } + ioIndex = pos; + return TRUE; +} + + +TQ_LONG TQStringBuffer::readBlock( char *p, TQ_ULONG len ) +{ +#if defined(QT_CHECK_STATE) + TQ_CHECK_PTR( p ); + if ( !isOpen() ) { + tqWarning( "TQStringBuffer::readBlock: Buffer not open" ); + return -1; + } + if ( !isReadable() ) { + tqWarning( "TQStringBuffer::readBlock: Read operation not permitted" ); + return -1; + } +#endif + if ( ioIndex + len > s->length()*sizeof(TQChar) ) { + // overflow + if ( (uint)ioIndex >= s->length()*sizeof(TQChar) ) { + setStatus( IO_ReadError ); + return -1; + } else { + len = s->length()*2 - (uint)ioIndex; + } + } + memcpy( p, ((const char*)(s->unicode()))+ioIndex, len ); + ioIndex += len; + return len; +} + +TQ_LONG TQStringBuffer::writeBlock( const char *p, TQ_ULONG len ) +{ +#if defined(QT_CHECK_NULL) + if ( p == 0 && len != 0 ) + tqWarning( "TQStringBuffer::writeBlock: Null pointer error" ); +#endif +#if defined(QT_CHECK_STATE) + if ( !isOpen() ) { + tqWarning( "TQStringBuffer::writeBlock: Buffer not open" ); + return -1; + } + if ( !isWritable() ) { + tqWarning( "TQStringBuffer::writeBlock: Write operation not permitted" ); + return -1; + } + if ( ioIndex&1 ) { + tqWarning( "TQStringBuffer::writeBlock: non-even index - non Unicode" ); + return -1; + } + if ( len&1 ) { + tqWarning( "TQStringBuffer::writeBlock: non-even length - non Unicode" ); + return -1; + } +#endif + s->replace(ioIndex/2, len/2, (TQChar*)p, len/2); + ioIndex += len; + return len; +} + +int TQStringBuffer::getch() +{ +#if defined(QT_CHECK_STATE) + if ( !isOpen() ) { + tqWarning( "TQStringBuffer::getch: Buffer not open" ); + return -1; + } + if ( !isReadable() ) { + tqWarning( "TQStringBuffer::getch: Read operation not permitted" ); + return -1; + } +#endif + if ( (uint)ioIndex >= s->length()*2 ) { // overflow + setStatus( IO_ReadError ); + return -1; + } + return (int)((const uchar *)s->unicode())[ioIndex++]; +} + +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(QT_CHECK_STATE) + if ( !isOpen() ) { + tqWarning( "TQStringBuffer::ungetch: Buffer not open" ); + return -1; + } + if ( !isReadable() ) { + tqWarning( "TQStringBuffer::ungetch: Read operation not permitted" ); + return -1; + } +#endif + if ( ch != -1 ) { // something to do with eof + if ( ioIndex ) + ioIndex--; + else + ch = -1; + } + return ch; +} + + +/*! + Constructs a text stream that operates on the Unicode TQString, \a + str, through an internal device. The \a filemode argument is + passed to the device'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 device. The \a mode argument is passed + to the device'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 = new TQBuffer( a ); + ((TQBuffer *)dev)->open( 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 device. The \a mode argument is + passed to the device'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 = 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 device. +*/ + +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() ); +} + + +/*! + 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 unicode + // 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.unicode() == 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::fromLatin1(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::unicodeToLatin1( 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; isourceType = TQTextStreamPrivate::IODevice; +} + +/*! + Unsets the IO device. Equivalent to setDevice( 0 ). + + \sa device(), setDevice() +*/ + +void TQTextStream::unsetDevice() +{ + setDevice( 0 ); + d->sourceType = TQTextStreamPrivate::NotSet; +} + +/*! + \fn bool TQTextStream::atEnd() const + + Returns TRUE if the IO device has reached the end position (end of + the stream or file) or if there is no IO device 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(Q_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::fromLatin1(""); + 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(QT_CHECK_STATE) + if ( !dev ) { + tqWarning( "TQTextStream::readLine: No device" ); + 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->resetStatus(); + 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(QT_CHECK_STATE) + if ( !dev ) { + tqWarning( "TQTextStream::read: No device" ); + 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>= 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 = (unsigned long long)(-(long 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 long long \c int \a i to the stream and returns a reference + to the stream. +*/ + +TQTextStream &TQTextStream::operator<<( signed long long i ) +{ + return output_int( I_LONGLONG | 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 long i ) +{ + return output_int( I_LONGLONG | 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'; + char *fs = format; // generate format string + *fs++ = '%'; // "%.l" + *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.unicode(), 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.device() ) + s.device()->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(Q_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 diff --git a/src/tools/tqtextstream.h b/src/tools/tqtextstream.h new file mode 100644 index 000000000..ab2366b39 --- /dev/null +++ b/src/tools/tqtextstream.h @@ -0,0 +1,341 @@ +/**************************************************************************** +** +** Definition of TQTextStream class +** +** Created : 940922 +** +** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved. +** +** This file is part of the tools module of the TQt GUI Toolkit. +** +** This file may be used under the terms of the GNU General +** Public License versions 2.0 or 3.0 as published by the Free +** Software Foundation and appearing in the files LICENSE.GPL2 +** and LICENSE.GPL3 included in the packaging of this file. +** Alternatively you may (at your option) use any later version +** of the GNU General Public License if such license has been +** publicly approved by Trolltech ASA (or its successors, if any) +** and the KDE Free TQt Foundation. +** +** Please review the following information to ensure GNU General +** Public Licensing 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. +** +**********************************************************************/ + +#ifndef TQTEXTSTREAM_H +#define TQTEXTSTREAM_H + +#ifndef QT_H +#include "ntqiodevice.h" +#include "tqstring.h" +#include +#endif // QT_H + +#ifndef TQT_NO_TEXTSTREAM +class TQTextCodec; +class TQTextDecoder; + +class TQTextStreamPrivate; + +class TQ_EXPORT TQTextStream // text stream class +{ +public: + enum Encoding { Locale, Latin1, Unicode, UnicodeNetworkOrder, + UnicodeReverse, RawUnicode, UnicodeUTF8 }; + + void setEncoding( Encoding ); +#ifndef TQT_NO_TEXTCODEC + void setCodec( TQTextCodec* ); + TQTextCodec *codec(); +#endif + + TQTextStream(); + TQTextStream( TQIODevice * ); + TQTextStream( TQString*, int mode ); + TQTextStream( TQString&, int mode ); // obsolete + TQTextStream( TQByteArray, int mode ); + TQTextStream( FILE *, int mode ); + virtual ~TQTextStream(); + + TQIODevice *device() const; + void setDevice( TQIODevice * ); + void unsetDevice(); + + bool atEnd() const; + bool eof() const; + + TQTextStream &operator>>( TQChar & ); + TQTextStream &operator>>( char & ); + TQTextStream &operator>>( signed short & ); + TQTextStream &operator>>( unsigned short & ); + TQTextStream &operator>>( signed int & ); + TQTextStream &operator>>( unsigned int & ); + TQTextStream &operator>>( signed long & ); + TQTextStream &operator>>( unsigned long & ); + TQTextStream &operator>>( float & ); + TQTextStream &operator>>( double & ); + TQTextStream &operator>>( char * ); + TQTextStream &operator>>( TQString & ); + TQTextStream &operator>>( TQCString & ); + + TQTextStream &operator<<( TQChar ); + TQTextStream &operator<<( char ); + TQTextStream &operator<<( signed short ); + TQTextStream &operator<<( unsigned short ); + TQTextStream &operator<<( signed int ); + TQTextStream &operator<<( unsigned int ); + TQTextStream &operator<<( signed long ); + TQTextStream &operator<<( unsigned long ); + TQTextStream &operator<<( signed long long ); + TQTextStream &operator<<( unsigned long long ); + TQTextStream &operator<<( float ); + TQTextStream &operator<<( double ); + TQTextStream &operator<<( const char* ); + TQTextStream &operator<<( const TQString & ); + TQTextStream &operator<<( const TQCString & ); + TQTextStream &operator<<( void * ); // any pointer + + TQTextStream &readRawBytes( char *, uint len ); + TQTextStream &writeRawBytes( const char* , uint len ); + + TQString readLine(); + TQString read(); + void skipWhiteSpace(); + + enum { + skipws = 0x0001, // skip whitespace on input + left = 0x0002, // left-adjust output + right = 0x0004, // right-adjust output + internal = 0x0008, // pad after sign + bin = 0x0010, // binary format integer + oct = 0x0020, // octal format integer + dec = 0x0040, // decimal format integer + hex = 0x0080, // hex format integer + showbase = 0x0100, // show base indicator + showpoint = 0x0200, // force decimal point (float) + uppercase = 0x0400, // upper-case hex output + showpos = 0x0800, // add '+' to positive integers + scientific= 0x1000, // scientific float output + fixed = 0x2000 // fixed float output + }; + + static const int basefield; // bin | oct | dec | hex + static const int adjustfield; // left | right | internal + static const int floatfield; // scientific | fixed + + int flags() const; + int flags( int f ); + int setf( int bits ); + int setf( int bits, int mask ); + int unsetf( int bits ); + + void reset(); + + int width() const; + int width( int ); + int fill() const; + int fill( int ); + int precision() const; + int precision( int ); + +private: + long input_int(); + void init(); + TQTextStream &output_int( int, unsigned long long, bool ); + + TQIODevice *dev; + + int fflags; + int fwidth; + int fillchar; + int fprec; + bool doUnicodeHeader; + bool owndev; + TQTextCodec *mapper; + TQTextStreamPrivate * d; + TQChar unused1; // ### remove in TQt 4.0 + bool latin1; + bool internalOrder; + bool networkOrder; + void *unused2; // ### remove in TQt 4.0 + + TQChar eat_ws(); + uint ts_getline( TQChar* ); + void ts_ungetc( TQChar ); + TQChar ts_getc(); + uint ts_getbuf( TQChar*, uint ); + void ts_putc(int); + void ts_putc(TQChar); + bool ts_isspace(TQChar); + bool ts_isdigit(TQChar); + ulong input_bin(); + ulong input_oct(); + ulong input_dec(); + ulong input_hex(); + double input_double(); + TQTextStream &writeBlock( const char* p, uint len ); + TQTextStream &writeBlock( const TQChar* p, uint len ); + +private: // Disabled copy constructor and operator= +#if defined(TQ_DISABLE_COPY) + TQTextStream( const TQTextStream & ); + TQTextStream &operator=( const TQTextStream & ); +#endif +}; + +typedef TQTextStream TQTS; + +class TQ_EXPORT TQTextIStream : public TQTextStream { +public: + TQTextIStream( const TQString* s ) : + TQTextStream((TQString*)s,IO_ReadOnly) { } + TQTextIStream( TQByteArray ba ) : + TQTextStream(ba,IO_ReadOnly) { } + TQTextIStream( FILE *f ) : + TQTextStream(f,IO_ReadOnly) { } + +private: // Disabled copy constructor and operator= +#if defined(TQ_DISABLE_COPY) + TQTextIStream( const TQTextIStream & ); + TQTextIStream &operator=( const TQTextIStream & ); +#endif +}; + +class TQ_EXPORT TQTextOStream : public TQTextStream { +public: + TQTextOStream( TQString* s ) : + TQTextStream(s,IO_WriteOnly) { } + TQTextOStream( TQByteArray ba ) : + TQTextStream(ba,IO_WriteOnly) { } + TQTextOStream( FILE *f ) : + TQTextStream(f,IO_WriteOnly) { } + +private: // Disabled copy constructor and operator= +#if defined(TQ_DISABLE_COPY) + TQTextOStream( const TQTextOStream & ); + TQTextOStream &operator=( const TQTextOStream & ); +#endif +}; + +/***************************************************************************** + TQTextStream inline functions + *****************************************************************************/ + +inline TQIODevice *TQTextStream::device() const +{ return dev; } + +inline bool TQTextStream::atEnd() const +{ return dev ? dev->atEnd() : FALSE; } + +inline bool TQTextStream::eof() const +{ return atEnd(); } + +inline int TQTextStream::flags() const +{ return fflags; } + +inline int TQTextStream::flags( int f ) +{ int oldf = fflags; fflags = f; return oldf; } + +inline int TQTextStream::setf( int bits ) +{ int oldf = fflags; fflags |= bits; return oldf; } + +inline int TQTextStream::setf( int bits, int mask ) +{ int oldf = fflags; fflags = (fflags & ~mask) | (bits & mask); return oldf; } + +inline int TQTextStream::unsetf( int bits ) +{ int oldf = fflags; fflags &= ~bits; return oldf; } + +inline int TQTextStream::width() const +{ return fwidth; } + +inline int TQTextStream::width( int w ) +{ int oldw = fwidth; fwidth = w; return oldw; } + +inline int TQTextStream::fill() const +{ return fillchar; } + +inline int TQTextStream::fill( int f ) +{ int oldc = fillchar; fillchar = f; return oldc; } + +inline int TQTextStream::precision() const +{ return fprec; } + +inline int TQTextStream::precision( int p ) +{ int oldp = fprec; fprec = p; return oldp; } + +/*! + Returns one character from the stream, or EOF. +*/ +inline TQChar TQTextStream::ts_getc() +{ TQChar r; return ( ts_getbuf( &r,1 ) == 1 ? r : TQChar((ushort)0xffff) ); } + +/***************************************************************************** + TQTextStream manipulators + *****************************************************************************/ + +typedef TQTextStream & (*TQTSFUNC)(TQTextStream &);// manipulator function +typedef int (TQTextStream::*TQTSMFI)(int); // manipulator w/int argument + +class TQ_EXPORT TQTSManip { // text stream manipulator +public: + TQTSManip( TQTSMFI m, int a ) { mf=m; arg=a; } + void exec( TQTextStream &s ) { (s.*mf)(arg); } +private: + TQTSMFI mf; // TQTextStream member function + int arg; // member function argument +}; + +TQ_EXPORT inline TQTextStream &operator>>( TQTextStream &s, TQTSFUNC f ) +{ return (*f)( s ); } + +TQ_EXPORT inline TQTextStream &operator<<( TQTextStream &s, TQTSFUNC f ) +{ return (*f)( s ); } + +TQ_EXPORT inline TQTextStream &operator<<( TQTextStream &s, TQTSManip m ) +{ m.exec(s); return s; } + +TQ_EXPORT TQTextStream &bin( TQTextStream &s ); // set bin notation +TQ_EXPORT TQTextStream &oct( TQTextStream &s ); // set oct notation +TQ_EXPORT TQTextStream &dec( TQTextStream &s ); // set dec notation +TQ_EXPORT TQTextStream &hex( TQTextStream &s ); // set hex notation +TQ_EXPORT TQTextStream &endl( TQTextStream &s ); // insert EOL ('\n') +TQ_EXPORT TQTextStream &flush( TQTextStream &s ); // flush output +TQ_EXPORT TQTextStream &ws( TQTextStream &s ); // eat whitespace on input +TQ_EXPORT TQTextStream &reset( TQTextStream &s ); // set default flags + +TQ_EXPORT inline TQTSManip qSetW( int w ) +{ + TQTSMFI func = &TQTextStream::width; + return TQTSManip(func,w); +} + +TQ_EXPORT inline TQTSManip qSetFill( int f ) +{ + TQTSMFI func = &TQTextStream::fill; + return TQTSManip(func,f); +} + +TQ_EXPORT inline TQTSManip qSetPrecision( int p ) +{ + TQTSMFI func = &TQTextStream::precision; + return TQTSManip(func,p); +} + +#endif // TQT_NO_TEXTSTREAM +#endif // TQTEXTSTREAM_H -- cgit v1.2.3