powerflow/init.cpp

// $Id: init.cpp,v 1.29 2008/02/04 23:08:12 natet Exp $

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

#include "gridlabd.h"

#define _POWERFLOW_CPP
#include "powerflow.h"
#undef  _POWERFLOW_CPP

#include "capacitor.h"
#include "fuse.h"
#include "line.h"
#include "link.h"
#include "load.h"
#include "meter.h"
#include "node.h"
#include "regulator.h"
#include "relay.h"
#include "transformer.h"

bool show_matrix_values = 0;

EXPORT CLASS *init(CALLBACKS *fntable, MODULE *module, int argc, char *argv[])
{
    if (!set_callback(fntable)) {
        errno = EINVAL;
        return NULL;
    }
    
    // this variable controls whether matrices are printed out
    gl_global_create("show_matrix_values",PT_bool,&show_matrix_values,NULL);

    // register each object class by creating default instance
    CLASS *first = (new node(module))->oclass;
    new link(module);
    new capacitor(module);
    new fuse(module);
    new meter(module);
    new line(module);
    new line_spacing(module);
    new overhead_line(module);
    new underground_line(module);
    new overhead_line_conductor(module);
    new underground_line_conductor(module);
    new line_configuration(module);
    new relay(module);
    new transformer_configuration(module);
    new transformer(module);
    new load(module);
    new regulator_configuration(module);
    new regulator(module);
    new triplex_node(module);
    new triplex_line(module);
    new triplex_line_configuration(module);
    new triplex_line_conductor(module);

    /* always return the first class registered */
    return first;
}


CDECL int do_kill()
{
    /* if global memory needs to be released, this is a good time to do it */
    return 0;
}

EXPORT int check()
{
    /* check each link to make sure it has a node at either end */
    FINDLIST *list = gl_find_objects(FL_NEW,FT_MODULE,SAME,"powerflow",NULL);
    OBJECT *obj=NULL;

    /* check from/to info on links */
    while (obj=gl_find_next(list,obj))
    {
        if (gl_object_isa(obj,"link"))
        {
            link *pLink = OBJECTDATA(obj,link);
            OBJECT *from = pLink->from;
            OBJECT *to = pLink->to;
            if (from==NULL)
                gl_error("link %s (%s:%d) from object is not specified", pLink->get_name(), pLink->oclass->name, pLink->get_id());
            else if (!gl_object_isa(from,"node"))
                gl_error("link %s (%s:%d) from object is not a node", pLink->get_name(), pLink->oclass->name, pLink->get_id());
            if (to==NULL)
                gl_error("link %s (%s:%d) to object is not specified", pLink->get_name(), pLink->oclass->name, pLink->get_id());
            else if (!gl_object_isa(to,"node"))
                gl_error("link %s (%s:%d) to object is not a node", pLink->get_name(), pLink->oclass->name, pLink->get_id());
        }
    }

    return 0;
}

---

GridLAB-D^TM Version 1.0

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