14 lines
289 B
Text
14 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
|