TAO/tests/Bug_2503_Regression/server.cpp

   1 #include "test_i.h"
   2 #include "common.h"
   3 #include "ace/Get_Opt.h"
   4 #include "ace/OS_NS_stdio.h"
   5 #include "ace/High_Res_Timer.h"
   6
   7 void parse_args(int argc, ACE_TCHAR* argv[]);
   8 void write_ior_to_file(char const * ior);
   9
  10 int
  11 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  12 {
  13   // Fetching the high res timer's global scale factor ensures that it
  14   // is calibrated (if necessary on this platform) at the beginning of
  15   // the test.  While the timer would otherwise be calibrated on first
  16   // use, this introduces delay in the middle of the test's execution.
  17   // This leads to failures due to timing assumptions (timeouts, etc.)
  18   // within the test itself.
  19   (void) ACE_High_Res_Timer::global_scale_factor();
  20
  21   try
  22   {
  23     CORBA::ORB_var orb = initialize_orb_and_poa(argc, argv);
  24
  25     parse_args(argc, argv);
  26
  27     test_i servant (orb.in());
  28     CORBA::String_var ior =
  29       servant.create_and_activate_server();
  30
  31     write_ior_to_file(ior.in());
  32
  33     orb->run();
  34   }
  35   catch(...)
  36   {
  37     report_exception();
  38     return 1;
  39   }
  40   return 0;
  41 }
  42
  43 namespace
  44 {
  45 const ACE_TCHAR *ior_output_file = ACE_TEXT("test.ior");
  46 }
  47
  48 void
  49 parse_args(int argc, ACE_TCHAR* argv[])
  50 {
  51   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("o:"));
  52   int c;
  53
  54   while ((c = get_opts ()) != -1)
  55   {
  56     switch (c)
  57       {
  58       case 'o':
  59         ior_output_file = get_opts.opt_arg ();
  60         break;
  61
  62       case '?':
  63       default:
  64         throw "Usage: server [-o iorfile]\n";
  65       }
  66   }
  67 }
  68
  69 void write_ior_to_file(char const * ior)
  70 {
  71   if (ior_output_file == 0)
  72   {
  73     return;
  74   }
  75
  76   FILE *output_file= ACE_OS::fopen (ior_output_file, "w");
  77   if (output_file == 0)
  78   {
  79     throw "Cannot open output file to write the IOR";
  80   }
  81
  82   ACE_OS::fprintf (output_file, "%s", ior);
  83   ACE_OS::fclose (output_file);
  84 }