home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / FILESORT.DEF < prev    next >
Text File  |  1996-10-02  |  1KB  |  36 lines
  1. DEFINITION MODULE FileSort;
  2.  
  3.         (********************************************************)
  4.         (*                                                      *)
  5.         (*      In-place file sort using the QuickSort method   *)
  6.         (*                                                      *)
  7.         (*  Programmer:         P. Moylan                       *)
  8.         (*  Last edited:        2 October 1996                  *)
  9.         (*  Status:             Porting to XDS                  *)
  10.         (*                                                      *)
  11.         (********************************************************)
  12.  
  13. FROM SYSTEM IMPORT
  14.     (* type *)  ADDRESS;
  15.  
  16. FROM QuickSortModule IMPORT
  17.     (* type *)  CompareProc;
  18.  
  19. FROM Files IMPORT
  20.     (* type *)  File;
  21.  
  22. TYPE
  23.     RecordNumber = CARDINAL;
  24.  
  25. PROCEDURE InplaceSort (f: File;  from, to: RecordNumber;
  26.                         EltSize, offset: CARDINAL;  GE: CompareProc);
  27.  
  28.     (* In-place sort of part of a file.  We sort record numbers         *)
  29.     (* from..to inclusive.  EltSize is the element size; offset is the  *)
  30.     (* number of bytes (zero, in most cases) before record number 0 in  *)
  31.     (* the file; and GE is a user-supplied function to compare elements *)
  32.     (* at two specified addresses.                                      *)
  33.  
  34. END FileSort.
  35.  
  36.