mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
7242c7497f
Ada answered : 123456 Youpi !!!! [imported from CVS by cvs2p4 at 2000/03/21 18:11:27] [Imported from Perforce change 248 at 2006-12-01 18:19:43] Subversion-branch: /trunk/adabroker Subversion-revision: 31004
42 lines
1.6 KiB
Ada
42 lines
1.6 KiB
Ada
----------------------------------------------------------------------------
|
|
---- ----
|
|
---- This in an example which is hand-written ----
|
|
---- for the echo object ----
|
|
---- ----
|
|
---- package echo_impl ----
|
|
---- ----
|
|
---- authors : Fabien Azavant, Sebastien Ponce ----
|
|
---- ----
|
|
----------------------------------------------------------------------------
|
|
|
|
with Echo.Skeleton ;
|
|
|
|
with Adabroker_Debug ;
|
|
pragma Elaborate(Adabroker_Debug) ;
|
|
|
|
package Echo.Impl is
|
|
|
|
Echo_Impl : constant Boolean := Adabroker_Debug.Is_Active("echo.impl") ;
|
|
|
|
--------------------------------------------------
|
|
---- spec ----
|
|
--------------------------------------------------
|
|
|
|
type Object is new Echo.Skeleton.Object with private ;
|
|
type Object_Ptr is access all Object'Class ;
|
|
|
|
function EchoString(Self : access Object;
|
|
Message : in Corba.String) return Corba.String ;
|
|
|
|
function EchoLong(Self : access Object ;
|
|
Message : in Corba.Long) return Corba.Long ;
|
|
|
|
private
|
|
|
|
-- you may add fields to this record
|
|
type Object is new Echo.Skeleton.Object with record
|
|
null ;
|
|
end record ;
|
|
|
|
End Echo.Impl ;
|