3c99391d93
In some cases the license-identification header was missing, so I added that as well. Replaced the remaining headers that specifically identified "Versions 3.13.7 and higher". Makefiles and the build system were deliberately excluded.
77 lines
1.9 KiB
C
77 lines
1.9 KiB
C
/*************************************************************************\
|
|
* Copyright (c) 2010 Brookhaven National Laboratory.
|
|
* Copyright (c) 2010 Helmholtz-Zentrum Berlin
|
|
* fuer Materialien und Energie GmbH.
|
|
* SPDX-License-Identifier: EPICS
|
|
* EPICS BASE is distributed subject to a Software License Agreement found
|
|
* in file LICENSE that is included with this distribution.
|
|
\*************************************************************************/
|
|
|
|
/*
|
|
* Author: Ralph Lange <Ralph.Lange@bessy.de>
|
|
*/
|
|
|
|
#include "errlog.h"
|
|
#include "dbState.h"
|
|
#include "devSup.h"
|
|
#include "recGbl.h"
|
|
#include "dbAccessDefs.h"
|
|
#include "boRecord.h"
|
|
#include "epicsExport.h"
|
|
|
|
#define DEVSUPNAME "devBoDbState"
|
|
|
|
static long add_record (struct dbCommon *pdbc)
|
|
{
|
|
boRecord *prec = (boRecord *) pdbc;
|
|
|
|
if (INST_IO != prec->out.type) {
|
|
recGblRecordError(S_db_badField, (void *) prec, DEVSUPNAME ": Illegal OUT field");
|
|
return(S_db_badField);
|
|
}
|
|
|
|
if (!(prec->dpvt = dbStateFind(prec->out.value.instio.string)) &&
|
|
prec->out.value.instio.string &&
|
|
'\0' != *prec->out.value.instio.string) {
|
|
errlogSevPrintf(errlogInfo, DEVSUPNAME ": Creating new db state '%s'\n",
|
|
prec->out.value.instio.string);
|
|
prec->dpvt = dbStateCreate(prec->out.value.instio.string);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static long del_record (struct dbCommon *pdbc)
|
|
{
|
|
boRecord *prec = (boRecord *) pdbc;
|
|
prec->dpvt = NULL;
|
|
return 0;
|
|
}
|
|
|
|
static struct dsxt myDsxt = {
|
|
add_record,
|
|
del_record
|
|
};
|
|
|
|
static long init(int pass)
|
|
{
|
|
if (pass == 0)
|
|
devExtend(&myDsxt);
|
|
return 0;
|
|
}
|
|
|
|
static long write_bo(boRecord *prec)
|
|
{
|
|
if (prec->val)
|
|
dbStateSet(prec->dpvt);
|
|
else
|
|
dbStateClear(prec->dpvt);
|
|
return 0;
|
|
}
|
|
|
|
/* Create the dset for devBoDbState */
|
|
bodset devBoDbState = {
|
|
{5, NULL, init, NULL, NULL},
|
|
write_bo
|
|
};
|
|
epicsExportAddress(dset, devBoDbState);
|