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

Initial revision

Browse Source
This commit is contained in:
Janet B. Anderson
1991-10-25 08:42:16 +00:00
parent 91500bfe85
commit 4f323a880f
2 changed files with 291 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/dev/devHistogramSoft.c
+133
View File
@@ -0,0 +1,133 @@
/* devHistogramSoft.c */
/* share/src/dev $Id$ */
/* devHistogramSoft.c - Device Support Routines for soft Histogram Input */
/*
* Author: Janet Anderson
* Date: 07/02/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 mm-dd-yy iii Comment
* .02 mm-dd-yy iii Comment
* ...
*/
#include <vxWorks.h>
#include <types.h>
#include <stdioLib.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbDefs.h>
#include <dbAccess.h>
#include <devSup.h>
#include <link.h>
#include <histogramRecord.h>
/* Create the dset for devHistogramSoft */
long init_record();
long read_histogram();
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_histogram;
DEVSUPFUN special_linconv;
}devHistogramSoft={
6,
NULL,
NULL,
init_record,
NULL,
read_histogram,
NULL};
static long init_record(phistogram)
struct histogramRecord *phistogram;
{
char message[100];
/* histogram.svl must be a CONSTANT or a PV_LINK or a DB_LINK or a CA_LINK*/
switch (phistogram->svl.type) {
case (CONSTANT) :
phistogram->sgnl = phistogram->svl.value.value;
break;
case (PV_LINK) :
break;
case (DB_LINK) :
break;
case (CA_LINK) :
break;
default :
strcpy(message,phistogram->name);
strcat(message,": devHistogramSoft (init_record) Illegal SVL field");
errMessage(S_db_badField,message);
return(S_db_badField);
}
return(0);
}
static long read_histogram(phistogram)
struct histogramRecord *phistogram;
{
char message[100];
long status,options,nRequest;
/* histogram.svl must be a CONSTANT or a DB_LINK or a CA_LINK*/
switch (phistogram->svl.type) {
case (CONSTANT) :
break;
case (DB_LINK) :
options=0;
nRequest=1;
status = dbGetLink(&(phistogram->svl.value.db_link),phistogram,DBR_DOUBLE,
&(phistogram->sgnl),&options,&nRequest);
if(status!=0) {
if(phistogram->nsev<VALID_ALARM) {
phistogram->nsev = VALID_ALARM;
phistogram->nsta = LINK_ALARM;
}
}
break;
case (CA_LINK) :
break;
default :
if(phistogram->nsev<VALID_ALARM) {
phistogram->nsev = VALID_ALARM;
phistogram->nsta = SOFT_ALARM;
if(phistogram->stat!=SOFT_ALARM) {
strcpy(message,phistogram->name);
strcat(message,": devHistogramSoft (read_histogram) Illegal SVL field");
errMessage(S_db_badField,message);
}
}
}
return(0); /*add count*/
}
src/dev/devHistogramTestAsyn.c
+158
View File
@@ -0,0 +1,158 @@
/* devHistogramTestAsyn.c */
/* share/src/dev $Id$ */
/* devHistogramTestAsyn.c - Device Support Routines for testing asynchronous processing*/
/*
* Author: Janet Anderson
* Date: 07/02/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 mm-dd-yy iii Comment
* .02 mm-dd-yy iii Comment
* ...
*/
#include <vxWorks.h>
#include <types.h>
#include <stdioLib.h>
#include <wdLib.h>
#include <alarm.h>
#include <cvtTable.h>
#include <dbDefs.h>
#include <dbAccess.h>
#include <recSup.h>
#include <devSup.h>
#include <link.h>
#include <histogramRecord.h>
/* Create the dset for devHistogramTestAsyn */
long init_record();
long read_histogram();
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN read_histogram;
DEVSUPFUN special_linconv;
}devHistogramTestAsyn={
6,
NULL,
NULL,
init_record,
NULL,
read_histogram,
NULL};
/* control block for callback*/
struct callback {
void (*callback)();
int priority;
struct dbAddr dbAddr;
WDOG_ID wd_id;
void (*process)();
};
void callbackRequest();
static void myCallback(pcallback)
struct callback *pcallback;
{
struct histogramRecord *phistogram=(struct histogramRecord *)(pcallback->dbAddr.precord);
dbScanLock(phistogram);
(pcallback->process)(&pcallback->dbAddr);
dbScanUnlock(phistogram);
}
static long init_record(phistogram,process)
struct histogramRecord *phistogram;
void (*process)();
{
char message[100];
struct callback *pcallback;
/* histogram.svl must be a CONSTANT*/
switch (phistogram->svl.type) {
case (CONSTANT) :
pcallback = (struct callback *)(calloc(1,sizeof(struct callback)));
phistogram->dpvt = (caddr_t)pcallback;
pcallback->callback = myCallback;
pcallback->priority = priorityLow;
if(dbNameToAddr(phistogram->name,&(pcallback->dbAddr))) {
logMsg("dbNameToAddr failed in init_record for devHistogramTestAsyn\n");
exit(1);
}
pcallback->wd_id = wdCreate();
pcallback->process = process;
phistogram->sgnl = phistogram->svl.value.value;
break;
default :
strcpy(message,phistogram->name);
strcat(message,": devHistogramTestAsyn (init_record) Illegal SVL field");
errMessage(S_db_badField,message);
return(S_db_badField);
}
return(0);
}
static long read_histogram(phistogram)
struct histogramRecord *phistogram;
{
char message[100];
long status,options,nRequest;
struct callback *pcallback=(struct callback *)(phistogram->dpvt);
int wait_time;
/* histogram.svl must be a CONSTANT*/
switch (phistogram->svl.type) {
case (CONSTANT) :
if(phistogram->pact) {
printf("%s Completed\n",phistogram->name);
return(0); /*add count*/
} else {
wait_time = (int)(phistogram->disv * vxTicksPerSecond);
if(wait_time<=0) return(0);
printf("%s Starting asynchronous processing\n",phistogram->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,pcallback);
return(1);
}
default :
if(phistogram->nsev<VALID_ALARM) {
phistogram->nsev = VALID_ALARM;
phistogram->nsta = SOFT_ALARM;
if(phistogram->stat!=SOFT_ALARM) {
strcpy(message,phistogram->name);
strcat(message,": devHistogramTestAsyn (read_histogram) Illegal SVL field");
errMessage(S_db_badField,message);
}
}
}
return(0);
}