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

Added recGblGetGraphicDouble, recGblControlDouble, ANSI C changes

Browse Source
This commit is contained in:
Janet B. Anderson
1992-02-28 18:00:24 +00:00
parent 1884f74c36
commit 43818d1eec
1 changed files with 207 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/db/recGbl.c
+207 -2
View File
@@ -28,10 +28,12 @@
*
* Modification Log:
* -----------------
* .01 mm-dd-yy iii Comment
* .01 11-16-91 jba Added recGblGetGraphicDouble, recGblControlDouble
* .02 02-28-92 jba ANSI C changes
*/
#include <vxWorks.h>
#include <limits.h>
#include <types.h>
#include <stdioLib.h>
#include <strLib.h>
@@ -54,7 +56,7 @@
*
*void recGblRecordError(status,precord,pcaller_name)
* long status;
* caddr_t precord; * addr of record *
* void *precord; * addr of record *
* char *pcaller_name; * calling routine name *
*
*void recGblRecSupError(status,paddr,pcaller_name,psupport_name)
@@ -63,7 +65,27 @@
* char *pcaller_name; * calling routine name *
* char *psupport_name; * support routine name *
*
*void recGblGetGraphicDouble(paddr,pgd)
* struct dbAddr *paddr;
* struct dbr_grDouble *pgd;
*
*void recGblGetControlDouble(paddr,pcd)
* struct dbAddr *paddr;
* struct dbr_ctrlDouble *pcd;
*
*void recGblGetPrec(paddr,pprecision)
* struct dbAddr *paddr;
* long *pprecision;
* {
**************************************************************************/
/* local routines */
static void getVarRangeValue();
static void getConRangeValue();
static void getMaxRangeValues();
void recGblDbaddrError(status,paddr,pcaller_name)
long status;
@@ -158,3 +180,186 @@ char *psupport_name;
errMessage(status,buffer);
return;
}
void recGblGetPrec(paddr,precision)
struct dbAddr *paddr;
long *precision;
{
struct dbCommon *precord=(struct dbCommon *)(paddr->precord);
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
switch(pfldDes->field_type){
case(DBF_SHORT):
*precision = 0;
break;
case(DBF_USHORT):
*precision = 0;
break;
case(DBF_LONG):
*precision = 0;
break;
case(DBF_ULONG):
*precision = 0;
break;
case(DBF_FLOAT):
break;
case(DBF_DOUBLE):
break;
default:
recGblRecordError(S_db_badChoice,precord,"recGblGetPrec");
break;
}
return;
}
void recGblGetGraphicDouble(paddr,pgd)
struct dbAddr *paddr;
struct dbr_grDouble *pgd;
{
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
/* get upper display limit */
if(pfldDes->highfl==VAR) getVarRangeValue(paddr,pfldDes->range2.fldnum,&pgd->upper_disp_limit);
else getConRangeValue(pfldDes->field_type,pfldDes->range2,&pgd->upper_disp_limit);
/* get lower display limit */
if(pfldDes->lowfl==VAR) getVarRangeValue(paddr,pfldDes->range1.fldnum,&pgd->lower_disp_limit);
else getConRangeValue(pfldDes->field_type,pfldDes->range1,&pgd->lower_disp_limit);
if(pgd->lower_disp_limit>=pgd->upper_disp_limit)
getMaxRangeValues(pfldDes->field_type,&pgd->upper_disp_limit,&pgd->lower_disp_limit);
return;
}
void recGblGetControlDouble(paddr,pcd)
struct dbAddr *paddr;
struct dbr_ctrlDouble *pcd;
{
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
/* get upper control limit */
if(pfldDes->highfl==VAR) getVarRangeValue(paddr,pfldDes->range2.fldnum,&pcd->upper_ctrl_limit);
else getConRangeValue(pfldDes->field_type,pfldDes->range2,&pcd->upper_ctrl_limit);
/* get lower control limit */
if(pfldDes->lowfl==VAR) getVarRangeValue(paddr,pfldDes->range1.fldnum,&pcd->lower_ctrl_limit);
else getConRangeValue(pfldDes->field_type,pfldDes->range1,&pcd->lower_ctrl_limit);
if(pcd->lower_ctrl_limit>=pcd->upper_ctrl_limit)
getMaxRangeValues(pfldDes->field_type,&pcd->upper_ctrl_limit,&pcd->lower_ctrl_limit);
return;
}
static void getConRangeValue(field_type,range,plimit)
short field_type;
struct range range;
double *plimit;
{
*plimit=0.0;
switch(field_type){
case(DBF_SHORT):
*plimit = (double)range.value.short_value;
break;
case(DBF_USHORT):
*plimit = (double)range.value.ushort_value;
break;
case(DBF_LONG):
*plimit = (double)range.value.long_value;
break;
case(DBF_ULONG):
*plimit = (double)range.value.ulong_value;
break;
case(DBF_FLOAT):
*plimit = (double)range.value.float_value;
break;
case(DBF_DOUBLE):
*plimit = (double)range.value.double_value;
break;
}
return;
}
static void getMaxRangeValues(field_type,pupper_limit,plower_limit)
short field_type;
double *pupper_limit;
double *plower_limit;
{
switch(field_type){
case(DBF_SHORT):
*pupper_limit = (double)SHRT_MAX;
*plower_limit = (double)SHRT_MIN;
break;
case(DBF_USHORT):
*pupper_limit = (double)USHRT_MAX;
*plower_limit = (double)0;
break;
case(DBF_LONG):
*pupper_limit = (double)LONG_MAX;
*plower_limit = (double)LONG_MIN;
break;
case(DBF_ULONG):
*pupper_limit = (double)ULONG_MAX;
*plower_limit = (double)0;
break;
case(DBF_FLOAT):
*pupper_limit = (double)1e+30;
*plower_limit = (double)-1e30;
break;
case(DBF_DOUBLE):
*pupper_limit = (double)1e+30;
*plower_limit = (double)-1e30;
break;
}
return;
}
static void getVarRangeValue(paddr,fldnum,prangeValue)
struct dbAddr *paddr;
long fldnum;
double *prangeValue;
{
short recType;
struct recTypDes *precTypDes;
struct dbAddr dbAddr;
long nRequest,options;
void *pfl=NULL;
char name[PVNAME_SZ+FLDNAME_SZ+2];
struct dbCommon *precord;
int i,n;
struct fldDes *pfldDes;
*prangeValue=0;
precord=(struct dbCommon *)(paddr->precord);
recType=paddr->record_type;
if(!(precTypDes=GET_PRECTYPDES(recType))){
recGblRecordError(1,precord,"getVarRangeValue");
return;
}
if(!(pfldDes=GET_PFLDDES(precTypDes,fldnum))){
recGblRecordError(2,precord,"getVarRangeValue");
return;
}
/* get &dbAddr for range VAR field */
name[PVNAME_SZ+1] = 0;
strncpy(name,precord->name,PVNAME_SZ);
n=strlen(name);
for(i=n; (i>0 && name[i]==' '); i--) name[i]=0;
strcat(name,".");
strncat(name,pfldDes->fldname,FLDNAME_SZ);
strcat(name,"\0");
if (dbNameToAddr(name,&dbAddr)){
recGblRecordError(3,precord,"getVarRangeValue");
return;
}
/* get value of range VAR field */
options = 0;
nRequest = 1;
if(dbGetField(&dbAddr,DBR_DOUBLE,prangeValue,&options,&nRequest,pfl)){
recGblRecordError(4,precord,"getvarRangeValue");
return;
}
return;
}