API Reference

   type Item_Type is private; 
 

   function New_Stack return Handle;  
 
   procedure Destroy( 
      This : in out Handle ); 
 
   Stack_Empty : exception; 
 
   procedure Push( 
      This    : in Handle; 
      Value   : in Item_Type ); 
 
   procedure Pop( 
      This    : in Handle; 
      Value   : in out Item_Type ); 
 
   function Current( 
      This    : in Handle ) return Item_Type ; 
 
   function Is_Empty( 
      This    : in Handle ) return Boolean;