epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

This commit was manufactured by cvs2svn to create branch 'B3.14'.

Browse Source
This commit is contained in:
cvs2svn
2003-12-16 20:02:24 +00:00
parent 13a780f4c4
commit 1758f60c79
2 changed files with 123 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
src/dev/softDev/devCalcoutSoft.c Normal file
View File

@@ -0,0 +1,54 @@
/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* EPICS BASE Versions 3.13.7
* and higher are distributed subject to a Software License Agreement found
* in file LICENSE that is included with this distribution.
\*************************************************************************/
/* devCalcoutSoft.c */
/*
* Author: Marty Kraimer
* Date: 05DEC2003
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "alarm.h"
#include "dbDefs.h"
#include "dbAccess.h"
#include "recGbl.h"
#include "recSup.h"
#include "devSup.h"
#include "link.h"
#include "special.h"
#include "calcoutRecord.h"
#include "epicsExport.h"
static long write();
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write;
DEVSUPFUN special_linconv;
}devCalcoutSoft={
6,
NULL,
NULL,
NULL,
NULL,
write,
NULL};
epicsExportAddress(dset,devCalcoutSoft);
static long write(calcoutRecord *pcalcout)
{
return dbPutLink(&pcalcout->out,DBR_DOUBLE, &pcalcout->oval,1);
}

69
src/dev/softDev/devCalcoutSoftCallback.c Normal file
View File

@@ -0,0 +1,69 @@
/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* EPICS BASE Versions 3.13.7
* and higher are distributed subject to a Software License Agreement found
* in file LICENSE that is included with this distribution.
\*************************************************************************/
/* devCalcoutSoftCallback.c */
/*
* Author: Marty Kraimer
* Date: 05DEC2003
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "alarm.h"
#include "dbDefs.h"
#include "dbAccess.h"
#include "recGbl.h"
#include "recSup.h"
#include "devSup.h"
#include "link.h"
#include "special.h"
#include "calcoutRecord.h"
#include "epicsExport.h"
static long write();
struct {
long number;
DEVSUPFUN report;
DEVSUPFUN init;
DEVSUPFUN init_record;
DEVSUPFUN get_ioint_info;
DEVSUPFUN write;
DEVSUPFUN special_linconv;
}devCalcoutSoftCallback={
6,
NULL,
NULL,
NULL,
NULL,
write,
NULL};
epicsExportAddress(dset,devCalcoutSoftCallback);
static long write(calcoutRecord *pcalcout)
{
struct link *plink = &pcalcout->out;
long status;
if(pcalcout->pact) return(0);
if(plink->type!=CA_LINK) {
status = dbPutLink(plink,DBR_DOUBLE,&pcalcout->oval,1);
return(status);
}
status = dbCaPutLinkCallback(plink,DBR_DOUBLE,&pcalcout->oval,1,
(dbCaCallback)dbCaCallbackProcess,plink);
if(status) {
recGblSetSevr(pcalcout,LINK_ALARM,INVALID_ALARM);
return(status);
}
pcalcout->pact = TRUE;
return(0);
}