epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Added new field PREC for display of double and float fields ULIM, LLIM,

Browse Source 
SDEL, SVAL, SGNL, and WDTH. Added unsigned long fields HOPR and LOPR for
display of VAL array counts.  Changed SDEL field from SPC_NOMOD to
SPC_RESET to allow start and stop of the watch dog timer.
This commit is contained in:
Janet B. Anderson
1998-10-01 20:28:14 +00:00
parent 444f4c0bcc
commit ae43db8152
2 changed files with 100 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
src/rec/histogramRecord.c
View File

@@ -77,13 +77,13 @@ static long cvt_dbaddr();
static long get_array_info();
#define put_array_info NULL
#define get_units NULL
#define get_precision NULL
static long get_precision(struct dbAddr *paddr,long *precision);
#define get_enum_str NULL
#define get_enum_strs NULL
#define put_enum_str NULL
#define get_graphic_double NULL
#define get_control_double NULL
#define get_alarm_double NULL
static long get_graphic_double(struct dbAddr *paddr,struct dbr_grDouble *pgd);
static long get_control_double(struct dbAddr *paddr,struct dbr_ctrlDouble *pcd);
struct rset histogramRSET={
RSETNUMBER,
@@ -133,7 +133,7 @@ static long clear_histogram();
static void monitor();
static long readValue();
static void wdCallback(pcallback)
static void wdogCallback(pcallback)
struct callback *pcallback;
{
struct histogramRecord *phistogram=(struct histogramRecord *)(pcallback->dbAddr.precord);
@@ -143,7 +143,7 @@ static void wdCallback(pcallback)
if(phistogram->mcnt>0){
dbScanLock((struct dbCommon *)phistogram);
recGblGetTimeStamp(phistogram);
db_post_events(phistogram,&phistogram->bptr,DBE_VALUE|DBE_LOG);
db_post_events(phistogram,phistogram->bptr,DBE_VALUE|DBE_LOG);
phistogram->mcnt=0;
dbScanUnlock((struct dbCommon *)phistogram);
}
@@ -156,6 +156,36 @@ static void wdCallback(pcallback)
return;
}
static long wdogInit(phistogram)
struct histogramRecord *phistogram;
{
struct callback *pcallback;
float wait_time;
if(phistogram->wdog==NULL && phistogram->sdel>0) {
/* initialize a watchdog timer */
pcallback = (struct callback *)(calloc(1,sizeof(struct callback)));
phistogram->wdog = (void *)pcallback;
if(!pcallback) return -1;
pcallback->callback = wdogCallback;
pcallback->priority = priorityLow;
pcallback->wd_id = wdCreate();
dbNameToAddr(phistogram->name,&(pcallback->dbAddr));
}
if (!phistogram->wdog) return -1;
pcallback = (struct callback *)phistogram->wdog;
if(!pcallback) return -1;
wdCancel(pcallback->wd_id);
if( phistogram->sdel>0) {
/* start new watchdog timer on monitor */
wait_time = (float)(phistogram->sdel * vxTicksPerSecond);
wdStart(pcallback->wd_id,wait_time,(FUNCPTR)callbackRequest,(int)pcallback);
}
return 0;
}
static long init_record(phistogram,pass)
struct histogramRecord *phistogram;
@@ -163,8 +193,6 @@ static long init_record(phistogram,pass)
{
struct histogramdset *pdset;
long status;
struct callback *pcallback;
float wait_time;
if (pass==0){
@@ -180,22 +208,7 @@ static long init_record(phistogram,pass)
return(0);
}
if(phistogram->wdog==NULL && phistogram->sdel!=0) {
/* initialize a watchdog timer */
pcallback = (struct callback *)(calloc(1,sizeof(struct callback)));
phistogram->wdog = (void *)pcallback;
pcallback->callback = wdCallback;
pcallback->priority = priorityLow;
if(dbNameToAddr(phistogram->name,&(pcallback->dbAddr))) {
epicsPrintf("dbNameToAddr failed in init_record for recHistogram\n");
exit(1);
}
pcallback->wd_id = wdCreate();
/* start new watchdog timer on monitor */
wait_time = (float)(phistogram->sdel * vxTicksPerSecond);
wdStart(pcallback->wd_id,wait_time,(FUNCPTR)callbackRequest,(int)pcallback);
}
wdogInit(phistogram);
if (phistogram->siml.type == CONSTANT) {
recGblInitConstantLink(&phistogram->siml,DBF_USHORT,&phistogram->simm);
@@ -261,6 +274,8 @@ static long special(paddr,after)
{
struct histogramRecord *phistogram = (struct histogramRecord *)(paddr->precord);
int special_type = paddr->special;
int fieldIndex = dbGetFieldIndex(paddr);
if(!after) return(0);
switch(special_type) {
@@ -281,8 +296,12 @@ static long special(paddr,after)
add_count(phistogram);
return(0);
case(SPC_RESET):
phistogram->wdth=(phistogram->ulim-phistogram->llim)/phistogram->nelm;
clear_histogram(phistogram);
if (fieldIndex == histogramRecordSDEL) {
wdogInit(phistogram);
} else {
phistogram->wdth=(phistogram->ulim-phistogram->llim)/phistogram->nelm;
clear_histogram(phistogram);
}
return(0);
default:
recGblDbaddrError(S_db_badChoice,paddr,"histogram: special");
@@ -317,7 +336,7 @@ static long cvt_dbaddr(paddr)
paddr->pfield = (void *)(phistogram->bptr);
paddr->no_elements = phistogram->nelm;
paddr->field_type = DBF_ULONG;
paddr->field_size = sizeof(long);
paddr->field_size = sizeof(unsigned long);
paddr->dbr_field_type = DBF_ULONG;
return(0);
}
@@ -413,3 +432,42 @@ static long readValue(phistogram)
return(status);
}
static long get_precision(struct dbAddr *paddr,long *precision)
{
struct histogramRecord *phistogram=(struct histogramRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
*precision = phistogram->prec;
if(fieldIndex == histogramRecordULIM
|| fieldIndex == histogramRecordLLIM
|| fieldIndex == histogramRecordSDEL
|| fieldIndex == histogramRecordSGNL
|| fieldIndex == histogramRecordSVAL
|| fieldIndex == histogramRecordWDTH) {
*precision = phistogram->prec;
}
recGblGetPrec(paddr,precision);
return(0);
}
static long get_graphic_double(struct dbAddr *paddr,struct dbr_grDouble *pgd)
{
struct histogramRecord *phistogram=(struct histogramRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
if(fieldIndex == histogramRecordBPTR){
pgd->upper_disp_limit = phistogram->hopr;
pgd->lower_disp_limit = phistogram->lopr;
} else recGblGetGraphicDouble(paddr,pgd);
return(0);
}
static long get_control_double(struct dbAddr *paddr,struct dbr_ctrlDouble *pcd)
{
struct histogramRecord *phistogram=(struct histogramRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
if(fieldIndex == histogramRecordBPTR){
pcd->upper_ctrl_limit = phistogram->hopr;
pcd->lower_ctrl_limit = phistogram->lopr;
} else recGblGetControlDouble(paddr,pcd);
return(0);
}

18
src/rec/histogramRecord.dbd
View File

@@ -3,7 +3,6 @@ menu(histogramCMD) {
choice(histogramCMD_Clear,"Clear")
choice(histogramCMD_Start,"Start")
choice(histogramCMD_Stop,"Stop")
choice(histogramCMD_Setup,"Setup")
}
recordtype(histogram) {
include "dbCommon.dbd"
@@ -54,6 +53,11 @@ recordtype(histogram) {
prompt("Signal Value")
special(SPC_MOD)
}
field(PREC,DBF_SHORT) {
prompt("Display Precision")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(SVL,DBF_INLINK) {
prompt("Signal Value Location")
promptgroup(GUI_INPUTS)
@@ -84,7 +88,7 @@ recordtype(histogram) {
field(SDEL,DBF_FLOAT) {
prompt("Monitor Seconds Dband")
promptgroup(GUI_HIST)
special(SPC_NOMOD)
special(SPC_RESET)
interest(1)
}
field(SIOL,DBF_INLINK) {
@@ -111,4 +115,14 @@ recordtype(histogram) {
interest(2)
menu(menuAlarmSevr)
}
field(HOPR,DBF_ULONG) {
prompt("High Operating Range")
promptgroup(GUI_DISPLAY)
interest(1)
}
field(LOPR,DBF_ULONG) {
prompt("Low Operating Range")
promptgroup(GUI_DISPLAY)
interest(1)
}
}