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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
------------------------------------------------------------------------------
-- --
-- POLYORB COMPONENTS --
-- --
-- D Y N C L I E N T --
-- --
-- B o d y --
-- --
-- Copyright (C) 2002-2012, Free Software Foundation, Inc. --
-- --
-- This is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. This software is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License for more details. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- PolyORB is maintained by AdaCore --
-- (email: sales@adacore.com) --
-- --
------------------------------------------------------------------------------
-- echo dynamic client, using the Dynamic Invocation Interface (DII)
with Ada.Command_Line;
with Ada.Text_IO;
with CORBA.Object;
with CORBA.Context;
with CORBA.Request;
with CORBA.NVList;
with CORBA.ORB;
with PolyORB.Setup.Client;
pragma Warnings (Off, PolyORB.Setup.Client);
with PolyORB.Utils.Report;
procedure DynClient is
use Ada.Text_IO;
use PolyORB.Utils.Report;
use CORBA;
myecho : CORBA.Object.Ref;
-------------
-- Do_Test --
-------------
procedure Do_Test;
procedure Do_Test is
Sent_Msg : constant CORBA.String :=
To_CORBA_String ("Hello Dynamic World");
Operation_Name : constant CORBA.Identifier :=
To_CORBA_String ("echoString");
Arg_Name : constant CORBA.Identifier := To_CORBA_String ("Mesg");
Request : CORBA.Request.Object;
Ctx : CORBA.Context.Ref;
Argument : CORBA.Any;
Arg_List : CORBA.NVList.Ref;
Result : CORBA.NamedValue;
Result_Name : constant CORBA.String := To_CORBA_String ("Result");
Recv_Msg : CORBA.String;
begin
-- Creating the argument list
CORBA.ORB.Create_List (0, Arg_List);
Argument := CORBA.To_Any (Sent_Msg);
CORBA.NVList.Add_Item (Arg_List,
Arg_Name,
Argument,
CORBA.ARG_IN);
-- Setting the result type
Result := (Name => CORBA.Identifier (Result_Name),
Argument => Internals.Get_Empty_Any (CORBA.TC_String),
Arg_Modes => 0);
-- Creating a request
CORBA.Object.Create_Request (myecho,
Ctx,
Operation_Name,
Arg_List,
Result,
Request,
0);
-- Sending message
CORBA.Request.Invoke (Request, 0);
-- Getting the answer
Recv_Msg := From_Any (Result.Argument);
-- Printing the result
Put_Line ("I said : " & CORBA.To_Standard_String (Sent_Msg));
Put_Line ("The object answered : "
& CORBA.To_Standard_String (Recv_Msg));
end Do_Test;
Iter : Natural := 1;
begin
New_Test ("Echo dynamic client using the DII");
CORBA.ORB.Initialize ("ORB");
if Ada.Command_Line.Argument_Count < 1 then
Put_Line ("usage : dynclient <IOR_string_from_server> [niter]");
return;
end if;
-- Getting a reference on the CORBA object
CORBA.ORB.String_To_Object
(To_CORBA_String (Ada.Command_Line.Argument (1)), myecho);
if Ada.Command_Line.Argument_Count > 1 then
Iter := Integer'Value (Ada.Command_Line.Argument (2));
end if;
for J in 1 .. Iter loop
Do_Test;
end loop;
End_Report;
end DynClient;
|
