7fd59977 |
1 | -- File: Iterator.cdl |
2 | -- Created: Fri Mar 6 16:13:20 1992 |
3 | -- Author: Isabelle GRIGNON |
4 | -- <isg@phobox> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | generic class Iterator from IntWalk (Point as any) |
9 | |
10 | |
11 | ---Purpose: Template class to describe the exploration argument of the |
12 | -- generic class IWalking |
13 | |
14 | |
15 | raises OutOfRange from Standard |
16 | |
17 | is |
18 | |
19 | Create |
20 | |
21 | returns Iterator from IntWalk; |
22 | |
23 | |
24 | Length(me) |
25 | |
26 | ---Purpose: returns the dimension of the exploration |
27 | |
28 | returns Integer from Standard |
29 | |
30 | is static; |
31 | |
32 | |
33 | Value(me; Index : Integer) |
34 | |
35 | ---Purpose: returns the current point |
36 | -- an exception is raised if i>NbPoints |
37 | |
38 | returns Point |
39 | |
40 | raises OutOfRange from Standard |
41 | |
42 | is static; |
43 | |
44 | |
45 | Append(me: in out; P: Point) |
46 | |
47 | ---Purpose: Adds a point in the iterator. |
48 | |
49 | is static; |
50 | |
51 | |
52 | end Iterator; |