installed into cvs

src/ca/tcpKillTimer.cpp

@@ -0,0 +1,56 @@
+/*  
+ *  $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 "cac.h"
+#include "tcpKillTimer.h"
+
+tcpKillTimer::tcpKillTimer ( cac & cacIn, tcpiiu & iiuIn, epicsTimerQueue & queueIn ) :
+    once ( epicsOnce::create ( * this ) ), timer ( queueIn.createTimer () ), 
+        clientCtx ( cacIn ), iiu ( iiuIn )
+{
+}
+
+tcpKillTimer::~tcpKillTimer ()
+{
+    this->once.destroy ();
+    this->timer.destroy ();
+}
+
+void tcpKillTimer::start ()
+{
+    this->once.once ();
+}
+
+void tcpKillTimer::initialize ()
+{
+    this->timer.start ( *this, 0.0 );
+}
+
+epicsTimerNotify::expireStatus tcpKillTimer::expire ( const epicsTime & currentTime )
+{
+    this->clientCtx.uninstallIIU ( this->iiu );
+    return noRestart;
+}
+
+void tcpKillTimer::show ( unsigned level ) const
+{
+    ::printf ( "TCP kill timer %p\n",
+        static_cast <const void *> ( this ) );
+    if ( level > 0u ) {
+        this->timer.show ( level - 1u );
+    }
+}
+