-- Copyright (C) 1984  by Xerox Corporation. All rights reserved. 
-- HeapSort.Mesa, HGM,  9-Jul-84 23:27:22

HeapSort: DEFINITIONS =
  BEGIN

  Sort: PROCEDURE [
    base: LONG POINTER, length: CARDINAL,
    less: PROCEDURE [UNSPECIFIED, UNSPECIFIED] RETURNS [BOOLEAN]];

  SortLong: PROCEDURE [
    base: LONG POINTER, length: CARDINAL,
    less: PROCEDURE [LONG UNSPECIFIED, LONG UNSPECIFIED] RETURNS [BOOLEAN]];

  END.