B4R Library [module] Stack collection

An implementation of a stack (last in, first out) data collection.

Usage:

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   Stack.Push("Item 1")
   Stack.Push("Item 222")
   Stack.Push("Item 3333")
   Stack.Push("Item 44")
   Stack.Push("Item 555555")
   Stack.Pop
   Stack.Push("Item 612312")
   Stack.Push("Item 77777777777")
   Stack.Push("Item 88")
   Stack.Push("Item 99")
   Do While Stack.Size > 0
     Log(Stack.LastItem)
     Stack.Pop
   Loop
   Log("Size: ", Stack.Size)
End Sub

 

[Cableguy]

Why not group the 2 modules as they tackle similar tasks?
FIFO - First In First Out
LIFO - Last In First Out

 

[Erel]

You can add both of them if you need both a queue and a stack. They are not the same.