/****************************************************************************

**

** Copyright (C) 2009 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