/****************************************************************************+
−
**+
−
** Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies).+
−
** All rights reserved.+
−
** Contact: Nokia Corporation (qt-info@nokia.com)+
−
**+
−
** This file is part of the qt3to4 porting application of the Qt Toolkit.+
−
**+
−
** $QT_BEGIN_LICENSE:LGPL$+
−
** No Commercial Usage+
−
** This file contains pre-release code and may not be distributed.+
−
** You may use this file in accordance with the terms and conditions+
−
** contained in the Technology Preview License Agreement accompanying+
−
** this package.+
−
**+
−
** GNU Lesser General Public License Usage+
−
** Alternatively, this file may be used under the terms of the GNU Lesser+
−
** General Public License version 2.1 as published by the Free Software+
−
** Foundation and appearing in the file LICENSE.LGPL included in the+
−
** packaging of this file.  Please review the following information to+
−
** ensure the GNU Lesser General Public License version 2.1 requirements+
−
** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.+
−
**+
−
** In addition, as a special exception, Nokia gives you certain additional+
−
** rights.  These rights are described in the Nokia Qt LGPL Exception+
−
** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.+
−
**+
−
** If you have questions regarding the use of this file, please contact+
−
** Nokia at qt-info@nokia.com.+
−
**+
−
**+
−
**+
−
**+
−
**+
−
**+
−
**+
−
**+
−
** $QT_END_LICENSE$+
−
**+
−
****************************************************************************/+
−
+
−
#include "proparser.h"+
−
+
−
#include <QDir>+
−
#include <QFile>+
−
#include <QFileInfo>+
−
#include <QRegExp>+
−
#include <QStringList>+
−
#include <QTextStream>+
−
+
−
#ifdef Q_OS_UNIX+
−
#include <unistd.h>+
−
#endif+
−
+
−
#ifdef Q_OS_WIN32+
−
#define QT_POPEN _popen+
−
#else+
−
#define QT_POPEN popen+
−
#endif+
−
+
−
QT_BEGIN_NAMESPACE+
−
+
−
QString loadFile( const QString &fileName )+
−
{+
−
    QFile file( fileName );+
−
    if ( !file.open(QIODevice::ReadOnly) ) {+
−
        fprintf( stderr, "error: Cannot load '%s': %s\n",+
−
                 file.fileName().toLocal8Bit().constData(),+
−
                 file.errorString().toLatin1().constData() );+
−
        return QString();+
−
    }+
−
+
−
    QTextStream in( &file );+
−
    return in.readAll();+
−
}+
−
+
−
QMap<QString, QString> proFileTagMap( const QString& text, QString currentPath )+
−
{+
−
    QString t = text;+
−
    if (currentPath.isEmpty())+
−
        currentPath = QDir::currentPath();+
−
+
−
+
−
    QMap<QString, QString> tagMap;+
−
        /*+
−
            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( QRegExp(QLatin1String("#[^\n]*\n")), QLatin1String(" ") );+
−
      /*+
−
            Strip comments, merge lines ending with backslash, add+
−
            spaces around '=' and '+=', replace '\n' with ';', and+
−
            simplify white spaces.+
−
        */+
−
        t.replace( QRegExp(QLatin1String("#[^\n]*\n")), QLatin1String(" ") );+
−
        t.replace( QRegExp(QLatin1String("\\\\[^\n\\S]*\n")), QLatin1String(" ") );+
−
        t.replace( QLatin1String("="), QLatin1String(" = ") );+
−
        t.replace( QLatin1String("+ ="), QLatin1String(" += ") );+
−
        t.replace( QLatin1String("\n"), QLatin1String(";") );+
−
        t = t.simplified();+
−
+
−
        /*+
−
            Populate tagMap with 'key = value' entries.+
−
        */+
−
        QStringList lines = t.split(QLatin1Char(';'));+
−
        QStringList::Iterator line;+
−
        for ( line = lines.begin(); line != lines.end(); ++line ) {+
−
            QStringList toks = (*line).split(QLatin1Char(' '), QString::SkipEmptyParts);+
−
+
−
            if ( toks.count() >= 3 &&+
−
                (toks[1] == QLatin1String("=") || toks[1] == QLatin1String("+=") ||+
−
                toks[1] == QLatin1String("*=")) ) {+
−
                QString tag = toks.first();+
−
                int k = tag.lastIndexOf( QLatin1Char(':') ); // as in 'unix:'+
−
                if ( k != -1 )+
−
                    tag = tag.mid( k + 1 );+
−
                toks.erase( toks.begin() );+
−
+
−
                QString action = toks.first();+
−
                toks.erase( toks.begin() );+
−
+
−
                if ( tagMap.contains(tag) ) {+
−
                    if ( action == QLatin1String("=") )+
−
                        tagMap.insert( tag, toks.join(QLatin1String(" ")) );+
−
                    else+
−
                        tagMap[tag] += QLatin1Char( ' ' ) + toks.join( QLatin1String(" ") );+
−
                } else {+
−
                    tagMap[tag] = toks.join( QLatin1String(" ") );+
−
                }+
−
            }+
−
        }+
−
        /*+
−
            Expand $$variables within the 'value' part of a 'key = value'+
−
            pair.+
−
        */+
−
        QRegExp var( QLatin1String("\\$\\$[({]?([a-zA-Z0-9_]+)[)}]?") );+
−
        QMap<QString, QString>::Iterator it;+
−
        for ( it = tagMap.begin(); it != tagMap.end(); ++it ) {+
−
            int i = 0;+
−
            while ( (i = var.indexIn((*it), i)) != -1 ) {+
−
                int len = var.matchedLength();+
−
                QString invocation = var.cap(1);+
−
                QString after;+
−
+
−
                if ( invocation == QLatin1String("system") ) {+
−
                    // skip system(); it will be handled in the next pass+
−
                    ++i;+
−
                } else {+
−
                    if ( tagMap.contains(invocation) )+
−
                        after = tagMap[invocation];+
−
                    else if (invocation.toLower() == QLatin1String("pwd"))+
−
                        after = currentPath;+
−
                    (*it).replace( i, len, after );+
−
                    i += after.length();+
−
                }+
−
            }+
−
        }+
−
+
−
        /*+
−
          Execute system() calls.+
−
        */+
−
        QRegExp callToSystem( QLatin1String("\\$\\$system\\s*\\(([^()]*)\\)") );+
−
        for ( it = tagMap.begin(); it != tagMap.end(); ++it ) {+
−
            int i = 0;+
−
            while ( (i = callToSystem.indexIn((*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.+
−
                */+
−
                QString after;+
−
                char buff[256];+
−
                FILE *proc = QT_POPEN( callToSystem.cap(1).toLatin1().constData(), "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 += QLatin1String(buff);+
−
                }+
−
                (*it).replace( i, callToSystem.matchedLength(), after );+
−
                i += after.length();+
−
            }+
−
        }+
−
    return tagMap;+
−
}+
−
+
−
QT_END_NAMESPACE+
−