[bmx] Basic Stack Type by col [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:39

Previous topic - Next topic
Print
Go Down Pages1
User actions

BlitzBot

June 29, 2017, 00:28:39
Title : Basic Stack Type
Author : col
Posted : 1+ years ago

Description : Use this if you want a basic 'stack' to use for 'pushing' and 'popping' any Objects in the traditional 'Last In First Out' stack operation. Probably faster than using TList as an aternative due to less code processing overhead.

Code :
Code (blitzmax) Select
Type TNode
Field _next:TNode
Field _item:Object
EndType

Type TStack
Field _head:TNode = New TNode
Field _itemcount

Method Push(item:Object)
Assert item Else "Trying to push Null object to TStack!"

Local node:TNode = New TNode
node._item = item
node._next = _head._next
_head._next = node

_itemcount :+ 1
EndMethod

Method Pop:Object()
Local node:TNode
node = _head._next

If Not node Return Null

_head._next = node._next
_itemcount :- 1
Return node._item
EndMethod

Method Peek:Object()
If _head._next
Return _head._next._item
EndIf
EndMethod

Method ItemCount()
Return _itemcount
EndMethod
EndType

'Wrapper functions
Function CreateStack:TStack()
Local Stack:TStack = New TStack
Return Stack
EndFunction

Function StackPush(Stack:TStack,Item:Object)
Stack.Push Item
EndFunction

Function StackPop:Object(Stack:TStack)
Return Stack.Pop()
EndFunction

Function StackPeek:Object(Stack:TStack)
Return Stack.Peek()
EndFunction

Function StackCount(Stack:TStack)
Return Stack.Itemcount()
EndFunction

Comments : none...
Print
Go Up Pages1
User actions