TAO/tests/Bug_1361_Regression/shutdown.cpp

   1 #include "TestC.h"
   2 #include "ace/Get_Opt.h"
   3
   4 #if defined (ACE_OPENVMS)
   5 // need this to circumvent link error on OpenVMS
   6 // has to do with interference in template instantiations
   7 // because multiple executables are build in one directory
   8 // reuising eachothers object files.
   9 ACE_Time_Value dum = ACE_Time_Value::zero;
  10 #endif
  11
  12 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
  13
  14 int
  15 parse_args (int argc, ACE_TCHAR *argv[]);
  16
  17 int
  18 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  19 {
  20   ACE_DEBUG ((LM_DEBUG,
  21              "Starting shutdown\n"));
  22   try
  23     {
  24       CORBA::ORB_var orb =
  25         CORBA::ORB_init (argc, argv);
  26
  27       if (parse_args (argc, argv) != 0)
  28         return 1;
  29
  30       CORBA::Object_var tmp =
  31         orb->string_to_object(ior);
  32
  33       Test::Echo_Caller_var server =
  34         Test::Echo_Caller::_narrow(tmp.in ());
  35
  36       if (CORBA::is_nil (server.in ()))
  37         {
  38           ACE_ERROR_RETURN ((LM_DEBUG,
  39                              "Nil Test::Echo_Caller reference <%s>\n",
  40                              ior),
  41                             1);
  42         }
  43
  44       server->shutdown ();
  45
  46       orb->destroy ();
  47     }
  48   catch (const CORBA::Exception& ex)
  49     {
  50       ex._tao_print_exception ("Exception caught:");
  51       return 1;
  52     }
  53
  54   return 0;
  55 }
  56
  57 int
  58 parse_args (int argc, ACE_TCHAR *argv[])
  59 {
  60   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
  61   int c;
  62
  63   while ((c = get_opts ()) != -1)
  64     switch (c)
  65       {
  66       case 'k':
  67         ior = get_opts.opt_arg ();
  68         break;
  69
  70       case '?':
  71       default:
  72         ACE_ERROR_RETURN ((LM_ERROR,
  73                            "usage:  %s "
  74                            "-k <ior> "
  75                            "\n",
  76                            argv [0]),
  77                           -1);
  78       }
  79   // Indicates successful parsing of the command line
  80   return 0;
  81 }