tdevelop/buildtools/lib/parsers/qmake/tests/viewer.cpp

/***************************************************************************
 *   Copyright (C) 2005 by Alexander Dymo                                  *
 *   adymo@kdevelop.org                                                    *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU Library General Public License as       *
 *   published by the Free Software Foundation; either version 2 of the    *
 *   License, or (at your option) any later version.                       *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU Library General Public     *
 *   License along with this program; if not, write to the                 *
 *   Free Software Foundation, Inc.,                                       *
 *   51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.             *
 ***************************************************************************/
#include "viewer.h"

#include <tqdir.h>
#include <tqlineedit.h>
#include <tqlistbox.h>
#include <tqfiledialog.h>
#include <tqtextedit.h>
#include <tqfile.h>
#include <tqtextstream.h>
#include <tqlistview.h>
#include <tqtabwidget.h>

#include <tqmakeast.h>
#include <tqmakedriver.h>
#include <tqmakeastvisitor.h>

using namespace TQMake;

Viewer::Viewer(TQWidget *tqparent, const char *name)
    :ViewerBase(tqparent, name), projectAST(0)
{
    if (TQFile::exists(TQDir::currentDirPath() + "/" + "qtlist"))
    {
        TQFile f(TQDir::currentDirPath() + "/" + "qtlist");
        f.open(IO_ReadOnly);
        TQTextStream str(&f);
        while (!str.eof())
            files->insertItem(str.readLine());
    }
    ast->setSorting(-1);
//    tqparentProject.push((TQListViewItem*)0);
}

void Viewer::addAll_clicked()
{
    if (allLocation->text().isEmpty())
        return;
    TQDir d(allLocation->text());
    TQStringList l = d.entryList("*.pro *.pri");
    for (TQStringList::iterator it = l.begin(); it != l.end(); ++it)
        (*it) = TQDir::cleanDirPath(allLocation->text() + "/" + (*it));
    files->insertStringList(l);
}

void Viewer::choose_clicked()
{
    TQString fileName = TQFileDialog::getOpenFileName(TQDir::currentDirPath(), "*.pro *.pri", this);
    if (!fileName.isEmpty())
        files->insertItem(fileName);
}

void Viewer::files_currentChanged(TQListBoxItem* item)
{
    ast->clear();

    TQFile f(item->text());
    f.open(IO_ReadOnly);
    TQTextStream str(&f);
    source->setText(str.read());
    f.close();

    int result = TQMake::Driver::parseFile(item->text().ascii(), &projectAST, 0);
    if (projectAST && (result == 0))
    {
        processAST(projectAST);
    }
    if (tabWidget2->currentPageIndex() == 1)
        tabWidget2_selected("Source to be written back");
}

void Viewer::tabWidget2_selected(const TQString& text)
{
    if ((text == "Source to Be Written Back") && projectAST)
    {
        TQString buffer;
        projectAST->writeBack(buffer);
        writeBack->setText(buffer);
    }
}

class ViewerVisitor: public ASTVisitor {
public:
    ViewerVisitor(Viewer *v): ASTVisitor()
    {
        this->v = v;
        tqparentProject.push((TQListViewItem*)0);
    }

    virtual void processProject(ProjectAST *project)
    {
        ASTVisitor::processProject(project);
    }

    virtual void enterRealProject(ProjectAST *project)
    {
        TQListViewItem *projectIt;
        if (!tqparentProject.top())
        {
            projectIt = new TQListViewItem(v->ast, "Project");
            projectIt->setOpen(true);
            tqparentProject.push(projectIt);
        }

        ASTVisitor::enterRealProject(project);
    }
    virtual void enterScope(ProjectAST *scope)
    {
        TQListViewItem *projectIt = new TQListViewItem(tqparentProject.top(), scope->scopedID, "scope");
        tqparentProject.push(projectIt);
        ASTVisitor::enterScope(scope);
    }
    virtual void leaveScope(ProjectAST *scope)
    {
        tqparentProject.pop();
    }
    virtual void enterFunctionScope(ProjectAST *fscope)
    {
        TQListViewItem *projectIt = new TQListViewItem(tqparentProject.top(),
            fscope->scopedID + "(" + fscope->args + ")", "function scope");
        tqparentProject.push(projectIt);
        ASTVisitor::enterFunctionScope(fscope);
    }
    virtual void leaveFunctionScope(ProjectAST *fscope)
    {
        tqparentProject.pop();
    }
    virtual void processAssignment(AssignmentAST *assignment)
    {
        TQListViewItem *item = new TQListViewItem(tqparentProject.top(),
                assignment->scopedID, assignment->op, assignment->values.join("|"),
                "assignment");
        item->setMultiLinesEnabled(true);

        ASTVisitor::processAssignment(assignment);
    }
    virtual void processNewLine(NewLineAST *newline)
    {
        new TQListViewItem(tqparentProject.top(), "<newline>");
        ASTVisitor::processNewLine(newline);
    }
    virtual void processComment(CommentAST *comment)
    {
        new TQListViewItem(tqparentProject.top(), "<comment>");
        ASTVisitor::processComment(comment);
    }
    virtual void processInclude(IncludeAST *include)
    {
        new TQListViewItem(tqparentProject.top(), "<include>", include->projectName);
        TQMake::ASTVisitor::processInclude(include);
    }

    Viewer *v;
    TQValueStack<TQListViewItem *> tqparentProject;
};


void Viewer::processAST(TQMake::ProjectAST *projectAST, TQListViewItem *globAfter)
{
    ViewerVisitor visitor(this);
    visitor.processProject(projectAST);
}

#include "viewer.moc"