Initial revision
This commit is contained in:
Janet B. Anderson
307
src/rec/recPulseCounter.c
Normal file
307
src/rec/recPulseCounter.c
Normal file
@@ -0,0 +1,307 @@
|
||||
/* recPulseCounter.c */
|
||||
/* share/src/rec $Id$ */
|
||||
|
||||
/* recPulser.c - Record Support Routines for PulseCounter records */
|
||||
/*
|
||||
* Author: Janet Anderson
|
||||
* Date: 10-17-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
|
||||
*/
|
||||
|
||||
#include <vxWorks.h>
|
||||
#include <types.h>
|
||||
#include <stdioLib.h>
|
||||
#include <lstLib.h>
|
||||
|
||||
#include <alarm.h>
|
||||
#include <dbAccess.h>
|
||||
#include <dbDefs.h>
|
||||
#include <dbRecDes.h>
|
||||
#include <dbFldTypes.h>
|
||||
#include <devSup.h>
|
||||
#include <errMdef.h>
|
||||
#include <link.h>
|
||||
#include <recSup.h>
|
||||
#include <pulseCounterRecord.h>
|
||||
|
||||
/* Create RSET - Record Support Entry Table*/
|
||||
#define report NULL
|
||||
#define initialize NULL
|
||||
long init_record();
|
||||
long process();
|
||||
#define special NULL
|
||||
long get_value();
|
||||
#define cvt_dbaddr NULL
|
||||
#define get_array_info NULL
|
||||
#define put_array_info NULL
|
||||
#define get_units NULL
|
||||
#define get_precision NULL
|
||||
#define get_enum_str NULL
|
||||
#define get_enum_strs NULL
|
||||
#define put_enum_str NULL
|
||||
long get_graphic_double();
|
||||
long get_control_double();
|
||||
#define get_alarm_double NULL
|
||||
|
||||
struct rset pulseCounterRSET={
|
||||
RSETNUMBER,
|
||||
report,
|
||||
initialize,
|
||||
init_record,
|
||||
process,
|
||||
special,
|
||||
get_value,
|
||||
cvt_dbaddr,
|
||||
get_array_info,
|
||||
put_array_info,
|
||||
get_units,
|
||||
get_precision,
|
||||
get_enum_str,
|
||||
get_enum_strs,
|
||||
put_enum_str,
|
||||
get_graphic_double,
|
||||
get_control_double,
|
||||
get_alarm_double };
|
||||
|
||||
|
||||
struct pcdset { /* pulseCounter input dset */
|
||||
long number;
|
||||
DEVSUPFUN dev_report;
|
||||
DEVSUPFUN init;
|
||||
DEVSUPFUN init_record; /*returns: (-1,0)=>(failure,success)*/
|
||||
DEVSUPFUN get_ioint_info;
|
||||
DEVSUPFUN cmd_pc;/*(-1,0,1)=>(failure,success,don't Continue*/
|
||||
};
|
||||
|
||||
/* def for gsrc field */
|
||||
#define SOFTWARE 1
|
||||
|
||||
/* defs for counter commands */
|
||||
#define CTR_READ 0
|
||||
#define CTR_CLEAR 1
|
||||
#define CTR_START 2
|
||||
#define CTR_STOP 3
|
||||
#define CTR_SETUP 4
|
||||
|
||||
void monitor();
|
||||
|
||||
static long init_record(ppc)
|
||||
struct pulseCounterRecord *ppc;
|
||||
{
|
||||
struct pcdset *pdset;
|
||||
long status=0;
|
||||
|
||||
/* must have device support */
|
||||
if(!(pdset = (struct pcdset *)(ppc->dset))) {
|
||||
recGblRecordError(S_dev_noDSET,ppc,"pc: init_record");
|
||||
return(S_dev_noDSET);
|
||||
}
|
||||
/* get the gate value if sgl is a constant*/
|
||||
if (ppc->sgl.type == CONSTANT && ppc->gsrc == SOFTWARE){
|
||||
ppc->sgv = ppc->sgl.value.value;
|
||||
}
|
||||
|
||||
/* must have cmd_pc functions defined */
|
||||
if( (pdset->number < 5) || (pdset->cmd_pc == NULL) ) {
|
||||
recGblRecordError(S_dev_missingSup,ppc,"pc: cmd_pc");
|
||||
return(S_dev_missingSup);
|
||||
}
|
||||
/* call device support init_record */
|
||||
if( pdset->init_record ) {
|
||||
if((status=(*pdset->init_record)(ppc,process))) return(status);
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
static long process(paddr)
|
||||
struct dbAddr *paddr;
|
||||
{
|
||||
struct pulseCounterRecord *ppc=(struct pulseCounterRecord *)(paddr->precord);
|
||||
struct pcdset *pdset = (struct pcdset *)(ppc->dset);
|
||||
long status=0;
|
||||
long options,nRequest;
|
||||
unsigned short save;
|
||||
|
||||
/* must have cmd_pc functions defined */
|
||||
if( (pdset==NULL) || (pdset->cmd_pc==NULL) ) {
|
||||
ppc->pact=TRUE;
|
||||
recGblRecordError(S_dev_missingSup,ppc,"cmd_pc");
|
||||
return(S_dev_missingSup);
|
||||
}
|
||||
|
||||
/* get soft gate value when sgl is a DB_LINK and gsrc from Software */
|
||||
if (!ppc->pact && ppc->gsrc == SOFTWARE){
|
||||
if (ppc->sgl.type == DB_LINK){
|
||||
options=0;
|
||||
nRequest=1;
|
||||
ppc->pact = TRUE;
|
||||
status=dbGetLink(&ppc->sgl.value.db_link,ppc,DBR_SHORT,
|
||||
&ppc->sgv,&options,&nRequest);
|
||||
ppc->pact = FALSE;
|
||||
if(status!=0) {
|
||||
if (ppc->nsev<VALID_ALARM) {
|
||||
ppc->nsta = LINK_ALARM;
|
||||
ppc->nsev = VALID_ALARM;
|
||||
}
|
||||
}
|
||||
}
|
||||
if(status=0){
|
||||
if(ppc->sgv != ppc->osgv){ /* soft gate changed */
|
||||
save=ppc->cmd;
|
||||
if(ppc->sgv!=0){
|
||||
ppc->cmd=CTR_START;
|
||||
} else {
|
||||
ppc->cmd=CTR_STOP;
|
||||
}
|
||||
status=(*pdset->cmd_pc)(ppc);
|
||||
ppc->cmd=save;
|
||||
ppc->osgv=ppc->sgv;
|
||||
if(status!=0) {
|
||||
if (ppc->nsev<VALID_ALARM) {
|
||||
ppc->nsta = SOFT_ALARM;
|
||||
ppc->nsev = VALID_ALARM;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if(ppc->cmd>0){
|
||||
status=(*pdset->cmd_pc)(ppc);
|
||||
ppc->cmd=CTR_READ;
|
||||
}
|
||||
if (status==0) status=(*pdset->cmd_pc)(ppc);
|
||||
|
||||
ppc->pact = TRUE;
|
||||
|
||||
/* status is one if an asynchronous record is being processed*/
|
||||
if (status==1) return(0);
|
||||
|
||||
ppc->udf=FALSE;
|
||||
tsLocalTime(&ppc->time);
|
||||
|
||||
/* check event list */
|
||||
monitor(ppc);
|
||||
|
||||
/* process the forward scan link record */
|
||||
if (ppc->flnk.type==DB_LINK) dbScanPassive(ppc->flnk.value.db_link.pdbAddr);
|
||||
|
||||
ppc->pact=FALSE;
|
||||
return(status);
|
||||
}
|
||||
|
||||
static long get_value(ppc,pvdes)
|
||||
struct pulseCounterRecord *ppc;
|
||||
struct valueDes *pvdes;
|
||||
{
|
||||
pvdes->field_type = DBF_ULONG;
|
||||
pvdes->no_elements=1;
|
||||
(short *)pvdes->pvalue = &ppc->val;
|
||||
return(0);
|
||||
}
|
||||
|
||||
static long get_graphic_double(paddr,pgd)
|
||||
struct dbAddr *paddr;
|
||||
struct dbr_grDouble *pgd;
|
||||
{
|
||||
struct pulseCounterRecord *ppc=(struct pulseCounterRecord *)paddr->precord;
|
||||
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
|
||||
|
||||
if(((void *)(paddr->pfield))==((void *)&(ppc->clks))){
|
||||
pgd->upper_disp_limit = (double)pfldDes->range2.value.short_value;
|
||||
pgd->lower_disp_limit = (double)pfldDes->range1.value.short_value;
|
||||
return(0);
|
||||
}
|
||||
if(((void *)(paddr->pfield))==((void *)&(ppc->gate))){
|
||||
pgd->upper_disp_limit = (double)pfldDes->range2.value.short_value;
|
||||
pgd->lower_disp_limit = (double)pfldDes->range1.value.short_value;
|
||||
return(0);
|
||||
}
|
||||
pgd->upper_disp_limit = ppc->hopr;
|
||||
pgd->lower_disp_limit = ppc->lopr;
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
static long get_control_double(paddr,pcd)
|
||||
struct dbAddr *paddr;
|
||||
struct dbr_ctrlDouble *pcd;
|
||||
{
|
||||
struct pulseCounterRecord *ppc=(struct pulseCounterRecord *)paddr->precord;
|
||||
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
|
||||
|
||||
if(((void *)(paddr->pfield))==((void *)&(ppc->clks))){
|
||||
pcd->upper_ctrl_limit = (double)pfldDes->range2.value.short_value;
|
||||
pcd->lower_ctrl_limit = (double)pfldDes->range1.value.short_value;
|
||||
return(0);
|
||||
}
|
||||
if(((void *)(paddr->pfield))==((void *)&(ppc->gate))){
|
||||
pcd->upper_ctrl_limit = (double)pfldDes->range1.value.short_value;
|
||||
pcd->lower_ctrl_limit = (double)pfldDes->range2.value.short_value;
|
||||
return(0);
|
||||
}
|
||||
pcd->upper_ctrl_limit = ppc->hopr;
|
||||
pcd->lower_ctrl_limit = ppc->lopr;
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
static void monitor(ppc)
|
||||
struct pulseCounterRecord *ppc;
|
||||
{
|
||||
unsigned short monitor_mask;
|
||||
short stat,sevr,nsta,nsev;
|
||||
|
||||
/* get previous stat and sevr and new stat and sevr*/
|
||||
stat=ppc->stat;
|
||||
sevr=ppc->sevr;
|
||||
nsta=ppc->nsta;
|
||||
nsev=ppc->nsev;
|
||||
/*set current stat and sevr*/
|
||||
ppc->stat = nsta;
|
||||
ppc->sevr = nsev;
|
||||
ppc->nsta = 0;
|
||||
ppc->nsev = 0;
|
||||
|
||||
/* Flags which events to fire on the value field */
|
||||
monitor_mask = 0;
|
||||
|
||||
/* alarm condition changed this scan */
|
||||
if (stat!=nsta || sevr!=nsev) {
|
||||
/* post events for alarm condition change*/
|
||||
monitor_mask = DBE_ALARM;
|
||||
/* post stat and nsev fields */
|
||||
db_post_events(ppc,&ppc->stat,DBE_VALUE);
|
||||
db_post_events(ppc,&ppc->sevr,DBE_VALUE);
|
||||
}
|
||||
|
||||
monitor_mask |= (DBE_VALUE | DBE_LOG);
|
||||
db_post_events(ppc,&ppc->val,monitor_mask);
|
||||
db_post_events(ppc,&ppc->cmd,monitor_mask);
|
||||
|
||||
return;
|
||||
}
|
||||
250
src/rec/recPulseDelay.c
Normal file
250
src/rec/recPulseDelay.c
Normal file
@@ -0,0 +1,250 @@
|
||||
/* recPulseDelay.c */
|
||||
/* share/src/rec $Id$ */
|
||||
|
||||
/* recPulser.c - Record Support Routines for PulseDelay records */
|
||||
/*
|
||||
* Author: Janet Anderson
|
||||
* Date: 6/21/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
|
||||
*/
|
||||
|
||||
#include <vxWorks.h>
|
||||
#include <types.h>
|
||||
#include <stdioLib.h>
|
||||
#include <lstLib.h>
|
||||
|
||||
#include <alarm.h>
|
||||
#include <dbAccess.h>
|
||||
#include <dbDefs.h>
|
||||
#include <dbRecDes.h>
|
||||
#include <dbFldTypes.h>
|
||||
#include <devSup.h>
|
||||
#include <errMdef.h>
|
||||
#include <link.h>
|
||||
#include <recSup.h>
|
||||
#include <pulseDelayRecord.h>
|
||||
|
||||
/* Create RSET - Record Support Entry Table*/
|
||||
#define report NULL
|
||||
#define initialize NULL
|
||||
long init_record();
|
||||
long process();
|
||||
#define special NULL
|
||||
long get_value();
|
||||
#define cvt_dbaddr NULL
|
||||
#define get_array_info NULL
|
||||
#define put_array_info NULL
|
||||
#define get_units NULL
|
||||
long get_precision();
|
||||
#define get_enum_str NULL
|
||||
#define get_enum_strs NULL
|
||||
#define put_enum_str NULL
|
||||
long get_graphic_double();
|
||||
long get_control_double();
|
||||
#define get_alarm_double NULL
|
||||
|
||||
struct rset pulseDelayRSET={
|
||||
RSETNUMBER,
|
||||
report,
|
||||
initialize,
|
||||
init_record,
|
||||
process,
|
||||
special,
|
||||
get_value,
|
||||
cvt_dbaddr,
|
||||
get_array_info,
|
||||
put_array_info,
|
||||
get_units,
|
||||
get_precision,
|
||||
get_enum_str,
|
||||
get_enum_strs,
|
||||
put_enum_str,
|
||||
get_graphic_double,
|
||||
get_control_double,
|
||||
get_alarm_double };
|
||||
|
||||
|
||||
struct pddset { /* pulseDelay input dset */
|
||||
long number;
|
||||
DEVSUPFUN dev_report;
|
||||
DEVSUPFUN init;
|
||||
DEVSUPFUN init_record; /*returns: (-1,0)=>(failure,success)*/
|
||||
DEVSUPFUN get_ioint_info;
|
||||
DEVSUPFUN write_pd;/*(-1,0,1)=>(failure,success,don't Continue*/
|
||||
};
|
||||
void monitor();
|
||||
|
||||
static long init_record(ppd)
|
||||
struct pulseDelayRecord *ppd;
|
||||
{
|
||||
struct pddset *pdset;
|
||||
long status=0;
|
||||
|
||||
/* must have device support */
|
||||
if(!(pdset = (struct pddset *)(ppd->dset))) {
|
||||
recGblRecordError(S_dev_noDSET,ppd,"pd: init_record");
|
||||
return(S_dev_noDSET);
|
||||
}
|
||||
|
||||
/* must have write_pd functions defined */
|
||||
if( (pdset->number < 5) || (pdset->write_pd == NULL) ) {
|
||||
recGblRecordError(S_dev_missingSup,ppd,"pd: write_pd");
|
||||
return(S_dev_missingSup);
|
||||
}
|
||||
/* call device support init_record */
|
||||
if( pdset->init_record ) {
|
||||
if((status=(*pdset->init_record)(ppd,process))) return(status);
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
static long process(paddr)
|
||||
struct dbAddr *paddr;
|
||||
{
|
||||
struct pulseDelayRecord *ppd=(struct pulseDelayRecord *)(paddr->precord);
|
||||
struct pddset *pdset = (struct pddset *)(ppd->dset);
|
||||
long status=0;
|
||||
long options,nRequest;
|
||||
|
||||
/* must have write_pd functions defined */
|
||||
if( (pdset==NULL) || (pdset->write_pd==NULL) ) {
|
||||
ppd->pact=TRUE;
|
||||
recGblRecordError(S_dev_missingSup,ppd,"write_pd");
|
||||
return(S_dev_missingSup);
|
||||
}
|
||||
|
||||
if (status==0) status=(*pdset->write_pd)(ppd); /* write the new value */
|
||||
|
||||
ppd->pact = TRUE;
|
||||
|
||||
/* status is one if an asynchronous record is being processed*/
|
||||
if (status==1) return(0);
|
||||
|
||||
ppd->udf=FALSE;
|
||||
tsLocalTime(&ppd->time);
|
||||
|
||||
/* check event list */
|
||||
monitor(ppd);
|
||||
|
||||
/* process the forward scan link record */
|
||||
if (ppd->flnk.type==DB_LINK) dbScanPassive(ppd->flnk.value.db_link.pdbAddr);
|
||||
|
||||
ppd->pact=FALSE;
|
||||
return(status);
|
||||
}
|
||||
|
||||
static long get_value(ppd,pvdes)
|
||||
struct pulseDelayRecord *ppd;
|
||||
struct valueDes *pvdes;
|
||||
{
|
||||
pvdes->field_type = DBF_SHORT;
|
||||
pvdes->no_elements=1;
|
||||
(short *)pvdes->pvalue = &ppd->val;
|
||||
return(0);
|
||||
}
|
||||
static long get_precision(paddr,precision)
|
||||
struct dbAddr *paddr;
|
||||
long *precision;
|
||||
{
|
||||
struct pulseDelayRecord *ppd=(struct pulseDelayRecord *)paddr->precord;
|
||||
|
||||
*precision = ppd->prec;
|
||||
return(0);
|
||||
}
|
||||
|
||||
static long get_graphic_double(paddr,pgd)
|
||||
struct dbAddr *paddr;
|
||||
struct dbr_grDouble *pgd;
|
||||
{
|
||||
struct pulseDelayRecord *ppd=(struct pulseDelayRecord *)paddr->precord;
|
||||
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
|
||||
|
||||
if(((void *)(paddr->pfield))==((void *)&(ppd->clks))){
|
||||
pgd->upper_disp_limit = (double)pfldDes->range2.value.short_value;
|
||||
pgd->lower_disp_limit = (double)pfldDes->range1.value.short_value;
|
||||
} else {
|
||||
pgd->upper_disp_limit = ppd->hopr;
|
||||
pgd->lower_disp_limit = ppd->lopr;
|
||||
}
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
static long get_control_double(paddr,pcd)
|
||||
struct dbAddr *paddr;
|
||||
struct dbr_ctrlDouble *pcd;
|
||||
{
|
||||
struct pulseDelayRecord *ppd=(struct pulseDelayRecord *)paddr->precord;
|
||||
struct fldDes *pfldDes=(struct fldDes *)(paddr->pfldDes);
|
||||
|
||||
if(((void *)(paddr->pfield))==((void *)&(ppd->clks))){
|
||||
pcd->upper_ctrl_limit = (double)pfldDes->range2.value.short_value;
|
||||
pcd->lower_ctrl_limit = (double)pfldDes->range1.value.short_value;
|
||||
} else {
|
||||
pcd->upper_ctrl_limit = ppd->hopr;
|
||||
pcd->lower_ctrl_limit = ppd->lopr;
|
||||
}
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
static void monitor(ppd)
|
||||
struct pulseDelayRecord *ppd;
|
||||
{
|
||||
unsigned short monitor_mask;
|
||||
short stat,sevr,nsta,nsev;
|
||||
|
||||
/* get previous stat and sevr and new stat and sevr*/
|
||||
stat=ppd->stat;
|
||||
sevr=ppd->sevr;
|
||||
nsta=ppd->nsta;
|
||||
nsev=ppd->nsev;
|
||||
/*set current stat and sevr*/
|
||||
ppd->stat = nsta;
|
||||
ppd->sevr = nsev;
|
||||
ppd->nsta = 0;
|
||||
ppd->nsev = 0;
|
||||
|
||||
/* Flags which events to fire on the value field */
|
||||
monitor_mask = 0;
|
||||
|
||||
/* alarm condition changed this scan */
|
||||
if (stat!=nsta || sevr!=nsev) {
|
||||
/* post events for alarm condition change*/
|
||||
monitor_mask = DBE_ALARM;
|
||||
/* post stat and nsev fields */
|
||||
db_post_events(ppd,&ppd->stat,DBE_VALUE);
|
||||
db_post_events(ppd,&ppd->sevr,DBE_VALUE);
|
||||
}
|
||||
|
||||
monitor_mask |= (DBE_VALUE | DBE_LOG);
|
||||
db_post_events(ppd,&ppd->val,monitor_mask);
|
||||
db_post_events(ppd,&ppd->dly,monitor_mask);
|
||||
db_post_events(ppd,&ppd->wide,monitor_mask);
|
||||
|
||||
return;
|
||||
}
|
||||
Reference in New Issue
Block a user