TAO/utils/NamingViewer/ViewIORDialog.cpp

   1 #include "stdafx.h"
   2 #include "NamingViewer.h"
   3 #include "ViewIORDialog.h"
   4 #include "tao/IIOP_Profile.h"
   5 #include "tao/Stub.h"
   6
   7 #ifdef _DEBUG
   8 #define new DEBUG_NEW
   9 #undef THIS_FILE
  10 static char THIS_FILE[] = __FILE__;
  11 #endif
  12
  13 /////////////////////////////////////////////////////////////////////////////
  14 // ViewIORDialog dialog
  15
  16
  17 ViewIORDialog::ViewIORDialog(CORBA::ORB_ptr pORB, CORBA::Object_ptr pObject, CWnd* pParent /*=NULL*/)
  18   : CDialog(ViewIORDialog::IDD, pParent)
  19 {
  20   //{{AFX_DATA_INIT(ViewIORDialog)
  21   m_TypeID = _T("");
  22   m_IOR = _T("");
  23   //}}AFX_DATA_INIT
  24   m_pORB = pORB;
  25   if(pObject)
  26   {
  27     m_Object = CORBA::Object::_duplicate(pObject);
  28   }
  29   CORBA::String_var IOR = pORB->object_to_string(pObject);
  30   m_IOR = IOR;
  31 }
  32
  33
  34 void ViewIORDialog::DoDataExchange(CDataExchange* pDX)
  35 {
  36   CDialog::DoDataExchange(pDX);
  37   //{{AFX_DATA_MAP(ViewIORDialog)
  38   DDX_Control(pDX, IDC_PROFILES, m_Profiles);
  39   DDX_Text(pDX, IDC_TYPE_ID, m_TypeID);
  40   DDX_Text(pDX, IDC_IOR, m_IOR);
  41   //}}AFX_DATA_MAP
  42 }
  43
  44
  45 BEGIN_MESSAGE_MAP(ViewIORDialog, CDialog)
  46   //{{AFX_MSG_MAP(ViewIORDialog)
  47   ON_BN_CLICKED(IDC_APPLY, OnApply)
  48   //}}AFX_MSG_MAP
  49 END_MESSAGE_MAP()
  50
  51 /////////////////////////////////////////////////////////////////////////////
  52 // ViewIORDialog message handlers
  53
  54 BOOL ViewIORDialog::OnInitDialog()
  55 {
  56   CDialog::OnInitDialog();
  57
  58   // TODO: Add extra initialization here
  59   DecodeIOR();
  60   return TRUE;  // return TRUE unless you set the focus to a control
  61   // EXCEPTION: OCX Property Pages should return FALSE
  62 }
  63
  64 void ViewIORDialog::OnApply()
  65 {
  66   // TODO: Add your control notification handler code here
  67   UpdateData();
  68   try
  69   {
  70     m_Object = m_pORB->string_to_object(m_IOR);
  71     DecodeIOR();
  72   }
  73   catch(CORBA::Exception& ex)
  74   {
  75     MessageBox(ACE_TEXT_CHAR_TO_TCHAR (ex._rep_id()), ACE_TEXT ("CORBA::Exception"));
  76   }
  77 }
  78
  79 void ViewIORDialog::DecodeIOR()
  80 {
  81   // Reset the fields
  82   m_Profiles.DeleteAllItems();
  83   m_TypeID = "";
  84   UpdateData(FALSE);
  85
  86   // if object is nil, return out
  87   if(CORBA::is_nil(m_Object))
  88   {
  89     return;
  90   }
  91
  92   // Get the stub
  93   TAO_Stub* pStub = m_Object->_stubobj();
  94   const char* pType = pStub->type_id;
  95   m_TypeID = pType ? pType : ""; // special case for INS objects, tao doesn't get the type id
  96   UpdateData(FALSE);
  97
  98   // Iterate through each profile and add an entry to the tree control
  99   const TAO_MProfile& BaseProfiles= pStub->base_profiles();
 100   CORBA::ULong const Count = BaseProfiles.profile_count();
 101   for(CORBA::ULong Slot = 0; Slot < Count; Slot++)
 102   {
 103     const TAO_Profile* pProfile = BaseProfiles.get_profile(Slot);
 104     HTREEITEM hProfile;
 105     switch(pProfile->tag())
 106     {
 107     case 0: //IOP::TAG_INTERNET_IOP:
 108       {
 109         TAO_IIOP_Profile* pIIOPProfile = (TAO_IIOP_Profile*)pProfile;
 110         CString ProfileString;
 111         ProfileString.Format(ACE_TEXT ("IIOP %d.%d"),
 112           pIIOPProfile->version().major,
 113           pIIOPProfile->version().minor);
 114         hProfile = m_Profiles.InsertItem(ProfileString);
 115         TAO_IIOP_Endpoint* pIIOPEndpoint =
 116           (TAO_IIOP_Endpoint*)pIIOPProfile->endpoint ();
 117         while(pIIOPEndpoint)
 118         {
 119           CString EndpointString;
 120           EndpointString.Format(ACE_TEXT ("%s:%d"),
 121             pIIOPEndpoint->host(),
 122             pIIOPEndpoint->port());
 123           HTREEITEM hItem = m_Profiles.InsertItem(EndpointString, hProfile);
 124           m_Profiles.EnsureVisible(hItem);
 125           pIIOPEndpoint = (TAO_IIOP_Endpoint*)pIIOPEndpoint->next();
 126         }
 127
 128       }
 129       break;
 130     default:
 131       {
 132         CString ProfileString;
 133         char* pToString = ((TAO_Profile*)pProfile)->to_string();
 134         ProfileString.Format(ACE_TEXT ("Unknown Profile (Tag=%d) %s"), pProfile->tag(), pToString);
 135         delete pToString;
 136         hProfile = m_Profiles.InsertItem(ProfileString);
 137       }
 138       break;
 139     }
 140   }
 141 }