TList.Reverse: 1.20

BlitzMax Forums/BlitzMax Module Tweaks/TList.Reverse: 1.20

Dreamora

(Posted 2006) [#1]

Here is a replacement version of this method which reorders the TLinks instead of only reordering the values saved within (which breaks fast remove through a saved TLink reference!)

		Rem
	bbdoc: Reverse the order of the list.
	End Rem
	Method Reverse()
		Local temp:TLink
		Local result:TList	= New TList
		
		Local pLink:TLink= _head
		Local ppLink:TLink
		
		' Let pLink point to tail
		pLink	= _head._pred
		
		ppLink	= pLink._pred
		
		result._head._succ			= pLink
		result._head._succ._pred	= result._head
		
		result._head._pred			= firstlink()
		result._head._pred._succ	= result._head
		
		temp	= pLink
		pLink	= ppLink
		ppLink	= pLink._pred
		
		While pLink._value <> pLink			
			temp._succ	= pLink
			pLink._pred	= temp
			
			temp	= temp._succ
			
			pLink	= ppLink
			ppLink	= ppLink._pred
		Wend
		
		swap result
		
	End Method