epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

VAL and all related fields are now DBF_DOUBLE instead of DBF_LONG

Browse Source 
SELM, SELN, and SELL are now available. They have same semantics as for fanout record
PREC is now supported.
IVOA and IVOV are no longer present. The record support never used them.
This commit is contained in:
Marty Kraimer
2000-12-11 15:38:49 +00:00
parent 8289ea132c
commit 983ec9605c
2 changed files with 150 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/rec/dfanoutRecord.c
+111 -67
View File
@@ -10,27 +10,29 @@
* -----------------
* .01 1994 mhb Started with longout record to make the data fanout
* .02 May 10, 96 jt Bug Fix
* .03 11SEP2000 mrk LONG=>DOUBLE, add SELL,SELN,SELM
*/
#include <vxWorks.h>
#include <types.h>
#include <stdioLib.h>
#include <lstLib.h>
#include <string.h>
#include <stddef.h>
#include <stdlib.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
#include "dbDefs.h"
#include "epicsPrint.h"
#include <alarm.h>
#include <dbAccess.h>
#include <dbEvent.h>
#include <dbFldTypes.h>
#include <devSup.h>
#include <errMdef.h>
#include <recSup.h>
#include <special.h>
#include "alarm.h"
#include "dbAccess.h"
#include "dbEvent.h"
#include "dbFldTypes.h"
#include "devSup.h"
#include "errMdef.h"
#include "recSup.h"
#include "recGbl.h"
#include "special.h"
#define GEN_SIZE_OFFSET
#include <dfanoutRecord.h>
#include "dfanoutRecord.h"
#undef GEN_SIZE_OFFSET
/* Create RSET - Record Support Entry Table*/
@@ -44,7 +46,7 @@ static long process();
#define get_array_info NULL
#define put_array_info NULL
static long get_units();
#define get_precision NULL
static long get_precision();
#define get_enum_str NULL
#define get_enum_strs NULL
#define put_enum_str NULL
@@ -73,40 +75,38 @@ struct rset dfanoutRSET={
get_alarm_double };
static void alarm();
static void checkAlarms();
static void monitor();
static void push_values();
#define OUT_ARG_MAX 8
static long init_record(pdfanout,pass)
struct dfanoutRecord *pdfanout;
int pass;
static long init_record(struct dfanoutRecord *pdfanout, int pass)
{
if (pass==0) return(0);
recGblInitConstantLink(&pdfanout->sell,DBF_USHORT,&pdfanout->seln);
/* get the initial value dol is a constant*/
if (pdfanout->dol.type == CONSTANT){
if(recGblInitConstantLink(&pdfanout->dol,DBF_LONG,&pdfanout->val))
if(recGblInitConstantLink(&pdfanout->dol,DBF_DOUBLE,&pdfanout->val))
pdfanout->udf=FALSE;
}
return(0);
}
static long process(pdfanout)
struct dfanoutRecord *pdfanout;
static long process(struct dfanoutRecord *pdfanout)
{
long status=0;
long status=0;
if (!pdfanout->pact && pdfanout->omsl == CLOSED_LOOP){
status = dbGetLink(&(pdfanout->dol),DBR_LONG,&(pdfanout->val),0,0);
if(pdfanout->dol.type!=CONSTANT && RTN_SUCCESS(status)) pdfanout->udf=FALSE;
status = dbGetLink(&(pdfanout->dol),DBR_DOUBLE,&(pdfanout->val),0,0);
if(pdfanout->dol.type!=CONSTANT && RTN_SUCCESS(status))
pdfanout->udf=FALSE;
}
pdfanout->pact = TRUE;
recGblGetTimeStamp(pdfanout);
/* Push out the data to all the forward links */
alarm(pdfanout);
dbGetLink(&(pdfanout->sell),DBR_USHORT,&(pdfanout->seln),0,0);
checkAlarms(pdfanout);
push_values(pdfanout);
monitor(pdfanout);
recGblFwdLink(pdfanout);
@@ -114,56 +114,73 @@ static long process(pdfanout)
return(status);
}
static long get_units(paddr,units)
struct dbAddr *paddr;
char *units;
static long get_units(struct dbAddr *paddr,char *units)
{
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
strncpy(units,pdfanout->egu,DB_UNITS_SIZE);
return(0);
}
static long get_graphic_double(paddr,pgd)
struct dbAddr *paddr;
struct dbr_grDouble *pgd;
static long get_precision(struct dbAddr *paddr,long *precision)
{
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
if(paddr->pfield==(void *)&pdfanout->val
|| paddr->pfield==(void *)&pdfanout->hihi
|| paddr->pfield==(void *)&pdfanout->high
|| paddr->pfield==(void *)&pdfanout->low
|| paddr->pfield==(void *)&pdfanout->lolo){
if(fieldIndex == dfanoutRecordVAL
|| fieldIndex == dfanoutRecordHIHI
|| fieldIndex == dfanoutRecordHIGH
|| fieldIndex == dfanoutRecordLOW
|| fieldIndex == dfanoutRecordLOLO
|| fieldIndex == dfanoutRecordHOPR
|| fieldIndex == dfanoutRecordLOPR) {
*precision = pdfanout->prec;
} else {
recGblGetPrec(paddr,precision);
}
return(0);
}
static long get_graphic_double(struct dbAddr *paddr,struct dbr_grDouble *pgd)
{
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
if(fieldIndex == dfanoutRecordVAL
|| fieldIndex == dfanoutRecordHIHI
|| fieldIndex == dfanoutRecordHIGH
|| fieldIndex == dfanoutRecordLOW
|| fieldIndex == dfanoutRecordLOLO
|| fieldIndex == dfanoutRecordHOPR
|| fieldIndex == dfanoutRecordLOPR) {
pgd->upper_disp_limit = pdfanout->hopr;
pgd->lower_disp_limit = pdfanout->lopr;
} else recGblGetGraphicDouble(paddr,pgd);
return(0);
}
static long get_control_double(paddr,pcd)
struct dbAddr *paddr;
struct dbr_ctrlDouble *pcd;
static long get_control_double(struct dbAddr *paddr,struct dbr_ctrlDouble *pcd)
{
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
if(paddr->pfield==(void *)&pdfanout->val
|| paddr->pfield==(void *)&pdfanout->hihi
|| paddr->pfield==(void *)&pdfanout->high
|| paddr->pfield==(void *)&pdfanout->low
|| paddr->pfield==(void *)&pdfanout->lolo){
if(fieldIndex == dfanoutRecordVAL
|| fieldIndex == dfanoutRecordHIHI
|| fieldIndex == dfanoutRecordHIGH
|| fieldIndex == dfanoutRecordLOW
|| fieldIndex == dfanoutRecordLOLO) {
pcd->upper_ctrl_limit = pdfanout->hopr;
pcd->lower_ctrl_limit = pdfanout->lopr;
} else recGblGetControlDouble(paddr,pcd);
return(0);
}
static long get_alarm_double(paddr,pad)
struct dbAddr *paddr;
struct dbr_alDouble *pad;
static long get_alarm_double(struct dbAddr *paddr,struct dbr_alDouble *pad)
{
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
struct dfanoutRecord *pdfanout=(struct dfanoutRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
if(paddr->pfield==(void *)&pdfanout->val){
if(fieldIndex == dfanoutRecordVAL) {
pad->upper_alarm_limit = pdfanout->hihi;
pad->upper_warning_limit = pdfanout->high;
pad->lower_warning_limit = pdfanout->low;
@@ -172,8 +189,7 @@ static long get_alarm_double(paddr,pad)
return(0);
}
static void alarm(pdfanout)
struct dfanoutRecord *pdfanout;
static void checkAlarms(struct dfanoutRecord *pdfanout)
{
double val;
double hyst, lalm, hihi, high, low, lolo;
@@ -217,12 +233,11 @@ static void alarm(pdfanout)
return;
}
static void monitor(pdfanout)
struct dfanoutRecord *pdfanout;
static void monitor(struct dfanoutRecord *pdfanout)
{
unsigned short monitor_mask;
long delta;
double delta;
monitor_mask = recGblResetAlarms(pdfanout);
/* check for value change */
@@ -250,16 +265,45 @@ static void monitor(pdfanout)
}
return;
}
static void push_values(pdfanout)
struct dfanoutRecord *pdfanout;
static void push_values(struct dfanoutRecord *pdfanout)
{
struct link *plink; /* structure of the link field */
int i;
long status;
struct link *plink; /* structure of the link field */
int i;
long status;
unsigned short state;
switch (pdfanout->selm){
case (dfanoutSELM_All):
for(i=0, plink=&(pdfanout->outa); i<OUT_ARG_MAX; i++, plink++) {
status=dbPutLink(plink,DBR_LONG,&(pdfanout->val),1);
status=dbPutLink(plink,DBR_DOUBLE,&(pdfanout->val),1);
if(status) recGblSetSevr(pdfanout,LINK_ALARM,MAJOR_ALARM);
}
break;
case (dfanoutSELM_Specified):
if(pdfanout->seln>OUT_ARG_MAX) {
recGblSetSevr(pdfanout,SOFT_ALARM,INVALID_ALARM);
break;
}
if(pdfanout->seln==0) break;
plink=&(pdfanout->outa);
plink += (pdfanout->seln -1);
status=dbPutLink(plink,DBR_DOUBLE,&(pdfanout->val),1);
if(status) recGblSetSevr(pdfanout,LINK_ALARM,MAJOR_ALARM);
break;
case (dfanoutSELM_Mask):
if(pdfanout->seln==0) break;
for(i=0, plink=&(pdfanout->outa), state=pdfanout->seln;
i<OUT_ARG_MAX;
i++, plink++, state>>=1) {
if(state&1) {
status=dbPutLink(plink,DBR_DOUBLE,&(pdfanout->val),1);
if(status) recGblSetSevr(pdfanout,LINK_ALARM,MAJOR_ALARM);
}
}
break;
default:
recGblSetSevr(pdfanout,SOFT_ALARM,INVALID_ALARM);
}
}
src/rec/dfanoutRecord.dbd
+39 -24
View File
@@ -1,10 +1,31 @@
menu(dfanoutSELM) {
choice(dfanoutSELM_All,"All")
choice(dfanoutSELM_Specified,"Specified")
choice(dfanoutSELM_Mask,"Mask")
}
recordtype(dfanout) {
include "dbCommon.dbd"
field(VAL,DBF_LONG) {
field(VAL,DBF_DOUBLE) {
prompt("Desired Output")
asl(ASL0)
pp(TRUE)
}
field(SELM,DBF_MENU) {
prompt("Select Mechanism")
promptgroup(GUI_LINKS)
interest(1)
menu(dfanoutSELM)
}
field(SELN,DBF_USHORT) {
prompt("Link Selection")
interest(1)
initial("1")
}
field(SELL,DBF_INLINK) {
prompt("Link Selection Loc")
promptgroup(GUI_LINKS)
interest(1)
}
field(OUTA,DBF_OUTLINK) {
prompt("Output Spec A")
promptgroup(GUI_OUTPUT)
@@ -62,35 +83,40 @@ recordtype(dfanout) {
interest(1)
size(16)
}
field(HOPR,DBF_LONG) {
field(PREC,DBF_SHORT) {
prompt("Display Precision")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(HOPR,DBF_DOUBLE) {
prompt("High Operating Range")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(LOPR,DBF_LONG) {
field(LOPR,DBF_DOUBLE) {
prompt("Low Operating Range")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(HIHI,DBF_LONG) {
field(HIHI,DBF_DOUBLE) {
prompt("Hihi Alarm Limit")
promptgroup(GUI_ALARMS)
pp(TRUE)
interest(1)
}
field(LOLO,DBF_LONG) {
field(LOLO,DBF_DOUBLE) {
prompt("Lolo Alarm Limit")
promptgroup(GUI_ALARMS)
pp(TRUE)
interest(1)
}
field(HIGH,DBF_LONG) {
field(HIGH,DBF_DOUBLE) {
prompt("High Alarm Limit")
promptgroup(GUI_ALARMS)
pp(TRUE)
interest(1)
}
field(LOW,DBF_LONG) {
field(LOW,DBF_DOUBLE) {
prompt("Low Alarm Limit")
promptgroup(GUI_ALARMS)
pp(TRUE)
@@ -124,45 +150,34 @@ recordtype(dfanout) {
interest(1)
menu(menuAlarmSevr)
}
field(HYST,DBF_LONG) {
field(HYST,DBF_DOUBLE) {
prompt("Alarm Deadband")
promptgroup(GUI_ALARMS)
interest(1)
}
field(ADEL,DBF_LONG) {
field(ADEL,DBF_DOUBLE) {
prompt("Archive Deadband")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(MDEL,DBF_LONG) {
field(MDEL,DBF_DOUBLE) {
prompt("Monitor Deadband")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(LALM,DBF_LONG) {
field(LALM,DBF_DOUBLE) {
prompt("Last Value Alarmed")
special(SPC_NOMOD)
interest(3)
}
field(ALST,DBF_LONG) {
field(ALST,DBF_DOUBLE) {
prompt("Last Value Archived")
special(SPC_NOMOD)
interest(3)
}
field(MLST,DBF_LONG) {
field(MLST,DBF_DOUBLE) {
prompt("Last Val Monitored")
special(SPC_NOMOD)
interest(3)
}
field(IVOA,DBF_MENU) {
prompt("INVALID output action")
promptgroup(GUI_OUTPUT)
interest(2)
menu(menuIvoa)
}
field(IVOV,DBF_LONG) {
prompt("INVALID output value")
promptgroup(GUI_OUTPUT)
interest(2)
}
}