From 4f323a880f26fe54c3dabfffb4a55c22262fb694 Mon Sep 17 00:00:00 2001 From: "Janet B. Anderson" Date: Fri, 25 Oct 1991 08:42:16 +0000 Subject: [PATCH] Initial revision --- src/dev/devHistogramSoft.c | 133 +++++++++++++++++++++++++++ src/dev/devHistogramTestAsyn.c | 158 +++++++++++++++++++++++++++++++++ 2 files changed, 291 insertions(+) create mode 100644 src/dev/devHistogramSoft.c create mode 100644 src/dev/devHistogramTestAsyn.c diff --git a/src/dev/devHistogramSoft.c b/src/dev/devHistogramSoft.c new file mode 100644 index 000000000..c4f9ae863 --- /dev/null +++ b/src/dev/devHistogramSoft.c @@ -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 +#include +#include + +#include +#include +#include +#include +#include +#include +#include + +/* 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->nsevnsev = VALID_ALARM; + phistogram->nsta = LINK_ALARM; + } + } + break; + case (CA_LINK) : + break; + default : + if(phistogram->nsevnsev = 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*/ +} diff --git a/src/dev/devHistogramTestAsyn.c b/src/dev/devHistogramTestAsyn.c new file mode 100644 index 000000000..7b0c9f6aa --- /dev/null +++ b/src/dev/devHistogramTestAsyn.c @@ -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 +#include +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include + +/* 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->nsevnsev = 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); +}