Doubly-linked list/Element insertion: Difference between revisions

no edit summary
No edit summary
Line 523:
r.next = n
if r == l.tail: l.tail = n</lang>
 
=={{header|Oberon-2}}==
<lang oberon2>
PROCEDURE (dll: DLList) InsertAfter*(p: Node; o: Box.Object);
VAR
n: Node;
BEGIN
n := NewNode(o);
n.prev := p;
n.next := p.next;
IF p.next # NIL THEN p.next.prev := n END;
p.next := n;
IF p = dll.last THEN dll.last := n END;
INC(dll.size)
END InsertAfter;
</lang>
 
=={{header|Objeck}}==
Anonymous user