74 lines
2.3 KiB
C++
74 lines
2.3 KiB
C++
/*************************************************************************\
|
|
* 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.
|
|
\*************************************************************************/
|
|
|
|
/* * $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: Jeff Hill
|
|
*/
|
|
|
|
#define epicsAssertAuthor "Jeff Hill johill@lanl.gov"
|
|
|
|
#include "iocinf.h"
|
|
#include "cac.h"
|
|
#include "virtualCircuit.h"
|
|
|
|
tcpSendWatchdog::tcpSendWatchdog (
|
|
epicsMutex & cbMutexIn, cacContextNotify & ctxNotifyIn,
|
|
epicsMutex & mutexIn, tcpiiu & iiuIn,
|
|
double periodIn, epicsTimerQueue & queueIn ) :
|
|
period ( periodIn ), timer ( queueIn.createTimer () ),
|
|
cbMutex ( cbMutexIn ), ctxNotify ( ctxNotifyIn ),
|
|
mutex ( mutexIn ), iiu ( iiuIn )
|
|
{
|
|
}
|
|
|
|
tcpSendWatchdog::~tcpSendWatchdog ()
|
|
{
|
|
this->timer.destroy ();
|
|
}
|
|
|
|
epicsTimerNotify::expireStatus tcpSendWatchdog::expire (
|
|
const epicsTime & currentTime )
|
|
{
|
|
callbackManager mgr ( this->ctxNotify, this->cbMutex );
|
|
if ( this->iiu.bytesArePendingInOS() ) {
|
|
this->iiu.printf ( mgr.cbGuard,
|
|
"The CA client library is disconnecting after a flush request "
|
|
"timed out, but receive data is pending, probably because of an "
|
|
"application schedualing problem\n" );
|
|
}
|
|
# ifdef DEBUG
|
|
epicsGuard < epicsMutex > guard ( this->mutex );
|
|
char hostName[128];
|
|
this->iiu.hostName ( guard, hostName, sizeof ( hostName ) );
|
|
debugPrintf ( ( "Request not accepted by CA server %s for %g sec. Disconnecting.\n",
|
|
hostName, this->period ) );
|
|
# endif
|
|
this->iiu.sendTimeoutNotify ( currentTime, mgr );
|
|
return noRestart;
|
|
}
|
|
|
|
void tcpSendWatchdog::start ( const epicsTime & currentTime )
|
|
{
|
|
this->timer.start ( *this, currentTime + this->period );
|
|
}
|
|
|
|
void tcpSendWatchdog::cancel ()
|
|
{
|
|
this->timer.cancel ();
|
|
}
|
|
|