Welcome to the NetCologne GmbH open source mirroring service!

This machine mirrors various open-source projects. 20 Gbit/s uplink.

If there are any issues or you want another project mirrored, please contact mirror-service -=AT=- netcologne DOT de !

lib/ast/StmtDumper.cpp

Go to the documentation of this file.

//===-- ast/StmtDumper.cpp ------------------------------------ -*- C++ -*-===//
//
// This file is distributed under the MIT license. See LICENSE.txt for details.
//
// Copyright (C) 2009-2010, Stephen Wilson
//
//===----------------------------------------------------------------------===//

#include "StmtDumper.h"
#include "comma/ast/Decl.h"
#include "comma/ast/DSTDefinition.h"
#include "comma/ast/Expr.h"
#include "comma/ast/Stmt.h"

#include "llvm/Support/Format.h"

using namespace comma;

using llvm::dyn_cast;
using llvm::cast;
using llvm::isa;


llvm::raw_ostream &StmtDumper::dump(Stmt *stmt, unsigned level)
{
    unsigned savedLevel = indentLevel;
    indentLevel = level;
    visitStmt(stmt);
    indentLevel = savedLevel;
    return S;
}

llvm::raw_ostream &StmtDumper::dumpAST(Ast *node)
{
    return dumper->dump(node, indentLevel);
}

void StmtDumper::visitStmtSequence(StmtSequence *node)
{
    printHeader(node);
    indent();
    for (StmtSequence::stmt_iter I = node->stmt_begin();
         I != node->stmt_end(); ++I) {
        S << '\n';
        printIndentation();
        visitStmt(*I);
    }
    dedent();
    S << '>';
}

void StmtDumper::visitBlockStmt(BlockStmt *node)
{
    printHeader(node);

    if (node->hasLabel())
        S << llvm::format(" '%s'", node->getLabel()->getString());

    if (node->countDecls()) {
        indent();
        S << '\n';
        printIndentation();
        S << ":Declare";
        indent();
        for (BlockStmt::DeclIter I = node->beginDecls();
             I != node->endDecls(); ++I) {
            S << '\n';
            printIndentation();
            dumpAST(*I);
        }
        dedent();
        dedent();
    }

    if (node->numStatements()) {
        indent();
        S << '\n';
        printIndentation();
        S << ":Body";
        indent();
        for (StmtSequence::stmt_iter I = node->stmt_begin();
             I != node->stmt_end(); ++I) {
            S << '\n';
            printIndentation();
            visitStmt(*I);
        }
        dedent();
        dedent();
    }
    S << '>';
}

void StmtDumper::visitProcedureCallStmt(ProcedureCallStmt *node)
{
    printHeader(node)
        << llvm::format(" '%s'>", node->getConnective()->getString());
}

void StmtDumper::visitReturnStmt(ReturnStmt *node)
{
    printHeader(node);
    if (node->hasReturnExpr()) {
        S << '\n';
        indent();
        printIndentation();
        dumpAST(node->getReturnExpr());
        dedent();
    }
    S << '>';
}

void StmtDumper::visitAssignmentStmt(AssignmentStmt *node)
{
    printHeader(node) << '\n';
    indent();
    printIndentation();
    dumpAST(node->getTarget()) << '\n';
    printIndentation();
    dumpAST(node->getAssignedExpr());
    dedent();
    S << '>';
}

void StmtDumper::visitIfStmt(IfStmt *node)
{
    printHeader(node) << '\n';
    indent();
    printIndentation();
    dumpAST(node->getCondition()) << '\n';
    printIndentation();
    visitStmtSequence(node->getConsequent());

    for (IfStmt::iterator I = node->beginElsif();
         I != node->endElsif(); ++I) {
        // For each elsif, print a condition and consequent group.
        S << '\n';
        printIndentation() << "<elsif\n";
        indent();
        printIndentation();
        dumpAST(I->getCondition()) << '\n';
        printIndentation();
        visitStmtSequence(I->getConsequent());
        dedent();
        S << '>';
    }

    if (node->hasAlternate()) {
        S << '\n';
        printIndentation() << "<else\n";
        indent();
        printIndentation();
        visitStmtSequence(node->getAlternate());
        dedent();
        S << '>';
    }

    dedent();
    S << '>';
}

void StmtDumper::visitWhileStmt(WhileStmt *node)
{
    printHeader(node) << '\n';
    indent();
    printIndentation();
    dumpAST(node->getCondition()) << '\n';
    printIndentation();
    visitStmtSequence(node->getBody());
    dedent();
    S << '>';
}

void StmtDumper::visitLoopStmt(LoopStmt *node)
{
    printHeader(node) << '\n';
    indent();
    printIndentation();
    visitStmtSequence(node->getBody());
    dedent();
    S << '>';
}

void StmtDumper::visitForStmt(ForStmt *node)
{
    printHeader(node) << ' ';
    dumpAST(node->getLoopDecl()) << '\n';
    indent();
    printIndentation();
    dumpAST(node->getControl()) << '\n';
    printIndentation();
    visitStmtSequence(node->getBody());
    dedent();
    S << '>';
}

void StmtDumper::visitPragmaStmt(PragmaStmt *node)
{
    printHeader(node) << '>';
}

void StmtDumper::visitNullStmt(NullStmt *node)
{
    printHeader(node) << '>';
}

---