home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / SBOOCH / STACK.ADS < prev    next >
Encoding:
Text File  |  1990-10-31  |  856 b   |  26 lines
  1. generic
  2.     type Item is private;
  3. package Stack_Sequential_Bounded_Managed_Noniterator is
  4.  
  5.     type Stack(The_Size : Positive) is limited private;
  6.  
  7.     procedure Copy  (From_The_Stack : in     Stack;
  8.              To_The_Stack   : in out Stack);
  9.     procedure Clear (The_Stack      : in out Stack);
  10.     procedure Push  (The_Item       : in     Item;
  11.              On_The_Stack   : in out Stack);
  12.     procedure Pop   (The_Stack      : in out Stack);
  13.  
  14.     function Is_Equal (Left      : in Stack;
  15.                Right     : in Stack) return Boolean;
  16.     function Depth_Of (The_Stack : in Stack) return Natural;
  17.     function Is_Empty (The_Stack : in Stack) return Boolean;
  18.     function Top_Of   (The_Stack : in Stack) return Item;
  19.  
  20.     Overflow   : exception;
  21.     Underflow  : exception;
  22.  
  23. private
  24.     ...
  25. end Stack_Sequential_Bounded_Managed_Noniterator;
  26.