Data commit

Task/Stack/FreeBASIC/stack-1.basic

@@ -0,0 +1,85 @@
+' FB 1.05.0 Win64
+
+' stack_rosetta.bi
+' simple generic Stack type
+
+#Define Stack(T) Stack_##T
+
+#Macro Declare_Stack(T)
+Type Stack(T)
+ Public:
+    Declare Constructor()
+    Declare Destructor()
+    Declare Property capacity As Integer
+    Declare Property count As Integer
+    Declare Property empty As Boolean
+    Declare Property top As T
+    Declare Function pop() As T
+    Declare Sub push(item As T)
+  Private:
+    a(any) As T
+    count_ As Integer = 0
+    Declare Function resize(size As Integer) As Integer
+End Type
+
+Constructor Stack(T)()
+  Redim a(0 To 0) '' create a default T instance for various purposes
+End Constructor
+
+Destructor Stack(T)()
+  Erase a
+End Destructor
+
+Property Stack(T).capacity As Integer
+  Return UBound(a)
+End Property
+
+Property Stack(T).count As Integer
+  Return count_
+End Property
+
+Property Stack(T).empty As Boolean
+  Return count_ = 0
+End Property
+
+Property Stack(T).top As T
+  If count_ > 0 Then
+    Return a(count_)
+  End If
+  Print "Error: Attempted to access 'top' element of an empty stack"
+  Return a(0)  '' return default element
+End Property
+
+Function Stack(T).pop() As T
+  If count_ > 0 Then
+    Dim value As T = a(count_)
+    a(count_) = a(0)  '' zero element to be removed
+    count_ -= 1
+    Return value
+  End If
+  Print "Error: Attempted to remove 'top' element of an empty stack"
+  Return a(0)  '' return default element
+End Function
+
+Sub Stack(T).push(item As T)
+  Dim size As Integer = UBound(a)
+  count_ += 1
+  If count_ >  size Then
+    size = resize(size)
+    Redim Preserve a(0 to size)
+  End If
+  a(count_) = item
+End Sub
+
+Function Stack(T).resize(size As Integer) As Integer
+  If size = 0 Then
+    size = 4
+  ElseIf size <= 32 Then
+    size  = 2 * size
+  Else
+    size += 32
+  End If
+  Return size
+End Function
+
+#EndMacro