linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added EPICS status code translation to epicsadapter

Browse Source
This commit is contained in:
koennecke
2014-11-03 11:29:35 +01:00
parent dadb71245a
commit 4e148ffcaf
1 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
epicsadapter.c
View File

@ -15,6 +15,13 @@
#include <epicsThread.h>
#include <messagepipe.h>
/*
One of those: alarmString.h cannot be doubly included into the
same application
*/
/*#include <alarmString.h> */
extern char *epicsAlarmConditionStrings[];
/*
* we have a SICS tasks which polls EPICS regularly.
*/
@ -428,7 +435,24 @@ static hdbCallbackReturn EPICSWriteCallback(pHdb currentNode,
/*==============================================================================================
SICS Hydraulics
================================================================================================*/
static int EpicsConvertAlarm(pSICSOBJ ccmd, SConnection * con,
Hdb * cmdNode, Hdb * par[], int nPar)
{
pHdb node = NULL;
char value[256];
if(nPar < 1){
SCWrite(con,"ERROR: need alarm code to convert", eError);
return 0;
}
snprintf(value,sizeof(value),"%s", epicsAlarmConditionStrings[par[0]->value.v.intValue]);
SCWrite(con,value,eValue);
return 1;
}
/*----------------------------------------------------------------------------------------------*/
int MakeEpicsAdapter(SConnection * con, SicsInterp * sics,
void *object, int argc, char *argv[])
{
@ -449,6 +473,10 @@ int MakeEpicsAdapter(SConnection * con, SicsInterp * sics,
AddSICSHdbPar(child, "node", usMugger, MakeHdbText(""));
AddSICSHdbPar(child, "pvname", usMugger, MakeHdbText(""));
child = AddSICSHdbPar(self->objectNode,
"convertalarm", usSpy, MakeSICSFunc(EpicsConvertAlarm));
AddSICSHdbPar(child, "stat", usSpy, MakeHdbInt(1.));
AddCommand(pServ->pSics, "epicsadapter", InterInvokeSICSOBJ, KillSICSOBJ, self);
return 1;
}