1 files changed, 166 insertions, 0 deletions
diff --git a/ACE/TAO/orbsvcs/orbsvcs/Time/TAO_Time_Service_Clerk.cpp b/ACE/TAO/orbsvcs/orbsvcs/Time/TAO_Time_Service_Clerk.cpp
new file mode 100644
index 00000000000..dca1d520b5e
--- /dev/null
+++ b/ACE/TAO/orbsvcs/orbsvcs/Time/TAO_Time_Service_Clerk.cpp
@@ -0,0 +1,166 @@
+// -*- C++ -*-
+// $Id$
+
+#include "orbsvcs/Time/TAO_Time_Service_Clerk.h"
+#include "orbsvcs/Time/TAO_TIO.h"
+#include "orbsvcs/Time/TAO_UTO.h"
+
+#include "tao/ORB_Core.h"
+#include "ace/OS_NS_sys_time.h"
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+// Constructor.
+TAO_Time_Service_Clerk::TAO_Time_Service_Clerk (int timer_value,
+                                                int timer_value_usecs,
+                                                const IORS& servers)
+  : server_ (servers),
+    helper_ (this)
+{
+  // Schedule the helper to be invoked by the reactor
+  // periodically.
+
+  if (TAO_ORB_Core_instance ()->reactor ()->schedule_timer
+      (&helper_,
+       0,
+       ACE_Time_Value::zero,
+       ACE_Time_Value(timer_value,timer_value_usecs)) == -1)
+    ACE_ERROR ((LM_ERROR,
+                "%p\n",
+                "schedule_timer ()"));
+}
+
+// Destructor.
+
+TAO_Time_Service_Clerk::~TAO_Time_Service_Clerk (void)
+{
+}
+
+// This method returns the global time and an estimate of inaccuracy
+// in a UTO.
+
+CosTime::UTO_ptr
+TAO_Time_Service_Clerk::universal_time (void)
+{
+  TAO_UTO *uto = 0;
+
+  ACE_NEW_THROW_EX (uto,
+                    TAO_UTO (this->get_time (),
+                             this->inaccuracy (),
+                             this->time_displacement_factor ()),
+                    CORBA::NO_MEMORY ());
+  // Return the global time as a UTO.
+
+  return uto->_this ();
+}
+
+// This method returns the global time in a UTO only if the time can
+// be guaranteed to have been obtained securely.  This method is not
+// implemented currently.
+
+CosTime::UTO_ptr
+TAO_Time_Service_Clerk::secure_universal_time (void)
+{
+  throw CORBA::NO_IMPLEMENT ();
+}
+
+// This creates a new UTO based on the given parameters.
+
+CosTime::UTO_ptr
+TAO_Time_Service_Clerk::new_universal_time (TimeBase::TimeT time,
+                                            TimeBase::InaccuracyT inaccuracy,
+                                            TimeBase::TdfT tdf)
+{
+  TAO_UTO *uto = 0;
+
+  ACE_NEW_THROW_EX (uto,
+                    TAO_UTO (time,
+                             inaccuracy,
+                             tdf),
+                    CORBA::NO_MEMORY ());
+
+  return uto->_this ();
+}
+
+// This creates a new UTO given a time in the UtcT form.
+
+CosTime::UTO_ptr
+TAO_Time_Service_Clerk::uto_from_utc (const TimeBase::UtcT &utc)
+{
+  TAO_UTO *uto = 0;
+
+  // Use the low and high values of inaccuracy
+  // to calculate the total inaccuracy.
+
+  TimeBase::InaccuracyT inaccuracy = utc.inacchi;
+  inaccuracy <<= 32;
+  inaccuracy |= utc.inacclo;
+
+  ACE_NEW_THROW_EX (uto,
+                    TAO_UTO (utc.time,
+                             inaccuracy,
+                             utc.tdf),
+                    CORBA::NO_MEMORY ());
+  return uto->_this ();
+}
+
+// This creates a new TIO with the given parameters.
+
+CosTime::TIO_ptr
+TAO_Time_Service_Clerk::new_interval (TimeBase::TimeT lower,
+                                      TimeBase::TimeT upper)
+{
+  TAO_TIO *tio = 0;
+
+  ACE_NEW_THROW_EX (tio,
+                    TAO_TIO (lower,
+                             upper),
+                    CORBA::NO_MEMORY ());
+  return tio->_this ();
+}
+
+CORBA::ULongLong
+TAO_Time_Service_Clerk::get_time (void)
+{
+  // Globally sync. time is the latest global time plus the time
+  // elapsed since last updation was done.
+
+  const ACE_Time_Value timeofday = ACE_OS::gettimeofday ();
+
+  return (CORBA::ULongLong) (static_cast<CORBA::ULongLong> (timeofday.sec ()) *
+                             static_cast<ACE_UINT32> (10000000) +
+                             static_cast<CORBA::ULongLong> (timeofday.usec () * 10))
+    - this->update_timestamp_
+    + this->time_;
+}
+
+// Returns the time displacement factor in minutes.
+// This is displacement from the GMT.
+CORBA::Short
+TAO_Time_Service_Clerk::time_displacement_factor (void)
+{
+  return time_displacement_factor_;
+}
+
+// Sets the TDF.
+void
+TAO_Time_Service_Clerk::time_displacement_factor (CORBA::Short tdf)
+{
+  this->time_displacement_factor_ = tdf;
+}
+
+// GET method for inaccuracy.
+TimeBase::InaccuracyT
+TAO_Time_Service_Clerk::inaccuracy (void)
+{
+  return this->inaccuracy_;
+}
+
+// SET method for inaccuracy.
+void
+TAO_Time_Service_Clerk::inaccuracy (TimeBase::InaccuracyT inaccuracy)
+{
+  this->inaccuracy_ = inaccuracy;
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL