EPSIAE » eneraptor

#include "scenariolist.h"

#include "devicelist.h"

#include "../logics/conditions.h"

#include <mxml.h>

//extern device *hDevice;   //device list

short NUMBER_OF_SCENARIOS = 0;

int getOperatorType(char *val)

{

    if(0 == strcmp(val, "conditions"))

        return TOP_NODE;

    else if(0 == strcmp(val, "and"))

        return AND;

    else if(0 == strcmp(val, "nand"))

        return NOT_AND;

    else if(0 == strcmp(val, "or"))

        return OR;

    else if(0 == strcmp(val, "xor"))

        return XOR;

    else if(0 == strcmp(val, "greater"))

        return GREATER;

    else if(0 == strcmp(val, "greater_or_equal"))

        return GREATER_OR_EQUAL;

    else if(0 == strcmp(val, "less"))

        return LESS;

    else if(0 == strcmp(val, "less_or_equal"))

        return LESS_OR_EQUAL;

    else

        printf("Unidentified condition \"%s\".\n", val);

    return NULL;

    /**/

}

cond_lst *getScenCond(mxml_node_t *node_t)

{

    cond_lst *cl, *head;

    head = NULL;

    while(node_t) // same level

    {

        //printf("operator name: %s\n", node_t->value.opaque);

        //*

        cl = (cond_lst *)malloc(sizeof(cond_lst));

        //** //possible BUG, random pointer values (uncomment this block)

        cl->OPERATOR_TYPE = NULL;

        cl->dev = NULL;

        cl->nxt_lst = NULL;

        cl->sub_lst = NULL;

        cl->value = NULL;

        /**/

        (*cl).OPERATOR_TYPE = getOperatorType(node_t->value.opaque);

        //printf("cl->OPERATOR_TYPE %d\n", cl->OPERATOR_TYPE);

        if(node_t->child)

        {

            //printf("create child\n");

            cl->sub_lst = getScenCond(node_t->child);

        }

        else

        {

            if(mxmlElementGetAttr(node_t, "inDeviceId"))

            {

                cl->dev = (char *)malloc(sizeof(node_t->value.element.attrs->value)*strlen(mxmlElementGetAttr(node_t, "inDeviceId")));

                cl->dev = mxmlElementGetAttr(node_t, "inDeviceId");

                (*cl).value = atoi(mxmlElementGetAttr(node_t, "val"));

            }

        }

        node_t=node_t->next;

        cl->nxt_lst = head;

        head = cl;

    }

    return cl;

}

scenario *setNewScenarioList(device *dev) // ony called on startup

