1 files changed, 89 insertions, 0 deletions
diff --git a/TAO/tao/PortableServer/RequestProcessingStrategyServantLocatorFI.cpp b/TAO/tao/PortableServer/RequestProcessingStrategyServantLocatorFI.cpp
new file mode 100644
index 00000000000..9e5c094dd4f
--- /dev/null
+++ b/TAO/tao/PortableServer/RequestProcessingStrategyServantLocatorFI.cpp
@@ -0,0 +1,89 @@
+// $Id$
+
+#include "tao/orbconf.h"
+
+ACE_RCSID (PortableServer,
+           RequestProcessingStrategyServantLocatorFactoryImpl,
+           "$Id$")
+
+#if (TAO_HAS_MINIMUM_POA == 0) && !defined (CORBA_E_COMPACT) && !defined (CORBA_E_MICRO)
+
+#include "tao/PortableServer/RequestProcessingStrategyServantLocatorFI.h"
+#include "tao/PortableServer/RequestProcessingStrategy.h"
+#include "tao/PortableServer/RequestProcessingStrategyServantLocator.h"
+#include "ace/Dynamic_Service.h"
+#include "ace/Log_Msg.h"
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+namespace TAO
+{
+  namespace Portable_Server
+  {
+    RequestProcessingStrategy*
+    RequestProcessingStrategyServantLocatorFactoryImpl::create (
+      ::PortableServer::RequestProcessingPolicyValue value,
+      ::PortableServer::ServantRetentionPolicyValue srvalue)
+    {
+      RequestProcessingStrategy* strategy = 0;
+
+      switch (value)
+      {
+        case ::PortableServer::USE_SERVANT_MANAGER :
+        {
+          switch (srvalue)
+          {
+            case ::PortableServer::RETAIN :
+            {
+              ACE_ERROR ((LM_ERROR, "Incorrect type in RequestProcessingStrategyServantLocatorFactoryImpl"));
+              break;
+            }
+            case ::PortableServer::NON_RETAIN :
+            {
+              ACE_NEW_RETURN (strategy, RequestProcessingStrategyServantLocator, 0);
+              break;
+            }
+          }
+          break;
+        }
+        default :
+        {
+          ACE_ERROR ((LM_ERROR, "Incorrect type in RequestProcessingStrategyServantLocatorFactoryImpl"));
+          break;
+        }
+      }
+
+      return strategy;
+    }
+
+    void
+    RequestProcessingStrategyServantLocatorFactoryImpl::destroy (
+      RequestProcessingStrategy *strategy
+      ACE_ENV_ARG_DECL)
+    {
+      strategy->strategy_cleanup (ACE_ENV_SINGLE_ARG_PARAMETER);
+      ACE_CHECK;
+
+      delete strategy;
+    }
+  }
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL
+
+ACE_STATIC_SVC_DEFINE (
+  RequestProcessingStrategyServantLocatorFactoryImpl,
+  ACE_TEXT ("RequestProcessingStrategyServantLocatorFactory"),
+  ACE_SVC_OBJ_T,
+  &ACE_SVC_NAME (RequestProcessingStrategyServantLocatorFactoryImpl),
+  ACE_Service_Type::DELETE_THIS | ACE_Service_Type::DELETE_OBJ,
+  0)
+
+ACE_FACTORY_NAMESPACE_DEFINE (
+  ACE_Local_Service,
+  RequestProcessingStrategyServantLocatorFactoryImpl,
+  TAO::Portable_Server::RequestProcessingStrategyServantLocatorFactoryImpl)
+
+
+#endif /* TAO_HAS_MINIMUM_POA == 0 */
+