Files
pva2pva/pdbApp/pdbsingle.cpp
2016-03-17 18:03:37 -04:00

266 lines
7.8 KiB
C++

#include <dbAccess.h>
#include <epicsAtomic.h>
#include <errlog.h>
#include <pv/epicsException.h>
#include "errlogstream.h"
#include "helper.h"
#include "pdbsingle.h"
#include "pdb.h"
namespace pvd = epics::pvData;
namespace pva = epics::pvAccess;
size_t PDBSinglePV::ninstances;
typedef epicsGuard<epicsMutex> Guard;
static
void pdb_single_event(void *user_arg, struct dbChannel *chan,
int eventsRemaining, struct db_field_log *pfl)
{
DBEvent *evt=(DBEvent*)user_arg;
try{
PDBSinglePV::shared_pointer self(std::tr1::static_pointer_cast<PDBSinglePV>(((PDBSinglePV*)evt->self)->shared_from_this()));
{
Guard G(self->lock); // TODO: lock order?
{
DBScanLocker L(dbChannelRecord(self->chan));
self->pvif->put(self->scratch, evt->dbe_mask, pfl);
}
if(evt->dbe_mask&DBE_PROPERTY)
self->hadevent_PROPERTY = true;
else
self->hadevent_VALUE = true;
if(!self->hadevent_VALUE || !self->hadevent_PROPERTY)
return;
FOREACH(it, end, self->interested) {
PDBSingleMonitor& mon = *it->get();
mon.post(self->scratch);
}
self->scratch.clear();
}
}catch(std::tr1::bad_weak_ptr&){
/* We are racing destruction of the PDBSinglePV, but things are ok.
* The destructor is running, but has not completed db_cancel_event()
* so storage is still valid.
* Just do nothing
*/
}catch(std::exception& e){
errlog_ostream strm;
strm<<"Unhandled exception in pdb_single_event(): "<<e.what()<<"\n"
<<SHOW_EXCEPTION(e)<<"\n";
}
}
PDBSinglePV::PDBSinglePV(DBCH& chan,
const PDBProvider::shared_pointer& prov)
:provider(prov)
,evt_VALUE(this)
,evt_PROPERTY(this)
,hadevent_VALUE(false)
,hadevent_PROPERTY(false)
{
this->chan.swap(chan);
fielddesc = PVIF::dtype(this->chan);
complete = pvd::getPVDataCreate()->createPVStructure(fielddesc);
pvif.reset(PVIF::attach(this->chan, complete));
epics::atomic::increment(ninstances);
}
PDBSinglePV::~PDBSinglePV()
{
epics::atomic::decrement(ninstances);
}
void PDBSinglePV::activate()
{
evt_VALUE.create(provider->event_context, this->chan, &pdb_single_event, DBE_VALUE|DBE_ALARM);
evt_PROPERTY.create(provider->event_context, this->chan, &pdb_single_event, DBE_PROPERTY);
}
pva::Channel::shared_pointer
PDBSinglePV::connect(const std::tr1::shared_ptr<PDBProvider>& prov,
const pva::ChannelRequester::shared_pointer& req)
{
pva::Channel::shared_pointer ret(new PDBSingleChannel(shared_from_this(), req));
return ret;
}
PDBSingleChannel::PDBSingleChannel(const PDBSinglePV::shared_pointer& pv,
const pva::ChannelRequester::shared_pointer& req)
:BaseChannel(dbChannelName(pv->chan), pv->provider, req, pv->fielddesc)
,pv(pv)
{
assert(!!this->pv);
}
void PDBSingleChannel::printInfo(std::ostream& out)
{
out<<"PDB single : "<<pvname<<"\n";
}
pva::ChannelGet::shared_pointer
PDBSingleChannel::createChannelGet(
pva::ChannelGetRequester::shared_pointer const & requester,
pvd::PVStructure::shared_pointer const & pvRequest)
{
pva::ChannelGet::shared_pointer ret(new PDBSingleGet(shared_from_this(), requester, pvRequest));
requester->channelGetConnect(pvd::Status(), ret, fielddesc);
return ret;
}
pva::ChannelPut::shared_pointer
PDBSingleChannel::createChannelPut(
pva::ChannelPutRequester::shared_pointer const & requester,
pvd::PVStructure::shared_pointer const & pvRequest)
{
pva::ChannelPut::shared_pointer ret(new PDBSinglePut(shared_from_this(), requester, pvRequest));
requester->channelPutConnect(pvd::Status(), ret, fielddesc);
return ret;
}
pva::Monitor::shared_pointer
PDBSingleChannel::createMonitor(
pva::MonitorRequester::shared_pointer const & requester,
pvd::PVStructure::shared_pointer const & pvRequest)
{
PDBSingleMonitor::shared_pointer ret(new PDBSingleMonitor(pv->shared_from_this(), requester, pvRequest));
ret->weakself = ret;
assert(!!pv->complete);
ret->connect(pv->complete);
return ret;
}
PDBSingleGet::PDBSingleGet(const PDBSingleChannel::shared_pointer &channel,
const pva::ChannelGetRequester::shared_pointer& requester,
const pvd::PVStructure::shared_pointer &pvReq)
:channel(channel)
,requester(requester)
,changed(new pvd::BitSet(channel->fielddesc->getNumberFields()))
,pvf(pvd::getPVDataCreate()->createPVStructure(channel->fielddesc))
,pvif(PVIF::attach(channel->pv->chan, pvf))
{}
namespace {
void commonGet(PVIF *pvif, pvd::BitSet* changed)
{
changed->clear();
{
DBScanLocker L(pvif->chan);
pvif->put(*changed, DBE_VALUE|DBE_ALARM|DBE_PROPERTY, NULL);
}
//TODO: report unused fields as changed?
changed->clear();
changed->set(0);
}
}
void PDBSingleGet::get()
{
commonGet(pvif.get(), changed.get());
requester->getDone(pvd::Status(), shared_from_this(), pvf, changed);
}
PDBSinglePut::PDBSinglePut(const PDBSingleChannel::shared_pointer &channel,
const pva::ChannelPutRequester::shared_pointer &requester,
const pvd::PVStructure::shared_pointer &pvReq)
:channel(channel)
,requester(requester)
,changed(new pvd::BitSet(channel->fielddesc->getNumberFields()))
,pvf(pvd::getPVDataCreate()->createPVStructure(channel->fielddesc))
,pvif(PVIF::attach(channel->pv->chan, pvf))
{}
void PDBSinglePut::put(pvd::PVStructure::shared_pointer const & value,
pvd::BitSet::shared_pointer const & changed)
{
// assume value may be a different struct each time
std::auto_ptr<PVIF> putpvif(PVIF::attach(channel->pv->chan, value));
{
DBScanLocker L(channel->pv->chan);
putpvif->get(*changed);
}
requester->putDone(pvd::Status(), shared_from_this());
}
void PDBSinglePut::get()
{
commonGet(pvif.get(), changed.get());
requester->getDone(pvd::Status(), shared_from_this(), pvf, changed);
}
PDBSingleMonitor::PDBSingleMonitor(const PDBSinglePV::shared_pointer& pv,
const requester_t::shared_pointer& requester,
const pvd::PVStructure::shared_pointer& pvReq)
:BaseMonitor(requester, pvReq)
,pv(pv)
{}
void PDBSingleMonitor::destroy()
{
BaseMonitor::destroy();
PDBSinglePV::shared_pointer pv;
{
Guard G(lock);
this->pv.swap(pv);
}
}
void PDBSingleMonitor::onStart()
{
guard_t G(pv->lock);
pv->scratch.clear();
pv->scratch.set(0);
if(pv->interested.empty()) {
// first subscriber
pv->hadevent_VALUE = false;
pv->hadevent_PROPERTY = false;
db_event_enable(pv->evt_VALUE.subscript);
db_event_enable(pv->evt_PROPERTY.subscript);
db_post_single_event(pv->evt_VALUE.subscript);
db_post_single_event(pv->evt_PROPERTY.subscript);
} else if(pv->hadevent_VALUE && pv->hadevent_PROPERTY) {
// new subscriber and already had initial update
post();
} // else new subscriber, but no initial update. so just wait
shared_pointer self(std::tr1::static_pointer_cast<PDBSingleMonitor>(shared_from_this()));
pv->interested.insert(self);
}
void PDBSingleMonitor::onStop()
{
guard_t G(pv->lock);
shared_pointer self(std::tr1::static_pointer_cast<PDBSingleMonitor>(shared_from_this()));
if(pv->interested.erase(self)==0) {
fprintf(stderr, "%s: oops\n", __FUNCTION__);
}
if(pv->interested.empty()) {
// last subscriber
db_event_disable(pv->evt_VALUE.subscript);
db_event_disable(pv->evt_PROPERTY.subscript);
}
}
void PDBSingleMonitor::requestUpdate()
{
Guard G(pv->lock);
post();
}