TAO/tao/Principal.cpp

   1 // Copyright 1994-1995 by Sun Microsystems Inc.
   2 // All Rights Reserved
   3 // ORB: Principal identifier pseudo-objref
   4
   5 #include "tao/Principal.h"
   6 #include "tao/CDR.h"
   7
   8 #if !defined (__ACE_INLINE__)
   9 #include "tao/Principal.inl"
  10 #endif /* __ACE_INLINE__ */
  11
  12 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
  13
  14 CORBA::Principal::Principal ()
  15   : refcount_ (1)
  16 {
  17 }
  18
  19 CORBA::Principal::~Principal ()
  20 {
  21 }
  22
  23 CORBA::Boolean
  24 operator<< (TAO_OutputCDR & cdr, CORBA::Principal * x)
  25 {
  26   if (x != nullptr)
  27     {
  28       CORBA::ULong length  = x->id.length ();
  29       cdr.write_long (length);
  30       cdr.write_octet_array (x->id.get_buffer (), length);
  31     }
  32   else
  33     {
  34       cdr.write_ulong (0);
  35     }
  36
  37   return cdr.good_bit ();
  38 }
  39
  40 CORBA::Boolean
  41 operator>> (TAO_InputCDR & cdr, CORBA::Principal *& x)
  42 {
  43   CORBA::ULong length;
  44   cdr.read_ulong (length);
  45
  46   if (length == 0 || !cdr.good_bit ())
  47     {
  48       x = nullptr;
  49     }
  50   else
  51     {
  52       ACE_NEW_RETURN (x, CORBA::Principal, 0);
  53       x->id.length (length);
  54       cdr.read_octet_array (x->id.get_buffer (), length);
  55     }
  56
  57   return cdr.good_bit ();
  58 }
  59
  60 TAO_END_VERSIONED_NAMESPACE_DECL