blob: 37b1e5959177f3178904bdb5049ec64d881d2d5f (
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
32
33
|
IMPLEMENTATION MODULE simplelist ; (*!m2pim*)
TYPE
List = POINTER TO RECORD
next: List ;
END ;
PROCEDURE initList () : List ;
VAR
l: List ;
BEGIN
(* Ignore NEW (l) for now. *)
RETURN l
END initList ;
PROCEDURE concat (l: List) : List ;
BEGIN
l^.next := initList () ;
RETURN l
END concat ;
PROCEDURE addList (l: List) : List ;
BEGIN
l^.next := initList () ;
RETURN l
END addList ;
END simplelist.
|
