------------------------------------------------------------------------
-- Howard Eng                                                    2/94 --
-- Unixpros, Inc.                                                     --
--                                                                    --
-- This package implements a semaphore.  It is used for mutexes and   --
-- condition variables.                                               --
------------------------------------------------------------------------

with CALENDAR;
with UNCHECKED_DEALLOCATION;

package DCE_ADA_SEMAPHORE is

     task type SEMAPHORE_TASK_TYPE is
          entry WAIT;
          entry TIMED_WAIT( T_OUT : in CALENDAR.TIME );
          entry WAKE_ONE;
          entry WAKE_ALL;
          entry STOP;
     end SEMAPHORE_TASK_TYPE;

     for SEMAPHORE_TASK_TYPE'STORAGE_SIZE use 4100;

     type SEMAPHORE_TYPE is access SEMAPHORE_TASK_TYPE;

     procedure FREE is new
          UNCHECKED_DEALLOCATION( SEMAPHORE_TASK_TYPE,
                         SEMAPHORE_TYPE
                          );
     

end DCE_ADA_SEMAPHORE;