TAO/orbsvcs/DevGuideExamples/InterfaceRepo/IFRBrowser.cpp

   1 //
   2 // IFRBrowser.cpp
   3 //
   4 // A rudimentary interface repository
   5 // browser, very rudimentary
   6 //
   7
   8 #include "tao/IFR_Client/IFR_BasicC.h"
   9 #include "tao/ORB.h"
  10 #include "ace/Log_Msg.h"
  11
  12 #include <iostream>
  13
  14 const char* programLabel = "IFR Browser";
  15
  16 void listContents(const CORBA::ContainedSeq &repoContents);
  17 void listInterface(CORBA::InterfaceDef_ptr interfaceDef);
  18 void listOperation(CORBA::OperationDescription* operationDescr);
  19 void listParameter(CORBA::ParameterDescription* parameterDescr);
  20
  21 const char* decodeTypeCode(const CORBA::TypeCode_ptr typeCode);
  22 const char* decodeParameterMode(CORBA::ParameterMode mode);
  23 const char* decodeOperationMode(CORBA::OperationMode mode);
  24
  25 int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  26 {
  27   try
  28   {
  29     CORBA::ORB_var orb = CORBA::ORB_init(argc, argv);
  30
  31     CORBA::Object_var obj =
  32       orb->resolve_initial_references("InterfaceRepository");
  33
  34     CORBA::Repository_var ifrRepo = CORBA::Repository::_narrow(obj.in());
  35
  36     if (CORBA::is_nil(ifrRepo.in()))
  37     {
  38       ACE_DEBUG((LM_ERROR,
  39         ACE_TEXT("(%N) failed to narrow interface repository referece.\n")
  40         ));
  41       return -1;
  42     }
  43
  44     CORBA::ContainedSeq_var repoContents = ifrRepo->contents(CORBA::dk_all, 1);
  45
  46     ACE_DEBUG((LM_INFO,
  47       ACE_TEXT("%s: the interface repository contains %d elements.\n"),
  48       programLabel,
  49       repoContents->length()
  50       ));
  51     listContents(repoContents.in());
  52
  53     return 0;
  54   }
  55   catch(const CORBA::Exception& ex)
  56   {
  57     std::cerr << "main() Caught CORBA::Exception : " << ex << std::endl;
  58   }
  59   return 1;
  60 }
  61
  62 void listContents(const CORBA::ContainedSeq& repoContents)
  63 {
  64   //
  65   // List the contents of each element.
  66   //
  67   for(unsigned int i = 0; i < repoContents.length(); ++i)
  68   {
  69     CORBA::Contained::Description_var desc = repoContents[i]->describe();
  70     switch(desc->kind)
  71     {
  72     case CORBA::dk_Constant:
  73       ACE_DEBUG((LM_INFO,
  74         ACE_TEXT("%s: element[%d] is a constant definition.\n"),
  75         programLabel,
  76         i + 1
  77         ));
  78       break;
  79     case CORBA::dk_Typedef:
  80       ACE_DEBUG((LM_INFO,
  81         ACE_TEXT("%s: element[%d] is a typedef definition.\n"),
  82         programLabel,
  83         i + 1
  84         ));
  85       break;
  86     case CORBA::dk_Exception:
  87       ACE_DEBUG((LM_INFO,
  88         ACE_TEXT("%s: element[%d] is an exception definition.\n"),
  89         programLabel,
  90         i + 1
  91         ));
  92       break;
  93     case CORBA::dk_Interface:
  94       {
  95         ACE_DEBUG((LM_INFO,
  96           ACE_TEXT("%s: element[%d] is an interface definition.\n")
  97           ACE_TEXT("%s: listing element[%d]...\n"),
  98           programLabel,
  99           i + 1,
 100           programLabel,
 101           i + 1
 102           ));
 103         CORBA::InterfaceDef_var interfaceDef =
 104           CORBA::InterfaceDef::_narrow(repoContents[i]);
 105         listInterface(interfaceDef.in());
 106         break;
 107       }
 108     case CORBA::dk_Module: {
 109       ACE_DEBUG((LM_INFO,
 110         ACE_TEXT("%s: element[%d] is a module definition.\n"),
 111         programLabel,
 112         i + 1
 113         ));
 114       CORBA::ModuleDef_var moduleDef =
 115         CORBA::ModuleDef::_narrow(repoContents[i]);
 116       CORBA::ContainedSeq_var moduleContents =
 117         moduleDef->contents(CORBA::dk_all,1);
 118       CORBA::String_var moduleId = moduleDef->id();
 119       CORBA::String_var moduleName = moduleDef->name();
 120
 121       ACE_DEBUG((LM_INFO,
 122         ACE_TEXT("%s:\n// %s\nmodule %s\n{\n")
 123         ACE_TEXT("%s: the module contains %d elements.\n"),
 124         programLabel,
 125         moduleId.in(),
 126         moduleName.in(),
 127         programLabel,
 128         moduleContents->length()
 129         ));
 130       listContents(moduleContents.in());
 131       ACE_DEBUG((LM_INFO, ACE_TEXT("}\n")));
 132       break;
 133                            }
 134     default:
 135       break;
 136     }
 137   }
 138 }
 139
 140 void listInterface(CORBA::InterfaceDef_ptr interfaceDef)
 141 {
 142   CORBA::InterfaceDef::FullInterfaceDescription_var fullDescr =
 143     interfaceDef->describe_interface();
 144
 145   const char* interfaceName =
 146     fullDescr->name;
 147   const char* interfaceRepoId =
 148     fullDescr->id;
 149
 150   ACE_DEBUG((LM_INFO,
 151     ACE_TEXT("%s:\n\t// %s\n\tinterface %s\n\t{"),
 152     programLabel,
 153     interfaceRepoId,
 154     interfaceName
 155     ));
 156
 157
 158   unsigned int operationsCount;
 159   if ((operationsCount = fullDescr->operations.length()) > 0)
 160   {
 161     for(unsigned int i = 0; i < operationsCount; ++i)
 162     {
 163       listOperation(&(fullDescr->operations[i]));
 164     }
 165   }
 166
 167   unsigned int attributesCount;
 168   if ((attributesCount = fullDescr->attributes.length()) > 0)
 169   {
 170     ACE_DEBUG((LM_INFO,
 171       ACE_TEXT("%s: %s has %d attribute(s).\n"),
 172       programLabel,
 173       interfaceName,
 174       attributesCount
 175       ));
 176   }
 177
 178   ACE_DEBUG((LM_INFO, "\n\t}\n"));
 179 }
 180
 181 void listOperation(CORBA::OperationDescription* operationDescr)
 182 {
 183   const char* operationName =
 184     operationDescr->name;
 185   const char* operationRepoId =
 186     operationDescr->id;
 187   const char* operationResult =
 188     decodeTypeCode(operationDescr->result.in());
 189   const char* operationMode =
 190     decodeOperationMode(operationDescr->mode);
 191
 192   ACE_DEBUG((LM_INFO,
 193     ACE_TEXT("\n\t\t// %s \n\t\t%s %s %s"),
 194     operationRepoId,
 195     operationResult,
 196     operationName,
 197     operationMode
 198     ));
 199
 200   CORBA::ParDescriptionSeq* params = &(operationDescr->parameters);
 201   CORBA::ULong paramsCount = params->length();
 202   if (paramsCount > 0)
 203   {
 204     ACE_DEBUG((LM_INFO, "\n\t\t(\n\t\t"));
 205     for(CORBA::ULong i =0; i < paramsCount; ++i)
 206     {
 207       listParameter(&((*params)[i]));
 208       if(i < (paramsCount - 1))
 209       {
 210         ACE_DEBUG((LM_INFO, ",\n\t\t"));
 211       }
 212     }
 213     ACE_DEBUG((LM_INFO, "\n\t\t);\n"));
 214   }
 215   else
 216   {
 217     ACE_DEBUG((LM_INFO, "();\n"));
 218   }
 219 }
 220
 221 void listParameter(CORBA::ParameterDescription *parameterDescr)
 222 {
 223   const char *typCode =
 224     decodeTypeCode(parameterDescr->type.in());
 225   const char *paramMode =
 226     decodeParameterMode(parameterDescr->mode);
 227   ACE_DEBUG((LM_INFO,
 228     ACE_TEXT("%s %s %s"),
 229     paramMode,
 230     typCode,
 231     parameterDescr->name.in()
 232     ));
 233 }
 234
 235 const char* decodeTypeCode(const CORBA::TypeCode_ptr typeCode)
 236 {
 237   const char* code = "";
 238   if (typeCode->equivalent(CORBA::_tc_void)) {
 239     code = "void";
 240   } else if (typeCode->equivalent(CORBA::_tc_boolean)) {
 241     code = "boolean";
 242   } else if (typeCode->equivalent(CORBA::_tc_string)) {
 243     code = "string";
 244   }
 245   return code;
 246 }
 247
 248 const char* decodeParameterMode(CORBA::ParameterMode mode)
 249 {
 250   const char* paramMode;
 251   switch(mode)
 252   {
 253   case CORBA::PARAM_IN:
 254     {
 255       paramMode = "in";
 256       break;
 257     }
 258   case CORBA::PARAM_OUT:
 259     {
 260       paramMode = "out";
 261       break;
 262     }
 263   case CORBA::PARAM_INOUT:
 264     {
 265       paramMode = "inout";
 266       break;
 267     }
 268   default:
 269       paramMode = "";
 270   }
 271   return paramMode;
 272 }
 273
 274 const char* decodeOperationMode(CORBA::OperationMode mode)
 275 {
 276   return (mode == CORBA::OP_NORMAL) ? "synchronous" : "asynchronous";
 277 }