blob: 10cacde3637acddbaaad649e67ad39a420c7e340 (
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
|
IMPLEMENTATION MODULE simplelistiter ; (*!m2pim*)
TYPE
List = POINTER TO RECORD
next: List ;
END ;
PROCEDURE initList () : List ;
VAR
l: List ;
BEGIN
RETURN l
END initList ;
PROCEDURE items (l: List) : CARDINAL ;
(* VAR
count: CARDINAL ; *)
BEGIN
(* count := 0 ; *)
WHILE l # NIL DO
(* INC (count) ; *)
l := l^.next
END ;
(* RETURN count *)
RETURN 0
END items ;
END simplelistiter.
|
