/********************************************************************** ** 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 #include #include #include #include #include #ifdef TQ_OS_UNIX #include #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 proFileTagMap( const TQString& text ) { TQString t = text; TQMap 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.tqreplace( 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.tqreplace("$$PWD", TQDir::currentDirPath()); if (!tagMap.isEmpty() && after.tqcontains("$$")) { TQRegExp var( "\\$\\$[({]?([a-zA-Z0-9_]+)[)}]?" ); int ii = 0; while ((ii = after.tqfind(var, ii)) != -1) { if (tagMap.tqcontains(var.cap(1))) { after.tqreplace(ii, var.cap(0).length(), tagMap[var.cap(1)]); } else { // Couldn't tqfind it doneWithVar = true; break; } } } if (doneWithVar || !after.tqcontains("$$")) { after = loadFile(after); TQFileInfo fi(callToInclude.cap(1)); after.tqreplace("$$PWD", fi.dirPath()); t.tqreplace( i, callToInclude.matchedLength(), after ); } i += after.length(); } /* Strip comments, merge lines ending with backslash, add spaces around '=' and '+=', tqreplace '\n' with ';', and simplify white spaces. */ t.tqreplace( TQRegExp(TQString("#[^\n]*\n")), TQString(" ") ); t.tqreplace( TQRegExp(TQString("\\\\[^\n\\S]*\n")), TQString(" ") ); t.tqreplace( "=", TQString(" = ") ); t.tqreplace( "+ =", TQString(" += ") ); t.tqreplace( "\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.tqfindRev( 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.tqcontains(tag) ) { if ( action == TQString("=") ) tagMap.tqreplace( 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::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.tqcontains(invocation) ) after = tagMap[invocation]; else if (invocation.lower() == "pwd") after = TQDir::currentDirPath(); (*it).tqreplace( 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).tqreplace( i, callToSystem.matchedLength(), after ); i += after.length(); } } stillProcess = callToInclude.search(t) != -1; } return tagMap; }