mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
15 lines
278 B
Ada
15 lines
278 B
Ada
with CORBA;
|
|
with PortableServer;
|
|
|
|
package Echo.Impl is
|
|
|
|
type Object is new PortableServer.Servant_Base with null record;
|
|
|
|
type Object_Acc is access Object;
|
|
|
|
function EchoString
|
|
(Self : access Object;
|
|
Mesg : CORBA.String) return CORBA.String;
|
|
|
|
end Echo.Impl;
|