/alps/pcitool

#define _PCILIB_VIEW_TRANSFORM_C

#include <stdio.h>

#include <unistd.h>

#include <stdlib.h>

#include <string.h>

#include "version.h"

#include "model.h"

#include "transform.h"

#include "py.h"

#include "error.h"

#include "pci.h"

static pcilib_view_context_t * pcilib_transform_view_init(pcilib_t *ctx, pcilib_view_t view) {

    int err;

    pcilib_view_context_t *view_ctx;

    pcilib_transform_view_description_t *v = (pcilib_transform_view_description_t*)(ctx->views[view]);

    if (v->script) {

	pcilib_access_mode_t mode = 0;

	err = pcilib_py_load_script(ctx, v->script);

	if(err) {

	    pcilib_error("Error (%i), loading script %s", err, v->script);

	    return NULL;

	}

	err = pcilib_py_get_transform_script_properties(ctx, v->script, &mode);

        if(err) {

	    pcilib_error("Error (%i) obtaining properties of transform script %s", err, v->script);

	    return NULL;

	}

	if ((v->base.mode&PCILIB_REGISTER_RW) == 0)

		v->base.mode |= PCILIB_REGISTER_RW;

	v->base.mode &= (~PCILIB_REGISTER_RW)|mode;

	if (!v->read_from_reg) v->read_from_reg = "read_from_register";

	if (!v->write_to_reg) v->write_to_reg = "write_to_register";

    } else if (!ctx->py) {

	v->base.mode &= (~PCILIB_REGISTER_RW);

    }

    view_ctx = (pcilib_view_context_t*)malloc(sizeof(pcilib_view_context_t));

    if (view_ctx) memset(view_ctx, 0, sizeof(pcilib_view_context_t));

    return view_ctx;

}

static int pcilib_transform_view_read(pcilib_t *ctx, pcilib_view_context_t *view_ctx, pcilib_register_value_t regval, pcilib_value_t *val) {

    int err;

    const pcilib_model_description_t *model_info = pcilib_get_model_description(ctx);

    pcilib_transform_view_description_t *v = (pcilib_transform_view_description_t*)(model_info->views[view_ctx->view]);

    err = pcilib_set_value_from_register_value(ctx, val, regval);

    if (err) return err;

    if (v->script)

	err = pcilib_py_eval_func(ctx, v->script, v->read_from_reg, val);

    else 

	err = pcilib_py_eval_string(ctx, v->read_from_reg, val);

    return err;

}

static int pcilib_transform_view_write(pcilib_t *ctx, pcilib_view_context_t *view_ctx, pcilib_register_value_t *regval, const pcilib_value_t *val) {

    int err = 0;

    pcilib_value_t val_copy = {0};

    const pcilib_model_description_t *model_info = pcilib_get_model_description(ctx);

    pcilib_transform_view_description_t *v = (pcilib_transform_view_description_t*)(model_info->views[view_ctx->view]);

    err = pcilib_copy_value(ctx, &val_copy, val);

    if (err) return err;

    if (v->script)

	err = pcilib_py_eval_func(ctx, v->script, v->write_to_reg, &val_copy);

    else

	err = pcilib_py_eval_string(ctx, v->write_to_reg, &val_copy);

    if (err) return err;

    *regval = pcilib_get_value_as_register_value(ctx, &val_copy, &err);

    return err;

}

const pcilib_view_api_description_t pcilib_transform_view_api =

  { PCILIB_VERSION, sizeof(pcilib_transform_view_description_t), pcilib_transform_view_init, NULL, NULL, pcilib_transform_view_read,  pcilib_transform_view_write };