VILLASnode/server/src/opal.c

/** Node type: OPAL (AsyncApi)
 *
 * This file implements the opal subtype for nodes.
 *
 * @author Steffen Vogel <stvogel@eonerc.rwth-aachen.de>
 * @copyright 2014-2015, Institute for Automation of Complex Power Systems, EONERC
 *   This file is part of S2SS. All Rights Reserved. Proprietary and confidential.
 *   Unauthorized copying of this file, via any medium is strictly prohibited.
 *********************************************************************************/

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

#include "opal.h"
#include "utils.h"

static struct opal_global *og = NULL;

/** List of all opal nodes */
static struct list opals;

int opal_init(int argc, char *argv[], struct settings *set)
{ INDENT
	int err;

	if (argc != 4)
		return -1;

	og = alloc(sizeof(struct opal_global));

	pthread_mutex_init(&og->lock, NULL);

	og->async_shmem_name = argv[1];
	og->async_shmem_size = atoi(argv[2]);
	og->print_shmem_name = argv[3];

	/* Enable the OpalPrint function. This prints to the OpalDisplay. */
	err = OpalSystemCtrl_Register(og->print_shmem_name);
	if (err != EOK)
		error("OpalPrint() access not available (%d)", err);

	/* Open Share Memory created by the model. */
	err = OpalOpenAsyncMem(og->async_shmem_size, og->async_shmem_name);
	if (err != EOK)
		error("Model shared memory not available (%d)", err);

	err = OpalGetAsyncCtrlParameters(&og->params, sizeof(Opal_GenAsyncParam_Ctrl));
	if (err != EOK)
		error("Could not get OPAL controller parameters (%d)", err);

	/* Get list of Send and RecvIDs */
	err = OpalGetNbAsyncSendIcon(&og->send_icons);
	if (err != EOK)
		error("Failed to get number of send blocks (%d)", err);
	err = OpalGetNbAsyncRecvIcon(&og->recv_icons);
	if (err != EOK)
		error("Failed to get number of recv blocks (%d)", err);

	og->send_ids = alloc(og->send_icons * sizeof(int));
	og->recv_ids = alloc(og->recv_icons * sizeof(int));

	err = OpalGetAsyncSendIDList(og->send_ids, og->send_icons * sizeof(int));
	if (err != EOK)
		error("Failed to get list of send ids (%d)", err);
	err = OpalGetAsyncRecvIDList(og->recv_ids, og->recv_icons * sizeof(int));
	if (err != EOK)
		error("Failed to get list of recv ids (%d)", err);

	info("Started as OPAL Asynchronous process");
	info("This is Simulator2Simulator Server (S2SS) %s (built on %s, %s)",
		VERSION, __DATE__, __TIME__);

	opal_print_global(og);

	return 0;
}

int opal_deinit()
{ INDENT
	int err;

	if (!og)
		return 0;

	err = OpalCloseAsyncMem(og->async_shmem_size, og->async_shmem_name);
	if (err != EOK)
		error("Failed to close shared memory area (%d)", err);

	debug(4, "Closing OPAL shared memory mapping");

	err = OpalSystemCtrl_UnRegister(og->print_shmem_name);
	if (err != EOK)
		error("Failed to close shared memory for system control (%d)", err);

	pthread_mutex_destroy(&og->lock);

	free(og->send_ids);
	free(og->recv_ids);
	free(og);

	og = NULL;

	return 0;
}

int opal_print_global(struct opal_global *g)
{ INDENT
	debug(2, "Controller ID: %u", og->params.controllerID);
	
	char *sbuf = alloc(og->send_icons * 5);
	char *rbuf = alloc(og->recv_icons * 5);

	for (int i = 0; i < og->send_icons; i++)
		strcatf(&sbuf, "%u ", og->send_ids[i]);
	for (int i = 0; i < og->recv_icons; i++)
		strcatf(&rbuf, "%u ", og->recv_ids[i]);

	debug(2, "Send Blocks: %s",    sbuf);
	debug(2, "Receive Blocks: %s", rbuf);
	
	free(sbuf);
	free(rbuf);

	debug(2, "Control Block Parameters:");
	for (int i = 0; i < GENASYNC_NB_FLOAT_PARAM; i++)
		debug(2, "FloatParam[]%u] = %f", i, og->params.FloatParam[i]);
	for (int i = 0; i < GENASYNC_NB_STRING_PARAM; i++)
		debug(2, "StringParam[%u] = %s", i, og->params.StringParam[i]);

	return 0;
}

int opal_parse(config_setting_t *cfg, struct node *n)
{
	struct opal *o = alloc(sizeof(struct opal));

	/* Checks */
	if (n->combine != 1) {
		config_setting_t *cfg_combine = config_setting_get_member(cfg, "combine");
		cerror(cfg_combine, "The OPAL-RT node type does not support combining!");
	}

	config_setting_lookup_int(cfg, "send_id", &o->send_id);
	config_setting_lookup_int(cfg, "recv_id", &o->recv_id);
	config_setting_lookup_bool(cfg, "reply", &o->reply);

	n->opal = o;
	n->cfg = cfg;

	list_push(&opals, o);

	return 0;
}

