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
50 lines
1.2 KiB
Ada
50 lines
1.2 KiB
Ada
with CORBA.Object.OmniORB;
|
|
with Echo.Skel;
|
|
with CORBA;
|
|
package body Echo.Impl is
|
|
|
|
function echoString
|
|
(Self : access Object;
|
|
Mesg : in CORBA.String)
|
|
return CORBA.String is
|
|
begin
|
|
return Mesg;
|
|
end echoString;
|
|
|
|
-----------------------------------------------------------
|
|
-- Implementations objects are controlled, you can add --
|
|
-- instructions in the following functions as specified --
|
|
-----------------------------------------------------------
|
|
|
|
procedure Initialize (Self : in out Object) is
|
|
begin
|
|
AdaBroker.OmniORB.Initialize
|
|
(AdaBroker.OmniORB.ImplObject (Self),
|
|
Echo.Repository_Id);
|
|
-- You can add things *BELOW* this line
|
|
|
|
end Initialize;
|
|
|
|
procedure Adjust (Self: in out Object) is
|
|
begin
|
|
AdaBroker.OmniORB.Adjust
|
|
(AdaBroker.OmniORB.ImplObject (Self));
|
|
-- You can add things *BELOW* this line
|
|
|
|
end Adjust;
|
|
|
|
procedure Finalize (Self : in out Object) is
|
|
begin
|
|
|
|
-- You can add things *BEFORE* this line
|
|
AdaBroker.OmniORB.Finalize
|
|
(AdaBroker.OmniORB.ImplObject (Self));
|
|
end Finalize;
|
|
|
|
begin
|
|
CORBA.Object.OmniORB.Register
|
|
(Echo.Repository_Id,
|
|
Echo.Nil_Ref,
|
|
Echo.Skel.Dispatch'Access);
|
|
end Echo.Impl;
|