devEvrMapping.cpp

Go to the documentation of this file.

/*************************************************************************\
* Copyright (c) 2010 Brookhaven Science Associates, as Operator of
*     Brookhaven National Laboratory.
* mrfioc2 is distributed subject to a Software License Agreement found
* in file LICENSE that is included with this distribution.
\*************************************************************************/
/*
 * Author: Michael Davidsaver <mdavidsaver@gmail.com>
 */

#include <cstdlib>
#include <cstring>

#include <epicsExport.h>
#include <dbDefs.h>
#include <dbAccess.h>
#include <devSup.h>
#include <recGbl.h>
#include <devLib.h> // For S_dev_*
#include <errlog.h>

#include <longoutRecord.h>
#include <stringinRecord.h>

#include "devObj.h"
#include "evr/evr.h"
#include "linkoptions.h"

#include <stdexcept>
#include <string>

/***************** Mapping record ******************/

struct map_priv {
    EVR* card;
    epicsUInt32 last_code;
    char obj[30];
    int func;
};

static const
linkOptionEnumType funcEnum[] = {
    {"FIFO",     127},
    //{"Latch TS",     126}, // Not supported
    {"Blink",    125},
    {"Forward",  124},
    {"Stop Log", 123},
    {"Log",      122},
    {"Heartbeat",101},
    {"Reset PS", 100},
    {"TS reset",  99},
    {"TS tick",   98},
    {"Shift 1",   97},
    {"Shift 0",   96},
    {NULL,0}
};

static const
linkOptionDef eventdef[] = 
{
    linkString  (map_priv, obj , "OBJ"  , 1, 0),
    linkEnum    (map_priv, func, "Func"  , 1, 0, funcEnum),
    linkOptionEnd
};

static long add_lo(dbCommon* praw)
{
    longoutRecord *prec=(longoutRecord*)praw;
    try {
        assert(prec->out.type==INST_IO);

        mrf::auto_ptr<map_priv> priv(new map_priv);

        if (linkOptionsStore(eventdef, priv.get(), prec->out.value.instio.string, 0))
            throw std::runtime_error("Couldn't parse link string");

        priv->last_code=prec->val;

        mrf::Object *O=mrf::Object::getObject(priv->obj);
        if(!O) {
            errlogPrintf("%s: failed to find object '%s'\n", praw->name, priv->obj);
            return S_db_errArg;
        }
        priv->card=dynamic_cast<EVR*>(O);
        if(!priv->card) {
            errlogPrintf("%s: object '%s' is not an EVR\n", praw->name, priv->obj);
            return S_db_errArg;
        }

        if(priv->last_code>0 && priv->last_code<=255)
            priv->card->specialSetMap(priv->last_code,priv->func,true);

        praw->dpvt = (void*)priv.release();

        return 0;

    } catch(std::exception& e) {
        recGblRecordError(S_db_noMemory, (void*)prec, e.what());
        (void)recGblSetSevr(praw, WRITE_ALARM, INVALID_ALARM);
        return S_db_noMemory;
    }
}

static inline
long del_lo(dbCommon* praw)
{
    try {
        mrf::auto_ptr<map_priv> priv(static_cast<map_priv*>(praw->dpvt));

        if (!priv.get())
            return -2;

        if(priv->last_code>0 && priv->last_code<=255)
            priv->card->specialSetMap(priv->last_code,priv->func,false);

        return 0;
    } catch(std::exception& e) {
        recGblRecordError(S_db_noMemory, (void*)praw, e.what());
    }
    (void)recGblSetSevr(praw, WRITE_ALARM, INVALID_ALARM);
    return S_db_noMemory;
}

static long write_lo(longoutRecord* prec)
{
    try {
        map_priv* priv=static_cast<map_priv*>(prec->dpvt);

        if (!priv)
            return -2;

        epicsUInt32 func=priv->func;

        epicsUInt32 code=prec->val;

        if(code > 255) {
            (void)recGblSetSevr((dbCommon *)prec, WRITE_ALARM, INVALID_ALARM);
            return 0;
        }

        if( code==priv->last_code )
            return 0;

        if(priv->last_code>0 && priv->last_code<=255)
            priv->card->specialSetMap(priv->last_code,func,false);

        priv->card->specialSetMap(code,func,true);


        priv->last_code=code;

        return 0;

    } catch(std::exception& e) {
        prec->val=0;
        recGblRecordError(S_db_noMemory, (void*)prec, e.what());
        (void)recGblSetSevr((dbCommon *)prec, WRITE_ALARM, INVALID_ALARM);
        return S_db_noMemory;
    }
}

/********************** DSETs ***********************/

extern "C" {

dsxt dxtLOEVRMap={&add_lo,&del_lo};
static
common_dset devLOEVRMap = {
    5,
    NULL,
    dset_cast(&init_dset<&dxtLOEVRMap>),
    (DEVSUPFUN) init_record_empty,
    NULL,
    (DEVSUPFUN) write_lo,
    NULL
};
epicsExportAddress(dset,devLOEVRMap);

};