Copyright (C) 1992, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
Last modified on Tue Jun 16 16:46:21 PDT 1992 by muller
INTERFACE SortedIndexTable;
IMPORT SortedHashTable;
TYPE
Item = RECORD key: REAL; data: INTEGER; END;
T = REF RECORD number: INTEGER; items: REF ARRAY OF Item; END;
PROCEDURE New(size: INTEGER): T;
PROCEDURE Clear(table: T);
PROCEDURE Insert(table: T; item: Item): BOOLEAN;
inserted in sorted order, returns true if succeeds
PROCEDURE Reverse(table: T);
reverses the order of items
PROCEDURE CopySortedIndexTable(fromSortedIndexTable: T;
toSortedIndexTable: T; n: INTEGER): BOOLEAN;
PROCEDURE CopySortedHashTable(fromSortedHastTable: SortedHashTable.T;
toSortedIndexTable: T; n: INTEGER): BOOLEAN;
all the (key,data) pairs are copied into IndexTable, copied
as largest ones first
PROCEDURE Print(table: T);
END SortedIndexTable.