IfStatement.cpp

Go to the documentation of this file.

// ------------------------------------------------------------------------
// $RCSfile: IfStatement.cpp,v $
// ------------------------------------------------------------------------
// $Revision: 1.1.1.1 $
// ------------------------------------------------------------------------
// Copyright: see Copyright.readme
// ------------------------------------------------------------------------
//
// Class: IfStatement
//   Representation for OPAL IF statements.
//
// ------------------------------------------------------------------------
//
// $Date: 2000/03/27 09:33:43 $
// $Author: Andreas Adelmann $
//
// ------------------------------------------------------------------------
 
#include "OpalParser/IfStatement.h"
 
#include "AbstractObjects/OpalData.h"
#include "Attributes/Attributes.h"
#include "OpalParser/CompoundStatement.h"
#include "OpalParser/Parser.h"
#include "OpalParser/Token.h"
#include "OpalParser/TokenStream.h"
#include "Utilities/ParseError.h"
 
#include "Utility/IpplInfo.h"
 
// class IfStatement
//   Statement of the form "IF ( <condition> ) <statement>".
// ------------------------------------------------------------------------
 
IfStatement::IfStatement(const Parser& parser, TokenStream& is)
    : Statement("", 0), then_block(0), else_block(0) {
    Token key   = is.readToken();
    Token token = is.readToken();
 
    if (key.isKey("IF") && token.isDel('(')) {
        append(token);
        token     = is.readToken();
        int level = 1;
 
        while (!token.isEOF()) {
            append(token);
 
            if (token.isDel('(')) {
                level++;
            } else if (token.isDel(')')) {
                level--;
                if (level == 0) break;
            }
 
            token = is.readToken();
        }
 
        then_block = parser.readStatement(&is);
        token      = is.readToken();
 
        if (!token.isEOF() && token.isKey("ELSE")) {
            else_block = parser.readStatement(&is);
        } else {
            is.putBack(token);
        }
    } else {
        throw ParseError("IfStatement::IfStatement()", "Invalid \"IF\" statement.");
    }
}
 
IfStatement::~IfStatement() {
    delete then_block;
    delete else_block;
}
 
void IfStatement::execute(const Parser& parser) {
    start();
    Attribute condition = Attributes::makeBool("IF()", "");
 
    try {
        condition.parse(*this, false);
        OpalData::getInstance()->update();
 
        if (Attributes::getBool(condition)) {
            then_block->execute(parser);
        } else if (else_block) {
            else_block->execute(parser);
        }
    } catch (...) {
        std::ostringstream oss;
        this->print(oss);
        *ippl::Error << "Invalid IF condition '" + oss.str() + "'";
        throw;
    }
}