char * opal_print(struct node *n)
{
	struct opal *o = n->opal;
	char *buf = NULL;

	/** @todo: Print send_params, recv_params */

	return strcatf(&buf, "send_id=%u, recv_id=%u, reply=%u",
		o->send_id, o->recv_id, o->reply);
}

int opal_open(struct node *n)
{
	struct opal *o = n->opal;

	if (!og)
		error("The server was not started as an OPAL asynchronous process!");

	/* Search for valid send and recv ids */
	int sfound = 0, rfound = 0;
	for (int i = 0; i < og->send_icons; i++)
		sfound += og->send_ids[i] == o->send_id;
	for (int i = 0; i < og->send_icons; i++)
		rfound += og->send_ids[i] == o->send_id;

	if (!sfound)
		error("Invalid send_id '%u' for node '%s'", o->send_id, n->name);
	if (!rfound)
		error("Invalid recv_id '%u' for node '%s'", o->recv_id, n->name);

	/* Get some more informations and paramters from OPAL-RT */
	OpalGetAsyncSendIconMode(&o->mode, o->send_id);
	OpalGetAsyncSendParameters(&o->send_params, sizeof(Opal_SendAsyncParam), o->send_id);
	OpalGetAsyncRecvParameters(&o->recv_params, sizeof(Opal_RecvAsyncParam), o->recv_id);

	return 0;
}

int opal_close(struct node *n)
{
	return 0;
}

int opal_read(struct node *n, struct msg *pool, int poolsize, int first, int cnt)
{
	struct opal *o = n->opal;

	int state, len, ret;
	unsigned id;

	struct msg *m = &pool[first % poolsize];

	double data[MSG_VALUES];

	/* This call unblocks when the 'Data Ready' line of a send icon is asserted. */
	do {
		ret = OpalWaitForAsyncSendRequest(&id);
		if (ret != EOK) {
			state = OpalGetAsyncModelState();
			if ((state == STATE_RESET) || (state == STATE_STOP))
				error("OpalGetAsyncModelState(): Model stopped or resetted!");

			return -1; // FIXME: correct return value
		}
	} while (id != o->send_id);

	/* No errors encountered yet */
	OpalSetAsyncSendIconError(0, o->send_id);

	/* Get the size of the data being sent by the unblocking SendID */
	OpalGetAsyncSendIconDataLength(&len, o->send_id);
	if (len > sizeof(data)) {
		warn("Ignoring the last %u of %u values for OPAL node '%s' (send_id=%u).",
		len / sizeof(double) - MSG_VALUES, len / sizeof(double), n->name, o->send_id);

		len = sizeof(data);
	}

	/* Read data from the model */
	OpalGetAsyncSendIconData(data, len, o->send_id);

	m->sequence = htons(o->seq_no++);
	m->length = len / sizeof(double);

	for (int i = 0; i < m->length; i++)
		m->data[i].f = (float) data[i]; /* OPAL provides double precission */

	/* This next call allows the execution of the "asynchronous" process
	 * to actually be synchronous with the model. To achieve this, you
	 * should set the "Sending Mode" in the Async_Send block to
	 * NEED_REPLY_BEFORE_NEXT_SEND or NEED_REPLY_NOW. This will force
	 * the model to wait for this process to call this
	 * OpalAsyncSendRequestDone function before continuing. */
	if (o->reply)
		OpalAsyncSendRequestDone(o->send_id);

	/* Before continuing, we make sure that the real-time model
	 * has not been stopped. If it has, we quit. */
	state = OpalGetAsyncModelState();
	if ((state == STATE_RESET) || (state == STATE_STOP))
		error("OpalGetAsyncModelState(): Model stopped or resetted!");

	return 1;
}

int opal_write(struct node *n, struct msg *pool, int poolsize, int first, int cnt)
{
	struct opal *o = n->opal;

	struct msg *m = &pool[first % poolsize];

	int state;
	int len;
	double data[m->length];

	state = OpalGetAsyncModelState();
	if ((state == STATE_RESET) || (state == STATE_STOP))
		error("OpalGetAsyncModelState(): Model stopped or resetted!");

	OpalSetAsyncRecvIconStatus(m->sequence, o->recv_id);	/* Set the Status to the message ID */
	OpalSetAsyncRecvIconError(0, o->recv_id);		/* Set the Error to 0 */

	/* Get the number of signals to send back to the model */
	OpalGetAsyncRecvIconDataLength(&len, o->recv_id);
	if (len > sizeof(data))
		warn("OPAL node '%s' is expecting more signals (%u) than values in message (%u)",
			n->name, len / sizeof(double), m->length);

	for (int i = 0; i < m->length; i++)
		data[i] = (double) m->data[i].f; /* OPAL expects double precission */

	OpalSetAsyncRecvIconData(data, m->length * sizeof(double), o->recv_id);

	return 1;
}

REGISTER_NODE_TYPE(OPAL_ASYNC, "opal", opal)