dep/ACE_wrappers/ace/Basic_Types.cpp

   1 #include "ace/Basic_Types.h"
   2
   3 #if !defined (__ACE_INLINE__)
   4 # include "ace/Basic_Types.inl"
   5 #endif /* ! __ACE_INLINE__ */
   6
   7
   8 ACE_RCSID (ace,
   9            Basic_Types,
  10            "$Id: Basic_Types.cpp 80826 2008-03-04 14:51:23Z wotte $")
  11
  12
  13 #if defined (ACE_LACKS_LONGLONG_T) && !defined (ACE_LACKS_UNSIGNEDLONGLONG_T)
  14 # include "ace/Log_Msg.h"
  15 # include "ace/OS_NS_stdio.h"
  16 # include "ace/OS_NS_string.h"
  17 # if !defined (ACE_LACKS_IOSTREAM_TOTALLY)
  18 // FUZZ: disable check_for_streams_include
  19 #  include "ace/streams.h"
  20 # endif /* ! ACE_LACKS_IOSTREAM_TOTALLY */
  21
  22 ACE_BEGIN_VERSIONED_NAMESPACE_DECL
  23
  24 void
  25 ACE_U_LongLong::output (FILE *file) const
  26 {
  27   if (h_ () > 0)
  28     ACE_OS::fprintf (file, "0x%lx%0*lx", h_ (), 2 * sizeof l_ (), l_ ());
  29   else
  30     ACE_OS::fprintf (file, "0x%lx", l_ ());
  31 }
  32
  33
  34 ACE_TCHAR *
  35 ACE_U_LongLong::as_string (ACE_TCHAR *output,
  36                            unsigned int base,
  37                            unsigned int uppercase) const
  38 {
  39   if (*this == 0)
  40     {
  41       ACE_OS::strcpy(output, "0");
  42     }
  43   else
  44     {
  45       switch(base)
  46         {
  47           case 8:
  48             {
  49               unsigned int index = 0;
  50               int bshift = 31;
  51               while(bshift >= 1)
  52                 {
  53                   unsigned int sval = (this->h_ () >> bshift) & 7;
  54                   if (sval > 0 || index != 0)
  55                     {
  56                       output[index] = sval + '0';
  57                       ++index;
  58                     }
  59                   bshift -= 3;
  60                 }
  61               bshift = 30;
  62               while(bshift >= 0)
  63                 {
  64                   unsigned int sval = (this->l_ () >> bshift) & 7;
  65                   // Combine the last bit of hi with the first 3-bit digit
  66                   if (bshift == 30)
  67                     {
  68                       sval |= (this->h_ () & 1) << 2;
  69                     }
  70                   if (sval > 0 || index != 0)
  71                     {
  72                       output[index] = sval + '0';
  73                       ++index;
  74                     }
  75                   bshift -= 3;
  76                 }
  77               output[index] = '\0';
  78               break;
  79             }
  80           case 10:
  81             {
  82               ACE_OS::sprintf(output, "%.0f", *this / 1.0);
  83               break;
  84             }
  85           case 16:
  86             {
  87               if (this->h_ () != 0)
  88                 {
  89                   ACE_OS::sprintf(output,
  90                                   (uppercase ? "%lX%0*lX" : "%lx%0*lx"),
  91                                   this->h_ (), 2 * sizeof this->l_ (),
  92                                   this->l_ ());
  93                 }
  94               else
  95                 {
  96                   ACE_OS::sprintf(output,
  97                                   (uppercase ? "%lX" : "%lx"), this->l_ ());
  98
  99                 }
 100               break;
 101             }
 102           default:
 103             {
 104               ACE_DEBUG ((LM_DEBUG,
 105                           ACE_TEXT ("Unsupported base = %u\n"), base));
 106               output[0] = '\0';
 107             }
 108         }
 109     }
 110
 111   return output;
 112 }
 113
 114
 115 # if !defined (ACE_LACKS_IOSTREAM_TOTALLY)
 116 ostream&
 117 operator<< (ostream& os, const ACE_U_LongLong& ll)
 118 {
 119 #ifdef __TANDEM && (__CPLUSPLUS_VERSION >= 3)
 120   unsigned long flags = os.flags();
 121 #else
 122   unsigned long flags = os.setf(0);
 123 #endif
 124   char buffer[32];
 125
 126   if ((flags & ios::oct) != 0)
 127     os << ll.as_string (buffer, 8);
 128   else if ((flags & ios::hex) != 0)
 129     os << ll.as_string (buffer, 16, (flags & ios::uppercase));
 130   else
 131     os << ll.as_string (buffer);
 132   return os;
 133 }
 134 # endif
 135
 136 ACE_END_VERSIONED_NAMESPACE_DECL
 137
 138 #endif /* ACE_LACKS_LONGLONG_T */
 139