summaryrefslogtreecommitdiff
path: root/apps/JAWS3/jaws3/Concurrency.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'apps/JAWS3/jaws3/Concurrency.cpp')
-rw-r--r--apps/JAWS3/jaws3/Concurrency.cpp105
1 files changed, 0 insertions, 105 deletions
diff --git a/apps/JAWS3/jaws3/Concurrency.cpp b/apps/JAWS3/jaws3/Concurrency.cpp
deleted file mode 100644
index 3d42fde5fae..00000000000
--- a/apps/JAWS3/jaws3/Concurrency.cpp
+++ /dev/null
@@ -1,105 +0,0 @@
-// $Id$
-
-#include "ace/OS_NS_strings.h"
-#include "ace/Message_Block.h"
-#include "ace/Singleton.h"
-#include "ace/Synch_Traits.h"
-#include "ace/Null_Mutex.h"
-
-#ifndef JAWS_BUILD_DLL
-#define JAWS_BUILD_DLL
-#endif
-
-#include "jaws3/Concurrency.h"
-#include "jaws3/TPOOL_Concurrency.h"
-#include "jaws3/TPR_Concurrency.h"
-#include "jaws3/THYBRID_Concurrency.h"
-#include "jaws3/Options.h"
-
-
-typedef ACE_Singleton<ACE_Message_Block, ACE_SYNCH_NULL_MUTEX>
- JAWS_Empty_Message_Block;
-
-
-int
-JAWS_Concurrency_Impl::svc (void)
-{
- JAWS_Protocol_Handler *ph;
-
- while (this->getq (ph) != -1)
- {
- if (ph == 0)
- continue;
-
- if (ph->service () == -1)
- {
- // TODO: Do I really want to call close here, or
- // let the protocol handler close itself?
- ph->dismiss ();
- continue;
- }
- }
-
- return 0;
-}
-
-
-JAWS_Concurrency_Bridge<JAWS_Concurrency_Impl>
-::JAWS_Concurrency_Bridge (JAWS_Concurrency_Impl *impl)
- : impl_ (impl)
-{
- if (this->impl_ == 0)
- {
- const char *concurrency;
- concurrency = JAWS_Options::instance ()->getenv ("JAWS_CONCURRENCY");
- if (concurrency == 0)
- concurrency = JAWS_DEFAULT_CONCURRENCY;
-
- if (ACE_OS::strcasecmp (concurrency, "TPR") == 0)
- this->impl_ = JAWS_TPR_Concurrency::instance ();
- else if (ACE_OS::strcasecmp (concurrency, "TPOOL") == 0)
- this->impl_ = JAWS_TPOOL_Concurrency::instance ();
- else if (ACE_OS::strcasecmp (concurrency, "THYBRID") == 0)
- this->impl_ = JAWS_THYBRID_Concurrency::instance ();
- else
- this->impl_ = JAWS_THYBRID_Concurrency::instance ();
- // Since synchronous IO is the default IO, need an aggressive
- // default concurrency mechanism.
- }
-}
-
-
-int
-JAWS_Concurrency_Bridge<JAWS_Concurrency_Impl>
-::putq (JAWS_Protocol_Handler *ph)
-{
- return this->impl_->putq (ph);
-}
-
-
-int
-JAWS_Concurrency_Bridge<JAWS_Concurrency_Impl>
-::getq (JAWS_Protocol_Handler *&ph)
-{
- return this->impl_->getq (ph);
-}
-
-
-void
-JAWS_Concurrency_Bridge<JAWS_Concurrency_Impl>::shutdown (void)
-{
- ACE_Message_Block *empty_mb = JAWS_Empty_Message_Block::instance ();
- JAWS_CONCURRENCY_TASK *task;
-
- task = JAWS_THYBRID_Concurrency::instance ();
- task->putq (empty_mb);
- task->wait ();
-
- task = JAWS_TPOOL_Concurrency::instance ();
- task->putq (empty_mb);
- task->wait ();
-
- task = JAWS_TPR_Concurrency::instance ();
- task->putq (empty_mb);
- task->wait ();
-}