blob: fa19bbe68913b00e48627c186de132cf96bf9f92 (
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 HashAsciiString from PColStd
---Purpose: Redefines the HashCode for HAsciiString
inherits HOfAsciiString from PColStd
uses
HAsciiString from PCollection
is
Create returns HashAsciiString;
---Purpose : Empty constructor.
HashCode (me; MyKey : HAsciiString ; Upper : Integer)
returns Integer is redefined;
---Purpose : Returns a hashcod value of key bounded by Upper.
Compare (me; One , Two : HAsciiString) returns Boolean is redefined;
---Purpose : Compare two keys and returns a boolean value
end HashAsciiString;
|