Specification of generic package Tgx.Atomic.Queues

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2003, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --


generic
   type Object is limited private ;

package Tgx.Atomic.Queues is
   type Queue_Data ;
   type Queue_Ptr is access all Queue_Data ;

   type Queue_Data is
   record
      Next : aliased Queue_Ptr ;
      Data : aliased Object ;
   end record ;

   procedure Queue ( Head : access Queue_Ptr ;
                     Elem : in Queue_Ptr ) ;

   function Dequeue ( Head : access Queue_Ptr) return Queue_Ptr ;

end Tgx.Atomic.Queues ;

List of definition uses