feat(list): add list templates

storm/list/TSLink.hpp

@@ -0,0 +1,81 @@
+#ifndef STORM_LIST_TS_LINK_HPP
+#define STORM_LIST_TS_LINK_HPP
+
+#include <cstddef>
+#include <cstdint>
+
+template <class T>
+class TSLink {
+    public:
+    // Member variables
+    TSLink<T>* m_prevlink = nullptr;
+    T* m_next = nullptr;
+
+    // Member functions
+    ~TSLink();
+    bool IsLinked(void);
+    T* Next(void);
+    TSLink<T>* NextLink(ptrdiff_t linkoffset);
+    T* Prev(void);
+    T* RawNext(void);
+    void Unlink(void);
+};
+
+template <class T>
+TSLink<T>::~TSLink() {
+    this->Unlink();
+}
+
+template <class T>
+bool TSLink<T>::IsLinked() {
+    return this->m_next != nullptr;
+}
+
+template <class T>
+T* TSLink<T>::Next() {
+    // Check for sentinel node (indicates list end)
+    return reinterpret_cast<intptr_t>(this->m_next) <= 0 ? nullptr : this->m_next;
+}
+
+template <class T>
+TSLink<T>* TSLink<T>::NextLink(ptrdiff_t linkoffset) {
+    T* next = this->m_next;
+
+    if (reinterpret_cast<intptr_t>(next) <= 0) {
+        // End of list
+        return reinterpret_cast<TSLink<T>*>(~reinterpret_cast<uintptr_t>(next));
+    } else {
+        ptrdiff_t offset;
+
+        if (linkoffset < 0) {
+            offset = reinterpret_cast<uintptr_t>(this) - reinterpret_cast<uintptr_t>(this->m_prevlink->m_next);
+        } else {
+            offset = linkoffset;
+        }
+
+        return reinterpret_cast<TSLink<T>*>(reinterpret_cast<uintptr_t>(this->m_next) + offset);
+    }
+}
+
+template <class T>
+T* TSLink<T>::Prev() {
+    return this->m_prevlink->m_prevlink->Next();
+}
+
+template <class T>
+T* TSLink<T>::RawNext() {
+    return this->m_next;
+}
+
+template <class T>
+void TSLink<T>::Unlink() {
+    if (this->m_prevlink) {
+        this->NextLink(-1)->m_prevlink = this->m_prevlink;
+        this->m_prevlink->m_next = this->m_next;
+
+        this->m_prevlink = nullptr;
+        this->m_next = nullptr;
+    }
+}
+
+#endif