Changes for replacing default.dctsdr by all ascii files

This commit is contained in:
Marty Kraimer
1995-11-29 14:38:52 +00:00
parent 8d8f5754a1
commit fb6f4ce704
41 changed files with 5522 additions and 119 deletions
+2 -2
View File
@@ -84,8 +84,8 @@ static long init_record(pai)
/* ai.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pai->inp.type) {
case (CONSTANT) :
pai->val = pai->inp.value.value;
pai->udf = FALSE;
if(recGblInitConstantLink(&pai->inp,DBF_DOUBLE,&pai->val))
pai->udf = FALSE;
break;
case (PV_LINK) :
+1 -1
View File
@@ -85,7 +85,7 @@ static long init_record(pai)
/* ai.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pai->inp.type) {
case (CONSTANT) :
pai->rval = pai->inp.value.value;
recGblInitConstantLink(&pai->inp,DBF_LONG,&pai->rval);
break;
case (PV_LINK) :
case (DB_LINK) :
+2 -2
View File
@@ -108,8 +108,8 @@ static long init_record(pai)
callbackSetCallback(myCallback,&pcallback->callback);
pcallback->precord = (struct dbCommon *)pai;
pcallback->wd_id = wdCreate();
pai->val = pai->inp.value.value;
pai->udf = FALSE;
if(recGblInitConstantLink(&pai->inp,DBF_DOUBLE,&pai->val))
pai->udf = FALSE;
break;
default :
recGblRecordError(S_db_badField,(void *)pai,
+2 -2
View File
@@ -81,8 +81,8 @@ static long init_record(pbi)
/* bi.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK */
switch (pbi->inp.type) {
case (CONSTANT) :
pbi->val = pbi->inp.value.value;
pbi->udf = FALSE;
if(recGblInitConstantLink(&pbi->inp,DBF_ENUM,&pbi->val))
pbi->udf = FALSE;
break;
case (DB_LINK) :
case (PV_LINK) :
+1 -1
View File
@@ -82,7 +82,7 @@ static long init_record(pbi)
/* bi.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pbi->inp.type) {
case (CONSTANT) :
pbi->rval = pbi->inp.value.value;
recGblInitConstantLink(&pbi->inp,DBF_ULONG,&pbi->rval);
break;
case (DB_LINK) :
case (PV_LINK) :
+2 -2
View File
@@ -110,8 +110,8 @@ static long init_record(pbi)
callbackSetCallback(myCallback,&pcallback->callback);
pcallback->precord = (struct dbCommon *)pbi;
pcallback->wd_id = wdCreate();
pbi->val = pbi->inp.value.value;
pbi->udf = FALSE;
if(recGblInitConstantLink(&pbi->inp,DBF_ENUM,&pbi->val))
pbi->udf = FALSE;
break;
default :
recGblRecordError(S_db_badField,(void *)pbi,
+2 -4
View File
@@ -79,10 +79,8 @@ static long init_record(pevent)
/* event.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pevent->inp.type) {
case (CONSTANT) :
if(pevent->inp.value.value!=0.0 && pevent->val == 0.0){
pevent->val=pevent->inp.value.value;
}
pevent->udf= FALSE;
if(recGblInitConstantLink(&pevent->inp,DBF_USHORT,&pevent->val))
pevent->udf = FALSE;
break;
case (PV_LINK) :
status = dbCaAddInlink(&(pevent->inp), (void *) pevent, "VAL");
+1 -1
View File
@@ -80,7 +80,7 @@ static long init_record(phistogram)
/* histogram.svl must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (phistogram->svl.type) {
case (CONSTANT) :
phistogram->sgnl = phistogram->svl.value.value;
recGblInitConstantLink(&phistogram->svl,DBF_DOUBLE,&phistogram->sgnl);
break;
case (PV_LINK) :
case (DB_LINK) :
+1 -1
View File
@@ -107,7 +107,7 @@ static long init_record(phistogram)
callbackSetCallback(myCallback,&pcallback->callback);
pcallback->precord = (struct dbCommon *)phistogram;
pcallback->wd_id = wdCreate();
phistogram->sgnl = phistogram->svl.value.value;
recGblInitConstantLink(&phistogram->svl,DBF_DOUBLE,&phistogram->sgnl);
break;
default :
recGblRecordError(S_db_badField,(void *)phistogram,
+2 -2
View File
@@ -78,8 +78,8 @@ static long init_record(plongin)
/* longin.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (plongin->inp.type) {
case (CONSTANT) :
plongin->val = plongin->inp.value.value;
plongin->udf = FALSE;
if(recGblInitConstantLink(&plongin->inp,DBF_LONG,&plongin->val))
plongin->udf = FALSE;
break;
case (PV_LINK) :
case (DB_LINK) :
+2 -2
View File
@@ -81,8 +81,8 @@ static long init_record(pmbbi)
/* mbbi.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pmbbi->inp.type) {
case (CONSTANT) :
pmbbi->val = pmbbi->inp.value.value;
pmbbi->udf = FALSE;
if(recGblInitConstantLink(&pmbbi->inp,DBF_ENUM,&pmbbi->val))
pmbbi->udf = FALSE;
break;
case (DB_LINK) :
case (PV_LINK) :
+1 -1
View File
@@ -80,7 +80,7 @@ static long init_record(pmbbi)
/* mbbi.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pmbbi->inp.type) {
case (CONSTANT) :
pmbbi->rval = pmbbi->inp.value.value;
recGblInitConstantLink(&pmbbi->inp,DBF_ULONG,&pmbbi->rval);
break;
case (DB_LINK) :
case (PV_LINK) :
+2 -2
View File
@@ -80,8 +80,8 @@ static long init_record(pmbbi)
long status;
if (pmbbi->inp.type == CONSTANT) {
pmbbi->val = pmbbi->inp.value.value;
pmbbi->udf = FALSE;
if(recGblInitConstantLink(&pmbbi->inp,DBF_ENUM,&pmbbi->val))
pmbbi->udf = FALSE;
}
else {
status = recGblInitFastInLink(&(pmbbi->inp), (void *) pmbbi, DBR_USHORT, "VAL");
+1 -1
View File
@@ -81,7 +81,7 @@ static long init_record(pmbbi)
long status;
if (pmbbi->inp.type == CONSTANT) {
pmbbi->rval = pmbbi->inp.value.value;
recGblInitConstantLink(&pmbbi->inp,DBF_ULONG,&pmbbi->rval);
}
else {
status = recGblInitFastInLink(&(pmbbi->inp), (void *) pmbbi, DBR_ULONG, "RVAL");
+2 -2
View File
@@ -109,8 +109,8 @@ static long init_record(pmbbi)
callbackSetCallback(myCallback,&pcallback->callback);
pcallback->precord = (struct dbCommon *)pmbbi;
pcallback->wd_id = wdCreate();
pmbbi->val = pmbbi->inp.value.value;
pmbbi->udf = FALSE;
if(recGblInitConstantLink(&pmbbi->inp,DBF_ENUM,&pmbbi->val))
pmbbi->udf = FALSE;
break;
default :
recGblRecordError(S_db_badField,(void *)pmbbi,
+4
View File
@@ -53,6 +53,9 @@
*****************************************************************
*
* $Log$
* Revision 1.2 1995/04/05 14:13:43 winans
* Only do a sysIntEnable() for those cards that are found with the probe.
*
* Revision 1.1 1995/03/31 15:03:32 winans
* Machine protection system interface card
*
@@ -151,6 +154,7 @@
#include "devSup.h"
#include "link.h"
#include "dbCommon.h"
#include "aiRecord.h"
#include "boRecord.h"
#include "biRecord.h"
-1
View File
@@ -57,7 +57,6 @@
#include <iv.h>
#include <alarm.h>
#include <dbRecType.h>
#include <dbDefs.h>
#include <dbAccess.h>
#include <dbCommon.h>
+2 -5
View File
@@ -79,11 +79,8 @@ static long init_record(pstringin)
/* stringin.inp must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (pstringin->inp.type) {
case (CONSTANT) :
if(pstringin->inp.value.value!=0.0){
sprintf(pstringin->val,"%-14.7g",pstringin->inp.value.value);
pstringin->udf= FALSE;
}
pstringin->udf= FALSE;
if(recGblInitConstantLink(&pstringin->inp,DBF_STRING,pstringin->val))
pstringin->udf = FALSE;
break;
case (PV_LINK) :
status = dbCaAddInlink(&(pstringin->inp), (void *) pstringin, "VAL");
+2 -4
View File
@@ -108,10 +108,8 @@ static long init_record(pstringin)
callbackSetCallback(myCallback,&pcallback->callback);
pcallback->precord = (struct dbCommon *)pstringin;
pcallback->wd_id = wdCreate();
if (pstringin->inp.value.value!=0.0) {
sprintf(pstringin->val,"%-14.7g",pstringin->inp.value.value);
pstringin->udf = FALSE;
}
if(recGblInitConstantLink(&pstringin->inp,DBF_STRING,pstringin->val))
pstringin->udf = FALSE;
break;
default :
recGblRecordError(S_db_badField,(void *)pstringin,
+4
View File
@@ -58,6 +58,9 @@
* ...
*
* $Log$
* Revision 1.9 1995/01/18 16:38:03 winans
* added the '0x' in front of the hex input and outputs in the report function.
*
* Revision 1.8 1995/01/09 20:52:02 winans
* Added analog input support for temperature
*
@@ -95,6 +98,7 @@
#include <link.h>
#include <fast_lock.h>
#include <dbCommon.h>
#include <aiRecord.h>
#include <boRecord.h>
#include <biRecord.h>
-1
View File
@@ -39,7 +39,6 @@
#include <iv.h>
#include <alarm.h>
#include <dbRecType.h>
#include <dbDefs.h>
#include <dbAccess.h>
#include <dbCommon.h>
-1
View File
@@ -79,7 +79,6 @@
#include <drvEpvxi.h>
#include <alarm.h>
#include <dbRecType.h>
#include <dbDefs.h>
#include <dbAccess.h>
#include <dbCommon.h>