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.