ListAppendList and InsertListBeforeLink

This code has been declared by its author to be Public Domain code.

ListAppendList and InsertListBeforeLink by plash

2008

ListAppendList(dest, from) will append 'from' to 'dest'
InsertListBeforeLink(list, destlink) will insert a whole list before a link.

Example code in the comments!

Function ListAppendList:Int(dest:TList, from:TList)
	Local copy:TList
	If dest = Null Or from = Null Or from.Count() = 0 Then Return False
	copy = from.Copy()
	InsertListBeforeLink(copy, dest._head)
	Return True
End Function

Function InsertListBeforeLink(thislist:TList, beforethis:TLink)
	Local this:TLink = thislist.FirstLink(), last:TLink = thislist.LastLink()
	'this._succ = beforethis
	this._pred = beforethis._pred
	this._pred._succ = this
	last._succ = beforethis
	beforethis._pred = last
End Function

Comments

plash

2008

Example code:

SuperStrict

Framework brl.standardio
Import brl.linkedlist

Local dest:TList = New(TList), from:TList = New(TList)
dest.AddLast("Hello")
dest.AddLast("And goodbye!")

from.AddLast("World!")
from.AddLast("....!")
from.AddLast("Longer?")
from.AddLast("Sweet.")

Print "Success: " + ListAppendList(dest, from)

For Local val:String = EachIn dest
	Print "Value: " + val
Next

Function ListAppendList:Int(dest:TList, from:TList)
	Local copy:TList
	If dest = Null Or from = Null Or from.Count() = 0 Then Return False
	copy = from.Copy()
	InsertListBeforeLink(copy, dest._head)
	Return True
End Function

Function InsertListBeforeLink(thislist:TList, beforethis:TLink)
	Local this:TLink = thislist.FirstLink(), last:TLink = thislist.LastLink()
	'this._succ = beforethis
	this._pred = beforethis._pred
	this._pred._succ = this
	last._succ = beforethis
	beforethis._pred = last
End Function

plash

2008

Alternatively:

SuperStrict

Framework brl.standardio
Import brl.linkedlist


Local dest:TList = New(TList), from:TList = New(TList)
dest.AddLast("Hello")
from.AddLast("World!")

Print "Success: " + AddListToList(dest, from)

For Local val:String = EachIn dest
	Print "Value: " + val
Next

Function AddListToList:Int(dest:TList, from:TList)
	If dest = Null Or from = Null Or from.Count() = 0 Then Return False
	For Local obj:Object = EachIn from
		dest.AddLast(obj)
	Next
	Return True
End Function

Code Archives Forum