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

restructure; new Symb support

Browse Source
This commit is contained in:
Marty Kraimer
1998-01-21 20:48:12 +00:00
parent fe2d8d5564
commit f3eb906bf3
179 changed files with 11918 additions and 6667 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/dev/Makefile
View File

@@ -3,5 +3,7 @@ TOP=../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS
DIRS = $(wildcard *Dev)
include $(TOP)/config/RULES_DIRS

127
src/dev/Makefile.Vx
View File

@@ -1,127 +0,0 @@
TOP = ../../..
include $(TOP)/config/CONFIG_BASE
USR_INCLUDES = -I../../drv/ansi -I../../drv/old
INC += devApsEr.h
INC += devCamac.h
INC += devCommonGpib.h
# SRCS.c += ../devAaiCamac.c
# SRCS.c += ../devAiCamac.c
SRCS.c += ../devAiDvx2502.c
SRCS.c += ../devAiKscV215.c
SRCS.c += ../devAiSoft.c
SRCS.c += ../devAiSoftRaw.c
SRCS.c += ../devVXStats.c
SRCS.c += ../devAiSymb.c
SRCS.c += ../devAiTestAsyn.c
SRCS.c += ../devAiXy566Di.c
SRCS.c += ../devAiXy566DiL.c
SRCS.c += ../devAiXy566Se.c
# SRCS.c += ../devAaoCamac.c
# SRCS.c += ../devAoCamac.c
SRCS.c += ../devAoSoft.c
SRCS.c += ../devAoSoftRaw.c
SRCS.c += ../devAoSymb.c
SRCS.c += ../devAoTestAsyn.c
SRCS.c += ../devAoVmiVme4100.c
SRCS.c += ../devApsEg.c
SRCS.c += ../devApsEr.c
SRCS.c += ../devAt5Vxi.c
SRCS.c += ../devAt8Fp.c
SRCS.c += ../devAvme9440.c
# SRCS.c += ../devBiCamac.c
SRCS.c += ../devBiMpv910.c
SRCS.c += ../devBiSoft.c
SRCS.c += ../devBiSoftRaw.c
SRCS.c += ../devBiTestAsyn.c
SRCS.c += ../devBiXVme210.c
# SRCS.c += ../devBoCamac.c
SRCS.c += ../devBoMpv902.c
SRCS.c += ../devBoSoft.c
SRCS.c += ../devBoSoftRaw.c
SRCS.c += ../devBoTestAsyn.c
SRCS.c += ../devBoXVme220.c
SRCS.c += ../devCommonGpib.c
SRCS.c += ../devEventSoft.c
SRCS.c += ../devEventTestIoEvent.c
SRCS.c += ../devHistogramSoft.c
SRCS.c += ../devHistogramTestAsyn.c
SRCS.c += ../devHpe1368a.c
# SRCS.c += ../devLiCamac.c
SRCS.c += ../devLiSoft.c
SRCS.c += ../devLiSymb.c
# SRCS.c += ../devLoCamac.c
SRCS.c += ../devLoSoft.c
SRCS.c += ../devLoSymb.c
# SRCS.c += ../devMbbiCamac.c
# SRCS.c += ../devMbbiDirectCamac.c
SRCS.c += ../devMbbiDirectMpv910.c
SRCS.c += ../devMbbiDirectSoft.c
SRCS.c += ../devMbbiDirectSoftRaw.c
SRCS.c += ../devMbbiDirectXVme210.c
SRCS.c += ../devMbbiMpv910.c
SRCS.c += ../devMbbiSoft.c
SRCS.c += ../devMbbiSoftRaw.c
SRCS.c += ../devMbbiTestAsyn.c
SRCS.c += ../devMbbiXVme210.c
# SRCS.c += ../devMbboCamac.c
# SRCS.c += ../devMbboDirectCamac.c
SRCS.c += ../devMbboDirectMpv902.c
SRCS.c += ../devMbboDirectSoft.c
SRCS.c += ../devMbboDirectSoftRaw.c
SRCS.c += ../devMbboDirectXVme220.c
SRCS.c += ../devMbboMpv902.c
SRCS.c += ../devMbboSoft.c
SRCS.c += ../devMbboSoftRaw.c
SRCS.c += ../devMbboTestAsyn.c
SRCS.c += ../devMbboXVme220.c
SRCS.c += ../devMz8310.c
SRCS.c += ../devPtSoft.c
SRCS.c += ../devSASoft.c
SRCS.c += ../devSiSoft.c
SRCS.c += ../devSiSymb.c
SRCS.c += ../devSiTestAsyn.c
SRCS.c += ../devSmCompumotor1830.c
SRCS.c += ../devSmOms6Axis.c
SRCS.c += ../devSmAB1746HSTP1.c
SRCS.c += ../devSoSoft.c
SRCS.c += ../devSoSymb.c
SRCS.c += ../devSoTestAsyn.c
SRCS.c += ../devTimerMz8310.c
# SRCS.c += ../devWfCamac.c
SRCS.c += ../devWfComet.c
SRCS.c += ../devWfDvx2502.c
SRCS.c += ../devWfJoergerVtr1.c
SRCS.c += ../devWfSoft.c
SRCS.c += ../devWfTestAsyn.c
SRCS.c += ../devWfXy566Sc.c
SRCS.c += ../devWfPentek4261.c
SRCS.c += ../devXy240.c
SRCS.c += ../devAB1771IFE.c
SRCS.c += ../devAB1771IL.c
SRCS.c += ../devAB1771IR.c
SRCS.c += ../devAB1771IXE.c
SRCS.c += ../devAB1771OFE.c
SRCS.c += ../devABSLCDCM.c
SRCS.c += ../devABBINARY.c
SRCS.c += ../devABStatus.c
SRCS.c += ../devVmic2534.c
# SRCS.c += ../devAiCan.c
# SRCS.c += ../devAoCan.c
# SRCS.c += ../devBiCan.c
# SRCS.c += ../devBoCan.c
# SRCS.c += ../devMbbiCan.c
# SRCS.c += ../devMbboCan.c
# SRCS.c += ../devMbbiDirectCan.c
# SRCS.c += ../devMbboDirectCan.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

6
src/dev/apsDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

13
src/dev/apsDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,13 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
INC += devApsEr.h
SRCS.c += ../devApsEg.c
SRCS.c += ../devApsEr.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

4
src/dev/devApsEg.c → src/dev/apsDev/devApsEg.c
View File

@@ -899,7 +899,7 @@ STATIC long EgProcEgRec(struct egRecord *pRec)
if (pRec->vme != 0)
{
if (pRec->tpro > 10)
printf(", VME-%d", pRec->vme);
printf(", VME-%ld", pRec->vme);
EgGenerateVmeEvent(pLink, pRec->vme);
pRec->vme = 0;
}
@@ -1164,7 +1164,7 @@ STATIC long EgProcEgEventRec(struct egeventRecord *pRec)
break;
}
if (pRec->tpro)
printf("EgProcEgEventRec(%s) dpos=%d\n", pRec->name, pRec->dpos);
printf("EgProcEgEventRec(%s) dpos=%ld\n", pRec->name, pRec->dpos);
pRec->ldly = pRec->dely;
if (pRec->ram == egeventRAM_RAM_2)

2
src/dev/devApsEr.c → src/dev/apsDev/devApsEr.c
View File

@@ -506,7 +506,7 @@ STATIC long ErEventProc(struct ereventRecord *pRec)
if (pRec->enm != pRec->lenm)
{
if (pRec->tpro > 10)
printf("ErEventProc(%s) event number changed %d-%d\n", pRec->name, pRec->lenm, pRec->enm);
printf("ErEventProc(%s) event number changed %ld-%ld\n", pRec->name, pRec->lenm, pRec->enm);
/* Transfer the event info to new position */
if ((pRec->lenm < 256) && (pRec->lenm >= 0))
pLink->ErEventTab[pRec->lenm] = 0;

0
src/dev/devApsEr.h → src/dev/apsDev/devApsEr.h
View File

6
src/dev/atDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

11
src/dev/atDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,11 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devAt5Vxi.c
SRCS.c += ../devAt8Fp.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devAt5Vxi.c → src/dev/atDev/devAt5Vxi.c
View File

0
src/dev/devAt8Fp.c → src/dev/atDev/devAt8Fp.c
View File

6
src/dev/avme9440Dev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/avme9440Dev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devAvme9440.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devAvme9440.c → src/dev/avme9440Dev/devAvme9440.c
View File

2402
src/dev/camacDev/CamacDevSup_doc.ps Normal file
View File

File diff suppressed because it is too large Load Diff

6
src/dev/camacDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

25
src/dev/camacDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,25 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
INC += devCamac.h
# SRCS.c += ../devAaiCamac.c
# SRCS.c += ../devAiCamac.c
# SRCS.c += ../devAaoCamac.c
# SRCS.c += ../devAoCamac.c
# SRCS.c += ../devBiCamac.c
# SRCS.c += ../devBoCamac.c
# SRCS.c += ../devLiCamac.c
# SRCS.c += ../devLoCamac.c
# SRCS.c += ../devMbbiCamac.c
# SRCS.c += ../devMbbiDirectCamac.c
# SRCS.c += ../devMbboCamac.c
# SRCS.c += ../devMbboDirectCamac.c
# SRCS.c += ../devWfCamac.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devAaiCamac.c → src/dev/camacDev/devAaiCamac.c
View File

0
src/dev/devAaoCamac.c → src/dev/camacDev/devAaoCamac.c
View File

0
src/dev/devAiCamac.c → src/dev/camacDev/devAiCamac.c
View File

0
src/dev/devAoCamac.c → src/dev/camacDev/devAoCamac.c
View File

0
src/dev/devBiCamac.c → src/dev/camacDev/devBiCamac.c
View File

0
src/dev/devBoCamac.c → src/dev/camacDev/devBoCamac.c
View File

0
src/dev/devCamac.h → src/dev/camacDev/devCamac.h
View File

0
src/dev/devLiCamac.c → src/dev/camacDev/devLiCamac.c
View File

0
src/dev/devLoCamac.c → src/dev/camacDev/devLoCamac.c
View File

0
src/dev/devMbbiCamac.c → src/dev/camacDev/devMbbiCamac.c
View File

0
src/dev/devMbbiDirectCamac.c → src/dev/camacDev/devMbbiDirectCamac.c
View File

0
src/dev/devMbboCamac.c → src/dev/camacDev/devMbboCamac.c
View File

0
src/dev/devMbboDirectCamac.c → src/dev/camacDev/devMbboDirectCamac.c
View File

0
src/dev/devWfCamac.c → src/dev/camacDev/devWfCamac.c
View File

6
src/dev/cometDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/cometDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devWfComet.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devWfComet.c → src/dev/cometDev/devWfComet.c
View File

6
src/dev/compumotorDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/compumotorDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devSmCompumotor1830.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devSmCompumotor1830.c → src/dev/compumotorDev/devSmCompumotor1830.c
View File

267
src/dev/devAB1771IFE.c
View File

@@ -1,267 +0,0 @@
/* devAB1771IFE.c */
/*
* Original Author: Bob Dalesio
* Current Author: Bob Dalesio, Marty Kraimer
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 12-01-94 lrd combine the device support that was resident
* in the driver and device support to
significantly reduce the amount of code
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <aiRecord.h>
/* Create the dsets*/
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt);
LOCAL long init_1771IfeDiff(struct aiRecord *prec);
LOCAL long init_1771Ife0to5V(struct aiRecord *prec);
LOCAL long init_1771IfeMa(struct aiRecord *prec);
LOCAL long init_1771IfeSe(struct aiRecord *prec);
LOCAL long linconv_1771Ife(struct aiRecord *prec, int after);
LOCAL long read_1771Ife(struct aiRecord *prec);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_ai;
DEVSUPFUN special_linconv;} ABAIDSET;
ABAIDSET devAiAb1771Ife={6, 0, 0, init_1771IfeDiff,
ioinfo_ai, read_1771Ife, linconv_1771Ife};
ABAIDSET devAiAb1771Ife0to5V={6, 0, 0, init_1771Ife0to5V,
ioinfo_ai, read_1771Ife, linconv_1771Ife};
ABAIDSET devAiAb1771IfeMa={6, 0, 0, init_1771IfeMa,
ioinfo_ai, read_1771Ife, linconv_1771Ife};
ABAIDSET devAiAb1771IfeSe={6, 0, 0, init_1771IfeSe,
ioinfo_ai, read_1771Ife, linconv_1771Ife};
#define IFE_SCAN_RATE 1
#define IFE_INITMSG_LENGTH 37
#define IFE_DIFF_READMSG_LENGTH 12
#define IFE_SE_READMSG_LENGTH 20
struct ab1771Ife_read {
unsigned short diag; /* diagnostic word */
unsigned short urange; /* low byte - under range channels */
unsigned short orange; /* low byte - over range channels */
unsigned short sign; /* low byte - polarity 1 = negative */
short data[16]; /* 16 data values (can be signed) */
};
/* IFE Differential Initialization Message - from the IFE Manual */
LOCAL short ab1771IfeDiff_initmsg[IFE_INITMSG_LENGTH] = {
0xffff, 0xffff, /* -10 to 10 volts (signals 0 - 15) */
0x0700, /* signed magnitude - differential */
0xffff, 0x0000, /* scaled 0 - 4095 (12 bits) */
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095
};
/* 1771 - IFE 0 to 5 Volt */
LOCAL short ab1771Ife0to5v_initmsg[IFE_INITMSG_LENGTH] = {
0x5555, 0x5555, /* 0 to 5 volts (signals 0 - 15) */
0x0700, /* signed magnitude - differential */
0x0000, 0x0000, /* scaled 0 - 4095 (12 bits) */
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095
};
/* 1771 - IFE MilliAmp */
LOCAL short ab1771IfeMa_initmsg[IFE_INITMSG_LENGTH] = {
0x0000, 0x0000, /* 4 - 20 Ma (signals 0 - 15) */
0x0700, /* signed magnitude - differential */
0x0000, 0x0000, /* scaled 0 - 4095 (12 bits) */
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095
};
/* 1771 - IFE Single Ended (-10 to 10 Volts) */
LOCAL short ab1771IfeSe_initmsg[IFE_INITMSG_LENGTH] = {
0xffff, 0xffff, /* 0 to 5 volts (signals 0 - 15) */
0x0600, /* signed magnitude - differential */
0xffff, 0x0000, /* scaled 0 - 4095 (12 bits) */
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095
};
typedef struct {
void *drvPvt;
IOSCANPVT ioscanpvt;
unsigned short read_msg_len;
unsigned short *pread_msg;
} devPvt;
LOCAL void devCallback(void * drvPvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
if(!pdevPvt) return;
scanIoRequest(pdevPvt->ioscanpvt);
}
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)prec->dpvt;
if(!pdevPvt) return(0);
*ppvt = pdevPvt->ioscanpvt;
return(0);
}
LOCAL long read_1771Ife(struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt= (devPvt *)prec->dpvt;
abStatus drvStatus;
struct ab1771Ife_read *pdata;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->getStatus)(pdevPvt->drvPvt);
pdata = (struct ab1771Ife_read *)pdevPvt->pread_msg;
if(drvStatus != abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
prec->rval = pdata->data[pabio->signal];
if( (pdata->orange & (1 << pabio->signal))
|| (pdata->urange & (1 << pabio->signal)) )
recGblSetSevr(prec,HW_LIMIT_ALARM,INVALID_ALARM);
return(0);
}
LOCAL long linconv_1771Ife(struct aiRecord *prec, int after)
{
if(!after) return(0);
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/4095.0;
return(0);
}
LOCAL long init_1771Ife(struct aiRecord *prec, const char *card_type,
unsigned short *pinit_msg, unsigned short read_size)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
/* ai.inp must be an AB_IO */
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec,
"devAiAb1771Ife (init_record) Illegal INP field");
return(S_db_badField);
}
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/4095.0;
/* pointer to the data addess structure */
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeAi,card_type,devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
pdevPvt->read_msg_len = read_size;
pdevPvt->pread_msg = calloc(read_size,sizeof(unsigned short));
drvStatus = (*pabDrv->startScan)(drvPvt,IFE_SCAN_RATE,
pinit_msg,IFE_INITMSG_LENGTH,pdevPvt->pread_msg ,read_size);
if(drvStatus!=abSuccess) {
status = S_db_badField;
recGblRecordError(S_db_badField,(void *)prec,
"devAiAb1771Ife (init_record) startScan");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Ife (init_record) registerCard");
break;
}
return(status);
}
LOCAL long init_1771IfeDiff(struct aiRecord *prec)
{
return(init_1771Ife(prec,"IFEDIFF",&ab1771IfeDiff_initmsg[0],
IFE_DIFF_READMSG_LENGTH));
}
LOCAL long init_1771Ife0to5V(struct aiRecord *prec)
{
return(init_1771Ife(prec,"IFE0to5V",&ab1771Ife0to5v_initmsg[0],
IFE_DIFF_READMSG_LENGTH));
}
LOCAL long init_1771IfeMa(struct aiRecord *prec)
{
return(init_1771Ife(prec,"IFEMA",&ab1771IfeMa_initmsg[0],
IFE_DIFF_READMSG_LENGTH));
}
LOCAL long init_1771IfeSe(struct aiRecord *prec)
{
return(init_1771Ife(prec,"IFESE",&ab1771IfeSe_initmsg[0],
IFE_SE_READMSG_LENGTH));
}

