1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
// $Id$
#include "ior_mcast_client_i.h"
#include "ace/Get_Opt.h"
#include "ace/Read_Buffer.h"
ior_mcast_Client_i::ior_mcast_Client_i (void)
{
// Constructor
}
ior_mcast_Client_i::~ior_mcast_Client_i (void)
{
}
int
ior_mcast_Client_i::init (int& argc,
char *argv[],
CORBA::Environment &ACE_TRY_ENV)
{
ACE_TRY
{
// First initialize the ORB, that will remove some arguments...
CORBA::ORB_var orb =
CORBA::ORB_init (argc,
argv,
"" /* the ORB name, it can be anything! */,
ACE_TRY_ENV);
ACE_TRY_CHECK;
CORBA::Object_var mcast_server_object =
orb->resolve_initial_references ("MCASTServer", ACE_TRY_ENV);
ACE_TRY_CHECK;
if (CORBA::is_nil (mcast_server_object.in ()))
ACE_ERROR_RETURN ((LM_ERROR,
"Cannot resolve MCast Server\n : client"),
-1);
MCast::Server_var mcast_srvr =
MCast::Server::_narrow (mcast_server_object.in (), ACE_TRY_ENV);
ACE_TRY_CHECK;
if (CORBA::is_nil (mcast_srvr.in ()))
ACE_ERROR_RETURN ((LM_ERROR,
"Cannot narrow MCast Service\n :client"),
-1);
// Invoke a request on the server
CORBA::Boolean ret_value =
mcast_srvr->connect_server (ACE_TRY_ENV);
ACE_TRY_CHECK;
if (ret_value != 0)
{
ACE_DEBUG ((LM_DEBUG,
"The server has not been contacted. Error!!\n",
0));
}
}
ACE_CATCH (CORBA::SystemException, ex)
{
ACE_PRINT_EXCEPTION (ex, "client");
return -1;
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, "client");
}
ACE_ENDTRY;
ACE_CHECK_RETURN (-1);
return 0;
}
|