mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
65a9baf6ef
Include a mini tutorial on how to write a simple echo client/server [Imported from Perforce change 8091 at 2006-12-01 20:29:32] Subversion-branch: /trunk/polyorb Subversion-revision: 35704
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;
|