Native stacks

Hroudtwolf · Post by **Hroudtwolf** » Wed Jun 18, 2008 6:15 pm

Hi,

I've just a little wish again.

My wish is, to have native stacks in PureBasic with syntax like linkedlists.
My examples are better than my english....

Structure tTest
   lX.l
   lY.l
EndStructure

NewStack MyStack1.tTest ()

Push ( MyStack1 () )
MyStack ()\lX = 100
MyStack ()\lY = 100

Push ( MyStack1 () )
MyStack ()\lX = 150
MyStack ()\lY = 100

Foreach Pop ( MyStack1 () )
    Debug MyStack1 ()\lX
    Debug MyStack1 ()\lY
Next

Best regards

Wolf

PS: Hot german sausages for everbody who agrees this wish

Num3 · Post by **Num3** » Wed Jun 18, 2008 7:13 pm

Macros are you're best friend

Code: Select all

Macro NewStack
NewList
EndMacro

Macro Push
AddElement
EndMacro

Macro Pop
 
EndMacro

Structure tTest
   lX.l
   lY.l
EndStructure

NewStack MyStack1.tTest ()

Push ( MyStack1 () )
MyStack1 ()\lX = 100
MyStack1 ()\lY = 100

Push ( MyStack1 () )
MyStack1 ()\lX = 150
MyStack1 ()\lY = 100

ForEach Pop ( MyStack1 () )
    Debug MyStack1 ()\lX
    Debug MyStack1 ()\lY
Next

Hroudtwolf · Post by **Hroudtwolf** » Wed Jun 18, 2008 7:21 pm

I know about how to implement stacks in various ways.
My wish is, to have stacks natively in purebasic.

Thanks.