195
src/dev/devAB1771IL.c
View File

@@ -1,195 +0,0 @@
/* devAB1771IL.c */
/*
* Original Author: Bob Dalesio
* Current Author: Bob Dalesio, Marty Kraimer
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 12-01-94 lrd combine the device support that was resident
* in the driver and device support to
significantly reduce the amount of code
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <aiRecord.h>
/* Create the dsets*/
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt);
LOCAL long init_1771Il(struct aiRecord *prec);
LOCAL long linconv_1771Il(struct aiRecord *prec, int after);
LOCAL long read_1771Il(struct aiRecord *prec);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_ai;
DEVSUPFUN special_linconv;} ABAIDSET;
ABAIDSET devAiAb1771Il={6, 0, 0, init_1771Il,
ioinfo_ai, read_1771Il, linconv_1771Il};
#define IL_SCAN_RATE 4
#define IL_INITMSG_LENGTH 19
#define IL_READMSG_LENGTH 12
#define IL_RANGE 0xffff /* volt inp for all channels -10 - 10V */
#define IL_DATA_FORMAT 0x600 /* signed magnitude binary */
struct ab1771il_read {
unsigned short diag; /* diagnostic word */
unsigned short urange; /* low byte - under range channels */
unsigned short orange; /* low byte - over range channels */
unsigned short sign; /* low byte - polarity 1 = negative */
short data[8]; /* 8 data values (can be signed) */
};
typedef struct {
void *drvPvt;
IOSCANPVT ioscanpvt;
unsigned short read_msg[IL_READMSG_LENGTH];
unsigned short *pinit_msg;
} devPvt;
LOCAL unsigned short initMsg[IL_INITMSG_LENGTH] = {
IL_RANGE,IL_DATA_FORMAT,0x0ff,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095,
0, 0x4095, 0, 0x4095, 0, 0x4095, 0, 0x4095
};
LOCAL void devCallback(void * drvPvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
if(!pdevPvt) return;
scanIoRequest(pdevPvt->ioscanpvt);
}
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)prec->dpvt;
if(!pdevPvt) return(0);
*ppvt = pdevPvt->ioscanpvt;
return(0);
}
LOCAL long read_1771Il(struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt= (devPvt *)prec->dpvt;
abStatus drvStatus;
struct ab1771il_read *pdata;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->getStatus)(pdevPvt->drvPvt);
pdata = (struct ab1771il_read *)&pdevPvt->read_msg[0];
if(drvStatus != abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
prec->rval = pdata->data[pabio->signal];
if((pdata->urange&(1<<pabio->signal))
|| (pdata->orange&(1<<pabio->signal)) )
recGblSetSevr(prec,HW_LIMIT_ALARM,INVALID_ALARM);
return(0);
}
static long linconv_1771Il(struct aiRecord *prec, int after)
{
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/4095.0;
return(0);
}
LOCAL long init_1771Il(struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
/* ai.inp must be an AB_IO */
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec,
"devAiAb1771Il (init_record) Illegal INP field");
return(S_db_badField);
}
prec->eslo = (prec->eguf -prec->egul)/4095.0;
/* pointer to the data addess structure */
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeAi,"IL",devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
pdevPvt->pinit_msg = initMsg;
drvStatus = (*pabDrv->startScan)(drvPvt,IL_SCAN_RATE,
pdevPvt->pinit_msg,IL_INITMSG_LENGTH,
&pdevPvt->read_msg[0],IL_READMSG_LENGTH);
if(drvStatus != abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Il (init_record) startScan");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Il (init_record) registerCard");
break;
}
return(status);
}

216
src/dev/devAB1771IR.c
View File

@@ -1,216 +0,0 @@
/* devAB1771IR.c */
/*
* Original Author: Bob Dalesio
* Current Author: Bob Dalesio, Marty Kraimer
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 12-01-94 lrd combine the device support that was resident
* in the driver and device support to
significantly reduce the amount of code
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <aiRecord.h>
/* Create the dsets*/
LOCAL long init_1771Ir(struct aiRecord *prec, const char *card_type,
unsigned short config);
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt);
LOCAL long init_1771IrPlatinum(struct aiRecord *prec);
LOCAL long init_1771IrCopper(struct aiRecord *prec);
LOCAL long read_1771Ir(struct aiRecord *prec);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_ai;
DEVSUPFUN special_linconv;} ABAIDSET;
ABAIDSET devAiAb1771IrPlatinum={6, 0, 0, init_1771IrPlatinum,
ioinfo_ai, read_1771Ir, 0};
ABAIDSET devAiAb1771IrCopper={6, 0, 0, init_1771IrCopper,
ioinfo_ai, read_1771Ir, 0};
#define IR_SCAN_RATE 5
#define IR_INITMSG_LENGTH 1
#define IR_READMSG_LENGTH 8
/*Register definitions*/
#define IR_UNITS_DEGF 0x40
#define IR_UNITS_OHMS 0x80
#define IR_COPPER 0x100
#define IR_SIGNED 0x400
struct ab1771Ir_read {
unsigned short status; /* status and over/under range */
unsigned short pol_over; /* polarity and overflow */
short data[6]; /* current values */
};
typedef struct {
void *drvPvt;
IOSCANPVT ioscanpvt;
unsigned short read_msg[IR_READMSG_LENGTH];
unsigned short write_msg;
} devPvt;
LOCAL void devCallback(void * drvPvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
if(!pdevPvt) return;
scanIoRequest(pdevPvt->ioscanpvt);
}
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)prec->dpvt;
if(!pdevPvt) return(0);
*ppvt = pdevPvt->ioscanpvt;
return(0);
}
LOCAL long read_1771Ir(struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt= (devPvt *)prec->dpvt;
abStatus drvStatus;
struct ab1771Ir_read *pdata;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->getStatus)(pdevPvt->drvPvt);
pdata = (struct ab1771Ir_read *)&pdevPvt->read_msg;
if(drvStatus != abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}else{
unsigned short mask;
short value;
unsigned short signal = pabio->signal;
value = (short)pdata->data[signal];
if(pdata->pol_over& (0x100<<signal)) value = - value;
prec->rval = value;
mask = (1 << pabio->signal);
if((pdata->status & (1<<signal))
||(pdata->status & (0x100<<signal))){
recGblSetSevr(prec,HW_LIMIT_ALARM,INVALID_ALARM);
}
return(0);
}
}
LOCAL long init_1771Ir(struct aiRecord *prec, const char *card_type,
unsigned short config)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec,
"devAiAb1771Ir (init_record) Illegal INP field");
return(S_db_badField);
}
prec->linr = 0;
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeAi,card_type,devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
if(pabio->parm[0]=='C') {
strcpy(prec->egu,"degC");
} else if(pabio->parm[0]=='O') {
config |= IR_UNITS_OHMS;
strcpy(prec->egu,"ohms");
} else {
config |= IR_UNITS_DEGF;
strcpy(prec->egu,"degF");
}
config |= IR_SIGNED;
pdevPvt->write_msg = config;
drvStatus = (*pabDrv->startScan)(drvPvt,IR_SCAN_RATE,
&pdevPvt->write_msg,IR_INITMSG_LENGTH,
pdevPvt->read_msg,IR_READMSG_LENGTH);
if(drvStatus != abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Ir (init_record) startScan");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Ir (init_record) registerCard");
break;
}
return(status);
}
LOCAL long init_1771IrPlatinum(struct aiRecord *prec)
{
return(init_1771Ir(prec,"IRPLATINUM",0));
}
LOCAL long init_1771IrCopper(struct aiRecord *prec)
{
return(init_1771Ir(prec,"IRCOPPER",IR_COPPER));
}

268
src/dev/devAB1771IXE.c
View File

@@ -1,268 +0,0 @@
/* devAB1771IXE.c */
/*
* Original Author: Bob Dalesio
* Current Author: Bob Dalesio, Marty Kraimer
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 12-01-94 lrd combine the device support that was resident
* in the driver and device support to
significantly reduce the amount of code
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <aiRecord.h>
/* Create the dsets*/
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt);
LOCAL long init_1771Ixe(struct aiRecord *prec);
LOCAL long linconv_1771Ixe(struct aiRecord *prec, int after);
LOCAL long read_1771Ixe(struct aiRecord *prec);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_ai;
DEVSUPFUN special_linconv;} ABAIDSET;
ABAIDSET devAiAb1771Ixe={6, 0, 0, init_1771Ixe,
ioinfo_ai, read_1771Ixe, linconv_1771Ixe};
#define IXE_HALFSEC_RATE 5
#define IXE_1SEC_RATE 10
#define IXE_INITMSG_LENGTH 19
#define IXE_READMSG_LENGTH 12
#define IXE_NUM_CVTTYPES 14
typedef struct {
void *drvPvt;
IOSCANPVT ioscanpvt;
unsigned short init_msg[IXE_INITMSG_LENGTH];
unsigned short read_msg[IXE_READMSG_LENGTH];
unsigned short indCvt;
} devPvt;
/* xxxxxxxxxxxxxTTT - Thermocouple Types */
#define IXE_MILLI 0x0000 /* Millivolt input */
#define IXE_E 0x0001 /* "E" Thermocouple */
#define IXE_J 0x0002 /* "J" Thermocouple */
#define IXE_K 0x0003 /* "K" Thermocouple */
#define IXE_T 0x0004 /* "T" Thermocouple */
#define IXE_R 0x0005 /* "R" Thermocouple */
#define IXE_S 0x0006 /* "S" Thermocouple */
/* xxxxxxxCxxxxxxxx - Conversion into degrees F or C */
#define IXE_DEGC 0x0000
#define IXE_DEGF 0x0100
/* xxxxxFFxxxxxxxxx - Data Format */
#define IXE_SIGNED 0x0400 /* signed magnitude " " */
/* SSSSSxxxxxxxxxxx - Scan Rate */
#define IXE_HALFSEC 0x2800 /* sample time = 0.5 seconds */
#define IXE_1SEC 0x5000 /* sample time = 1.0 seconds */
#define IXE_2SECS 0xa000 /* sample time = 2.0 seconds */
#define IXE_3SECS 0xf000 /* sample time = 3.0 seconds */
#define IXE_STATUS 0xff
struct ab1771Ixe_read {
unsigned short pol_stat; /* status - polarity word */
unsigned short out_of_range; /* under - over range channels */
unsigned short alarms; /* inputs outside alarm limits */
short data[8]; /* current values */
unsigned short cjcw; /* cold junction cal word */
};
/*NOTE: The following degfinitions assumes that the allowed convert types
are defined as follows:
K_DGF=2, K_DGC=3, J_DGF=4, J_DGC=5, E_DGF=6, E_DGC=7, T_DGF=8,
T_DGC=9, R_DGF=10, R_DGC=11, S_DGF=12, S_DGC=13,
THIS IS A REAL KLUDGE. WE SHOULD FIND A BETTER WAY */
LOCAL unsigned short ixe_cvt[IXE_NUM_CVTTYPES] = {
IXE_MILLI | IXE_SIGNED | IXE_HALFSEC,
IXE_MILLI | IXE_SIGNED | IXE_HALFSEC,
IXE_K | IXE_DEGF | IXE_SIGNED | IXE_HALFSEC,
IXE_K | IXE_DEGC | IXE_SIGNED | IXE_HALFSEC,
IXE_J | IXE_DEGF | IXE_SIGNED | IXE_HALFSEC,
IXE_J | IXE_DEGC | IXE_SIGNED | IXE_HALFSEC,
IXE_E | IXE_DEGF | IXE_SIGNED | IXE_HALFSEC,
IXE_E | IXE_DEGC | IXE_SIGNED | IXE_HALFSEC,
IXE_T | IXE_DEGF | IXE_SIGNED | IXE_HALFSEC,
IXE_T | IXE_DEGC | IXE_SIGNED | IXE_HALFSEC,
IXE_R | IXE_DEGF | IXE_SIGNED | IXE_HALFSEC,
IXE_R | IXE_DEGC | IXE_SIGNED | IXE_HALFSEC,
IXE_S | IXE_DEGF | IXE_SIGNED | IXE_HALFSEC,
IXE_S | IXE_DEGC | IXE_SIGNED | IXE_HALFSEC
};
LOCAL const char* cardName[IXE_NUM_CVTTYPES] = {
"IXE_MV","IXE_MV","IXE_KDEGF","IXE_KDEGC",
"IXE_JDEGF","IXE_JDEGC","IXE_EDEGF","IXE_EDEGC",
"IXE_TDEGF","IXE_TDEGC","IXE_RDEGF","IXE_RDEGC",
"IXS_TDEGF","IXE_SDEGC"
};
LOCAL unsigned short scanRate[IXE_NUM_CVTTYPES] = {
IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,
IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,
IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,
IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,IXE_HALFSEC_RATE,IXE_HALFSEC_RATE
};
LOCAL void devCallback(void * drvPvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
if(!pdevPvt) return;
scanIoRequest(pdevPvt->ioscanpvt);
}
LOCAL long ioinfo_ai(int cmd,struct aiRecord *prec,IOSCANPVT *ppvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)prec->dpvt;
if(!pdevPvt) return(0);
*ppvt = pdevPvt->ioscanpvt;
return(0);
}
LOCAL long read_1771Ixe(struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt= (devPvt *)prec->dpvt;
abStatus drvStatus;
struct ab1771Ixe_read *pdata;
long status;
unsigned short indCvt;
short rval;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
indCvt = pdevPvt->indCvt;
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->getStatus)(pdevPvt->drvPvt);
pdata = (struct ab1771Ixe_read *)&pdevPvt->read_msg[0];
if(drvStatus != abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
rval = pdata->data[pabio->signal];
if((pdata->pol_stat&(0x100<<pabio->signal))) rval = -rval;
if((pdata->out_of_range&(1<<pabio->signal))
|| (pdata->out_of_range&(0x100<<pabio->signal)) ) {
recGblSetSevr(prec,HW_LIMIT_ALARM,INVALID_ALARM);
}
if(indCvt!=0) {
prec->val = prec->rval = rval;
prec->udf = FALSE;
status=2; /*don't convert*/
} else {
prec->rval = rval + 10000;
status = 0;
}
return(status);
}
static long linconv_1771Ixe(struct aiRecord *prec, int after)
{
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/20000.0;
return(0);
}
LOCAL long init_1771Ixe(struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
unsigned short indCvt;
/* ai.inp must be an AB_IO */
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec,
"devAiAb1771Ixe (init_record) Illegal INP field");
return(S_db_badField);
}
/*If conversion type is 2,...,IXE_NUM_CVTTYPES Ixe performs the conversion*/
/* THIS SHOULD BE CHANGED */
if(prec->linr>=2 && prec->linr <IXE_NUM_CVTTYPES) {
indCvt = prec->linr;
prec->linr = 0;
} else {
indCvt = 0;
}
prec->eslo = (prec->eguf -prec->egul)/20000.0;
/* pointer to the data addess structure */
pabio = (struct abio *)&(prec->inp.value);
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeAi,cardName[indCvt],devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
pdevPvt->indCvt = indCvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
pdevPvt->init_msg[0] = ixe_cvt[indCvt];
drvStatus = (*pabDrv->startScan)(drvPvt,scanRate[indCvt],
&pdevPvt->init_msg[0],IXE_INITMSG_LENGTH,
&pdevPvt->read_msg[0],IXE_READMSG_LENGTH);
if(drvStatus != abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Ixe (init_record) startScan");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAiAb1771Ixe (init_record) registerCard");
break;
}
return(status);
}

