plc/plc.cpp

Go to the documentation of this file.

#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <math.h>

#include "plc.h"

CLASS *plc::oclass = NULL; 
plc *plc::defaults = NULL; 

plc::plc(MODULE *mod)
{
    // first time init
    if (oclass==NULL)
    {
        // register the class definition
        oclass = gl_register_class(mod,"plc",PC_BOTTOMUP);

        // publish the class properties
        if (gl_publish_variable(oclass,
            PT_char1024,"source",PADDR(source),
            PT_object,"network",PADDR(network),
            NULL)<1) GL_THROW("unable to publish properties in %s",__FILE__);

        // set defaults
        strcpy(source,"");
        controller = NULL;
        network = NULL;
        defaults = this;
    }
}

int plc::create()
{
    // copy the defaults
    memcpy(this,defaults,sizeof(*this));

    // set object specific defaults
    controller = new machine;
    return 1;
}

int plc::init(OBJECT *parent)
{
    if (strcmp(source,"")==0 && parent!=NULL) /* default source */
        sprintf(source,"%s.plc",parent->oclass->name);
    if (controller->compile(source)<0)
        GL_THROW("%s: PLC compile failed", source);
    if (controller->init(parent)<0)
        GL_THROW("%s: PLC init failed", source);
    parent->flags |= OF_HASPLC; /* enable external PLC flag */
    
    if (network)
        controller->connect(OBJECTDATA(network,comm));
    gl_verbose("machine %x has connected to network '%s'", controller, network->name?network->name:"anonymous");

    return 1; // return 0 on failure
}

TIMESTAMP plc::sync(TIMESTAMP t0, TIMESTAMP t1)
{
    if (t0>0)
    {
        int dt = controller->run((double)(t1-t0)/TS_SECOND)*TS_SECOND;
        if (dt<0)
            return TS_INVALID;
        else
            return t1+dt;
    }
    else
        return t1;
}

// IMPLEMENTATION OF CORE LINKAGE
EXPORT int create_plc(OBJECT **obj, OBJECT *parent)
{
    *obj = gl_create_object(plc::oclass,sizeof(plc));
    if (*obj!=NULL)
    {
        plc *my = OBJECTDATA(*obj,plc);
        gl_set_parent(*obj,parent);
        my->create();
        return 1;
    }
    return 0;
}

EXPORT int init_plc(OBJECT *obj)
{
    if (obj!=NULL)
    {
        plc *my = OBJECTDATA(obj,plc);
        return my->init(obj->parent);
    }
    return 0;
}

EXPORT TIMESTAMP sync_plc(OBJECT *obj, TIMESTAMP t0)
{
    TIMESTAMP t1 = OBJECTDATA(obj,plc)->sync(obj->clock,t0);
    obj->clock = t0;
    return t1;
}

---

GridLAB-D^TM Version 1.0

An open-source project initiated by the US Department of Energy