home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / SBOOCH / SORT.ADS < prev    next >
Encoding:
Text File  |  1990-10-31  |  287 b   |  12 lines
  1. generic
  2.     type Item  is private;
  3.     type Index is (<>);
  4.     type Items is array(Index range <>) of Item;
  5.     with function "<" (Left  : in Item;
  6.                Right : in Item) return Boolean;
  7. package Quick_Sort is
  8.  
  9.     procedure Sort (The_Items : in out Items);
  10.  
  11. end Quick_Sort;
  12.