1 files changed, 40 insertions, 0 deletions
diff --git a/TAO/orbsvcs/orbsvcs/SSLIOP/SSLIOP_Current.inl b/TAO/orbsvcs/orbsvcs/SSLIOP/SSLIOP_Current.inl
new file mode 100644
index 00000000000..1584b919606
--- /dev/null
+++ b/TAO/orbsvcs/orbsvcs/SSLIOP/SSLIOP_Current.inl
@@ -0,0 +1,40 @@
+// -*- C++ -*-
+//
+// $Id$
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+ACE_INLINE void
+TAO::SSLIOP::Current::tss_slot (size_t slot)
+{
+  this->tss_slot_ = slot;
+}
+
+ACE_INLINE int
+TAO::SSLIOP::Current::implementation (TAO::SSLIOP::Current_Impl *impl)
+{
+  if (this->orb_core_ == 0)
+    return -1;
+
+  return this->orb_core_->set_tss_resource (this->tss_slot_, impl);
+}
+
+ACE_INLINE TAO::SSLIOP::Current_Impl *
+TAO::SSLIOP::Current::implementation (void)
+{
+  if (this->orb_core_ == 0)
+    return 0;
+
+  TAO::SL3::SecurityCurrent_Impl *impl =
+    static_cast<TAO::SL3::SecurityCurrent_Impl *> (
+      this->orb_core_->get_tss_resource (this->tss_slot_));
+
+  // Make sure we've got SSL session state in TSS before allowing
+  // further use of the SSLIOP::Current object.
+  if (impl != 0 && impl->tag () == ::SSLIOP::TAG_SSL_SEC_TRANS)
+    return dynamic_cast<TAO::SSLIOP::Current_Impl *> (impl);
+
+  return 0;
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL