7fd59977 |
1 | -- File: BOPTools_CoupleOfInteger.cdl |
2 | -- Created: Mon Apr 1 10:16:21 2002 |
3 | -- Author: Peter KURNEV |
4 | -- <pkv@irinox> |
5 | ---Copyright: Matra Datavision 2002 |
6 | |
7 | |
8 | class CoupleOfInteger from BOPTools |
9 | |
10 | ---Purpose: |
11 | -- Auxiliary class providing structure to |
12 | -- store info about a couple of integers |
13 | |
14 | --uses |
15 | --raises |
16 | |
17 | is |
18 | Create |
19 | returns CoupleOfInteger from BOPTools; |
20 | ---Purpose: |
21 | --- Empty Constructor |
22 | --- |
23 | Create(aFirst : Integer from Standard; |
24 | aSecond : Integer from Standard) |
25 | returns CoupleOfInteger from BOPTools; |
26 | ---Purpose: |
27 | --- Constructor |
28 | --- |
29 | SetCouple(me:out; |
30 | aFirst : Integer from Standard; |
31 | aSecond : Integer from Standard); |
32 | ---Purpose: |
33 | --- Modifier |
34 | --- |
35 | SetFirst(me:out; |
36 | aFirst : Integer from Standard); |
37 | ---Purpose: |
38 | --- Modifier |
39 | --- |
40 | SetSecond(me:out; |
41 | aSecond : Integer from Standard); |
42 | ---Purpose: |
43 | --- Modifier |
44 | --- |
45 | Couple (me; |
46 | aFirst :out Integer from Standard; |
47 | aSecond :out Integer from Standard); |
48 | ---Purpose: |
49 | --- Selector |
50 | --- |
51 | First(me) |
52 | returns Integer from Standard; |
53 | ---Purpose: |
54 | --- Selector |
55 | --- |
56 | Second(me) |
57 | returns Integer from Standard; |
58 | ---Purpose: |
59 | --- Selector |
60 | --- |
61 | |
62 | IsEqual(me; |
63 | aOther:like me) |
64 | returns Boolean from Standard; |
65 | |
66 | HashCode(me; |
67 | Upper : Integer from Standard) |
68 | returns Integer from Standard; |
69 | |
70 | fields |
71 | myFirst : Integer from Standard; |
72 | mySecond : Integer from Standard; |
73 | |
74 | end CoupleOfInteger; |