{

    //TODO vedno preverjaj, ce so vse naprave, ki jih uporabljas, prisotne! npr. termometer mora biti v device list-u

    scenario *curr, *head;

    head = NULL;

    FILE *fp;

    mxml_node_t *tree, *node;

        if(fp = fopen("./scenariotree.xml", "r")) //TODO !hardcoded

        {

        //printf("File read!\n");

        //TODO replace with syslog error

        }

        else

        printf("Error file not found!");

        //TODO replace with syslog error

        tree = mxmlLoadFile(NULL, fp, MXML_IGNORE_CALLBACK);

        node = tree;

        fclose(fp);

    //getting to the correct level of the xml tree (descend 2 levels) TODO add null check

    node=node->child->child;

    // fill the list of scenarios

    while(node!=NULL)

    {

        curr = (scenario *)malloc(sizeof(scenario));

        /// char    *scen_id;

        curr->scen_id = (char *)malloc(sizeof(node->value.element.attrs->value)*strlen(mxmlElementGetAttr(node, "id")));

        curr->scen_id = mxmlElementGetAttr(node, "id"); // possible BUG, perhaps use strcpy here!

        //printf("id:\t %s\n", curr->scen_id );

        /// char    *scen_name;

        curr->scen_name = (char *)malloc(sizeof(node->value.element.attrs->value)*strlen(mxmlElementGetAttr(node, "name")));

        curr->scen_name = mxmlElementGetAttr(node, "name"); // possible BUG, perhaps use strcpy here!

        //printf("scenario name:\t %s\n", curr->scen_name);

        // getting data for individual scenario

        mxml_node_t *mxml_scenarioNode;

        mxml_scenarioNode=node->child;

        /// char    *inDevice_id;

        curr->inDevice_id = (char *)malloc(sizeof(mxml_scenarioNode->value.element.attrs->value)*strlen(mxmlElementGetAttr(mxml_scenarioNode, "id")));

        curr->inDevice_id = mxmlElementGetAttr(mxml_scenarioNode, "id");

            mxml_scenarioNode = mxml_scenarioNode->next;

        curr->inDev = getDevice(dev, curr->inDevice_id);

        //printf("inDev:\t %s\n", curr->inDev->name );

        /// char    *outDevice_id;

        curr->outDevice_id = (char *)malloc(sizeof(mxml_scenarioNode->value.element.attrs->value)*strlen(mxmlElementGetAttr(mxml_scenarioNode, "id")));

        curr->outDevice_id = mxmlElementGetAttr(mxml_scenarioNode, "id");

            mxml_scenarioNode = mxml_scenarioNode->next;

        //printf("outDevice_id:\t %s\n", curr->outDevice_id );

        /// int     func;

        if(0==strcmp("static",mxmlElementGetAttr(mxml_scenarioNode, "func")))

            curr->func = FUNCTION_STATIC;

        else if(0==strcmp("linear",mxmlElementGetAttr(mxml_scenarioNode, "func")))

            curr->func = FUNCTION_LINEAR;

        else if(0==strcmp("logarithmic",mxmlElementGetAttr(mxml_scenarioNode, "func")))

            curr->func = FUNCTION_LOGARITHMIC;

        else if(0==strcmp("quadratic",mxmlElementGetAttr(mxml_scenarioNode, "func")))

            curr->func = FUNCTION_QUADRATIC;

        else

            curr->func = FUNCTION_UNKNOWN;

            mxml_scenarioNode = mxml_scenarioNode->next;

        //printf("func:\t %s\n", curr->func );

        /// int     idleChkItv;

        curr->idleChkItv = atoi(mxmlElementGetAttr(mxml_scenarioNode, "val"));

            mxml_scenarioNode= mxml_scenarioNode->next;

        //printf("idleChkItv:\t %d s\n", curr->idleChkItv );

        /// int     actvChkItv;

        curr->actvChkItv = atoi(mxmlElementGetAttr(mxml_scenarioNode, "val"));

            mxml_scenarioNode= mxml_scenarioNode->next;

        //printf("actvChkItv:\t %d s\n", curr->actvChkItv );

        /// float   alpha;

        curr->alpha = atof(mxmlElementGetAttr(mxml_scenarioNode, "val"));

            mxml_scenarioNode= mxml_scenarioNode->next;

        //printf("actvChkItv:\t %f s\n", curr->alpha );

        /// char    *params_val;    // TBD kaj je to?

        curr->params_val = (char *)malloc(sizeof(mxml_scenarioNode->value.element.attrs->value)*strlen(mxmlElementGetAttr(mxml_scenarioNode, "val")));

        curr->params_val = mxmlElementGetAttr(mxml_scenarioNode, "val");

            mxml_scenarioNode = mxml_scenarioNode->next;

        //printf("params_val:\t %s\n", curr->params_val );

        /// int     minval;

        curr->minval = atoi(mxmlElementGetAttr(mxml_scenarioNode, "minval"));

        //printf("minval:\t %d\n", curr->minval );

        /// int     maxval;

        curr->maxval = atoi(mxmlElementGetAttr(mxml_scenarioNode, "maxval"));

        //printf("maxval:\t %d\n", curr->maxval );

        /// int     optval;

        curr->optval = atoi(mxmlElementGetAttr(mxml_scenarioNode, "optval"));

        //printf("optval:\t %d\n", curr->optval );

        /// int     tolval;

        curr->tolval = atoi(mxmlElementGetAttr(mxml_scenarioNode, "tolerance"));

            mxml_scenarioNode = mxml_scenarioNode->next;

        //printf("tolval:\t %d\n", curr->tolval );

        /// char    *action;

        curr->action = (char *)malloc(sizeof(mxml_scenarioNode->value.element.attrs->value)*strlen(mxmlElementGetAttr(mxml_scenarioNode, "act")));

        curr->action = mxmlElementGetAttr(mxml_scenarioNode, "act");

            mxml_scenarioNode = mxml_scenarioNode->next;

        //printf("action:\t %s\n", curr->action );

        /// char    *param;

        curr->param = (char *)malloc(sizeof(mxml_scenarioNode->value.element.attrs->value)*strlen(mxmlElementGetAttr(mxml_scenarioNode, "par")));

        curr->param = mxmlElementGetAttr(mxml_scenarioNode, "par");

            mxml_scenarioNode = mxml_scenarioNode->next;

        //printf("param:\t %s\n", curr->param );

        /// conditions

        curr->cond_l = getScenCond(mxml_scenarioNode);

        //printf("----------------------------------------------\n");

        curr->running = 0;

        // done

        // moving to the next XML node

        node=node->next;

        NUMBER_OF_SCENARIOS++  ;

        /// struct  scenario_s *nxt;

        curr->nxt = head;

        head = curr;

    }

    /*

    hScenario=head; // handle to scenario list

    head=hScenario;

    printf("hScenario %d\n", hScenario);

    printf("head %d\n", head);

    while(head)

    {

        printf("scenario id %s\n", head->scen_id);

        printf("scenario name %s\n", head->scen_name);

        head=head->nxt;

    }

    //delete obsolete xml tree

    mxmlDelete(tree);

    mxmlDelete(node);

    /**/

    return head;

}

int getNumberOfScenarios()

{

    return NUMBER_OF_SCENARIOS;

}

scenario *getAvailableScenario(scenario *scen)

{

    while(scen)

    {

        if(!scen->running)

        {

            scen->running = 1;

            printf("activating scenario %s with status %d\n", scen->scen_id, scen->running);

            return scen;

        }

        scen=scen->nxt;

    }

    return NULL;

}

/*

void updateDeviceList(device_d *deviceList)

{

}

/**/