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
|
with Ada.Text_IO;
with Echo.Skel;
pragma Warnings (Off, Echo.Skel);
-- No entity from Echo.Skel is referenced.
package body Echo.Impl is
----------------
-- EchoString --
----------------
function EchoString
(Self : access Object;
Mesg : CORBA.String) return CORBA.String
is
pragma Warnings (Off);
pragma Unreferenced (Self);
pragma Warnings (On);
begin
Ada.Text_IO.Put_Line
("Echoing string: " & CORBA.To_Standard_String (Mesg)
& " ");
return Mesg;
end EchoString;
end Echo.Impl;
|
