Specification of package Corba.Pollable.Impl

 ==================================================== --
 ===  Code automatically generated by IDL to Ada  === --
 ===  compiler OrbAda-idl2ada                     === --
 ===  Copyright Top Graph'X  1997-2001            === --
 ==================================================== --
 From IDL file Messaging.idl
with Corba.Iop ;
with Corba.Impl ;
with Corba.Sequences ;
package CORBA.Pollable.Impl is
   package Idl_Sequence_Pollable is new Corba.Sequences.Unbounded (Value_Ref);

   type PollableSeq is new Idl_Sequence_Pollable.Sequence ;
   Null_PollableSeq : constant PollableSeq :=
      PollableSeq (Idl_Sequence_Pollable.Null_Sequence) ;

   protected type Set_Signaler is
      procedure Add (Potential : in Value_Ref) ;

      procedure Remove (Potential : in Value_Ref) ;

      procedure Set_Ready (Potential : in Value_Ref) ;

      function Is_Ready return Boolean ;

      function Ready_Number return Corba.Unsigned_Short ;

      function Number_Polled return Corba.Unsigned_Short ;

      entry Wait_Ready (Potential : in out Value_Ref) ;
   private
      Num_Ready  : Corba.Unsigned_Short := 0 ;
      Num_Polled : Corba.Unsigned_Short := 0 ;
      Not_Ready  : PollableSeq ;
      Ready      : PollableSeq ;
   end Set_Signaler ;
   type Set_Signaler_Ptr is access all Set_Signaler ;

   protected type Signaler is
      procedure Set_Ready ;

      function Is_Ready return Boolean ;

      entry Wait_Ready ;
   private
      Ready : Boolean := False ;
   end Signaler ;
   type Signaler_Ptr is access all Signaler ;

   type Object is abstract new Corba.Value.Impl_Base with
   record
      Notifier : Signaler_Ptr := new Signaler ;
      Set      : Set_Signaler_Ptr ;
   end record;

   type Object_Ptr is access all Object'class;

   -----------------------------
    Methods of this valuetype --
   -----------------------------

   procedure Set_Ready ( Self : access Object) ;

   function is_ready
      ( Self : access Object;
        timeout : in Corba.Unsigned_Long)
      return Corba.Boolean ;

   function create_pollable_set
      ( Self : access Object)
      return PollableSet_Forward.Ref is abstract ;

    Finalization method to clean up the signaler
   procedure Finalize ( Self : access Object) ;
end CORBA.Pollable.Impl;