mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
b266a2d97a
products. [Imported from Perforce change 9855 at 2006-12-01 22:19:43] Subversion-branch: /trunk/polyorb Subversion-revision: 37320
16 lines
290 B
Ada
16 lines
290 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 : in CORBA.String)
|
|
return CORBA.String;
|
|
|
|
end Echo.Impl;
|