blob: 7a68c9e3fdfe05382c7d3a67eef6466f88056ac3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
---Copyright: Matra Datavision 1992,1993
---Version:
---History:
-- Version Date Purpose
-- 01/04/93 Creation
class HashExtendedString from PColStd
---Purpose: Redefines the HashCode for HExtendedString
inherits HOfExtendedString from PColStd
uses
HExtendedString from PCollection
is
Create returns HashExtendedString;
---Purpose : Empty constructor.
HashCode (me; MyKey : HExtendedString ; Upper : Integer)
returns Integer is redefined;
---Purpose : Returns a hashcod value of key bounded by Upper.
Compare (me; One , Two : HExtendedString) returns Boolean is redefined;
---Purpose : Compare two keys and returns a boolean value
end HashExtendedString;
|