diff options
Diffstat (limited to 'tqtinterface/qt4/tools/linguist/shared/proparser.cpp')
| -rw-r--r-- | tqtinterface/qt4/tools/linguist/shared/proparser.cpp | 217 |
1 files changed, 0 insertions, 217 deletions
diff --git a/tqtinterface/qt4/tools/linguist/shared/proparser.cpp b/tqtinterface/qt4/tools/linguist/shared/proparser.cpp deleted file mode 100644 index ab32500..0000000 --- a/tqtinterface/qt4/tools/linguist/shared/proparser.cpp +++ /dev/null @@ -1,217 +0,0 @@ -/********************************************************************** -** Copyright (C) 2000-2008 Trolltech ASA. All rights reserved. -** -** This file is part of TQt Linguist. -** -** 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. -** -** 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 "proparser.h" - -#include <tqdir.h> -#include <tqfile.h> -#include <tqfileinfo.h> -#include <tqregexp.h> -#include <tqstringlist.h> -#include <tqtextstream.h> - -#ifdef TQ_OS_UNIX -#include <unistd.h> -#endif - -#ifdef TQ_OS_WIN32 -#define TQT_POPEN _popen -#else -#define TQT_POPEN popen -#endif - -TQString loadFile( const TQString &fileName ) -{ - TQFile file( fileName ); - if ( !file.open(IO_ReadOnly) ) { - fprintf( stderr, "error: Cannot load '%s': %s\n", - file.name().latin1(), - TQT_TQSTRING_OBJECT(file.errorString()).latin1() ); - return TQString(); - } - - TQTextStream in( &file ); - return in.read(); -} - -TQMap<TQString, TQString> proFileTagMap( const TQString& text ) -{ - TQString t = text; - TQMap<TQString, TQString> tagMap; - bool stillProcess = true; // If include() has a $$tag then we need to reprocess - - while(stillProcess) { - - /* - Strip any commments before we try to include. We - still need to do it after we include to make sure the - included file does not have comments - */ - t.replace( TQRegExp(TQString("#[^\n]*\n")), TQString(" ") ); - - /* - Process include() commands. - $$PWD is a special case so we have to change it while - we know where the included file is. - */ - TQRegExp callToInclude("include\\s*\\(\\s*([^()\\s]+)\\s*\\)"); - int i = 0; - while ( (i = callToInclude.search(t, i)) != -1 ) { - bool doneWithVar = false; - TQString fileName = callToInclude.cap(1); - TQString after = fileName.replace("$$PWD", TQDir::currentDirPath()); - if (!tagMap.isEmpty() && after.contains("$$")) { - TQRegExp var( "\\$\\$[({]?([a-zA-Z0-9_]+)[)}]?" ); - int ii = 0; - while ((ii = after.find(var, ii)) != -1) { - if (tagMap.contains(var.cap(1))) { - after.replace(ii, var.cap(0).length(), tagMap[var.cap(1)]); - } else { // Couldn't find it - doneWithVar = true; - break; - } - } - - } - if (doneWithVar || !after.contains("$$")) { - after = loadFile(after); - TQFileInfo fi(callToInclude.cap(1)); - after.replace("$$PWD", fi.dirPath()); - t.replace( i, callToInclude.matchedLength(), after ); - } - i += after.length(); - } - - /* - Strip comments, merge lines ending with backslash, add - spaces around '=' and '+=', replace '\n' with ';', and - simplify white spaces. - */ - t.replace( TQRegExp(TQString("#[^\n]*\n")), TQString(" ") ); - t.replace( TQRegExp(TQString("\\\\[^\n\\S]*\n")), TQString(" ") ); - t.replace( "=", TQString(" = ") ); - t.replace( "+ =", TQString(" += ") ); - t.replace( "\n", TQString(";") ); - t = t.simplifyWhiteSpace(); - - /* - Populate tagMap with 'key = value' entries. - */ - TQStringList lines = TQStringList::split( TQChar(';'), t ); - TQStringList::Iterator line; - for ( line = lines.begin(); line != lines.end(); ++line ) { - TQStringList toks = TQStringList::split( TQChar(' '), *line ); - - if ( toks.count() >= 3 && - (toks[1] == TQString("=") || toks[1] == TQString("+=")) ) { - TQString tag = toks.first(); - int k = tag.findRev( TQChar(':') ); // as in 'unix:' - if ( k != -1 ) - tag = tag.mid( k + 1 ); - toks.remove( toks.begin() ); - - TQString action = toks.first(); - toks.remove( toks.begin() ); - - if ( tagMap.contains(tag) ) { - if ( action == TQString("=") ) - tagMap.replace( tag, toks.join(TQChar(' ')) ); - else - tagMap[tag] += TQChar( ' ' ) + toks.join( TQChar(' ') ); - } else { - tagMap[tag] = toks.join( TQChar(' ') ); - } - } - } - - /* - Expand $$variables within the 'value' part of a 'key = value' - pair. - */ - TQRegExp var( "\\$\\$[({]?([a-zA-Z0-9_]+)[)}]?" ); - TQMap<TQString, TQString>::Iterator it; - for ( it = tagMap.begin(); it != tagMap.end(); ++it ) { - int i = 0; - while ( (i = var.search((*it), i)) != -1 ) { - int len = var.matchedLength(); - TQString invocation = var.cap(1); - TQString after; - - if ( invocation == "system" ) { - // skip system(); it will be handled in the next pass - ++i; - } else { - if ( tagMap.contains(invocation) ) - after = tagMap[invocation]; - else if (invocation.lower() == "pwd") - after = TQDir::currentDirPath(); - (*it).replace( i, len, after ); - i += after.length(); - } - } - } - - /* - Execute system() calls. - */ - TQRegExp callToSystem( "\\$\\$system\\s*\\(([^()]*)\\)" ); - for ( it = tagMap.begin(); it != tagMap.end(); ++it ) { - int i = 0; - while ( (i = callToSystem.search((*it), i)) != -1 ) { - /* - This code is stolen from qmake's project.cpp file. - Ideally we would use the same parser, so we wouldn't - have this code duplication. - */ - TQString after; - char buff[256]; - FILE *proc = TQT_POPEN( TQT_TQSTRING_OBJECT(callToSystem.cap(1)).latin1(), "r" ); - while ( proc && !feof(proc) ) { - int read_in = (int)fread( buff, 1, 255, proc ); - if ( !read_in ) - break; - for ( int i = 0; i < read_in; i++ ) { - if ( buff[i] == '\n' || buff[i] == '\t' ) - buff[i] = ' '; - } - buff[read_in] = '\0'; - after += buff; - } - (*it).replace( i, callToSystem.matchedLength(), after ); - i += after.length(); - } - } - stillProcess = callToInclude.search(t) != -1; - } - return tagMap; -} |