Liren Large Software Subsidy 7/07.iso/c/c221/5.ddi/MWHC.005/Q3

Text File | 1992-12-09 | 544 b | 15 lines

{ (C) Copyright  1986-1992 MetaWare Incorporated;  Santa Cruz, CA 95060. }

pragma C_include('implement.pf');
package Sorts;
   pragma Routine_aliasing_convention(Implement.RTE_aliasing);
   { Sort items L..H.  Less_than returns whether item I is less than item    }
   { J.  Swap swaps items I and J.  After the sort,            }
   {    item I <= item J    for L <= I < J <= H.            }

   procedure Qsort(L,H: Unsigned;
                function Less_than(I,J: Unsigned): Boolean;
               procedure Swap(I,J: Unsigned));   external;

   end;