src/SortTools/SortTools_ShellSort.cdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

-- File:	ShellSort.cdl
-- Created:	Tue Mar  5 10:50:42 1991
-- Author:	Herve Legrand,Mireille MERCIEN
--		<hl@topsn3>
---Copyright:	 Matra Datavision 1991

generic class ShellSort from SortTools (Item as any;
                                        Array as Array1 from TCollection(Item);
                                        Comparator as any)

	---Purpose: This class provides the ShellSort algorithm.

is

    Sort(myclass; TheArray : in out Array; Comp : Comparator);
    ---Purpose: Sort an array using the ShellSort algorithm.
    ---Level: Public

end;