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
19 lines
425 B
Ada
19 lines
425 B
Ada
with CORBA; use CORBA;
|
|
with CORBA.ORB;
|
|
with CORBA.BOA;
|
|
with Ada.Text_IO;
|
|
with Echo;
|
|
with Echo.Impl;
|
|
|
|
procedure Server is
|
|
Myecho : Echo.Impl.Object;
|
|
IOR : CORBA.String;
|
|
begin
|
|
ORB.Init ("omniORB2");
|
|
BOA.Init ("omniORB2_BOA");
|
|
BOA.Object_Is_Ready (Myecho);
|
|
IOR := ORB.Object_To_String (Echo.To_Ref (MyEcho));
|
|
Ada.Text_IO.Put_Line ("'" & To_Standard_String (IOR) & "'");
|
|
BOA.Impl_Is_Ready;
|
|
end Server;
|