home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / QUICKSOR.DEF < prev    next >
Text File  |  1996-09-27  |  1KB  |  32 lines

  1. DEFINITION MODULE QuickSortModule;
  2.  
  3.         (********************************************************)
  4.         (*                                                      *)
  5.         (*      In-memory sort using the QuickSort method       *)
  6.         (*                                                      *)
  7.         (*  Programmer:         P. Moylan                       *)
  8.         (*  Last edited:        27 September 1996               *)
  9.         (*  Status:             OK                              *)
  10.         (*                                                      *)
  11.         (********************************************************)
  12.  
  13. FROM SYSTEM IMPORT
  14.     (* type *)  LOC, ADDRESS;
  15.  
  16. TYPE CompareProc = PROCEDURE (ADDRESS, ADDRESS): BOOLEAN;
  17.  
  18.     (* A "CompareProc" procedure accepts the addresses of two data      *)
  19.     (* elements, and returns TRUE iff the first is greater than or      *)
  20.     (* equal to the second.  It is at the caller's discretion to define *)
  21.     (* the meaning of "greater or equal" for his or her application.    *)
  22.  
  23. PROCEDURE QuickSort (VAR (*INOUT*) data: ARRAY OF LOC;
  24.                                 N, EltSize: CARDINAL;  GE: CompareProc);
  25.  
  26.     (* In-place sort of array data[0..N].  EltSize is the element size, *)
  27.     (* and GE is a user-supplied function to compare elements at two    *)
  28.     (* specified addresses.                                             *)
  29.  
  30. END QuickSortModule.
  31.  
  32.