variable.C

Ir a la documentación de este archivo.

//===========================================================================
//= variable.cc                                               Junio de 1998 =
//=-------------------------------------------------------------------------=
//= Definicion de la clase VARIABLE_DE_ESTADO                               =
//=-------------------------------------------------------------------------=
//= ADVERTENCIA: ESTE SOFTWARE NO ESTA CONCEBIDO NI DISENNADO PARA EL USO   =
//= EN EQUIPO DE CONTROL EN LINEA EN ENTORNOS PELIGROSOS QUE REQUIERAN UN   =
//= DESEMPENNO LIBRE DE FALLAS, COMO LA OPERACION DE PLANTAS NUCLEARES,     = 
//= SISTEMAS DE NAVEGACION O COMUNICACION EN AVIONES, TRAFICO AEREO,        =
//= EQUIPO MEDICO DEL CUAL DEPENDAN VIDAS HUMANAS O SISTEMAS DE ARMAMENTO,  =
//= EN LOS CUALES UNA FALLA EN EL SOFTWARE PUEDA IMPLICAR DIRECTAMENTE LA   =
//= MUERTE, DANNOS PERSONALES O DANNOS FISICOS Y/O AMBIENTALES GRAVES       =
//= ("ACTIVIDADES DE ALGO RIESGO").                                         =
//=-------------------------------------------------------------------------=
//= Autor original: Oscar J. Chavarro G.  A.K.A. JEDILINK. Copyright (c),   =
//= 1997 - 2003, oscarchavarro@hotmail.com                                  =
//= AQUYNZA es software libre, y se rige bajo los terminos de la licencia   =
//= LGPL de GNU (http://www.gnu.org). Para mayor informacion respecto a la  =
//= licencia de uso, consulte el archivo ./doc/LICENCIA en la distribucion. =
//===========================================================================

#include <stdio.h>
#include <string.h>
#include "core/control/variable.h"

//===========================================================================

VARIABLE_DE_ESTADO::VARIABLE_DE_ESTADO(ENTIDAD *e, const char *nom_variable)
{
    objeto = e;
    _nombre = new char[strlen(nom_variable) + 1];
    if ( ! _nombre ) {
        fprintf(stderr, "<VARIABLE_DE_ESTADO> ERROR: Intentando crear una  "
            "pinche cadenita!\n");
        fflush(stderr);
        ref = NULL;
        e = NULL;
        return;
    }
    strcpy(_nombre, nom_variable);

    if ( !e ) {
        ref = NULL;
        fprintf(stderr, "<VARIABLE_DE_ESTADO> ERROR: Intentando acceder una "
            "ENTIDAD no valida!\n");
        fflush(stderr);
        return;
    }

    if ( !e->consultar_variable(nom_variable, tipo_variable, &ref) ) {
        ref = NULL;
        fprintf(stderr, "<VARIABLE_DE_ESTADO> ERROR: No se puede accesar la "
            "variable \"%s\" dentro del objeto \"%s\"!\n", nom_variable,
            e->nombre());
        fflush(stderr);
        return;
    }
}

VARIABLE_DE_ESTADO::~VARIABLE_DE_ESTADO()
{
    if ( _nombre ) {
        delete _nombre;
    }
}

BOOLEAN
VARIABLE_DE_ESTADO::soy_yo(ENTIDAD *e, char *nom_variable)
{
    if ( e == objeto && strcmp(nom_variable, _nombre) == 0 ) {
        return TRUE;
    }
    return FALSE;
}

BOOLEAN
VARIABLE_DE_ESTADO::es_valida(void)
{
    if ( !ref ) {
        fprintf(stderr, "<VARIABLE_DE_ESTADO> No hay referencia.\n");
        return FALSE; 
    }
    if ( !objeto ) {
        fprintf(stderr, "<VARIABLE_DE_ESTADO> No hay objeto.\n");
        return FALSE; 
    }
    return TRUE;
}

double
VARIABLE_DE_ESTADO::evaluar_float(void)
{
    void *ref;
    int tipo;

    if ( objeto->consultar_variable(_nombre, tipo, &ref) &&
         tipo == T_FLOAT ) {
        return *((double *)ref);
    }
    else {
        fprintf(stderr, "<VARIABLE_DE_ESTADO> - ERROR: "
            "No puedo evaluar el flotante \"%s\" del objeto \"%s\".\n",
            _nombre, objeto->nombre());
        return 0;
    }
}

char *
VARIABLE_DE_ESTADO::evaluar_cadena(void)
{
    // OJO: DEBE MEJORARSE PARA USAR `consultar_variable`
    return (char *)ref;
}

VECTOR
VARIABLE_DE_ESTADO::evaluar_vector(void)
{
    void *ref;
    static VECTOR n(0, 0, 0);
    int tipo;

    if ( objeto->consultar_variable(_nombre, tipo, &ref) &&
         tipo == T_VECTOR ) {
        return *((VECTOR *)ref);
    }
    else {
        fprintf(stderr, "<VARIABLE_DE_ESTADO> - ERROR: "
            "No puedo evaluar el vector \"%s\" del objeto \"%s\".\n",
            _nombre, objeto->nombre());
        fprintf(stderr,"El tipo reportado es %d.\n", tipo); fflush(stderr);
        return n;
    }
}

void
VARIABLE_DE_ESTADO::actualizar_vector(VECTOR new_val)
{
    //printf("<VARIABLE_DE_ESTADO> Actualizo la variable \"%s\" del objeto "
    //       "\"%s\"!\n", _nombre, objeto->nombre());
    //fflush(stdout);
    objeto->actualizar_variable(_nombre, T_VECTOR, &new_val);
    objeto->propagar_cambios();
}

void
VARIABLE_DE_ESTADO::actualizar_float(double new_val)
{
    //printf("<VARIABLE_DE_ESTADO> Actualizo la variable \"%s\" del objeto "
    //       "\"%s\"!\n", _nombre, objeto->nombre());
    //fflush(stdout);
    objeto->actualizar_variable(_nombre, T_FLOAT, &new_val);
    objeto->propagar_cambios();
}

//===========================================================================
//= EOF                                                                     =
//===========================================================================

---

Este archivo HTML ha sido generado automáticamente a partir del código fuente AQUYNZA. NO LO EDITE. Para mayor información contacte al autor.