Liren Large Software Subsidy 7/07.iso/c/c220/4.ddi/LIB/SRC/SORTS.PF

Text File | 1990-12-16 | 466 b | 13 lines

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;