128 lines
2.9 KiB
C++
128 lines
2.9 KiB
C++
|
|
/*
|
|
* $Id$
|
|
*
|
|
*
|
|
* L O S A L A M O S
|
|
* Los Alamos National Laboratory
|
|
* Los Alamos, New Mexico 87545
|
|
*
|
|
* Copyright, 1986, The Regents of the University of California.
|
|
*
|
|
*
|
|
* Author:
|
|
* Jeffrey O. Hill
|
|
* johill@lanl.gov
|
|
* 505 665 1831
|
|
*/
|
|
|
|
#include "limits.h"
|
|
#include "string.h"
|
|
|
|
#include "epicsMutex.h"
|
|
#include "epicsTime.h"
|
|
#include "tsFreeList.h"
|
|
#include "errMdef.h"
|
|
|
|
#include "cadef.h"
|
|
#include "cacIO.h"
|
|
|
|
#define epicsExportSharedSymbols
|
|
#include "dbCAC.h"
|
|
#include "dbChannelIOIL.h"
|
|
#include "dbNotifyBlockerIL.h"
|
|
#include "dbPutNotifyIOIL.h"
|
|
|
|
#define S_db_Blocked (M_dbAccess|39)
|
|
#define S_db_Pending (M_dbAccess|37)
|
|
|
|
tsFreeList <dbPutNotifyBlocker> dbPutNotifyBlocker::freeList;
|
|
|
|
dbPutNotifyBlocker::dbPutNotifyBlocker ( dbChannelIO &chanIn ) :
|
|
pPN (0), chan ( chanIn )
|
|
{
|
|
}
|
|
|
|
dbPutNotifyBlocker::~dbPutNotifyBlocker ()
|
|
{
|
|
this->lock ();
|
|
if ( this->pPN ) {
|
|
this->pPN->destroy ();
|
|
}
|
|
this->unlock ();
|
|
}
|
|
|
|
void dbPutNotifyBlocker::putNotifyDestroyNotify ()
|
|
{
|
|
this->lock ();
|
|
this->pPN = 0;
|
|
this->unlock ();
|
|
}
|
|
|
|
dbChannelIO & dbPutNotifyBlocker::channel () const
|
|
{
|
|
return this->chan;
|
|
}
|
|
|
|
int dbPutNotifyBlocker::initiatePutNotify ( cacNotify ¬ify,
|
|
struct dbAddr &addr, unsigned type, unsigned long count,
|
|
const void *pValue )
|
|
{
|
|
dbPutNotifyIO *pIO = new dbPutNotifyIO ( notify, *this );
|
|
if ( ! pIO ) {
|
|
return ECA_ALLOCMEM;
|
|
}
|
|
|
|
// wait for current put notify to complete
|
|
this->lock ();
|
|
if ( this->pPN ) {
|
|
epicsTime begin = epicsTime::getCurrent ();
|
|
do {
|
|
this->unlock ();
|
|
this->block.wait ( 1.0 );
|
|
if ( epicsTime::getCurrent () - begin > 30.0 ) {
|
|
pIO->destroy ();
|
|
return ECA_PUTCBINPROG;
|
|
}
|
|
this->lock ();
|
|
} while ( this->pPN );
|
|
}
|
|
this->pPN = pIO;
|
|
int status = this->pPN->initiate ( addr, type, count, pValue );
|
|
if ( status != ECA_NORMAL ) {
|
|
this->pPN->destroy ();
|
|
this->pPN = 0;
|
|
}
|
|
this->unlock ();
|
|
return status;
|
|
}
|
|
|
|
extern "C" void putNotifyCompletion ( putNotify *ppn )
|
|
{
|
|
dbPutNotifyBlocker *pBlocker = static_cast < dbPutNotifyBlocker * > ( ppn->usrPvt );
|
|
pBlocker->lock ();
|
|
pBlocker->pPN->completion ();
|
|
pBlocker->pPN->destroy ();
|
|
pBlocker->pPN = 0;
|
|
pBlocker->unlock ();
|
|
pBlocker->block.signal ();
|
|
}
|
|
|
|
void dbPutNotifyBlocker::show ( unsigned level ) const
|
|
{
|
|
printf ( "put notify blocker at %p\n",
|
|
static_cast <const void *> ( this ) );
|
|
if ( level > 0u ) {
|
|
printf ( "\tdbPutNotifyIO at %p\n",
|
|
static_cast <void *> ( this->pPN ) );
|
|
printf ( "\tdbChannelIO at %p\n",
|
|
static_cast <void *> ( &this->chan ) );
|
|
}
|
|
if ( level > 1u ) {
|
|
this->block.show ( level - 2u );
|
|
}
|
|
}
|
|
|
|
|
|
|