196
src/dev/devAB1771OFE.c
View File

@@ -1,196 +0,0 @@
/* devAB1771OFE.c */
/*
* Original Author: Bob Dalesio
* Current Author: Bob Dalesio, Marty Kraimer
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 12-01-94 lrd combine the device support that was resident in the driver and
* device support to significantly reduce the amount of code
* ...
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <sysLib.h>
#include <taskLib.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <aoRecord.h>
/* Create the dsets*/
LOCAL long init_1771Ofe(struct aoRecord *pao);
LOCAL long write_1771Ofe(struct aoRecord *pao);
LOCAL long linconv_1771Ofe(struct aoRecord *pao, int after);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_ao;
DEVSUPFUN special_linconv;
}ABAODSET;
ABAODSET devAoAb1771Ofe={ 6, NULL, NULL, init_1771Ofe, NULL,
write_1771Ofe, linconv_1771Ofe};
#define UPDATE_RATE 100
#define READ_MSG_LEN 5
#define WRITE_MSG_LEN 5
/* defines and structures for analog outputs */
/* configuration word 5 for the OFE module */
/* FxxxHHHHLLLLPPPP */
/* F - Data Format */
/* 0x0 specifies BCD */
/* 0x1 specifies Binary */
/* HHHH - Max Scaling Polarity */
/* LLLL - Min Scaling Polarity */
/* PPPP - Value Polarity */
#define OFE_BINARY 0x8000 /* talk binary instead of BCD */
#define OFE_SCALING 0x0000 /* all positive */
typedef struct {
void *drvPvt;
unsigned short read_msg[READ_MSG_LEN];
unsigned short write_msg[WRITE_MSG_LEN];
}devPvt;
LOCAL long init_1771Ofe(struct aoRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
int failed;
int i;
if (prec->out.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec,
"devAoAb1771Ofe (init_record) Illegal INP field");
return(S_db_badField);
}
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/4095.0;
/* pointer to the data addess structure */
pabio = (struct abio *)&(prec->out.value);
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeAo,"OFE",NULL,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
drvStatus = (*pabDrv->getStatus)(drvPvt);
if(drvStatus==abSuccess) {
prec->rval = (unsigned short)pdevPvt->read_msg[pabio->signal];
} else {
status = 2;
}
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
pdevPvt->write_msg[4] = OFE_BINARY | OFE_SCALING;
drvStatus = (*pabDrv->startScan)(drvPvt,UPDATE_RATE,
pdevPvt->write_msg,WRITE_MSG_LEN,
pdevPvt->read_msg ,READ_MSG_LEN);
if(drvStatus!=abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAoAb1771Ofe (init_record) startScan");
break;
}
/*wait for up to 3 seconds*/
for(failed=0; failed<30; failed++) {
taskDelay(vxTicksPerSecond/10);
drvStatus = (*pabDrv->getStatus)(drvPvt);
if(drvStatus==abSuccess) {
prec->rval=(unsigned short)pdevPvt->read_msg[pabio->signal];
for(i=0;i<4;i++) {
pdevPvt->write_msg[i] = pdevPvt->read_msg[i];
}
write_1771Ofe(prec);
status = 2;
break;
}
}
status = 0;
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,
"devAoAb1771Ofe (init_record) registerCard");
break;
}
return(status);
}
LOCAL long write_1771Ofe(struct aoRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt = (devPvt *)prec->dpvt;
abStatus drvStatus;
void *drvPvt;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2); /*dont convert*/
}
drvPvt = pdevPvt->drvPvt;
pabio = (struct abio *)&(prec->out.value);
pdevPvt->write_msg[pabio->signal] = prec->rval;
drvStatus = (*pabDrv->updateAo)(drvPvt);
if(drvStatus!=abSuccess) {
if(recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM) && errVerbose
&& (prec->stat!=WRITE_ALARM || prec->sevr!=INVALID_ALARM))
recGblRecordError(-1,(void *)prec,"abDrv(updateAo)");
}
return(0);
}
LOCAL long linconv_1771Ofe(struct aoRecord *prec, int after)
{
if(!after) return(0);
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/4095.0;
return(0);
}

617
src/dev/devABBINARY.c
View File

