/var/www/hormigaproject.com.ar/files/src/statement/statement.cpp

Go to the documentation of this file.

/*
# Hormiga - Software de cálculo programable.
#
# Copyright (C) 2008, 2009 Leonardo Román, Hugo J. Curti, Norma  Ercoli,
# Universidad Nacional del Centro de la Provincia de Buenos Aires
# (UNCPBA)
#
# Este programa es parte de Hormiga.
#
# Hormiga es software libre. Puede redistribuirlo y/o modificarlo
# bajo los términos de la Licencia Pública General de GNU según es
# publicada por la Free Software Foundation, versión 2. Vea el archivo
# COPIA (español, no oficial) o COPYING (inglés, oficial) en directorio
# raíz.
#
# Hormiga se distribuye con la esperanza de que sea útil, pero SIN
# NINGUNA GARANTÍA, incluso sin la garantía MERCANTIL implícita o sin
# garantizar la CONVENIENCIA PARA UN PROPÓSITO PARTICULAR. Véase la
# Licencia Pública General de GNU para más detalles.
#
# Debería haber recibido una copia de la Licencia Pública General junto
# con Hormiga. Si no ha sido así, escriba a la Free Software
# Foundation, Inc., en 675 Mass Ave, Cambridge, MA 02139, EEUU.
# Añada también información sobre cómo contactar con usted mediante
# correo electrónico y postal.
#
# This file is part of Hormiga.
#
# Hormiga is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# as published by the Free Software Foundation; see the file COPYING
# in the top directory for details.
#
# Hormiga 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 General Public License
# along with Hormiga; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
# USA
*/

#include "statement.h"

T_STRING OperatorAsig::symbol = ":=" ;

T_STRING OperatorAsig::getSymbol() const
{
    return ( OperatorAsig::symbol );
}

T_STRING OperatorAsig::toString() const
{
    return ( BinaryOperator::toString() ) ;
}

T_MAGNITUDE OperatorAsig::getValue() const
{
    Seteable *s = (Seteable*)(VarValue *) this->op1 ;
    return ( s->setValue( this->op2->getValue() ) ) ;
}

bool OperatorAsig::exec()
{
    this->getValue() ;
    return ( true ) ;
}

OperatorAsig::OperatorAsig( Operand *op1 , Operand *op2 )
    : BinaryOperator::BinaryOperator ( op1 , op2 )
{}


bool Statements::exec()
{
    for ( int i = 0; i < this->block->count() ; i++ )
    {
        Statement *o = this->block->at( i ) ;
        if ( ! o->exec() )
            return ( false ) ;
    }
    return ( true ) ;
}

T_STRING Statements::toString() const
{
    T_STRING toRet = "" ;
    for ( int i = 0; i < this->block->count() ; i++ )
    {
        Statement *o = this->block->at( i ) ;
        toRet += QString("%1 %2\n")
                 .arg( o->toString() )
                 .arg( ';' ) ;
    }
    toRet += "" ;
    return ( toRet ) ;
}

Statements::Statements( T_STMT_BLOCK *block )
{
    this->block = block ;
}

Statements::~Statements()
{
    for ( int i = 0; i < this->block->count() ; i++ )
    {
        Statement *o = this->block->at( i ) ;
        delete o ;
    }
    delete this->block ;
}



bool For::exec ()
{
    for ( T_MAGNITUDE i = this->interval->getFirst() ;
        i <= this->interval->getLast() ; i += this->interval->getStep() )
    {
        this->var->setValue( i ) ;
        this->block->exec() ;
    }
    return ( true ) ;
}

T_STRING For::toString() const
{
    return QString("FOR %1 := %2 DO\n%3END FOR")
            .arg( this->var->getSymbol() )
            .arg( this->interval->toString() )
            .arg( this->block->toString() ) ;
}

For::For ( VarValue* var , Sequence *interval , Statement *block )
{
    this->var = var ;
    this->interval = interval ;
    this->block = block ;
}

For::~For ()
{
    /* Var should BE SHAREABLE.... don't delete */
    if ( interval != NULL ) delete interval ;
    if ( block != NULL ) delete block ;
}


bool If::exec ()
{
    if ( this->condition->getValue() == TRUE )
        this->blockTrue->exec() ;
    else if ( this->blockFalse != NULL )
        this->blockFalse->exec() ;
    return ( true ) ;
}

T_STRING If::toString() const
{
    if ( this->blockFalse != NULL )
        return QString("IF %1 THEN\n%2ELSE\n%3END IF")
            .arg( this->condition->toString() )
            .arg( this->blockTrue->toString() )
            .arg( this->blockFalse->toString() ) ;
    else
        return QString("IF %1 THEN\n%2END IF")
            .arg( this->condition->toString() )
            .arg( this->blockTrue->toString() ) ;
}

If::If ( Operand* condition , Statement *blockTrue , Statement *blockFalse )
{
    this->condition = condition ;
    this->blockTrue = blockTrue ;
    this->blockFalse = blockFalse ;
}

If::~If ()
{
    if ( (condition != NULL) && !condition->isShareable() ) delete condition ;
    if ( blockTrue != NULL ) delete blockTrue ;
    if ( blockFalse != NULL ) delete blockFalse ;
}


bool While::exec ()
{
    while ( this->condition->getValue() == TRUE )
        this->blockTrue->exec() ;
    return ( true ) ;
}

T_STRING While::toString() const
{
        return QString("WHILE %1 DO\n%2END WHILE")
            .arg( this->condition->toString() )
            .arg( this->blockTrue->toString() ) ;
}

While::While ( Operand* condition , Statement *blockTrue )
{
    this->condition = condition ;
    this->blockTrue = blockTrue ;
}

While::~While ()
{
    if ( (condition != NULL) && !condition->isShareable() ) delete condition ;
    if ( blockTrue != NULL ) delete blockTrue ;
}