15 lines
289 B
Text
15 lines
289 B
Text
|
enum NEXT,DATA
|
||
|
|
constant empty_sll = {{1}}
|
||
|
|
sequence sll = empty_sll
|
||
|
|
|
||
|
|
procedure insert_after(object data, integer pos=length(sll))
|
||
|
|
sll = append(sll,{sll[pos][NEXT],data})
|
||
|
|
sll[pos][NEXT] = length(sll)
|
||
|
|
end procedure
|
||
|
|
|
||
|
|
insert_after("ONE")
|
||
|
|
insert_after("TWO")
|
||
|
|
insert_after("THREE")
|
||
|
|
|
||
|
|
?sll
|