mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 10:10:56 +08:00
20 lines
563 B
Plaintext
Executable File
20 lines
563 B
Plaintext
Executable File
-- 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;
|