TAO/tests/Nested_Upcall_Crash/scavenger.cpp

   1 #include "TestC.h"
   2 #include "tao/Messaging/Messaging.h"
   3 #include "tao/AnyTypeCode/Any.h"
   4 #include "tao/ORB_Core.h"
   5 #include "ace/Get_Opt.h"
   6
   7 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
   8
   9 #if defined (ACE_OPENVMS)
  10 // need this to circumvent link error on OpenVMS
  11 // has to do with interference in template instantiations
  12 // because multiple executables are build in one directory
  13 // reuising eachothers object files.
  14 ACE_Time_Value dum = ACE_Time_Value::zero;
  15 #endif
  16
  17 int
  18 parse_args (int argc, ACE_TCHAR *argv[]);
  19
  20 int
  21 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  22 {
  23   int ret_val = 0;
  24
  25   try
  26     {
  27       CORBA::ORB_var orb =
  28         CORBA::ORB_init (argc, argv);
  29
  30       CORBA::Object_var object =
  31         orb->resolve_initial_references ("PolicyCurrent");
  32
  33       CORBA::PolicyCurrent_var policy_current =
  34         CORBA::PolicyCurrent::_narrow (object.in ());
  35
  36       if (CORBA::is_nil (policy_current.in ()))
  37         {
  38           ACE_ERROR ((LM_ERROR, "ERROR: Nil policy current\n"));
  39           return 1;
  40         }
  41       CORBA::Any scope_as_any;
  42       scope_as_any <<= Messaging::SYNC_WITH_SERVER;
  43
  44       CORBA::PolicyList policies(1); policies.length (1);
  45       policies[0] =
  46         orb->create_policy (Messaging::SYNC_SCOPE_POLICY_TYPE,
  47                             scope_as_any);
  48
  49       policy_current->set_policy_overrides (policies, CORBA::ADD_OVERRIDE);
  50
  51       policies[0]->destroy ();
  52
  53       if (parse_args (argc, argv) != 0)
  54         return 1;
  55
  56       CORBA::Object_var tmp =
  57         orb->string_to_object(ior);
  58
  59       Test::Peer_var peer =
  60         Test::Peer::_narrow(tmp.in ());
  61
  62       if (CORBA::is_nil (peer.in ()))
  63         {
  64           ACE_ERROR_RETURN ((LM_DEBUG,
  65                              "Nil Test::Peer reference <%s>\n",
  66                              ior),
  67                             1);
  68         }
  69
  70       while(1)
  71       {
  72         peer->noop ();
  73       }
  74
  75       /* Warning with TRU 64 builds
  76        ACE_DEBUG ((LM_DEBUG, "(%P|%t) scavenger - event loop finished\n"));
  77
  78       orb->destroy ();
  79       */
  80     }
  81   catch (const CORBA::Exception& ex)
  82     {
  83       ex._tao_print_exception ("Exception caught:");
  84       ret_val = 1;
  85     }
  86
  87   return ret_val;
  88 }
  89
  90 int
  91 parse_args (int argc, ACE_TCHAR *argv[])
  92 {
  93   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
  94   int c;
  95
  96   while ((c = get_opts ()) != -1)
  97     switch (c)
  98       {
  99       case 'k':
 100         ior = get_opts.opt_arg ();
 101         break;
 102
 103       case '?':
 104       default:
 105         ACE_ERROR_RETURN ((LM_ERROR,
 106                            "usage:  %s "
 107                            "-k <ior> "
 108                            "\n",
 109                            argv [0]),
 110                           -1);
 111       }
 112   // Indicates successful parsing of the command line
 113   return 0;
 114 }