@@ -1,617 +0,0 @@
/* devABBINARY.c */
/*
* Original Author: Bob Dalesio
* Current Author: Bob Dalesio, Marty Kraimer
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 12-01-94 lrd combine the device support that was resident in the driver and
* device support to significantly reduce the amount of code
* ...
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <dbCommon.h>
#include <biRecord.h>
#include <boRecord.h>
#include <mbbiRecord.h>
#include <mbboRecord.h>
#include <mbbiDirectRecord.h>
#include <mbboDirectRecord.h>
typedef struct {
void *drvPvt;
IOSCANPVT ioscanpvt;
}devPvt;
/* Create the dsets*/
LOCAL long ioinfo(int cmd, struct dbCommon *prec, IOSCANPVT *ppvt);
LOCAL long read_bi(struct biRecord *prec);
LOCAL long init_bi08(struct biRecord *prec);
LOCAL long init_bi16(struct biRecord *prec);
LOCAL long init_bi32(struct biRecord *prec);
LOCAL long init_bi(struct biRecord *prec,abNumBits nBits);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_bi;} ABBIDSET;
ABBIDSET devBiAb= { 5, 0, 0, init_bi08, ioinfo, read_bi};
ABBIDSET devBiAb16= { 5, 0, 0, init_bi16, ioinfo, read_bi};
ABBIDSET devBiAb32= { 5, 0, 0, init_bi32, ioinfo, read_bi};
LOCAL long read_mbbi(struct mbbiRecord *prec);
LOCAL long init_mbbi08(struct mbbiRecord *prec);
LOCAL long init_mbbi16(struct mbbiRecord *prec);
LOCAL long init_mbbi32(struct mbbiRecord *prec);
LOCAL long init_mbbi(struct mbbiRecord *prec,abNumBits nBits);
ABBIDSET devMbbiAb= { 5, 0, 0, init_mbbi08, ioinfo, read_mbbi};
ABBIDSET devMbbiAb16={ 5, 0, 0, init_mbbi16, ioinfo, read_mbbi};
ABBIDSET devMbbiAb32={ 5, 0, 0, init_mbbi32, ioinfo, read_mbbi};
LOCAL long read_mbbiDirect(struct mbbiDirectRecord *prec);
LOCAL long init_mbbiDirect08(struct mbbiDirectRecord *prec);
LOCAL long init_mbbiDirect16(struct mbbiDirectRecord *prec);
LOCAL long init_mbbiDirect32(struct mbbiDirectRecord *prec);
LOCAL long init_mbbiDirect(struct mbbiDirectRecord *prec,abNumBits nBits);
ABBIDSET devMbbiDirectAb= { 5,0,0, init_mbbiDirect08,ioinfo, read_mbbiDirect};
ABBIDSET devMbbiDirectAb16={ 5,0,0, init_mbbiDirect16,ioinfo, read_mbbiDirect};
ABBIDSET devMbbiDirectAb32={ 5,0,0, init_mbbiDirect32,ioinfo, read_mbbiDirect};
LOCAL long write_bo(struct boRecord *prec);
LOCAL long init_bo08(struct boRecord *prec);
LOCAL long init_bo16(struct boRecord *prec);
LOCAL long init_bo32(struct boRecord *prec);
LOCAL long init_bo(struct boRecord *prec,abNumBits nBits);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_bo;
} ABBODSET;
ABBODSET devBoAb= { 5, 0, 0, init_bo08, 0, write_bo};
ABBODSET devBoAb16= { 5, 0, 0, init_bo16, 0, write_bo};
ABBODSET devBoAb32= { 5, 0, 0, init_bo32, 0, write_bo};
LOCAL long write_mbbo(struct mbboRecord *prec);
LOCAL long init_mbbo08(struct mbboRecord *prec);
LOCAL long init_mbbo16(struct mbboRecord *prec);
LOCAL long init_mbbo32(struct mbboRecord *prec);
LOCAL long init_mbbo(struct mbboRecord *prec,abNumBits nBits);
ABBODSET devMbboAb= { 5, 0, 0, init_mbbo08, 0, write_mbbo};
ABBODSET devMbboAb16={ 5, 0, 0, init_mbbo16, 0, write_mbbo};
ABBODSET devMbboAb32={ 5, 0, 0, init_mbbo32, 0, write_mbbo};
LOCAL long write_mbboDirect(struct mbboDirectRecord *prec);
LOCAL long init_mbboDirect08(struct mbboDirectRecord *prec);
LOCAL long init_mbboDirect16(struct mbboDirectRecord *prec);
LOCAL long init_mbboDirect32(struct mbboDirectRecord *prec);
LOCAL long init_mbboDirect(struct mbboDirectRecord *prec,abNumBits nBits);
ABBODSET devMbboDirectAb= { 5, 0, 0, init_mbboDirect08, 0, write_mbboDirect};
ABBODSET devMbboDirectAb16={ 5, 0, 0, init_mbboDirect16, 0, write_mbboDirect};
ABBODSET devMbboDirectAb32={ 5, 0, 0, init_mbboDirect32, 0, write_mbboDirect};
LOCAL void devCallback(void * drvPvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
if(!pdevPvt) return;
if(!pdevPvt->ioscanpvt) return;
scanIoRequest(pdevPvt->ioscanpvt);
}
LOCAL long ioinfo(int cmd, struct dbCommon *prec, IOSCANPVT *ppvt)
{
devPvt *pdevPvt;
pdevPvt = prec->dpvt;
if(!pdevPvt) return(0);
*ppvt = pdevPvt->ioscanpvt;
return(0);
}
LOCAL long init_bi08(struct biRecord *prec)
{
return(init_bi(prec, abBit8));
}
LOCAL long init_bi16(struct biRecord *prec)
{
return(init_bi(prec, abBit16));
}
LOCAL long init_bi32(struct biRecord *prec)
{
return(init_bi(prec, abBit32));
}
LOCAL long init_mbbi08(struct mbbiRecord *prec)
{
return(init_mbbi(prec, abBit8));
}
LOCAL long init_mbbi16(struct mbbiRecord *prec)
{
return(init_mbbi(prec, abBit16));
}
LOCAL long init_mbbi32(struct mbbiRecord *prec)
{
return(init_mbbi(prec, abBit32));
}
LOCAL long init_mbbiDirect08(struct mbbiDirectRecord *prec)
{
return(init_mbbiDirect(prec, abBit8));
}
LOCAL long init_mbbiDirect16(struct mbbiDirectRecord *prec)
{
return(init_mbbiDirect(prec, abBit16));
}
LOCAL long init_mbbiDirect32(struct mbbiDirectRecord *prec)
{
return(init_mbbiDirect(prec, abBit32));
}
LOCAL long init_bo08(struct boRecord *prec)
{
return(init_bo(prec, abBit8));
}
LOCAL long init_bo16(struct boRecord *prec)
{
return(init_bo(prec, abBit16));
}
LOCAL long init_bo32(struct boRecord *prec)
{
return(init_bo(prec, abBit32));
}
LOCAL long init_mbbo08(struct mbboRecord *prec)
{
return(init_mbbo(prec, abBit8));
}
LOCAL long init_mbbo16(struct mbboRecord *prec)
{
return(init_mbbo(prec, abBit16));
}
LOCAL long init_mbbo32(struct mbboRecord *prec)
{
return(init_mbbo(prec, abBit32));
}
LOCAL long init_mbboDirect08(struct mbboDirectRecord *prec)
{
return(init_mbboDirect(prec, abBit8));
}
LOCAL long init_mbboDirect16(struct mbboDirectRecord *prec)
{
return(init_mbboDirect(prec, abBit16));
}
LOCAL long init_mbboDirect32(struct mbboDirectRecord *prec)
{
return(init_mbboDirect(prec, abBit32));
}
LOCAL long read_bi(struct biRecord *prec)
{
devPvt *pdevPvt = (devPvt *)prec->dpvt;
void *drvPvt;
abStatus drvStatus;
unsigned long value;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->readBi)(drvPvt,&value,prec->mask);
if(drvStatus!=abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2);
}
prec->rval = value;
return(0);
}
LOCAL long init_bi(struct biRecord *prec,abNumBits nBits)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec,
"init_record: bad INP field");
return(S_db_badField);
}
pabio = (struct abio *)&(prec->inp.value);
prec->mask=1;
prec->mask <<= pabio->signal;
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeBi,"BINARY",devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
drvStatus = (*pabDrv->setNbits)(drvPvt,nBits);
if(drvStatus!=abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record registerCard");
break;
}
return(status);
}
LOCAL long read_mbbi(struct mbbiRecord *prec)
{
devPvt *pdevPvt = (devPvt *)prec->dpvt;
void *drvPvt;
abStatus drvStatus;
unsigned long value;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->readBi)(drvPvt,&value,prec->mask);
if(drvStatus!=abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2);
}
prec->rval = value;
return(0);
}
LOCAL long init_mbbi(struct mbbiRecord *prec,abNumBits nBits)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec, "Illegal INP field");
return(S_db_badField);
}
pabio = (struct abio *)&(prec->inp.value);
prec->shft = prec->inp.value.abio.signal;
prec->mask <<= prec->shft;
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeBi,"BINARY",devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
drvStatus = (*pabDrv->setNbits)(drvPvt,nBits);
if(drvStatus!=abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record registerCard");
break;
}
return(status);
}
LOCAL long read_mbbiDirect(struct mbbiDirectRecord *prec)
{
devPvt *pdevPvt = (devPvt *)prec->dpvt;
void *drvPvt;
abStatus drvStatus;
unsigned long value;
if(!pdevPvt) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->readBi)(drvPvt,&value,prec->mask);
if(drvStatus!=abSuccess) {
recGblSetSevr(prec,READ_ALARM,INVALID_ALARM);
return(2);
}
prec->rval = value;
return(0);
}
LOCAL long init_mbbiDirect(struct mbbiDirectRecord *prec,abNumBits nBits)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
if (prec->inp.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec, "Illegal INP field");
return(S_db_badField);
}
pabio = (struct abio *)&(prec->inp.value);
prec->shft = prec->inp.value.abio.signal;
prec->mask <<= prec->shft;
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeBi,"BINARY",devCallback,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
scanIoInit(&pdevPvt->ioscanpvt);
drvStatus = (*pabDrv->setNbits)(drvPvt,nBits);
if(drvStatus!=abSuccess) {
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record registerCard");
break;
}
return(status);
}
LOCAL long write_bo(struct boRecord *prec)
{
devPvt *pdevPvt = (devPvt *)prec->dpvt;
void *drvPvt;
abStatus drvStatus;
if(!pdevPvt) {
recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM);
return(0);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->updateBo)(drvPvt,prec->rval,prec->mask);
if(drvStatus!=abSuccess) {
recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM);
}
return(0);
}
LOCAL long init_bo(struct boRecord *prec,abNumBits nBits)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
unsigned long value;
if (prec->out.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec, "Illegal INP field");
return(S_db_badField);
}
pabio = (struct abio *)&(prec->out.value);
prec->mask = 1;
prec->mask <<= pabio->signal;
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeBo,"BINARY",NULL,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
drvStatus = (*pabDrv->setNbits)(drvPvt,nBits);
if(drvStatus!=abSuccess) {
recGblRecordError(S_db_badField,(void *)prec,
"init_record setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record registerCard");
return(status);
}
drvStatus = (*pabDrv->readBo)(drvPvt,&value,prec->mask);
if(drvStatus==abSuccess) {
prec->rval = value;
status = 0;
} else {
status = 2;
}
return(status);
}
LOCAL long write_mbbo(struct mbboRecord *prec)
{
devPvt *pdevPvt = (devPvt *)prec->dpvt;
void *drvPvt;
abStatus drvStatus;
if(!pdevPvt) {
recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM);
return(0);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->updateBo)(drvPvt,prec->rval,prec->mask);
if(drvStatus!=abSuccess) {
recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM);
}
return(0);
}
LOCAL long init_mbbo(struct mbboRecord *prec,abNumBits nBits)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
unsigned long value;
if (prec->out.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec, "Illegal INP field");
return(S_db_badField);
}
pabio = (struct abio *)&(prec->out.value);
prec->shft = prec->out.value.abio.signal;
prec->mask <<= prec->shft;
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeBo,"BINARY",NULL,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
drvStatus = (*pabDrv->setNbits)(drvPvt,nBits);
if(drvStatus!=abSuccess) {
recGblRecordError(S_db_badField,(void *)prec,
"init_record setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record registerCard");
return(status);
}
drvStatus = (*pabDrv->readBo)(drvPvt,&value,prec->mask);
if(drvStatus==abSuccess) {
prec->rval = value;
status = 0;
} else {
status = 2;
}
return(status);
}
LOCAL long write_mbboDirect(struct mbboDirectRecord *prec)
{
devPvt *pdevPvt = (devPvt *)prec->dpvt;
void *drvPvt;
abStatus drvStatus;
unsigned long value = prec->rval;
if(!pdevPvt) {
recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM);
return(0);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->updateBo)(drvPvt,value,prec->mask);
if(drvStatus!=abSuccess) {
recGblSetSevr(prec,WRITE_ALARM,INVALID_ALARM);
}
return(0);
}
LOCAL long init_mbboDirect(struct mbboDirectRecord *prec,abNumBits nBits)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status=0;
void *drvPvt;
unsigned long value;
if (prec->out.type != AB_IO){
recGblRecordError(S_db_badField,(void *)prec, "Illegal INP field");
return(S_db_badField);
}
pabio = (struct abio *)&(prec->out.value);
prec->shft = prec->out.value.abio.signal;
prec->mask <<= prec->shft;
drvStatus = (*pabDrv->registerCard)(pabio->link,pabio->adapter,
pabio->card,typeBo,"BINARY",NULL,&drvPvt);
switch(drvStatus) {
case abSuccess :
pdevPvt = (devPvt *)(*pabDrv->getUserPvt)(drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc(1,sizeof(devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt)(drvPvt,(void *)pdevPvt);
drvStatus = (*pabDrv->setNbits)(drvPvt,nBits);
if(drvStatus!=abSuccess) {
recGblRecordError(S_db_badField,(void *)prec,
"init_record setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError(status,(void *)prec,"init_record registerCard");
return(status);
}
drvStatus = (*pabDrv->readBo)(drvPvt,&value,prec->mask);
if(drvStatus==abSuccess) {
prec->rval = value;
status = 0;
} else {
status = 2;
}
return(status);
}

584
src/dev/devABSLCDCM.c
View File

@@ -1,584 +0,0 @@
/* devABSLCDCM.c */
/*
* Original Author: Ric Claus
* Current Author: Stephanie Allison
* Date: 1/25/96
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1996, the Regents of the University of California,
* the University of Chicago Board of Governors and The Board
* of Trustees of the Leland Stanford Junior University.
* All rights reserved.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* (W-31-109-ENG-38) at Argonne National Laboratory, and
* (DE-AC03-76SF00515) at the Stanford Linear Accelerator Center.
*
* Initial development by:
* The PEP-II Low Level RF Group
* Positron Electron Project upgrade
* Stanford Linear Accelerator Center
*
* Co-developed with:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* and:
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 1-25-96 rc Created from devABBINARY.c
* .02 6-03-96 saa Added ai/ao.
+ .03 9-19-96 saa Changed routine names. Added linear conv.
+ .04 4-28-97 saa Changed for signed 16 bit analog values.
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <dbCommon.h>
#include <longinRecord.h>
#include <longoutRecord.h>
#include <aiRecord.h>
#include <aoRecord.h>
typedef struct
{
void *drvPvt;
IOSCANPVT ioscanpvt;
}devPvt;
/* Create the dsets*/
LOCAL long ioinfo (int cmd, struct dbCommon *prec, IOSCANPVT *ppvt);
LOCAL long read_li (struct longinRecord *prec);
LOCAL long init_li (struct longinRecord *prec);
typedef struct
{
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_li;
} ABLIDSET;
ABLIDSET devLiAbSlcDcm = {5, NULL, NULL, init_li, ioinfo, read_li};
LOCAL long write_lo (struct longoutRecord *prec);
LOCAL long init_lo (struct longoutRecord *prec);
typedef struct
{
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_dl;
} ABLODSET;
ABLODSET devLoAbSlcDcm = {5, NULL, NULL, init_lo, NULL, write_lo};
LOCAL long read_ai(struct aiRecord *prec);
LOCAL long init_ai(struct aiRecord *prec);
LOCAL long linconv_ai(struct aiRecord *prec, int after);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_ai;
DEVSUPFUN special_linconv;} ABAIDSET;
ABAIDSET devAiAbSlcDcm = {6, NULL, NULL, init_ai, ioinfo, read_ai,
linconv_ai};
LOCAL long read_signed_ai(struct aiRecord *prec);
LOCAL long init_signed_ai(struct aiRecord *prec);
ABAIDSET devAiAbSlcDcmSigned = {6, NULL, NULL, init_signed_ai, ioinfo, read_signed_ai,
linconv_ai};
LOCAL long write_ao(struct aoRecord *prec);
LOCAL long init_ao (struct aoRecord *prec);
LOCAL long linconv_ao(struct aoRecord *prec, int after);
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_ao;
DEVSUPFUN special_linconv;} ABAODSET;
ABAODSET devAoAbSlcDcm = {6, NULL, NULL, init_ao, NULL, write_ao,
linconv_ao};
LOCAL void devCallback (void * drvPvt)
{
devPvt *pdevPvt;
pdevPvt = (devPvt *) (*pabDrv->getUserPvt) (drvPvt);
if (!pdevPvt) return;
if (!pdevPvt->ioscanpvt) return;
scanIoRequest (pdevPvt->ioscanpvt);
}
LOCAL long ioinfo (int cmd,
struct dbCommon *prec,
IOSCANPVT *ppvt)
{
devPvt *pdevPvt;
pdevPvt = prec->dpvt;
if (!pdevPvt) return(0);
*ppvt = pdevPvt->ioscanpvt;
return (0);
}
LOCAL long read_li (struct longinRecord *prec)
{
devPvt *pdevPvt = (devPvt *) prec->dpvt;
void *drvPvt;
abStatus drvStatus;
short value[2];
if (!pdevPvt)
{
recGblSetSevr (prec, READ_ALARM, INVALID_ALARM);
return (2);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->readBi) (drvPvt, (unsigned long *)value, 0x0000ffff);
if (drvStatus != abSuccess)
{
recGblSetSevr (prec, READ_ALARM, INVALID_ALARM);
return (2);
}
prec->val = (long)value[1];
return(0);
}
LOCAL long init_li (struct longinRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status = 0;
void *drvPvt;
if (prec->inp.type != AB_IO)
{
recGblRecordError (S_db_badField, (void *) prec, "init_li: Bad INP field");
return (S_db_badField);
}
pabio = (struct abio *) &(prec->inp.value);
drvStatus = (*pabDrv->registerCard) (pabio->link, pabio->adapter, pabio->card,
typeBi, "BINARY", devCallback, &drvPvt);
switch (drvStatus)
{
case abSuccess :
pdevPvt = (devPvt *) (*pabDrv->getUserPvt) (drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc (1, sizeof (devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt) (drvPvt, (void *) pdevPvt);
scanIoInit (&pdevPvt->ioscanpvt);
drvStatus = (*pabDrv->setNbits) (drvPvt, abBit16);
if (drvStatus != abSuccess)
{
status = S_db_badField;
recGblRecordError (status, (void *) prec, "init_li: setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError (status, (void *)prec, "init_li: registerCard");
break;
}
return (status);
}
LOCAL long write_lo (struct longoutRecord *prec)
{
devPvt *pdevPvt = (devPvt *) prec->dpvt;
void *drvPvt;
abStatus drvStatus;
if (!pdevPvt)
{
recGblSetSevr (prec, WRITE_ALARM, INVALID_ALARM);
return (0);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->updateBo) (drvPvt, prec->val, 0x0000ffff);
if (drvStatus != abSuccess)
{
recGblSetSevr (prec, WRITE_ALARM, INVALID_ALARM);
}
return(0);
}
LOCAL long init_lo (struct longoutRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status = 0;
void *drvPvt;
short value[2];
if (prec->out.type != AB_IO)
{
recGblRecordError (S_db_badField, (void *) prec, "init_lo: Bad OUT field");
return (S_db_badField);
}
pabio = (struct abio *) &(prec->out.value);
drvStatus = (*pabDrv->registerCard) (pabio->link, pabio->adapter, pabio->card,
typeBo, "BINARY", NULL, &drvPvt);
switch (drvStatus)
{
case abSuccess :
pdevPvt = (devPvt *) (*pabDrv->getUserPvt) (drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc (1, sizeof (devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt) (drvPvt, (void *) pdevPvt);
drvStatus = (*pabDrv->setNbits) (drvPvt, abBit16);
if (drvStatus != abSuccess)
{
status = S_db_badField;
recGblRecordError (status, (void *) prec, "init_lo: setNbits");
return (status);
}
break;
default:
status = S_db_badField;
printf ("init_lo: %s\n", abStatusMessage[drvStatus]);
recGblRecordError (status, (void *) prec, "init_lo: registerCard");
return (status);
}
drvStatus = (*pabDrv->readBo) (drvPvt, (unsigned long *)value, 0x0000ffff);
if (drvStatus == abSuccess)
{
prec->val = (long)value[1];
status = 0;
}
else
{
status = 2;
}
return (status);
}
LOCAL long read_ai (struct aiRecord *prec)
{
devPvt *pdevPvt = (devPvt *) prec->dpvt;
void *drvPvt;
abStatus drvStatus;
short value[2];
if (!pdevPvt)
{
recGblSetSevr (prec, READ_ALARM, INVALID_ALARM);
return (2);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->readBi) (drvPvt, (unsigned long *)value, 0x0000ffff);
if (drvStatus != abSuccess)
{
recGblSetSevr (prec, READ_ALARM, INVALID_ALARM);
return (2);
}
prec->rval = (long)value[1];
return(0);
}
LOCAL long linconv_ai(struct aiRecord *prec, int after)
{
if(!after) return(0);
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/65535.0;
return(0);
}
LOCAL long init_ai (struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status = 0;
void *drvPvt;
if (prec->inp.type != AB_IO)
{
recGblRecordError (S_db_badField, (void *) prec, "init_ai: Bad INP field");
return (S_db_badField);
}
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/65535.0;
/* pointer to the data addess structure */
pabio = (struct abio *) &(prec->inp.value);
drvStatus = (*pabDrv->registerCard) (pabio->link, pabio->adapter, pabio->card,
typeBi, "BINARY", devCallback, &drvPvt);
switch (drvStatus)
{
case abSuccess :
pdevPvt = (devPvt *) (*pabDrv->getUserPvt) (drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc (1, sizeof (devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt) (drvPvt, (void *) pdevPvt);
scanIoInit (&pdevPvt->ioscanpvt);
drvStatus = (*pabDrv->setNbits) (drvPvt, abBit16);
if (drvStatus != abSuccess)
{
status = S_db_badField;
recGblRecordError (status, (void *) prec, "init_ai: setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError (status, (void *)prec, "init_ai: registerCard");
break;
}
return (status);
}
LOCAL long write_ao (struct aoRecord *prec)
{
devPvt *pdevPvt = (devPvt *) prec->dpvt;
void *drvPvt;
abStatus drvStatus;
if (!pdevPvt)
{
recGblSetSevr (prec, WRITE_ALARM, INVALID_ALARM);
return (0);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->updateBo) (drvPvt, prec->rval, 0x0000ffff);
if (drvStatus != abSuccess)
{
recGblSetSevr (prec, WRITE_ALARM, INVALID_ALARM);
}
return(0);
}
LOCAL long linconv_ao(struct aoRecord *prec, int after)
{
if(!after) return(0);
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/32767.0;
return(0);
}
LOCAL long init_ao (struct aoRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status = 0;
void *drvPvt;
short value[2];
if (prec->out.type != AB_IO)
{
recGblRecordError (S_db_badField, (void *) prec, "init_ao: Bad OUT field");
return (S_db_badField);
}
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/32767.0;
/* pointer to the data addess structure */
pabio = (struct abio *) &(prec->out.value);
drvStatus = (*pabDrv->registerCard) (pabio->link, pabio->adapter, pabio->card,
typeBo, "BINARY", NULL, &drvPvt);
switch (drvStatus)
{
case abSuccess :
pdevPvt = (devPvt *) (*pabDrv->getUserPvt) (drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc (1, sizeof (devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt) (drvPvt, (void *) pdevPvt);
drvStatus = (*pabDrv->setNbits) (drvPvt, abBit16);
if (drvStatus != abSuccess)
{
status = S_db_badField;
recGblRecordError (status, (void *) prec, "init_ao: setNbits");
return (status);
}
break;
default:
status = S_db_badField;
printf ("init_ao: %s\n", abStatusMessage[drvStatus]);
recGblRecordError (status, (void *) prec, "init_ao: registerCard");
return (status);
}
drvStatus = (*pabDrv->readBo) (drvPvt, (unsigned long *)value, 0x0000ffff);
if (drvStatus == abSuccess)
{
prec->rval = (long)value[1];
status = 0;
}
else
{
status = 2;
}
return (status);
}
LOCAL long read_signed_ai (struct aiRecord *prec)
{
devPvt *pdevPvt = (devPvt *) prec->dpvt;
void *drvPvt;
abStatus drvStatus;
unsigned short value[2];
if (!pdevPvt)
{
recGblSetSevr (prec, READ_ALARM, INVALID_ALARM);
return (2);
}
drvPvt = pdevPvt->drvPvt;
drvStatus = (*pabDrv->readBi) (drvPvt, (unsigned long *)value, 0x0000ffff);
if (drvStatus != abSuccess)
{
recGblSetSevr (prec, READ_ALARM, INVALID_ALARM);
return (2);
}
prec->rval = ((long)value[1])^0x8000;
return(0);
}
LOCAL long init_signed_ai (struct aiRecord *prec)
{
struct abio *pabio;
devPvt *pdevPvt;
abStatus drvStatus;
long status = 0;
void *drvPvt;
if (prec->inp.type != AB_IO)
{
recGblRecordError (S_db_badField, (void *) prec, "init_signed_ai: Bad INP field");
return (S_db_badField);
}
/* set linear conversion slope*/
prec->eslo = (prec->eguf -prec->egul)/65535.0;
/* pointer to the data addess structure */
pabio = (struct abio *) &(prec->inp.value);
drvStatus = (*pabDrv->registerCard) (pabio->link, pabio->adapter, pabio->card,
typeBi, "BINARY", devCallback, &drvPvt);
switch (drvStatus)
{
case abSuccess :
pdevPvt = (devPvt *) (*pabDrv->getUserPvt) (drvPvt);
prec->dpvt = pdevPvt;
break;
case abNewCard :
pdevPvt = calloc (1, sizeof (devPvt));
pdevPvt->drvPvt = drvPvt;
prec->dpvt = pdevPvt;
(*pabDrv->setUserPvt) (drvPvt, (void *) pdevPvt);
scanIoInit (&pdevPvt->ioscanpvt);
drvStatus = (*pabDrv->setNbits) (drvPvt, abBit16);
if (drvStatus != abSuccess)
{
status = S_db_badField;
recGblRecordError (status, (void *) prec, "init_signed_ai: setNbits");
}
break;
default:
status = S_db_badField;
recGblRecordError (status, (void *)prec, "init_signed_ai: registerCard");
break;
}
return (status);
}

116
src/dev/devABStatus.c
View File

@@ -1,116 +0,0 @@
/* devABStatus.c */
/*
* Original Authors: Marty Kraimer (nagging by Ned Arnold,Bob dalesio)
* Date: 3/6/91
*
* Experimental Physics and Industrial Control System (EPICS)
*
* Copyright 1991, the Regents of the University of California,
* and the University of Chicago Board of Governors.
*
* This software was produced under U.S. Government contracts:
* (W-7405-ENG-36) at the Los Alamos National Laboratory,
* and (W-31-109-ENG-38) at Argonne National Laboratory.
*
* Initial development by:
* The Controls and Automation Group (AT-8)
* Ground Test Accelerator
* Accelerator Technology Division
* Los Alamos National Laboratory
*
* Co-developed with
* The Controls and Computing Group
* Accelerator Systems Division
* Advanced Photon Source
* Argonne National Laboratory
*
* Modification Log:
* -----------------
* .01 04-20-95 mrk Initial version
* ...
*/
#include <vxWorks.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <taskLib.h>
#include <dbDefs.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbAccess.h>
#include <epicsPrint.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <drvAb.h>
#include <mbbiRecord.h>
typedef struct {
void *drvPvt;
IOSCANPVT ioscanpvt;
}devPvt;
/* Create the dsets*/
typedef struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_bi;} ABBIDSET;
LOCAL long init_common(struct mbbiRecord *prec);
LOCAL long read_adapter_status(struct mbbiRecord *prec);
LOCAL long read_card_status(struct mbbiRecord *prec);
ABBIDSET devMbbiAbAdapterStat= { 5, 0, 0, init_common, 0, read_adapter_status};
ABBIDSET devMbbiAbCardStat= { 5, 0, 0, init_common, 0, read_card_status};
LOCAL long init_common(struct mbbiRecord *prec)
{
unsigned long *pstate_values;
char *pstate_string;
unsigned short *palarm_sevr;
short i;
if(abFailure>=16) {
epicsPrintf("devMbbiAbLinkStat. > 16 error status values\n");
taskSuspend(0);
return(0);
}
pstate_values = &(prec->zrvl);
pstate_string = prec->zrst;
palarm_sevr = &prec->zrsv;
/*Following code assumes that abFailure is last status value*/
for(i=0; i<=abFailure; i++ ,pstate_string += sizeof(prec->zrst)){
pstate_values[i] = 1<<i;
if(pstate_string[0]=='\0')
strncpy(pstate_string,abStatusMessage[i],sizeof(prec->zrst)-1);
if(i>0) palarm_sevr[i] = MAJOR_ALARM;
}
return(0);
}
LOCAL long read_adapter_status(struct mbbiRecord *prec)
{
abStatus status;
struct abio *pabio;
pabio = (struct abio *)&(prec->inp.value);
status = (*pabDrv->adapterStatus)(pabio->link,pabio->adapter);
prec->rval = 1 << status;;
return(0);
}
LOCAL long read_card_status(struct mbbiRecord *prec)
{
abStatus status;
struct abio *pabio;
pabio = (struct abio *)&(prec->inp.value);
status = (*pabDrv->cardStatus)(pabio->link,pabio->adapter,pabio->card);
prec->rval = 1 << status;;
return(0);
}

344
src/dev/devAiCan.c
View File

@@ -1,344 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devAiCan.c
Description:
CANBUS Analogue Input device support
Author:
Andrew Johnson
Created:
8 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <aiRecord.h>
#include <canBus.h>
#define CONVERT 0
#define DO_NOT_CONVERT 2
typedef struct {
CALLBACK callback; /* This *must* be first member */
WDOG_ID wdId;
IOSCANPVT ioscanpvt;
struct aiRecord *prec;
canIo_t inp;
ulong_t mask;
ulong_t sign;
long data;
int status;
} aiCanPrivate_t;
LOCAL long init_ai(struct aiRecord *prec);
LOCAL long get_ioint_info(int cmd, struct aiRecord *prec, IOSCANPVT *ppvt);
LOCAL long read_ai(struct aiRecord *prec);
LOCAL long special_linconv(struct aiRecord *prec, int after);
LOCAL void aiProcess(aiCanPrivate_t *pcanAi);
LOCAL void aiMessage(aiCanPrivate_t *pcanAi, canMessage_t *pmessage);
LOCAL void aiSignal(aiCanPrivate_t *pcanAi, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_ai;
DEVSUPFUN special_linconv;
} devAiCan = {
6,
NULL,
NULL,
init_ai,
get_ioint_info,
read_ai,
special_linconv
};
LOCAL long init_ai (
struct aiRecord *prec
) {
aiCanPrivate_t *pcanAi;
int status;
ulong_t fsd;
if (prec->inp.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devAiCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanAi = (aiCanPrivate_t *) malloc(sizeof(aiCanPrivate_t));
if (pcanAi == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanAi;
pcanAi->prec = prec;
pcanAi->ioscanpvt = NULL;
pcanAi->status = NO_ALARM;
/* Convert the address string into members of the canIo structure */
status = canIoParse(prec->inp.value.instio.string, &pcanAi->inp);
if (status) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devAiCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("aiCan %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanAi->inp.busName, pcanAi->inp.identifier,
pcanAi->inp.offset, pcanAi->inp.parameter);
#endif
/* For ai records, the final parameter specifies the raw input size.
eg 0xff or 0x100 specify an 8-bit unsigned value. -ve numbers
specify a signed value, eg -4095 means a 12-bit signed value.
The range does not have to be a power of two, eg 99 is legal. */
fsd = abs(pcanAi->inp.parameter);
if (fsd > 0) {
if ((fsd & (fsd-1)) == 0) {
fsd--;
}
/* Make a mask to contain only the valid input bits based on fsd */
pcanAi->mask = 1;
while (pcanAi->mask < fsd) {
pcanAi->mask <<= 1;
}
pcanAi->mask--;
if (pcanAi->inp.parameter < 0) {
/* signed: rval = sign-extend(data & mask) */
pcanAi->sign = (pcanAi->mask >> 1) + 1;
} else {
/* unsigned: rval = data & mask */
pcanAi->sign = 0;
}
if (prec->linr == 1) {
prec->roff = pcanAi->sign;
prec->eslo = (prec->eguf - prec->egul) / fsd;
} else {
prec->roff = 0;
}
} else {
pcanAi->mask = pcanAi->sign = 0;
}
#ifdef DEBUG
printf(" fsd=%d, eslo=%g, roff = %d, mask=%#x, sign=%d\n",
fsd, prec->eslo, prec->roff, pcanAi->mask, pcanAi->sign);
#endif
/* Create a callback for asynchronous processing */
callbackSetCallback(aiProcess, &pcanAi->callback);
callbackSetPriority(prec->prio, &pcanAi->callback);
/* and a watchdog for CANbus RTR timeouts */
pcanAi->wdId = wdCreate();
if (pcanAi->wdId == NULL) {
return S_dev_noMemory;
}
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanAi->inp.canBusID, pcanAi->inp.identifier,
(canMsgCallback_t *) aiMessage, pcanAi);
canSignal(pcanAi->inp.canBusID, (canSigCallback_t *) aiSignal, pcanAi);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct aiRecord *prec,
IOSCANPVT *ppvt
) {
aiCanPrivate_t *pcanAi = (aiCanPrivate_t *) prec->dpvt;
if (pcanAi->ioscanpvt == NULL) {
scanIoInit(&pcanAi->ioscanpvt);
}
#ifdef DEBUG
printf("canAi %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanAi->ioscanpvt;
return OK;
}
LOCAL long read_ai (
struct aiRecord *prec
) {
aiCanPrivate_t *pcanAi = (aiCanPrivate_t *) prec->dpvt;
if (pcanAi->inp.canBusID == NULL) {
return DO_NOT_CONVERT;
}
#ifdef DEBUG
printf("canAi %s: read_ai status=%#x\n", prec->name, pcanAi->status);
#endif
switch (pcanAi->status) {
case TIMEOUT_ALARM:
case COMM_ALARM:
recGblSetSevr(prec, pcanAi->status, MAJOR_ALARM);
pcanAi->status = NO_ALARM;
return DO_NOT_CONVERT;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanAi->status = NO_ALARM;
return DO_NOT_CONVERT;
case NO_ALARM:
if (prec->pact || prec->scan == SCAN_IO_EVENT) {
#ifdef DEBUG
printf("canAi %s: message id=%#x, data=%#x\n",
prec->name, pcanAi->inp.identifier, pcanAi->data);
#endif
prec->rval = pcanAi->data & pcanAi->mask;
if (pcanAi->sign & prec->rval) {
prec->rval |= ~pcanAi->mask;
}
return CONVERT;
} else {
canMessage_t message;
message.identifier = pcanAi->inp.identifier;
message.rtr = RTR;
message.length = 0;
#ifdef DEBUG
printf("canAi %s: RTR, id=%#x\n",
prec->name, pcanAi->inp.identifier);
#endif
prec->pact = TRUE;
pcanAi->status = TIMEOUT_ALARM;
callbackSetPriority(prec->prio, &pcanAi->callback);
wdStart(pcanAi->wdId, pcanAi->inp.timeout,
(FUNCPTR) callbackRequest, (int) pcanAi);
canWrite(pcanAi->inp.canBusID, &message, pcanAi->inp.timeout);
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanAi->status = NO_ALARM;
return DO_NOT_CONVERT;
}
}
LOCAL long special_linconv (
struct aiRecord *prec,
int after
) {
if (after) {
if (prec->linr == 1) {
ulong_t fsd;
aiCanPrivate_t *pcanAi = (aiCanPrivate_t *) prec->dpvt;
fsd = abs(pcanAi->inp.parameter);
if (fsd > 0) {
if ((fsd & (fsd-1)) == 0) {
fsd--;
}
prec->roff = pcanAi->sign;
prec->eslo = (prec->eguf - prec->egul) / fsd;
}
} else {
prec->roff = 0;
}
}
return 0;
}
LOCAL void aiProcess (
aiCanPrivate_t *pcanAi
) {
dbScanLock((struct dbCommon *) pcanAi->prec);
(*((struct rset *) pcanAi->prec->rset)->process)(pcanAi->prec);
dbScanUnlock((struct dbCommon *) pcanAi->prec);
}
LOCAL void aiMessage (
aiCanPrivate_t *pcanAi,
canMessage_t *pmessage
) {
if (pmessage->rtr == RTR) {
return; /* Ignore RTRs */
}
if (pcanAi->mask == 0) {
pcanAi->data = 0;
} else if (pcanAi->mask <= 0xff) {
pcanAi->data = pmessage->data[pcanAi->inp.offset+0];
} else if (pcanAi->mask <= 0xffff) {
pcanAi->data = pmessage->data[pcanAi->inp.offset+0] << 8 |
pmessage->data[pcanAi->inp.offset+1];
} else if (pcanAi->mask <= 0xffffff) {
pcanAi->data = pmessage->data[pcanAi->inp.offset+0] << 16 |
pmessage->data[pcanAi->inp.offset+1] << 8 |
pmessage->data[pcanAi->inp.offset+2];
} else {
pcanAi->data = pmessage->data[pcanAi->inp.offset+0] << 24 |
pmessage->data[pcanAi->inp.offset+1] << 16 |
pmessage->data[pcanAi->inp.offset+2] << 8 |
pmessage->data[pcanAi->inp.offset+3];
}
if (pcanAi->prec->scan == SCAN_IO_EVENT) {
pcanAi->status = NO_ALARM;
scanIoRequest(pcanAi->ioscanpvt);
} else if (pcanAi->status == TIMEOUT_ALARM) {
pcanAi->status = NO_ALARM;
wdCancel(pcanAi->wdId);
callbackRequest(&pcanAi->callback);
}
}
LOCAL void aiSignal (
aiCanPrivate_t *pcanAi,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanAi->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanAi->status = COMM_ALARM;
break;
}
callbackRequest(&pcanAi->callback);
}

319
src/dev/devAoCan.c
View File

@@ -1,319 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devAoCan.c
Description:
CANBUS Analogue Output device support
Author:
Andrew Johnson
Created:
9 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <aoRecord.h>
#include <canBus.h>
typedef struct {
CALLBACK callback; /* This *must* be first member */
IOSCANPVT ioscanpvt;
struct aoRecord *prec;
canIo_t out;
ulong_t mask;
ulong_t sign;
long data;
int status;
} aoCanPrivate_t;
LOCAL long init_ao(struct aoRecord *prec);
LOCAL long get_ioint_info(int cmd, struct aoRecord *prec, IOSCANPVT *ppvt);
LOCAL long write_ao(struct aoRecord *prec);
LOCAL long special_linconv(struct aoRecord *prec, int after);
LOCAL void aoProcess(aoCanPrivate_t *pcanAo);
LOCAL void aoMessage(aoCanPrivate_t *pcanAo, canMessage_t *pmessage);
LOCAL void aoSignal(aoCanPrivate_t *pcanAo, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_ao;
DEVSUPFUN special_linconv;
} devAoCan = {
6,
NULL,
NULL,
init_ao,
get_ioint_info,
write_ao,
special_linconv
};
LOCAL long init_ao (
struct aoRecord *prec
) {
aoCanPrivate_t *pcanAo;
int status, fsd;
if (prec->out.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devAoCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanAo = (aoCanPrivate_t *) malloc(sizeof(aoCanPrivate_t));
if (pcanAo == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanAo;
pcanAo->prec = prec;
pcanAo->ioscanpvt = NULL;
pcanAo->status = NO_ALARM;
/* Convert the parameter string into members of the canIo structure */
status = canIoParse(prec->out.value.instio.string, &pcanAo->out);
if (status) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devAoCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("canAo %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanAo->out.busName, pcanAo->out.identifier,
pcanAo->out.offset, pcanAo->out.parameter);
#endif
/* For ao records, the final parameter specifies the raw output size.
eg 0xfff or 0x1000 specify a 12-bit unsigned value. -ve numbers
specify a signed value, eg -256 means an 8-bit signed value. */
fsd = abs(pcanAo->out.parameter);
if (fsd > 0) {
if ((fsd & (fsd-1)) == 0) {
fsd--;
}
/* Make a mask to contain only the valid out bits based on fsd */
pcanAo->mask = 1;
while (pcanAo->mask < fsd) {
pcanAo->mask <<= 1;
}
pcanAo->mask--;
if (pcanAo->out.parameter < 0) {
/* signed data */
pcanAo->sign = (pcanAo->mask >> 1) + 1;
} else {
pcanAo->sign = 0;
}
if (prec->linr == 1) {
prec->roff = pcanAo->sign;
prec->eslo = (prec->eguf - prec->egul) / fsd;
} else {
prec->roff = 0;
}
} else {
pcanAo->mask = pcanAo->sign = 0;
}
#ifdef DEBUG
printf(" fsd=%d, eslo=%g, roff=%d, mask=%#x, sign=%d\n",
fsd, prec->eslo, prec->roff, pcanAo->mask, pcanAo->sign);
#endif
/* Create a callback for error processing */
callbackSetCallback(aoProcess, &pcanAo->callback);
callbackSetPriority(prec->prio, &pcanAo->callback);
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanAo->out.canBusID, pcanAo->out.identifier,
(canMsgCallback_t *) aoMessage, pcanAo);
canSignal(pcanAo->out.canBusID, (canSigCallback_t *) aoSignal, pcanAo);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct aoRecord *prec,
IOSCANPVT *ppvt
) {
aoCanPrivate_t *pcanAo = (aoCanPrivate_t *) prec->dpvt;
if (pcanAo->ioscanpvt == NULL) {
scanIoInit(&pcanAo->ioscanpvt);
}
#ifdef DEBUG
printf("aoCan %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanAo->ioscanpvt;
return OK;
}
LOCAL long write_ao (
struct aoRecord *prec
) {
aoCanPrivate_t *pcanAo = (aoCanPrivate_t *) prec->dpvt;
if (pcanAo->out.canBusID == NULL) {
return ERROR;
}
#ifdef DEBUG
printf("aoCan %s: write_ao status=%#x\n", prec->name, pcanAo->status);
#endif
switch (pcanAo->status) {
case COMM_ALARM:
recGblSetSevr(prec, pcanAo->status, MAJOR_ALARM);
pcanAo->status = NO_ALARM;
return ERROR;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanAo->status = NO_ALARM;
return ERROR;
case NO_ALARM:
{
canMessage_t message;
int status;
message.identifier = pcanAo->out.identifier;
message.rtr = SEND;
pcanAo->data = prec->rval & pcanAo->mask;
if (pcanAo->mask == 0) {
message.length = 0;
} else if (pcanAo->mask <= 0xff) {
message.data[0] = (pcanAo->data ) & 0xff;
message.length = 1;
} else if (pcanAo->mask <= 0xffff) {
message.data[0] = (pcanAo->data >> 8) & 0xff;
message.data[1] = (pcanAo->data ) & 0xff;
message.length = 2;
} else if (pcanAo->mask <= 0xffffff) {
message.data[0] = (pcanAo->data >> 16) & 0xff;
message.data[1] = (pcanAo->data >> 8) & 0xff;
message.data[2] = (pcanAo->data ) & 0xff;
message.length = 3;
} else {
message.data[0] = (pcanAo->data >> 24) & 0xff;
message.data[1] = (pcanAo->data >> 16) & 0xff;
message.data[2] = (pcanAo->data >> 8) & 0xff;
message.data[3] = (pcanAo->data ) & 0xff;
message.length = 4;
}
#ifdef DEBUG
printf("canAo %s: SEND id=%#x, length=%d, data=%#x\n",
prec->name, message.identifier, message.length,
pcanAo->data);
#endif
status = canWrite(pcanAo->out.canBusID, &message,
pcanAo->out.timeout);
if (status) {
#ifdef DEBUG
printf("canAo %s: canWrite status=%#x\n", status);
#endif
recGblSetSevr(prec, TIMEOUT_ALARM, MINOR_ALARM);
return ERROR;
}
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanAo->status = NO_ALARM;
return ERROR;
}
}
LOCAL long special_linconv (
struct aoRecord *prec,
int after
) {
if (after) {
if (prec->linr == 1) {
ulong_t fsd;
aoCanPrivate_t *pcanAo = (aoCanPrivate_t *) prec->dpvt;
fsd = abs(pcanAo->out.parameter);
if (fsd > 0) {
if ((fsd & (fsd-1)) == 0) {
fsd--;
}
prec->roff = pcanAo->sign;
prec->eslo = (prec->eguf - prec->egul) / fsd;
}
} else {
prec->roff = 0;
}
}
return 0;
}
LOCAL void aoProcess (
aoCanPrivate_t *pcanAo
) {
dbScanLock((struct dbCommon *) pcanAo->prec);
(*((struct rset *) pcanAo->prec->rset)->process)(pcanAo->prec);
dbScanUnlock((struct dbCommon *) pcanAo->prec);
}
LOCAL void aoMessage (
aoCanPrivate_t *pcanAo,
canMessage_t *pmessage
) {
if (pcanAo->prec->scan == SCAN_IO_EVENT &&
pmessage->rtr == RTR) {
pcanAo->status = NO_ALARM;
scanIoRequest(pcanAo->ioscanpvt);
}
}
LOCAL void aoSignal (
aoCanPrivate_t *pcanAo,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanAo->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanAo->status = COMM_ALARM;
break;
}
callbackRequest(&pcanAo->callback);
}

265
src/dev/devBiCan.c
View File

@@ -1,265 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devBiCan.c
Description:
CANBUS Binary Input device support
Author:
Andrew Johnson
Created:
14 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <biRecord.h>
#include <canBus.h>
#define CONVERT 0
#define DO_NOT_CONVERT 2
typedef struct {
CALLBACK callback; /* This *must* be first member */
WDOG_ID wdId;
IOSCANPVT ioscanpvt;
struct biRecord *prec;
canIo_t inp;
long data;
int status;
} biCanPrivate_t;
LOCAL long init_bi(struct biRecord *prec);
LOCAL long get_ioint_info(int cmd, struct biRecord *prec, IOSCANPVT *ppvt);
LOCAL long read_bi(struct biRecord *prec);
LOCAL void biProcess(biCanPrivate_t *pcanBi);
LOCAL void biMessage(biCanPrivate_t *pcanBi, canMessage_t *pmessage);
LOCAL void biSignal(biCanPrivate_t *pcanBi, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_bi;
} devBiCan = {
5,
NULL,
NULL,
init_bi,
get_ioint_info,
read_bi
};
LOCAL long init_bi (
struct biRecord *prec
) {
biCanPrivate_t *pcanBi;
int status;
if (prec->inp.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devBiCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanBi = (biCanPrivate_t *) malloc(sizeof(biCanPrivate_t));
if (pcanBi == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanBi;
pcanBi->prec = prec;
pcanBi->ioscanpvt = NULL;
pcanBi->status = NO_ALARM;
/* Convert the address string into members of the canIo structure */
status = canIoParse(prec->inp.value.instio.string, &pcanBi->inp);
if (status ||
pcanBi->inp.parameter < 0 ||
pcanBi->inp.parameter > 7) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devBiCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("biCan %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanBi->inp.busName, pcanBi->inp.identifier,
pcanBi->inp.offset, pcanBi->inp.parameter);
#endif
/* For bi records, the final parameter specifies the input bit number,
with offset specifying the message byte number. */
prec->mask = 1 << pcanBi->inp.parameter;
#ifdef DEBUG
printf(" bit=%d, mask=%#x\n",
pcanBi->inp.parameter, prec->mask);
#endif
/* Create a callback for asynchronous processing */
callbackSetCallback(biProcess, &pcanBi->callback);
callbackSetPriority(prec->prio, &pcanBi->callback);
/* and a watchdog for CANbus RTR timeouts */
pcanBi->wdId = wdCreate();
if (pcanBi->wdId == NULL) {
return S_dev_noMemory;
}
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanBi->inp.canBusID, pcanBi->inp.identifier,
(canMsgCallback_t *) biMessage, pcanBi);
canSignal(pcanBi->inp.canBusID, (canSigCallback_t *) biSignal, pcanBi);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct biRecord *prec,
IOSCANPVT *ppvt
) {
biCanPrivate_t *pcanBi = (biCanPrivate_t *) prec->dpvt;
if (pcanBi->ioscanpvt == NULL) {
scanIoInit(&pcanBi->ioscanpvt);
}
#ifdef DEBUG
printf("canBi %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanBi->ioscanpvt;
return OK;
}
LOCAL long read_bi (
struct biRecord *prec
) {
biCanPrivate_t *pcanBi = (biCanPrivate_t *) prec->dpvt;
if (pcanBi->inp.canBusID == NULL) {
return DO_NOT_CONVERT;
}
#ifdef DEBUG
printf("canBi %s: read_bi status=%#x\n", prec->name, pcanBi->status);
#endif
switch (pcanBi->status) {
case TIMEOUT_ALARM:
case COMM_ALARM:
recGblSetSevr(prec, pcanBi->status, MAJOR_ALARM);
pcanBi->status = NO_ALARM;
return DO_NOT_CONVERT;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanBi->status = NO_ALARM;
return DO_NOT_CONVERT;
case NO_ALARM:
if (prec->pact || prec->scan == SCAN_IO_EVENT) {
#ifdef DEBUG
printf("canBi %s: message id=%#x, data=%#x\n",
prec->name, pcanBi->inp.identifier, pcanBi->data);
#endif
prec->rval = pcanBi->data & prec->mask;
return CONVERT;
} else {
canMessage_t message;
message.identifier = pcanBi->inp.identifier;
message.rtr = RTR;
message.length = 0;
#ifdef DEBUG
printf("canBi %s: RTR, id=%#x\n",
prec->name, pcanBi->inp.identifier);
#endif
prec->pact = TRUE;
pcanBi->status = TIMEOUT_ALARM;
callbackSetPriority(prec->prio, &pcanBi->callback);
wdStart(pcanBi->wdId, pcanBi->inp.timeout,
(FUNCPTR) callbackRequest, (int) pcanBi);
canWrite(pcanBi->inp.canBusID, &message, pcanBi->inp.timeout);
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanBi->status = NO_ALARM;
return DO_NOT_CONVERT;
}
}
LOCAL void biProcess (
biCanPrivate_t *pcanBi
) {
dbScanLock((struct dbCommon *) pcanBi->prec);
(*((struct rset *) pcanBi->prec->rset)->process)(pcanBi->prec);
dbScanUnlock((struct dbCommon *) pcanBi->prec);
}
LOCAL void biMessage (
biCanPrivate_t *pcanBi,
canMessage_t *pmessage
) {
if (pmessage->rtr == RTR) {
return; /* Ignore RTRs */
}
pcanBi->data = pmessage->data[pcanBi->inp.offset];
if (pcanBi->prec->scan == SCAN_IO_EVENT) {
pcanBi->status = NO_ALARM;
scanIoRequest(pcanBi->ioscanpvt);
} else if (pcanBi->status == TIMEOUT_ALARM) {
pcanBi->status = NO_ALARM;
wdCancel(pcanBi->wdId);
callbackRequest(&pcanBi->callback);
}
}
LOCAL void biSignal (
biCanPrivate_t *pcanBi,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanBi->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanBi->status = COMM_ALARM;
break;
}
callbackRequest(&pcanBi->callback);
}

244
src/dev/devBoCan.c
View File

@@ -1,244 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devBoCan.c
Description:
CANBUS Binary Output device support
Author:
Andrew Johnson
Created:
14 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <boRecord.h>
#include <canBus.h>
typedef struct {
CALLBACK callback; /* This *must* be first member */
IOSCANPVT ioscanpvt;
struct boRecord *prec;
canIo_t out;
long data;
int status;
} boCanPrivate_t;
LOCAL long init_bo(struct boRecord *prec);
LOCAL long get_ioint_info(int cmd, struct boRecord *prec, IOSCANPVT *ppvt);
LOCAL long write_bo(struct boRecord *prec);
LOCAL void boProcess(boCanPrivate_t *pcanBo);
LOCAL void boMessage(boCanPrivate_t *pcanBo, canMessage_t *pmessage);
LOCAL void boSignal(boCanPrivate_t *pcanBo, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_bo;
} devBoCan = {
5,
NULL,
NULL,
init_bo,
get_ioint_info,
write_bo
};
LOCAL long init_bo (
struct boRecord *prec
) {
boCanPrivate_t *pcanBo;
int status;
if (prec->out.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devBoCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanBo = (boCanPrivate_t *) malloc(sizeof(boCanPrivate_t));
if (pcanBo == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanBo;
pcanBo->prec = prec;
pcanBo->ioscanpvt = NULL;
pcanBo->status = NO_ALARM;
/* Convert the parameter string into members of the canIo structure */
status = canIoParse(prec->out.value.instio.string, &pcanBo->out);
if (status ||
pcanBo->out.parameter < 0 ||
pcanBo->out.parameter > 7) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devBoCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("canBo %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanBo->out.busName, pcanBo->out.identifier,
pcanBo->out.offset, pcanBo->out.parameter);
#endif
/* For bo records, the final parameter specifies the output bit number,
with the offset specifying the message byte number. */
prec->mask = 1 << pcanBo->out.parameter;
#ifdef DEBUG
printf(" bit=%d, mask=%#x\n", out.parameter, prec->mask);
#endif
/* Create a callback for error processing */
callbackSetCallback(boProcess, &pcanBo->callback);
callbackSetPriority(prec->prio, &pcanBo->callback);
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanBo->out.canBusID, pcanBo->out.identifier,
(canMsgCallback_t *) boMessage, pcanBo);
canSignal(pcanBo->out.canBusID, (canSigCallback_t *) boSignal, pcanBo);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct boRecord *prec,
IOSCANPVT *ppvt
) {
boCanPrivate_t *pcanBo = (boCanPrivate_t *) prec->dpvt;
if (pcanBo->ioscanpvt == NULL) {
scanIoInit(&pcanBo->ioscanpvt);
}
#ifdef DEBUG
printf("boCan %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanBo->ioscanpvt;
return OK;
}
LOCAL long write_bo (
struct boRecord *prec
) {
boCanPrivate_t *pcanBo = (boCanPrivate_t *) prec->dpvt;
if (pcanBo->out.canBusID == NULL) {
return ERROR;
}
#ifdef DEBUG
printf("boCan %s: write_bo status=%#x\n", prec->name, pcanBo->status);
#endif
switch (pcanBo->status) {
case COMM_ALARM:
recGblSetSevr(prec, pcanBo->status, MAJOR_ALARM);
pcanBo->status = NO_ALARM;
return ERROR;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanBo->status = NO_ALARM;
return ERROR;
case NO_ALARM:
{
canMessage_t message;
int status;
message.identifier = pcanBo->out.identifier;
message.rtr = SEND;
pcanBo->data = prec->rval & prec->mask;
message.data[pcanBo->out.offset] = pcanBo->data;
message.length = pcanBo->out.offset + 1;
#ifdef DEBUG
printf("canBo %s: SEND id=%#x, length=%d, data=%#x\n",
prec->name, message.identifier, message.length,
pcanBo->data);
#endif
status = canWrite(pcanBo->out.canBusID, &message,
pcanBo->out.timeout);
if (status) {
#ifdef DEBUG
printf("canBo %s: canWrite status=%#x\n", status);
#endif
recGblSetSevr(prec, TIMEOUT_ALARM, MINOR_ALARM);
return ERROR;
}
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanBo->status = NO_ALARM;
return ERROR;
}
}
LOCAL void boProcess (
boCanPrivate_t *pcanBo
) {
dbScanLock((struct dbCommon *) pcanBo->prec);
(*((struct rset *) pcanBo->prec->rset)->process)(pcanBo->prec);
dbScanUnlock((struct dbCommon *) pcanBo->prec);
}
LOCAL void boMessage (
boCanPrivate_t *pcanBo,
canMessage_t *pmessage
) {
if (pcanBo->prec->scan == SCAN_IO_EVENT &&
pmessage->rtr == RTR) {
pcanBo->status = NO_ALARM;
scanIoRequest(pcanBo->ioscanpvt);
}
}
LOCAL void boSignal (
boCanPrivate_t *pcanBo,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanBo->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanBo->status = COMM_ALARM;
break;
}
callbackRequest(&pcanBo->callback);
}

267
src/dev/devMbbiCan.c
View File

@@ -1,267 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devMbbiCan.c
Description:
CANBUS Multi-Bit Binary Input device support
Author:
Andrew Johnson
Created:
14 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <mbbiRecord.h>
#include <canBus.h>
#define CONVERT 0
#define DO_NOT_CONVERT 2
typedef struct {
CALLBACK callback; /* This *must* be first member */
WDOG_ID wdId;
IOSCANPVT ioscanpvt;
struct mbbiRecord *prec;
canIo_t inp;
long data;
int status;
} mbbiCanPrivate_t;
LOCAL long init_mbbi(struct mbbiRecord *prec);
LOCAL long get_ioint_info(int cmd, struct mbbiRecord *prec, IOSCANPVT *ppvt);
LOCAL long read_mbbi(struct mbbiRecord *prec);
LOCAL void mbbiProcess(mbbiCanPrivate_t *pcanMbbi);
LOCAL void mbbiMessage(mbbiCanPrivate_t *pcanMbbi, canMessage_t *pmessage);
LOCAL void mbbiSignal(mbbiCanPrivate_t *pcanMbbi, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_mbbi;
} devMbbiCan = {
5,
NULL,
NULL,
init_mbbi,
get_ioint_info,
read_mbbi
};
LOCAL long init_mbbi (
struct mbbiRecord *prec
) {
mbbiCanPrivate_t *pcanMbbi;
int status;
if (prec->inp.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devMbbiCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanMbbi = (mbbiCanPrivate_t *) malloc(sizeof(mbbiCanPrivate_t));
if (pcanMbbi == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanMbbi;
pcanMbbi->prec = prec;
pcanMbbi->ioscanpvt = NULL;
pcanMbbi->status = NO_ALARM;
/* Convert the address string into members of the canIo structure */
status = canIoParse(prec->inp.value.instio.string, &pcanMbbi->inp);
if (status ||
pcanMbbi->inp.parameter < 0 ||
pcanMbbi->inp.parameter > 7) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devMbbiCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("mbbiCan %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanMbbi->inp.busName, pcanMbbi->inp.identifier,
pcanMbbi->inp.offset, pcanMbbi->inp.parameter);
#endif
/* For mbbi records, the final parameter specifies the input bit shift,
with offset specifying the message byte number. */
prec->shft = pcanMbbi->inp.parameter;
prec->mask <<= pcanMbbi->inp.parameter;
#ifdef DEBUG
printf(" shft=%d, mask=%#x\n",
pcanMbbi->inp.parameter, prec->mask);
#endif
/* Create a callback for asynchronous processing */
callbackSetCallback(mbbiProcess, &pcanMbbi->callback);
callbackSetPriority(prec->prio, &pcanMbbi->callback);
/* and a watchdog for CANbus RTR timeouts */
pcanMbbi->wdId = wdCreate();
if (pcanMbbi->wdId == NULL) {
return S_dev_noMemory;
}
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanMbbi->inp.canBusID, pcanMbbi->inp.identifier,
(canMsgCallback_t *) mbbiMessage, pcanMbbi);
canSignal(pcanMbbi->inp.canBusID,
(canSigCallback_t *) mbbiSignal, pcanMbbi);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct mbbiRecord *prec,
IOSCANPVT *ppvt
) {
mbbiCanPrivate_t *pcanMbbi = (mbbiCanPrivate_t *) prec->dpvt;
if (pcanMbbi->ioscanpvt == NULL) {
scanIoInit(&pcanMbbi->ioscanpvt);
}
#ifdef DEBUG
printf("canMbbi %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanMbbi->ioscanpvt;
return OK;
}
LOCAL long read_mbbi (
struct mbbiRecord *prec
) {
mbbiCanPrivate_t *pcanMbbi = (mbbiCanPrivate_t *) prec->dpvt;
if (pcanMbbi->inp.canBusID == NULL) {
return DO_NOT_CONVERT;
}
#ifdef DEBUG
printf("canMbbi %s: read_mbbi status=%#x\n", prec->name, pcanMbbi->status);
#endif
switch (pcanMbbi->status) {
case TIMEOUT_ALARM:
case COMM_ALARM:
recGblSetSevr(prec, pcanMbbi->status, MAJOR_ALARM);
pcanMbbi->status = NO_ALARM;
return DO_NOT_CONVERT;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanMbbi->status = NO_ALARM;
return DO_NOT_CONVERT;
case NO_ALARM:
if (prec->pact || prec->scan == SCAN_IO_EVENT) {
#ifdef DEBUG
printf("canMbbi %s: message id=%#x, data=%#x\n",
prec->name, pcanMbbi->inp.identifier, pcanMbbi->data);
#endif
prec->rval = pcanMbbi->data & prec->mask;
return CONVERT;
} else {
canMessage_t message;
message.identifier = pcanMbbi->inp.identifier;
message.rtr = RTR;
message.length = 0;
#ifdef DEBUG
printf("canMbbi %s: RTR, id=%#x\n",
prec->name, pcanMbbi->inp.identifier);
#endif
prec->pact = TRUE;
pcanMbbi->status = TIMEOUT_ALARM;
callbackSetPriority(prec->prio, &pcanMbbi->callback);
wdStart(pcanMbbi->wdId, pcanMbbi->inp.timeout,
(FUNCPTR) callbackRequest, (int) pcanMbbi);
canWrite(pcanMbbi->inp.canBusID, &message, pcanMbbi->inp.timeout);
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanMbbi->status = NO_ALARM;
return DO_NOT_CONVERT;
}
}
LOCAL void mbbiProcess (
mbbiCanPrivate_t *pcanMbbi
) {
dbScanLock((struct dbCommon *) pcanMbbi->prec);
(*((struct rset *) pcanMbbi->prec->rset)->process)(pcanMbbi->prec);
dbScanUnlock((struct dbCommon *) pcanMbbi->prec);
}
LOCAL void mbbiMessage (
mbbiCanPrivate_t *pcanMbbi,
canMessage_t *pmessage
) {
if (pmessage->rtr == RTR) {
return; /* Ignore RTRs */
}
pcanMbbi->data = pmessage->data[pcanMbbi->inp.offset];
if (pcanMbbi->prec->scan == SCAN_IO_EVENT) {
pcanMbbi->status = NO_ALARM;
scanIoRequest(pcanMbbi->ioscanpvt);
} else if (pcanMbbi->status == TIMEOUT_ALARM) {
pcanMbbi->status = NO_ALARM;
wdCancel(pcanMbbi->wdId);
callbackRequest(&pcanMbbi->callback);
}
}
LOCAL void mbbiSignal (
mbbiCanPrivate_t *pcanMbbi,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanMbbi->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanMbbi->status = COMM_ALARM;
break;
}
callbackRequest(&pcanMbbi->callback);
}

267
src/dev/devMbbiDirectCan.c
View File

@@ -1,267 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devMbbiDirectCan.c
Description:
CANBUS Multi-Bit Binary Input Direct device support
Author:
Andrew Johnson
Created:
14 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <mbbiDirectRecord.h>
#include <canBus.h>
#define CONVERT 0
#define DO_NOT_CONVERT 2
typedef struct {
CALLBACK callback; /* This *must* be first member */
WDOG_ID wdId;
IOSCANPVT ioscanpvt;
struct mbbiDirectRecord *prec;
canIo_t inp;
long data;
int status;
} mbbiDirectCanPrivate_t;
LOCAL long init_mbbiDirect(struct mbbiDirectRecord *prec);
LOCAL long get_ioint_info(int cmd, struct mbbiDirectRecord *prec, IOSCANPVT *ppvt);
LOCAL long read_mbbiDirect(struct mbbiDirectRecord *prec);
LOCAL void mbbiDirectProcess(mbbiDirectCanPrivate_t *pcanMbbiDirect);
LOCAL void mbbiDirectMessage(mbbiDirectCanPrivate_t *pcanMbbiDirect, canMessage_t *pmessage);
LOCAL void mbbiDirectSignal(mbbiDirectCanPrivate_t *pcanMbbiDirect, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_mbbiDirect;
} devMbbiDirectCan = {
5,
NULL,
NULL,
init_mbbiDirect,
get_ioint_info,
read_mbbiDirect
};
LOCAL long init_mbbiDirect (
struct mbbiDirectRecord *prec
) {
mbbiDirectCanPrivate_t *pcanMbbiDirect;
int status;
if (prec->inp.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devMbbiDirectCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanMbbiDirect = (mbbiDirectCanPrivate_t *) malloc(sizeof(mbbiDirectCanPrivate_t));
if (pcanMbbiDirect == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanMbbiDirect;
pcanMbbiDirect->prec = prec;
pcanMbbiDirect->ioscanpvt = NULL;
pcanMbbiDirect->status = NO_ALARM;
/* Convert the address string into members of the canIo structure */
status = canIoParse(prec->inp.value.instio.string, &pcanMbbiDirect->inp);
if (status ||
pcanMbbiDirect->inp.parameter < 0 ||
pcanMbbiDirect->inp.parameter > 7) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devMbbiDirectCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("mbbiDirectCan %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanMbbiDirect->inp.busName, pcanMbbiDirect->inp.identifier,
pcanMbbiDirect->inp.offset, pcanMbbiDirect->inp.parameter);
#endif
/* For mbbiDirect records, the final parameter specifies the input bit shift,
with offset specifying the message byte number. */
prec->shft = pcanMbbiDirect->inp.parameter;
prec->mask <<= pcanMbbiDirect->inp.parameter;
#ifdef DEBUG
printf(" shft=%d, mask=%#x\n",
pcanMbbiDirect->inp.parameter, prec->mask);
#endif
/* Create a callback for asynchronous processing */
callbackSetCallback(mbbiDirectProcess, &pcanMbbiDirect->callback);
callbackSetPriority(prec->prio, &pcanMbbiDirect->callback);
/* and a watchdog for CANbus RTR timeouts */
pcanMbbiDirect->wdId = wdCreate();
if (pcanMbbiDirect->wdId == NULL) {
return S_dev_noMemory;
}
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanMbbiDirect->inp.canBusID, pcanMbbiDirect->inp.identifier,
(canMsgCallback_t *) mbbiDirectMessage, pcanMbbiDirect);
canSignal(pcanMbbiDirect->inp.canBusID,
(canSigCallback_t *) mbbiDirectSignal, pcanMbbiDirect);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct mbbiDirectRecord *prec,
IOSCANPVT *ppvt
) {
mbbiDirectCanPrivate_t *pcanMbbiDirect = (mbbiDirectCanPrivate_t *) prec->dpvt;
if (pcanMbbiDirect->ioscanpvt == NULL) {
scanIoInit(&pcanMbbiDirect->ioscanpvt);
}
#ifdef DEBUG
printf("canMbbiDirect %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanMbbiDirect->ioscanpvt;
return OK;
}
LOCAL long read_mbbiDirect (
struct mbbiDirectRecord *prec
) {
mbbiDirectCanPrivate_t *pcanMbbiDirect = (mbbiDirectCanPrivate_t *) prec->dpvt;
if (pcanMbbiDirect->inp.canBusID == NULL) {
return DO_NOT_CONVERT;
}
#ifdef DEBUG
printf("canMbbiDirect %s: read_mbbiDirect status=%#x\n", prec->name, pcanMbbiDirect->status);
#endif
switch (pcanMbbiDirect->status) {
case TIMEOUT_ALARM:
case COMM_ALARM:
recGblSetSevr(prec, pcanMbbiDirect->status, MAJOR_ALARM);
pcanMbbiDirect->status = NO_ALARM;
return DO_NOT_CONVERT;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanMbbiDirect->status = NO_ALARM;
return DO_NOT_CONVERT;
case NO_ALARM:
if (prec->pact || prec->scan == SCAN_IO_EVENT) {
#ifdef DEBUG
printf("canMbbiDirect %s: message id=%#x, data=%#x\n",
prec->name, pcanMbbiDirect->inp.identifier, pcanMbbiDirect->data);
#endif
prec->rval = pcanMbbiDirect->data & prec->mask;
return CONVERT;
} else {
canMessage_t message;
message.identifier = pcanMbbiDirect->inp.identifier;
message.rtr = RTR;
message.length = 0;
#ifdef DEBUG
printf("canMbbiDirect %s: RTR, id=%#x\n",
prec->name, pcanMbbiDirect->inp.identifier);
#endif
prec->pact = TRUE;
pcanMbbiDirect->status = TIMEOUT_ALARM;
callbackSetPriority(prec->prio, &pcanMbbiDirect->callback);
wdStart(pcanMbbiDirect->wdId, pcanMbbiDirect->inp.timeout,
(FUNCPTR) callbackRequest, (int) pcanMbbiDirect);
canWrite(pcanMbbiDirect->inp.canBusID, &message, pcanMbbiDirect->inp.timeout);
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanMbbiDirect->status = NO_ALARM;
return DO_NOT_CONVERT;
}
}
LOCAL void mbbiDirectProcess (
mbbiDirectCanPrivate_t *pcanMbbiDirect
) {
dbScanLock((struct dbCommon *) pcanMbbiDirect->prec);
(*((struct rset *) pcanMbbiDirect->prec->rset)->process)(pcanMbbiDirect->prec);
dbScanUnlock((struct dbCommon *) pcanMbbiDirect->prec);
}
LOCAL void mbbiDirectMessage (
mbbiDirectCanPrivate_t *pcanMbbiDirect,
canMessage_t *pmessage
) {
if (pmessage->rtr == RTR) {
return; /* Ignore RTRs */
}
pcanMbbiDirect->data = pmessage->data[pcanMbbiDirect->inp.offset];
if (pcanMbbiDirect->prec->scan == SCAN_IO_EVENT) {
pcanMbbiDirect->status = NO_ALARM;
scanIoRequest(pcanMbbiDirect->ioscanpvt);
} else if (pcanMbbiDirect->status == TIMEOUT_ALARM) {
pcanMbbiDirect->status = NO_ALARM;
wdCancel(pcanMbbiDirect->wdId);
callbackRequest(&pcanMbbiDirect->callback);
}
}
LOCAL void mbbiDirectSignal (
mbbiDirectCanPrivate_t *pcanMbbiDirect,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanMbbiDirect->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanMbbiDirect->status = COMM_ALARM;
break;
}
callbackRequest(&pcanMbbiDirect->callback);
}

245
src/dev/devMbboCan.c
View File

@@ -1,245 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devMbboCan.c
Description:
CANBUS Multi-Bit Binary Output device support
Author:
Andrew Johnson
Created:
14 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <mbboRecord.h>
#include <canBus.h>
typedef struct {
CALLBACK callback; /* This *must* be first member */
IOSCANPVT ioscanpvt;
struct mbboRecord *prec;
canIo_t out;
long data;
int status;
} mbboCanPrivate_t;
LOCAL long init_mbbo(struct mbboRecord *prec);
LOCAL long get_ioint_info(int cmd, struct mbboRecord *prec, IOSCANPVT *ppvt);
LOCAL long write_mbbo(struct mbboRecord *prec);
LOCAL void mbboProcess(mbboCanPrivate_t *pcanMbbo);
LOCAL void mbboMessage(mbboCanPrivate_t *pcanMbbo, canMessage_t *pmessage);
LOCAL void mbboSignal(mbboCanPrivate_t *pcanMbbo, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_mbbo;
} devMbboCan = {
5,
NULL,
NULL,
init_mbbo,
get_ioint_info,
write_mbbo
};
LOCAL long init_mbbo (
struct mbboRecord *prec
) {
mbboCanPrivate_t *pcanMbbo;
int status;
if (prec->out.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devMbboCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanMbbo = (mbboCanPrivate_t *) malloc(sizeof(mbboCanPrivate_t));
if (pcanMbbo == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanMbbo;
pcanMbbo->prec = prec;
pcanMbbo->ioscanpvt = NULL;
pcanMbbo->status = NO_ALARM;
/* Convert the parameter string into members of the canIo structure */
status = canIoParse(prec->out.value.instio.string, &pcanMbbo->out);
if (status ||
pcanMbbo->out.parameter < 0 ||
pcanMbbo->out.parameter > 7) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devMbboCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("canMbbo %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanMbbo->out.busName, pcanMbbo->out.identifier,
pcanMbbo->out.offset, pcanMbbo->out.parameter);
#endif
/* For mbbo records, the final parameter specifies the output bit shift,
with the offset specifying the message byte number. */
prec->shft = pcanMbbo->out.parameter;
prec->mask <<= pcanMbbo->out.parameter;
#ifdef DEBUG
printf(" bit=%d, mask=%#x\n", out.parameter, prec->mask);
#endif
/* Create a callback for error processing */
callbackSetCallback(mbboProcess, &pcanMbbo->callback);
callbackSetPriority(prec->prio, &pcanMbbo->callback);
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanMbbo->out.canBusID, pcanMbbo->out.identifier,
(canMsgCallback_t *) mbboMessage, pcanMbbo);
canSignal(pcanMbbo->out.canBusID, (canSigCallback_t *) mbboSignal, pcanMbbo);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct mbboRecord *prec,
IOSCANPVT *ppvt
) {
mbboCanPrivate_t *pcanMbbo = (mbboCanPrivate_t *) prec->dpvt;
if (pcanMbbo->ioscanpvt == NULL) {
scanIoInit(&pcanMbbo->ioscanpvt);
}
#ifdef DEBUG
printf("mbboCan %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanMbbo->ioscanpvt;
return OK;
}
LOCAL long write_mbbo (
struct mbboRecord *prec
) {
mbboCanPrivate_t *pcanMbbo = (mbboCanPrivate_t *) prec->dpvt;
if (pcanMbbo->out.canBusID == NULL) {
return ERROR;
}
#ifdef DEBUG
printf("mbboCan %s: write_mbbo status=%#x\n", prec->name, pcanMbbo->status);
#endif
switch (pcanMbbo->status) {
case COMM_ALARM:
recGblSetSevr(prec, pcanMbbo->status, MAJOR_ALARM);
pcanMbbo->status = NO_ALARM;
return ERROR;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanMbbo->status = NO_ALARM;
return ERROR;
case NO_ALARM:
{
canMessage_t message;
int status;
message.identifier = pcanMbbo->out.identifier;
message.rtr = SEND;
pcanMbbo->data = prec->rval & prec->mask;
message.data[pcanMbbo->out.offset] = pcanMbbo->data;
message.length = pcanMbbo->out.offset + 1;
#ifdef DEBUG
printf("canMbbo %s: SEND id=%#x, length=%d, data=%#x\n",
prec->name, message.identifier, message.length,
pcanMbbo->data);
#endif
status = canWrite(pcanMbbo->out.canBusID, &message,
pcanMbbo->out.timeout);
if (status) {
#ifdef DEBUG
printf("canMbbo %s: canWrite status=%#x\n", status);
#endif
recGblSetSevr(prec, TIMEOUT_ALARM, MINOR_ALARM);
return ERROR;
}
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanMbbo->status = NO_ALARM;
return ERROR;
}
}
LOCAL void mbboProcess (
mbboCanPrivate_t *pcanMbbo
) {
dbScanLock((struct dbCommon *) pcanMbbo->prec);
(*((struct rset *) pcanMbbo->prec->rset)->process)(pcanMbbo->prec);
dbScanUnlock((struct dbCommon *) pcanMbbo->prec);
}
LOCAL void mbboMessage (
mbboCanPrivate_t *pcanMbbo,
canMessage_t *pmessage
) {
if (pcanMbbo->prec->scan == SCAN_IO_EVENT &&
pmessage->rtr == RTR) {
pcanMbbo->status = NO_ALARM;
scanIoRequest(pcanMbbo->ioscanpvt);
}
}
LOCAL void mbboSignal (
mbboCanPrivate_t *pcanMbbo,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanMbbo->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanMbbo->status = COMM_ALARM;
break;
}
callbackRequest(&pcanMbbo->callback);
}

245
src/dev/devMbboDirectCan.c
View File

@@ -1,245 +0,0 @@
/*******************************************************************************
Project:
Gemini/UKIRT CAN Bus Driver for EPICS
File:
devMbboDirectCan.c
Description:
CANBUS Multi-Bit Binary Output Direct device support
Author:
Andrew Johnson
Created:
14 August 1995
(c) 1995 Royal Greenwich Observatory
*******************************************************************************/
#include <vxWorks.h>
#include <stdlib.h>
#include <wdLib.h>
#include <errMdef.h>
#include <devLib.h>
#include <dbAccess.h>
#include <dbScan.h>
#include <callback.h>
#include <cvtTable.h>
#include <link.h>
#include <recSup.h>
#include <devSup.h>
#include <dbCommon.h>
#include <mbboDirectRecord.h>
#include <canBus.h>
typedef struct {
CALLBACK callback; /* This *must* be first member */
IOSCANPVT ioscanpvt;
struct mbboDirectRecord *prec;
canIo_t out;
long data;
int status;
} mbboDirectCanPrivate_t;
LOCAL long init_mbboDirect(struct mbboDirectRecord *prec);
LOCAL long get_ioint_info(int cmd, struct mbboDirectRecord *prec, IOSCANPVT *ppvt);
LOCAL long write_mbboDirect(struct mbboDirectRecord *prec);
LOCAL void mbboDirectProcess(mbboDirectCanPrivate_t *pcanMbboDirect);
LOCAL void mbboDirectMessage(mbboDirectCanPrivate_t *pcanMbboDirect, canMessage_t *pmessage);
LOCAL void mbboDirectSignal(mbboDirectCanPrivate_t *pcanMbboDirect, int status);
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write_mbboDirect;
} devMbboDirectCan = {
5,
NULL,
NULL,
init_mbboDirect,
get_ioint_info,
write_mbboDirect
};
LOCAL long init_mbboDirect (
struct mbboDirectRecord *prec
) {
mbboDirectCanPrivate_t *pcanMbboDirect;
int status;
if (prec->out.type != INST_IO) {
recGblRecordError(S_db_badField, (void *) prec,
"devMbboDirectCan (init_record) Illegal INP field");
return S_db_badField;
}
pcanMbboDirect = (mbboDirectCanPrivate_t *) malloc(sizeof(mbboDirectCanPrivate_t));
if (pcanMbboDirect == NULL) {
return S_dev_noMemory;
}
prec->dpvt = pcanMbboDirect;
pcanMbboDirect->prec = prec;
pcanMbboDirect->ioscanpvt = NULL;
pcanMbboDirect->status = NO_ALARM;
/* Convert the parameter string into members of the canIo structure */
status = canIoParse(prec->out.value.instio.string, &pcanMbboDirect->out);
if (status ||
pcanMbboDirect->out.parameter < 0 ||
pcanMbboDirect->out.parameter > 7) {
recGblRecordError(S_can_badAddress, (void *) prec,
"devMbboDirectCan (init_record) bad CAN address");
return S_can_badAddress;
}
#ifdef DEBUG
printf("canMbboDirect %s: Init bus=%s, id=%#x, off=%d, parm=%d\n",
prec->name, pcanMbboDirect->out.busName, pcanMbboDirect->out.identifier,
pcanMbboDirect->out.offset, pcanMbboDirect->out.parameter);
#endif
/* For mbboDirect records, the final parameter specifies the output bit shift,
with the offset specifying the message byte number. */
prec->shft = pcanMbboDirect->out.parameter;
prec->mask <<= pcanMbboDirect->out.parameter;
#ifdef DEBUG
printf(" bit=%d, mask=%#x\n", out.parameter, prec->mask);
#endif
/* Create a callback for error processing */
callbackSetCallback(mbboDirectProcess, &pcanMbboDirect->callback);
callbackSetPriority(prec->prio, &pcanMbboDirect->callback);
/* Register the message and signal handlers with the Canbus driver */
canMessage(pcanMbboDirect->out.canBusID, pcanMbboDirect->out.identifier,
(canMsgCallback_t *) mbboDirectMessage, pcanMbboDirect);
canSignal(pcanMbboDirect->out.canBusID, (canSigCallback_t *) mbboDirectSignal, pcanMbboDirect);
return OK;
}
LOCAL long get_ioint_info (
int cmd,
struct mbboDirectRecord *prec,
IOSCANPVT *ppvt
) {
mbboDirectCanPrivate_t *pcanMbboDirect = (mbboDirectCanPrivate_t *) prec->dpvt;
if (pcanMbboDirect->ioscanpvt == NULL) {
scanIoInit(&pcanMbboDirect->ioscanpvt);
}
#ifdef DEBUG
printf("mbboDirectCan %s: get_ioint_info %d\n", prec->name, cmd);
#endif
*ppvt = pcanMbboDirect->ioscanpvt;
return OK;
}
LOCAL long write_mbboDirect (
struct mbboDirectRecord *prec
) {
mbboDirectCanPrivate_t *pcanMbboDirect = (mbboDirectCanPrivate_t *) prec->dpvt;
if (pcanMbboDirect->out.canBusID == NULL) {
return ERROR;
}
#ifdef DEBUG
printf("mbboDirectCan %s: write_mbboDirect status=%#x\n", prec->name, pcanMbboDirect->status);
#endif
switch (pcanMbboDirect->status) {
case COMM_ALARM:
recGblSetSevr(prec, pcanMbboDirect->status, MAJOR_ALARM);
pcanMbboDirect->status = NO_ALARM;
return ERROR;
case READ_ALARM:
recGblSetSevr(prec, COMM_ALARM, MINOR_ALARM);
pcanMbboDirect->status = NO_ALARM;
return ERROR;
case NO_ALARM:
{
canMessage_t message;
int status;
message.identifier = pcanMbboDirect->out.identifier;
message.rtr = SEND;
pcanMbboDirect->data = prec->rval & prec->mask;
message.data[pcanMbboDirect->out.offset] = pcanMbboDirect->data;
message.length = pcanMbboDirect->out.offset + 1;
#ifdef DEBUG
printf("canMbboDirect %s: SEND id=%#x, length=%d, data=%#x\n",
prec->name, message.identifier, message.length,
pcanMbboDirect->data);
#endif
status = canWrite(pcanMbboDirect->out.canBusID, &message,
pcanMbboDirect->out.timeout);
if (status) {
#ifdef DEBUG
printf("canMbboDirect %s: canWrite status=%#x\n", status);
#endif
recGblSetSevr(prec, TIMEOUT_ALARM, MINOR_ALARM);
return ERROR;
}
return 0;
}
default:
recGblSetSevr(prec, UDF_ALARM, INVALID_ALARM);
pcanMbboDirect->status = NO_ALARM;
return ERROR;
}
}
LOCAL void mbboDirectProcess (
mbboDirectCanPrivate_t *pcanMbboDirect
) {
dbScanLock((struct dbCommon *) pcanMbboDirect->prec);
(*((struct rset *) pcanMbboDirect->prec->rset)->process)(pcanMbboDirect->prec);
dbScanUnlock((struct dbCommon *) pcanMbboDirect->prec);
}
LOCAL void mbboDirectMessage (
mbboDirectCanPrivate_t *pcanMbboDirect,
canMessage_t *pmessage
) {
if (pcanMbboDirect->prec->scan == SCAN_IO_EVENT &&
pmessage->rtr == RTR) {
pcanMbboDirect->status = NO_ALARM;
scanIoRequest(pcanMbboDirect->ioscanpvt);
}
}
LOCAL void mbboDirectSignal (
mbboDirectCanPrivate_t *pcanMbboDirect,
int status
) {
switch(status) {
case CAN_BUS_OK:
return;
case CAN_BUS_ERROR:
pcanMbboDirect->status = READ_ALARM;
break;
case CAN_BUS_OFF:
pcanMbboDirect->status = COMM_ALARM;
break;
}
callbackRequest(&pcanMbboDirect->callback);
}

1711
src/dev/devSmAB1746HSTP1.c
View File

File diff suppressed because it is too large Load Diff

6
src/dev/dvxDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

11
src/dev/dvxDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,11 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devAiDvx2502.c
SRCS.c += ../devWfDvx2502.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devAiDvx2502.c → src/dev/dvxDev/devAiDvx2502.c
View File

0
src/dev/devWfDvx2502.c → src/dev/dvxDev/devWfDvx2502.c
View File

6
src/dev/gpibDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

12
src/dev/gpibDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,12 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
INC += devCommonGpib.h
SRCS.c += ../devCommonGpib.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

3
src/dev/devCommonGpib.c → src/dev/gpibDev/devCommonGpib.c
View File

@@ -3,6 +3,9 @@
/*
* $Log$
* Revision 1.36 1998/01/20 22:08:59 mrk
* cleanup includes
*
* Revision 1.35 1997/06/30 12:53:06 mrk
* GPIBEFASTO: Last fix was TOO strict
*

0
src/dev/devCommonGpib.h → src/dev/gpibDev/devCommonGpib.h
View File

6
src/dev/hpe1368Dev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/hpe1368Dev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devHpe1368a.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devHpe1368a.c → src/dev/hpe1368Dev/devHpe1368a.c
View File

6
src/dev/joergerDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/joergerDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devWfJoergerVtr1.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devWfJoergerVtr1.c → src/dev/joergerDev/devWfJoergerVtr1.c
View File

6
src/dev/kscV215Dev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/kscV215Dev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devAiKscV215.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devAiKscV215.c → src/dev/kscV215Dev/devAiKscV215.c
View File

6
src/dev/mizarDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

11
src/dev/mizarDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,11 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devMz8310.c
SRCS.c += ../devTimerMz8310.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devMz8310.c → src/dev/mizarDev/devMz8310.c
View File

0
src/dev/devTimerMz8310.c → src/dev/mizarDev/devTimerMz8310.c
View File

6
src/dev/mpvDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

15
src/dev/mpvDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,15 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devBiMpv910.c
SRCS.c += ../devBoMpv902.c
SRCS.c += ../devMbbiDirectMpv910.c
SRCS.c += ../devMbbiMpv910.c
SRCS.c += ../devMbboDirectMpv902.c
SRCS.c += ../devMbboMpv902.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devBiMpv910.c → src/dev/mpvDev/devBiMpv910.c
View File

0
src/dev/devBoMpv902.c → src/dev/mpvDev/devBoMpv902.c
View File

0
src/dev/devMbbiDirectMpv910.c → src/dev/mpvDev/devMbbiDirectMpv910.c
View File

0
src/dev/devMbbiMpv910.c → src/dev/mpvDev/devMbbiMpv910.c
View File

0
src/dev/devMbboDirectMpv902.c → src/dev/mpvDev/devMbboDirectMpv902.c
View File

0
src/dev/devMbboMpv902.c → src/dev/mpvDev/devMbboMpv902.c
View File

6
src/dev/omsDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/omsDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devSmOms6Axis.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devSmOms6Axis.c → src/dev/omsDev/devSmOms6Axis.c
View File

6
src/dev/pentekDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

10
src/dev/pentekDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,10 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devWfPentek4261.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devWfPentek4261.c → src/dev/pentekDev/devWfPentek4261.c
View File

6
src/dev/softDev/Makefile Normal file
View File

@@ -0,0 +1,6 @@
TOP=../../..
include $(TOP)/config/CONFIG_BASE
include $(TOP)/config/RULES_ARCHS

32
src/dev/softDev/Makefile.Vx Normal file
View File

@@ -0,0 +1,32 @@
TOP = ../../../..
include $(TOP)/config/CONFIG_BASE
SRCS.c += ../devAiSoft.c
SRCS.c += ../devAiSoftRaw.c
SRCS.c += ../devAoSoft.c
SRCS.c += ../devAoSoftRaw.c
SRCS.c += ../devBiSoft.c
SRCS.c += ../devBiSoftRaw.c
SRCS.c += ../devBoSoft.c
SRCS.c += ../devBoSoftRaw.c
SRCS.c += ../devEventSoft.c
SRCS.c += ../devHistogramSoft.c
SRCS.c += ../devLiSoft.c
SRCS.c += ../devLoSoft.c
SRCS.c += ../devMbbiSoft.c
SRCS.c += ../devMbbiSoftRaw.c
SRCS.c += ../devMbboDirectSoft.c
SRCS.c += ../devMbboDirectSoftRaw.c
SRCS.c += ../devMbboSoft.c
SRCS.c += ../devMbboSoftRaw.c
SRCS.c += ../devPtSoft.c
SRCS.c += ../devSASoft.c
SRCS.c += ../devSiSoft.c
SRCS.c += ../devSoSoft.c
SRCS.c += ../devWfSoft.c
PROD = $(SRCS.c:../%.c=%.o)
include $(TOP)/config/RULES.Vx

0
src/dev/devAiSoft.c → src/dev/softDev/devAiSoft.c
View File

0
src/dev/devAiSoftRaw.c → src/dev/softDev/devAiSoftRaw.c
View File

0
src/dev/devAoSoft.c → src/dev/softDev/devAoSoft.c
View File

0
src/dev/devAoSoftRaw.c → src/dev/softDev/devAoSoftRaw.c
View File

0
src/dev/devBiSoft.c → src/dev/softDev/devBiSoft.c
View File

0
src/dev/devBiSoftRaw.c → src/dev/softDev/devBiSoftRaw.c
View File

0
src/dev/devBoSoft.c → src/dev/softDev/devBoSoft.c
View File

0
src/dev/devBoSoftRaw.c → src/dev/softDev/devBoSoftRaw.c
View File

0
src/dev/devEventSoft.c → src/dev/softDev/devEventSoft.c
View File

Some files were not shown because too many files have changed in this diff Show More