mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
25a78f60cc
[imported from CVS by cvs2p4 at 2000/03/21 18:25:58] [Imported from Perforce change 593 at 2006-12-01 18:26:10] Subversion-branch: /trunk/adabroker Subversion-revision: 31349
26 lines
609 B
Ada
26 lines
609 B
Ada
with AdaBroker.OmniORB;
|
|
with CORBA;
|
|
package Echo.Impl is
|
|
|
|
type Object is new AdaBroker.OmniORB.ImplObject with private;
|
|
|
|
type Object_Ptr is access all Object;
|
|
|
|
function echoString
|
|
(Self : access Object;
|
|
Mesg : in CORBA.String)
|
|
return CORBA.String;
|
|
private
|
|
|
|
-- You may add fields to this record
|
|
type Object is new AdaBroker.OmniORB.ImplObject with record
|
|
null;
|
|
-- Insert user declarations
|
|
end record;
|
|
|
|
procedure Initialize (Self : in out Object);
|
|
procedure Adjust (Self : in out Object);
|
|
procedure Finalize (Self : in out Object);
|
|
|
|
end Echo.Impl;
|