network/capbank.cpp

Go to the documentation of this file.

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

// capbank CLASS FUNCTIONS
CLASS *capbank::oclass = NULL;
CLASS *capbank::pclass = NULL;
capbank *capbank::defaults = NULL;

capbank::capbank(MODULE *mod) : link(mod)
{
    // TODO: set default values
    // first time init
    if (oclass==NULL)
    {
        // register the class definition
        capbank_class = oclass = gl_register_class(mod,"capbank",PC_BOTTOMUP);
        if (oclass==NULL)
            GL_THROW("unable to register object class implemented by %s",__FILE__);

        // publish the class properties
        if (gl_publish_variable(oclass,
            PT_double, "KVARrated", PADDR(KVARrated),
            PT_double, "Vrated", PADDR(Vrated),
            PT_enumeration,"state",PADDR(state),
                PT_KEYWORD,"CAPS_IN",CAPS_IN,
                PT_KEYWORD,"CAPS_OUT",CAPS_OUT,
            PT_object, "CTlink", PADDR(CTlink),
            PT_object, "PTnode", PADDR(PTnode),
            PT_double, "VARopen", PADDR(VARopen),
            PT_double, "VARclose", PADDR(VARclose),
            PT_double, "Vopen", PADDR(Vopen),
            PT_double, "Vclose", PADDR(Vclose),
            NULL)<1) GL_THROW("unable to publish properties in %s",__FILE__);

        // setup the default values
        defaults = this;
    }
}

int capbank::create() 
{
    int result = link::create();
    memcpy(this,defaults,sizeof(*this));
    return result;
}

TIMESTAMP capbank::sync(TIMESTAMP t0) 
{
    node *f = OBJECTDATA(from,node);
    node *t = OBJECTDATA(to,node);
    if (f==NULL || t==NULL)
        return TS_NEVER;
    // TODO: update capbank state
    return link::sync(t0);
}

// IMPLEMENTATION OF CORE LINKAGE: capbank

EXPORT int create_capbank(OBJECT **obj, OBJECT *parent)
{
    *obj = gl_create_object(capbank_class,sizeof(capbank));
    if (*obj!=NULL)
    {
        capbank *my = OBJECTDATA(*obj,capbank);
        gl_set_parent(*obj,parent);
        my->create();
        return 1;
    }
    return 0;
}

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

---

GridLAB-D^TM Version 1.0

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