Containers (STL-compatible) StateMachines MessageBus and more for Embedded Systems. See www.etlcpp.com

Revision:
0:b47c2a7920c2
diff -r 000000000000 -r b47c2a7920c2 list.h
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/list.h	Fri Mar 16 16:34:18 2018 +0000
@@ -0,0 +1,1736 @@
+///\file
+
+/******************************************************************************
+The MIT License(MIT)
+
+Embedded Template Library.
+https://github.com/ETLCPP/etl
+http://www.etlcpp.com
+
+Copyright(c) 2014 jwellbelove
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files(the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and / or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions :
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+******************************************************************************/
+
+#ifndef __ETL_LIST__
+#define __ETL_LIST__
+
+#include <iterator>
+#include <algorithm>
+#include <functional>
+#include <stddef.h>
+
+#include "platform.h"
+#include "container.h"
+#include "pool.h"
+#include "exception.h"
+#include "error_handler.h"
+#include "debug_count.h"
+#include "nullptr.h"
+#include "type_traits.h"
+#include "parameter_type.h"
+#include "algorithm.h"
+
+#ifdef ETL_COMPILER_MICROSOFT
+#undef min
+#endif
+
+#undef ETL_FILE
+#define ETL_FILE "7"
+
+//*****************************************************************************
+///\defgroup list list
+/// A linked list with the capacity defined at compile time.
+///\ingroup containers
+//*****************************************************************************
+
+namespace etl
+{
+  //***************************************************************************
+  /// Exception for the list.
+  ///\ingroup list
+  //***************************************************************************
+  class list_exception : public exception
+  {
+  public:
+
+    list_exception(string_type reason_, string_type file_name_, numeric_type line_number_)
+      : exception(reason_, file_name_, line_number_)
+    {
+    }
+  };
+
+  //***************************************************************************
+  /// Full exception for the list.
+  ///\ingroup list
+  //***************************************************************************
+  class list_full : public list_exception
+  {
+  public:
+
+    list_full(string_type file_name_, numeric_type line_number_)
+      : list_exception(ETL_ERROR_TEXT("list:full", ETL_FILE"A"), file_name_, line_number_)
+    {
+    }
+  };
+
+  //***************************************************************************
+  /// Empty exception for the list.
+  ///\ingroup list
+  //***************************************************************************
+  class list_empty : public list_exception
+  {
+  public:
+
+    list_empty(string_type file_name_, numeric_type line_number_)
+      : list_exception(ETL_ERROR_TEXT("list:empty", ETL_FILE"B"), file_name_, line_number_)
+    {
+    }
+  };
+
+  //***************************************************************************
+  /// Iterator exception for the list.
+  ///\ingroup list
+  //***************************************************************************
+  class list_iterator : public list_exception
+  {
+  public:
+
+    list_iterator(string_type file_name_, numeric_type line_number_)
+      : list_exception(ETL_ERROR_TEXT("list:iterator", ETL_FILE"C"), file_name_, line_number_)
+    {
+    }
+  };
+
+  //***************************************************************************
+  /// Unsorted exception for the list.
+  ///\ingroup list
+  //***************************************************************************
+  class list_unsorted : public list_exception
+  {
+  public:
+
+    list_unsorted(string_type file_name_, numeric_type line_number_)
+      : list_exception(ETL_ERROR_TEXT("list:unsorted", ETL_FILE"D"), file_name_, line_number_)
+    {
+    }
+  };
+
+  //***************************************************************************
+  /// The base class for all lists.
+  ///\ingroup list
+  //***************************************************************************
+  class list_base
+  {
+  public:
+
+    typedef size_t size_type; ///< The type used for determining the size of list.
+
+    //*************************************************************************
+    /// The node element in the list.
+    //*************************************************************************
+    struct node_t
+    {
+      //***********************************************************************
+      /// Constructor
+      //***********************************************************************
+      node_t()
+        : previous(std::nullptr),
+          next(std::nullptr)
+      {
+      }
+
+      //***********************************************************************
+      /// Reverses the previous & next pointers.
+      //***********************************************************************
+      inline void reverse()
+      {
+        std::swap(previous, next);
+      }
+
+      node_t* previous;
+      node_t* next;
+    };
+
+    //*************************************************************************
+    /// Reverses the list.
+    //*************************************************************************
+    void reverse()
+    {
+      if (is_trivial_list())
+      {
+        return;
+      }
+
+      node_t* p_node = terminal_node.next;
+
+      while (p_node != &terminal_node)
+      {
+        node_t* p_temp = p_node->previous;
+        p_node->previous = p_node->next;
+        p_node->next = p_temp;
+        p_node = p_node->previous;
+      }
+
+      // Terminal node.
+      node_t* p_temp = p_node->previous;
+      p_node->previous = p_node->next;
+      p_node->next = p_temp;
+    }
+
+    //*************************************************************************
+    /// Gets the maximum possible size of the list.
+    //*************************************************************************
+    size_type max_size() const
+    {
+      return MAX_SIZE;
+    }
+
+    //*************************************************************************
+    /// Gets the size of the list.
+    //*************************************************************************
+    size_type size() const
+    {
+      return p_node_pool->size();
+    }
+
+    //*************************************************************************
+    /// Checks to see if the list is empty.
+    //*************************************************************************
+    bool empty() const
+    {
+      return p_node_pool->empty();
+    }
+
+    //*************************************************************************
+    /// Checks to see if the list is full.
+    //*************************************************************************
+    bool full() const
+    {
+      return p_node_pool->size() == MAX_SIZE;
+    }
+
+    //*************************************************************************
+    /// Returns the remaining capacity.
+    ///\return The remaining capacity.
+    //*************************************************************************
+    size_t available() const
+    {
+      return max_size() - size();
+    }
+
+    //*************************************************************************
+    /// Is the list a trivial length?
+    //*************************************************************************
+    bool is_trivial_list() const
+    {
+      return (size() < 2);
+    }
+
+  protected:
+
+    //*************************************************************************
+    /// Get the head node.
+    //*************************************************************************
+    node_t& get_head()
+    {
+      return *terminal_node.next;
+    }
+
+    //*************************************************************************
+    /// Get the head node.
+    //*************************************************************************
+    const node_t& get_head() const
+    {
+      return *terminal_node.next;
+    }
+
+    //*************************************************************************
+    /// Get the tail node.
+    //*************************************************************************
+    node_t& get_tail()
+    {
+      return *terminal_node.previous;
+    }
+
+    //*************************************************************************
+    /// Get the tail node.
+    //*************************************************************************
+    const node_t& get_tail() const
+    {
+      return *terminal_node.previous;
+    }
+
+    //*************************************************************************
+    /// Insert a node before 'position'.
+    //*************************************************************************
+    void insert_node(node_t& position, node_t& node)
+    {
+      // Connect to the list.
+      join(*position.previous, node);
+      join(node, position);
+    }
+
+    //*************************************************************************
+    /// Join two nodes.
+    //*************************************************************************
+    void join(node_t& left, node_t& right)
+    {
+      left.next = &right;
+      right.previous = &left;
+    }
+
+    //*************************************************************************
+    /// The constructor that is called from derived classes.
+    //*************************************************************************
+    list_base(etl::ipool& node_pool_, size_type   max_size_)
+      : p_node_pool(&node_pool_),
+        MAX_SIZE(max_size_)
+
+    {
+    }
+
+    etl::ipool*      p_node_pool;     ///< The pool of data nodes used in the list.
+    node_t           terminal_node;   ///< The node that acts as the list start and end.
+    const size_type  MAX_SIZE;        ///< The maximum size of the list.
+    etl::debug_count construct_count; ///< Internal debugging.
+  };
+
+  //***************************************************************************
+  /// A templated base for all etl::list types.
+  ///\ingroup list
+  //***************************************************************************
+  template <typename T>
+  class ilist : public etl::list_base
+  {
+  public:
+
+    typedef T        value_type;
+    typedef T*       pointer;
+    typedef const T* const_pointer;
+    typedef T&       reference;
+    typedef const T& const_reference;
+    typedef size_t   size_type;
+
+  protected:
+
+    typedef typename etl::parameter_type<T>::type parameter_t;
+
+    //*************************************************************************
+    /// The data node element in the list.
+    //*************************************************************************
+    struct data_node_t : public node_t
+    {
+      explicit data_node_t(parameter_t value_)
+        : value(value_)
+      {
+      }
+
+      T value;
+    };
+
+  private:
+
+    //*************************************************************************
+    /// Downcast a node_t* to a data_node_t*
+    //*************************************************************************
+    static data_node_t* data_cast(node_t* p_node)
+    {
+      return reinterpret_cast<data_node_t*>(p_node);
+    }
+
+    //*************************************************************************
+    /// Downcast a node_t& to a data_node_t&
+    //*************************************************************************
+    static data_node_t& data_cast(node_t& node)
+    {
+      return reinterpret_cast<data_node_t&>(node);
+    }
+
+    //*************************************************************************
+    /// Downcast a const node_t* to a const data_node_t*
+    //*************************************************************************
+    static const data_node_t* data_cast(const node_t* p_node)
+    {
+      return reinterpret_cast<const data_node_t*>(p_node);
+    }
+
+    //*************************************************************************
+    /// Downcast a const node_t& to a const data_node_t&
+    //*************************************************************************
+    static const data_node_t& data_cast(const node_t& node)
+    {
+      return reinterpret_cast<const data_node_t&>(node);
+    }
+
+  public:
+
+    //*************************************************************************
+    /// iterator.
+    //*************************************************************************
+    class iterator : public std::iterator<std::bidirectional_iterator_tag, T>
+    {
+    public:
+
+      friend class ilist;
+
+      iterator()
+        : p_node(nullptr)
+      {
+      }
+
+      iterator(node_t& node)
+        : p_node(&node)
+      {
+      }
+
+      iterator(const iterator& other)
+        : p_node(other.p_node)
+      {
+      }
+
+      iterator& operator ++()
+      {
+        p_node = p_node->next;
+        return *this;
+      }
+
+      iterator operator ++(int)
+      {
+        iterator temp(*this);
+        p_node = p_node->next;
+        return temp;
+      }
+
+      iterator& operator --()
+      {
+        p_node = p_node->previous;
+        return *this;
+      }
+
+      iterator operator --(int)
+      {
+        iterator temp(*this);
+        p_node = p_node->previous;
+        return temp;
+      }
+
+      iterator operator =(const iterator& other)
+      {
+        p_node = other.p_node;
+        return *this;
+      }
+
+      reference operator *()
+      {
+        return ilist::data_cast(p_node)->value;
+      }
+
+      const_reference operator *() const
+      {
+        return ilist::data_cast(p_node)->value;
+      }
+
+      pointer operator &()
+      {
+        return &(ilist::data_cast(p_node)->value);
+      }
+
+      const_pointer operator &() const
+      {
+        return &(ilist::data_cast(p_node)->value);
+      }
+
+      pointer operator ->()
+      {
+        return &(ilist::data_cast(p_node)->value);
+      }
+
+      const_pointer operator ->() const
+      {
+        return &(ilist::data_cast(p_node)->value);
+      }
+
+      friend bool operator == (const iterator& lhs, const iterator& rhs)
+      {
+        return lhs.p_node == rhs.p_node;
+      }
+
+      friend bool operator != (const iterator& lhs, const iterator& rhs)
+      {
+        return !(lhs == rhs);
+      }
+
+    private:
+
+      node_t* p_node;
+    };
+
+    //*************************************************************************
+    /// const_iterator
+    //*************************************************************************
+    class const_iterator : public std::iterator<std::bidirectional_iterator_tag, const T>
+    {
+    public:
+
+      friend class ilist;
+
+      const_iterator()
+        : p_node(nullptr)
+      {
+      }
+
+      const_iterator(node_t& node)
+        : p_node(&node)
+      {
+      }
+
+      const_iterator(const node_t& node)
+        : p_node(&node)
+      {
+      }
+
+      const_iterator(const typename ilist::iterator& other)
+        : p_node(other.p_node)
+      {
+      }
+
+      const_iterator(const const_iterator& other)
+        : p_node(other.p_node)
+      {
+      }
+
+      const_iterator& operator ++()
+      {
+        p_node = p_node->next;
+        return *this;
+      }
+
+      const_iterator operator ++(int)
+      {
+        const_iterator temp(*this);
+        p_node = p_node->next;
+        return temp;
+      }
+
+      const_iterator& operator --()
+      {
+        p_node = p_node->previous;
+        return *this;
+      }
+
+      const_iterator operator --(int)
+      {
+        const_iterator temp(*this);
+        p_node = p_node->previous;
+        return temp;
+      }
+
+      const_iterator operator =(const const_iterator& other)
+      {
+        p_node = other.p_node;
+        return *this;
+      }
+
+      const_reference operator *() const
+      {
+        return ilist::data_cast(p_node)->value;
+      }
+
+      const_pointer operator &() const
+      {
+        return &(ilist::data_cast(p_node)->value);
+      }
+
+      const_pointer operator ->() const
+      {
+        return &(ilist::data_cast(p_node)->value);
+      }
+
+      friend bool operator == (const const_iterator& lhs, const const_iterator& rhs)
+      {
+        return lhs.p_node == rhs.p_node;
+      }
+
+      friend bool operator != (const const_iterator& lhs, const const_iterator& rhs)
+      {
+        return !(lhs == rhs);
+      }
+
+    private:
+
+      const node_t* p_node;
+    };
+
+    typedef typename std::iterator_traits<iterator>::difference_type difference_type;
+
+    typedef std::reverse_iterator<iterator>       reverse_iterator;
+    typedef std::reverse_iterator<const_iterator> const_reverse_iterator;
+
+    //*************************************************************************
+    /// Gets the beginning of the list.
+    //*************************************************************************
+    iterator begin()
+    {
+      return iterator(get_head());
+    }
+
+    //*************************************************************************
+    /// Gets the beginning of the list.
+    //*************************************************************************
+    const_iterator begin() const
+    {
+      return const_iterator(get_head());
+    }
+
+    //*************************************************************************
+    /// Gets the end of the list.
+    //*************************************************************************
+    iterator end()
+    {
+      return iterator(terminal_node);
+    }
+
+    //*************************************************************************
+    /// Gets the end of the list.
+    //*************************************************************************
+    const_iterator end() const
+    {
+      return const_iterator(static_cast<const data_node_t&>(terminal_node));
+    }
+
+    //*************************************************************************
+    /// Gets the beginning of the list.
+    //*************************************************************************
+    const_iterator cbegin() const
+    {
+      return const_iterator(get_head());
+    }
+
+    //*************************************************************************
+    /// Gets the end of the list.
+    //*************************************************************************
+    const_iterator cend() const
+    {
+      return const_iterator(static_cast<const data_node_t&>(terminal_node));
+    }
+
+    //*************************************************************************
+    /// Gets the reverse beginning of the list.
+    //*************************************************************************
+    reverse_iterator rbegin()
+    {
+      return reverse_iterator(terminal_node);
+    }
+
+    //*************************************************************************
+    /// Gets the reverse beginning of the list.
+    //*************************************************************************
+    const_reverse_iterator rbegin() const
+    {
+      return const_reverse_iterator(static_cast<const data_node_t&>(terminal_node));
+    }
+
+    //*************************************************************************
+    /// Gets the reverse end of the list.
+    //*************************************************************************
+    reverse_iterator rend()
+    {
+      return reverse_iterator(get_head());
+    }
+
+    //*************************************************************************
+    /// Gets the reverse beginning of the list.
+    //*************************************************************************
+    const_reverse_iterator crbegin() const
+    {
+      return const_reverse_iterator(static_cast<const data_node_t&>(terminal_node));
+    }
+
+    //*************************************************************************
+    /// Gets the reverse end of the list.
+    //*************************************************************************
+    const_reverse_iterator crend() const
+    {
+      return const_reverse_iterator(get_head());
+    }
+
+    //*************************************************************************
+    /// Gets a reference to the first element.
+    //*************************************************************************
+    reference front()
+    {
+      return data_cast(get_head()).value;
+    }
+
+    //*************************************************************************
+    /// Gets a const reference to the first element.
+    //*************************************************************************
+    const_reference front() const
+    {
+      return data_cast(get_head()).value;
+    }
+
+    //*************************************************************************
+    /// Gets a reference to the last element.
+    //*************************************************************************
+    reference back()
+    {
+      return data_cast(get_tail()).value;
+    }
+
+    //*************************************************************************
+    /// Gets a reference to the last element.
+    //*************************************************************************
+    const_reference back() const
+    {
+      return data_cast(get_tail()).value;
+    }
+
+    //*************************************************************************
+    /// Assigns a range of values to the list.
+    /// If asserts or exceptions are enabled throws etl::list_full if the list does not have enough free space.
+    /// If ETL_THROW_EXCEPTIONS & ETL_DEBUG are defined throws list_iterator if the iterators are reversed.
+    //*************************************************************************
+    template <typename TIterator>
+    void assign(TIterator first, TIterator last)
+    {
+#if defined(ETL_DEBUG)
+      difference_type d = std::distance(first, last);
+      ETL_ASSERT(d >= 0, ETL_ERROR(list_iterator));
+      ETL_ASSERT(size_t(d) <= MAX_SIZE, ETL_ERROR(list_full));
+#endif
+      initialise();
+
+      // Add all of the elements.
+      while (first != last)
+      {
+        data_node_t& node = allocate_data_node(*first);
+        join(get_tail(), node);
+        join(node, terminal_node);
+        ++first;
+      }
+    }
+
+    //*************************************************************************
+    /// Assigns 'n' copies of a value to the list.
+    //*************************************************************************
+    void assign(size_t n, parameter_t value)
+    {
+#if defined(ETL_DEBUG)
+      ETL_ASSERT(n <= MAX_SIZE, ETL_ERROR(list_full));
+#endif
+
+      initialise();
+
+      // Add all of the elements.
+      while (size() < n)
+      {
+        data_node_t& node = allocate_data_node(value);
+        join(*terminal_node.previous, node);
+        join(node, terminal_node);
+      }
+    }
+
+    //*************************************************************************
+    /// Adds a node to the front of the list so a new value can be assigned to front().
+    //*************************************************************************
+    void push_front()
+    {
+      push_front(T());
+    }
+
+    //*************************************************************************
+    /// Pushes a value to the front of the list.
+    //*************************************************************************
+    void push_front(parameter_t value)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      insert_node(get_head(), allocate_data_node(value));
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the front of the list..
+    //*************************************************************************
+    template <typename T1>
+    void emplace_front(const T1& value1)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1);
+      ++construct_count;
+      insert_node(get_head(), *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the front of the list..
+    //*************************************************************************
+    template <typename T1, typename T2>
+    void emplace_front(const T1& value1, const T2& value2)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2);
+      ++construct_count;
+      insert_node(get_head(), *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the front of the list..
+    //*************************************************************************
+    template <typename T1, typename T2, typename T3>
+    void emplace_front(const T1& value1, const T2& value2, const T3& value3)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2, value3);
+      ++construct_count;
+      insert_node(get_head(), *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the front of the list..
+    //*************************************************************************
+    template <typename T1, typename T2, typename T3, typename T4>
+    void emplace_front(const T1& value1, const T2& value2, const T3& value3, const T4& value4)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2, value3, value4);
+      ++construct_count;
+      insert_node(get_head(), *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Removes a value from the front of the list.
+    //*************************************************************************
+    void pop_front()
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!empty(), ETL_ERROR(list_empty));
+#endif
+      node_t& node = get_head();
+      remove_node(node);
+    }
+
+    //*************************************************************************
+    /// Adds a node to the back of the list so a new value can be assigned to back().
+    //*************************************************************************
+    void push_back()
+    {
+      push_back(T());
+    }
+
+    //*************************************************************************
+    /// Pushes a value to the back of the list..
+    //*************************************************************************
+    void push_back(parameter_t value)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      insert_node(terminal_node, allocate_data_node(value));
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the back of the list..
+    //*************************************************************************
+    template <typename T1>
+    void emplace_back(const T1& value1)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1);
+      ++construct_count;
+      insert_node(terminal_node, *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the back of the list..
+    //*************************************************************************
+    template <typename T1, typename T2>
+    void emplace_back(const T1& value1, const T2& value2)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2);
+      ++construct_count;
+      insert_node(terminal_node, *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the back of the list..
+    //*************************************************************************
+    template <typename T1, typename T2, typename T3>
+    void emplace_back(const T1& value1, const T2& value2, const T3& value3)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2, value3);
+      ++construct_count;
+      insert_node(terminal_node, *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the back of the list..
+    //*************************************************************************
+    template <typename T1, typename T2, typename T3, typename T4>
+    void emplace_back(const T1& value1, const T2& value2, const T3& value3, const T4& value4)
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+#endif
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2, value3, value4);
+      ++construct_count;
+      insert_node(terminal_node, *p_data_node);
+    }
+
+    //*************************************************************************
+    /// Removes a value from the back of the list.
+    //*************************************************************************
+    void pop_back()
+    {
+#if defined(ETL_CHECK_PUSH_POP)
+      ETL_ASSERT(!empty(), ETL_ERROR(list_empty));
+#endif
+      node_t& node = get_tail();
+      remove_node(node);
+    }
+
+    //*************************************************************************
+    /// Inserts a value to the list at the specified position.
+    //*************************************************************************
+    iterator insert(iterator position, const value_type& value)
+    {
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+      data_node_t& data_node = allocate_data_node(value);
+      insert_node(*position.p_node, data_node);
+
+      return iterator(data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the list at the specified position.
+    //*************************************************************************
+    template <typename T1>
+    iterator emplace(iterator position, const T1& value1)
+    {
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1);
+      ++construct_count;
+      insert_node(*position.p_node, *p_data_node);
+
+      return iterator(*p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the list at the specified position.
+    //*************************************************************************
+    template <typename T1, typename T2>
+    iterator emplace(iterator position, const T1& value1, const T2& value2)
+    {
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2);
+      ++construct_count;
+      insert_node(*position.p_node, *p_data_node);
+
+      return iterator(*p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the list at the specified position.
+    //*************************************************************************
+    template <typename T1, typename T2, typename T3>
+    iterator emplace(iterator position, const T1& value1, const T2& value2, const T3& value3)
+    {
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2, value3);
+      ++construct_count;
+      insert_node(*position.p_node, *p_data_node);
+
+      return iterator(*p_data_node);
+    }
+
+    //*************************************************************************
+    /// Emplaces a value to the list at the specified position.
+    //*************************************************************************
+    template <typename T1, typename T2, typename T3, typename T4>
+    iterator emplace(iterator position, const T1& value1, const T2& value2, const T3& value3, const T4& value4)
+    {
+      ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value1, value2, value3, value4);
+      ++construct_count;
+      insert_node(*position.p_node, *p_data_node);
+
+      return iterator(*p_data_node);
+    }
+
+    //*************************************************************************
+    /// Inserts 'n' copies of a value to the list at the specified position.
+    //*************************************************************************
+    void insert(iterator position, size_t n, const value_type& value)
+    {
+      for (size_t i = 0; i < n; ++i)
+      {
+        ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+        // Set up the next free node and insert.
+        insert_node(*position.p_node, allocate_data_node(value));
+      }
+    }
+
+    //*************************************************************************
+    /// Inserts a range of values to the list at the specified position.
+    //*************************************************************************
+    template <typename TIterator>
+    void insert(iterator position, TIterator first, TIterator last)
+    {
+      while (first != last)
+      {
+        ETL_ASSERT(!full(), ETL_ERROR(list_full));
+
+        // Set up the next free node and insert.
+        insert_node(*position.p_node, allocate_data_node(*first++));
+      }
+    }
+
+    //*************************************************************************
+    /// Erases the value at the specified position.
+    //*************************************************************************
+    iterator erase(iterator position)
+    {
+      ++position;
+      remove_node(*position.p_node->previous);
+      return position;
+    }
+
+    //*************************************************************************
+    /// Erases a range of elements.
+    //*************************************************************************
+    iterator erase(iterator first, iterator last)
+    {
+      node_t* p_first = first.p_node;
+      node_t* p_last = last.p_node;
+      node_t* p_next;
+
+      // Join the ends.
+      join(*(p_first->previous), *p_last);
+
+      // Erase the ones in between.
+      while (p_first != p_last)
+      {
+        p_next = p_first->next;                                // Remember the next node.
+        destroy_data_node(static_cast<data_node_t&>(*p_first)); // Destroy the current node.
+        p_first = p_next;                                       // Move to the next node.
+      }
+
+      return last;
+    }
+
+    //*************************************************************************
+    /// Resizes the list.
+    //*************************************************************************
+    void resize(size_t n)
+    {
+      resize(n, T());
+    }
+
+    //*************************************************************************
+    /// Resizes the list.
+    //*************************************************************************
+    void resize(size_t n, parameter_t value)
+    {
+      ETL_ASSERT(n <= MAX_SIZE, ETL_ERROR(list_full));
+
+      // Smaller?
+      if (n < size())
+      {
+        iterator i_start = end();
+        std::advance(i_start, -difference_type(size() - n));
+        erase(i_start, end());
+      }
+      // Larger?
+      else if (n > size())
+      {
+        insert(end(), n - size(), value);
+      }
+    }
+
+    //*************************************************************************
+    /// Clears the list.
+    //*************************************************************************
+    void clear()
+    {
+      initialise();
+    }
+
+    //*************************************************************************
+    // Removes the values specified.
+    //*************************************************************************
+    void remove(const value_type& value)
+    {
+      iterator iValue = begin();
+
+      while (iValue != end())
+      {
+        if (value == *iValue)
+        {
+          iValue = erase(iValue);
+        }
+        else
+        {
+          ++iValue;
+        }
+      }
+    }
+
+    //*************************************************************************
+    /// Removes according to a predicate.
+    //*************************************************************************
+    template <typename TPredicate>
+    void remove_if(TPredicate predicate)
+    {
+      iterator iValue = begin();
+
+      while (iValue != end())
+      {
+        if (predicate(*iValue))
+        {
+          iValue = erase(iValue);
+        }
+        else
+        {
+          ++iValue;
+        }
+      }
+    }
+
+    //*************************************************************************
+    /// Removes all but the first element from every consecutive group of equal
+    /// elements in the container.
+    //*************************************************************************
+    void unique()
+    {
+      unique(std::equal_to<T>());
+    }
+
+    //*************************************************************************
+    /// Removes all but the first element from every consecutive group of equal
+    /// elements in the container.
+    //*************************************************************************
+    template <typename TIsEqual>
+    void unique(TIsEqual isEqual)
+    {
+      if (empty())
+      {
+        return;
+      }
+
+      iterator i_item = begin();
+      ++i_item;
+      iterator i_previous = begin();
+
+      while (i_item != end())
+      {
+        if (isEqual(*i_previous, *i_item))
+        {
+          i_item = erase(i_item);
+        }
+        else
+        {
+          i_previous = i_item;
+          ++i_item;
+        }
+      }
+    }
+
+    //*************************************************************************
+    /// Splices from another list to this.
+    //*************************************************************************
+    void splice(iterator to, ilist& other)
+    {
+      if (&other != this)
+      {
+        insert(to, other.begin(), other.end());
+        other.erase(other.begin(), other.end());
+      }
+    }
+
+    //*************************************************************************
+    /// Splices an element from another list to this.
+    //*************************************************************************
+    void splice(iterator to, ilist& other, iterator from)
+    {
+      if (&other == this)
+      {
+        // Internal move.
+        move(to, from);
+      }
+      else
+      {
+        // From another list.
+        insert(to, *from);
+        other.erase(from);
+      }
+    }
+
+    //*************************************************************************
+    /// Splices a range of elements from another list to this.
+    //*************************************************************************
+    void splice(iterator to, ilist& other, iterator first, iterator last)
+    {
+      if (&other == this)
+      {
+        // Internal move.
+        move(to, first, last);
+      }
+      else
+      {
+        // From another list.
+        insert(to, first, last);
+        other.erase(first, last);
+      }
+    }
+
+    //*************************************************************************
+    /// Merge another list into this one. Both lists should be sorted.
+    //*************************************************************************
+    void merge(ilist& other)
+    {
+      merge(other, std::less<value_type>());
+    }
+
+    //*************************************************************************
+    /// Merge another list into this one. Both lists should be sorted.
+    //*************************************************************************
+    template <typename TCompare>
+    void merge(ilist& other, TCompare compare)
+    {
+      if (!other.empty())
+      {
+#if defined(ETL_DEBUG)
+        ETL_ASSERT(etl::is_sorted(other.begin(), other.end(), compare), ETL_ERROR(list_unsorted));
+        ETL_ASSERT(etl::is_sorted(begin(), end(), compare), ETL_ERROR(list_unsorted));
+#endif
+
+        ilist::iterator other_begin = other.begin();
+        ilist::iterator other_end = other.end();
+
+        ilist::iterator this_begin = begin();
+        ilist::iterator this_end = end();
+
+        while ((this_begin != this_end) && (other_begin != other_end))
+        {
+          // Find the place to insert.
+          while ((this_begin != this_end) && !(compare(*other_begin, *this_begin)))
+          {
+            ++this_begin;
+          }
+
+          // Insert.
+          if (this_begin != this_end)
+          {
+            while ((other_begin != other_end) && (compare(*other_begin, *this_begin)))
+            {
+              insert(this_begin, *other_begin);
+              ++other_begin;
+            }
+          }
+        }
+
+        // Any left over?
+        if ((this_begin == this_end) && (other_begin != other_end))
+        {
+          insert(this_end, other_begin, other_end);
+        }
+
+        other.clear();
+      }
+    }
+
+    //*************************************************************************
+    /// Sort using in-place merge sort algorithm.
+    /// Uses 'less-than operator as the predicate.
+    //*************************************************************************
+    void sort()
+    {
+      sort(std::less<T>());
+    }
+
+    //*************************************************************************
+    /// Sort using in-place merge sort algorithm.
+    /// Uses a supplied predicate function or functor.
+    /// This is not my algorithm. I got it off the web somewhere.
+    //*************************************************************************
+    template <typename TCompare>
+    void sort(TCompare compare)
+    {
+      iterator i_left;
+      iterator i_right;
+      iterator i_node;
+      iterator i_head;
+      iterator i_tail;
+      int   list_size = 1;
+      int   number_of_merges;
+      int   left_size;
+      int   right_size;
+
+      if (is_trivial_list())
+      {
+        return;
+      }
+
+      while (true)
+      {
+        i_left = begin();
+        i_head = end();
+        i_tail = end();
+
+        number_of_merges = 0;  // Count the number of merges we do in this pass.
+
+        while (i_left != end())
+        {
+          ++number_of_merges;  // There exists a merge to be done.
+          i_right = i_left;
+          left_size = 0;
+
+          // Step 'list_size' places along from left
+          for (int i = 0; i < list_size; ++i)
+          {
+            ++left_size;
+            ++i_right;
+
+            if (i_right == end())
+            {
+              break;
+            }
+          }
+
+          // If right hasn't fallen off end, we have two lists to merge.
+          right_size = list_size;
+
+          // Now we have two lists. Merge them.
+          while (left_size > 0 || (right_size > 0 && i_right != end()))
+          {
+            // Decide whether the next node of merge comes from left or right.
+            if (left_size == 0)
+            {
+              // Left is empty. The node must come from right.
+              i_node = i_right++;
+              --right_size;
+            }
+            else if (right_size == 0 || i_right == end())
+            {
+              // Right is empty. The node must come from left.
+              i_node = i_left++;
+              --left_size;
+            }
+            else if (!compare(*i_right, *i_left))
+            {
+              // First node of left is lower or same. The node must come from left.
+              i_node = i_left++;
+              --left_size;
+            }
+            else
+            {
+              // First node of right is lower. The node must come from right.
+              i_node = i_right;
+              ++i_right;
+              --right_size;
+            }
+
+            // Add the next node to the merged head.
+            if (i_head == end())
+            {
+              join(*i_head.p_node, *i_node.p_node);
+              i_head = i_node;
+              i_tail = i_node;
+            }
+            else
+            {
+              join(*i_tail.p_node, *i_node.p_node);
+              i_tail = i_node;
+            }
+
+            join(*i_tail.p_node, terminal_node);
+          }
+
+          // Now left has stepped `list_size' places along, and right has too.
+          i_left = i_right;
+        }
+
+        // If we have done only one merge, we're finished.
+        if (number_of_merges <= 1)   // Allow for number_of_merges == 0, the empty head case
+        {
+          return;
+        }
+
+        // Otherwise repeat, merging lists twice the size
+        list_size *= 2;
+      }
+    }
+
+    //*************************************************************************
+    /// Assignment operator.
+    //*************************************************************************
+    ilist& operator = (const ilist& rhs)
+    {
+      if (&rhs != this)
+      {
+        assign(rhs.cbegin(), rhs.cend());
+      }
+
+      return *this;
+    }
+
+  protected:
+
+    //*************************************************************************
+    /// Constructor.
+    //*************************************************************************
+    ilist(etl::ipool& node_pool, size_t max_size_)
+      : list_base(node_pool, max_size_)
+    {
+    }
+
+    //*************************************************************************
+    /// Initialise the list.
+    //*************************************************************************
+    void initialise()
+    {
+      if (!empty())
+      {
+        node_t* p_first = terminal_node.next;
+        node_t* p_last = &terminal_node;
+
+        while (p_first != p_last)
+        {
+          destroy_data_node(static_cast<data_node_t&>(*p_first)); // Destroy the current node.
+          p_first = p_first->next;                                // Move to the next node.
+        }
+      }
+
+      join(terminal_node, terminal_node);
+    }
+
+  private:
+
+    //*************************************************************************
+    /// Moves an element from one position to another within the list.
+    /// Moves the element at position 'from' to the position before 'to'.
+    //*************************************************************************
+    void move(iterator to, iterator from)
+    {
+      if (from == to)
+      {
+        return; // Can't more to before yourself!
+      }
+
+      node_t& from_node = *from.p_node;
+      node_t& to_node = *to.p_node;
+
+      // Disconnect the node from the list.
+      join(*from_node.previous, *from_node.next);
+
+      // Attach it to the new position.
+      join(*to_node.previous, from_node);
+      join(from_node, to_node);
+    }
+
+    //*************************************************************************
+    /// Moves a range from one position to another within the list.
+    /// Moves a range at position 'first'/'last' to the position before 'to'.
+    //*************************************************************************
+    void move(iterator to, iterator first, iterator last)
+    {
+      if ((first == to) || (last == to))
+      {
+        return; // Can't more to before yourself!
+      }
+
+#if defined(ETL_DEBUG)
+      // Check that we are not doing an illegal move!
+      for (const_iterator item = first; item != last; ++item)
+      {
+        ETL_ASSERT(item != to, ETL_ERROR(list_iterator));
+      }
+#endif
+
+      node_t& first_node = *first.p_node;
+      node_t& last_node = *last.p_node;
+      node_t& to_node = *to.p_node;
+      node_t& final_node = *last_node.previous;
+
+      // Disconnect the range from the list.
+      join(*first_node.previous, last_node);
+
+      // Attach it to the new position.
+      join(*to_node.previous, first_node);
+      join(final_node, to_node);
+    }
+
+    //*************************************************************************
+    /// Remove a node.
+    //*************************************************************************
+    void remove_node(node_t& node)
+    {
+      // Disconnect the node from the list.
+      join(*node.previous, *node.next);
+
+      // Destroy the pool object.
+      destroy_data_node(static_cast<data_node_t&>(node));
+    }
+
+    //*************************************************************************
+    /// Allocate a data_node_t.
+    //*************************************************************************
+    data_node_t& allocate_data_node(parameter_t value)
+    {
+      data_node_t* p_data_node = p_node_pool->allocate<data_node_t>();
+      ::new (&(p_data_node->value)) T(value);
+      ++construct_count;
+
+      return *p_data_node;
+    }
+
+    //*************************************************************************
+    /// Destroy a data_node_t.
+    //*************************************************************************
+    void destroy_data_node(data_node_t& node)
+    {
+      node.value.~T();
+      p_node_pool->release(&node);
+      --construct_count;
+    }
+
+    // Disable copy construction.
+    ilist(const ilist&);
+  };
+
+  //*************************************************************************
+  /// A templated list implementation that uses a fixed size buffer.
+  ///\note 'merge' and 'splice' and are not supported.
+  //*************************************************************************
+  template <typename T, const size_t MAX_SIZE_>
+  class list : public etl::ilist<T>
+  {
+  public:
+
+    static const size_t MAX_SIZE = MAX_SIZE_;
+
+  public:
+
+    typedef T        value_type;
+    typedef T*       pointer;
+    typedef const T* const_pointer;
+    typedef T&       reference;
+    typedef const T& const_reference;
+    typedef size_t   size_type;
+
+    //*************************************************************************
+    /// Default constructor.
+    //*************************************************************************
+    list()
+      : etl::ilist<T>(node_pool, MAX_SIZE)
+    {
+      etl::ilist<T>::initialise();
+    }
+
+    //*************************************************************************
+    /// Destructor.
+    //*************************************************************************
+    ~list()
+    {
+      etl::ilist<T>::initialise();
+    }
+
+    //*************************************************************************
+    /// Construct from size.
+    //*************************************************************************
+    explicit list(size_t initial_size)
+      : etl::ilist<T>(node_pool, MAX_SIZE)
+    {
+      etl::ilist<T>::assign(initial_size, T());
+    }
+
+    //*************************************************************************
+    /// Construct from size and value.
+    //*************************************************************************
+    list(size_t initial_size, typename ilist<T>::parameter_t value)
+      : etl::ilist<T>(node_pool, MAX_SIZE)
+    {
+      etl::ilist<T>::assign(initial_size, value);
+    }
+
+    //*************************************************************************
+    /// Copy constructor.
+    //*************************************************************************
+    list(const list& other)
+      : etl::ilist<T>(node_pool, MAX_SIZE)
+    {
+      if (this != &other)
+      {
+        etl::ilist<T>::assign(other.cbegin(), other.cend());
+      }
+    }
+
+    //*************************************************************************
+    /// Construct from range.
+    //*************************************************************************
+    template <typename TIterator>
+    list(TIterator first, TIterator last)
+      : ilist<T>(node_pool, MAX_SIZE)
+    {
+      etl::ilist<T>::assign(first, last);
+    }
+
+    //*************************************************************************
+    /// Assignment operator.
+    //*************************************************************************
+    list& operator = (const list& rhs)
+    {
+      if (&rhs != this)
+      {
+        etl::ilist<T>::assign(rhs.cbegin(), rhs.cend());
+      }
+
+      return *this;
+    }
+
+  private:
+
+    /// The pool of nodes used in the list.
+    etl::pool<typename etl::ilist<T>::data_node_t, MAX_SIZE> node_pool;
+  };
+}
+
+//*************************************************************************
+/// Equal operator.
+///\param lhs Reference to the first list.
+///\param rhs Reference to the second list.
+///\return <b>true</b> if the arrays are equal, otherwise <b>false</b>.
+//*************************************************************************
+template <typename T>
+bool operator ==(const etl::ilist<T>& lhs, const etl::ilist<T>& rhs)
+{
+  return (lhs.size() == rhs.size()) && std::equal(lhs.begin(), lhs.end(), rhs.begin());
+}
+
+//*************************************************************************
+/// Not equal operator.
+///\param lhs Reference to the first list.
+///\param rhs Reference to the second list.
+///\return <b>true</b> if the arrays are not equal, otherwise <b>false</b>.
+//*************************************************************************
+template <typename T>
+bool operator !=(const etl::ilist<T>& lhs, const etl::ilist<T>& rhs)
+{
+  return !(lhs == rhs);
+}
+
+//*************************************************************************
+/// Less than operator.
+///\param lhs Reference to the first list.
+///\param rhs Reference to the second list.
+///\return <b>true</b> if the first list is lexicographically less than the
+/// second, otherwise <b>false</b>.
+//*************************************************************************
+template <typename T>
+bool operator <(const etl::ilist<T>& lhs, const etl::ilist<T>& rhs)
+{
+  return std::lexicographical_compare(lhs.begin(),
+    lhs.end(),
+    rhs.begin(),
+    rhs.end());
+}
+
+//*************************************************************************
+/// Greater than operator.
+///\param lhs Reference to the first list.
+///\param rhs Reference to the second list.
+///\return <b>true</b> if the first list is lexicographically greater than the
+/// second, otherwise <b>false</b>.
+//*************************************************************************
+template <typename T>
+bool operator >(const etl::ilist<T>& lhs, const etl::ilist<T>& rhs)
+{
+  return (rhs < lhs);
+}
+
+//*************************************************************************
+/// Less than or equal operator.
+///\param lhs Reference to the first list.
+///\param rhs Reference to the second list.
+///\return <b>true</b> if the first list is lexicographically less than or equal
+/// to the second, otherwise <b>false</b>.
+//*************************************************************************
+template <typename T>
+bool operator <=(const etl::ilist<T>& lhs, const etl::ilist<T>& rhs)
+{
+  return !(lhs > rhs);
+}
+
+//*************************************************************************
+/// Greater than or equal operator.
+///\param lhs Reference to the first list.
+///\param rhs Reference to the second list.
+///\return <b>true</b> if the first list is lexicographically greater than or
+/// equal to the second, otherwise <b>false</b>.
+//*************************************************************************
+template <typename T>
+bool operator >=(const etl::ilist<T>& lhs, const etl::ilist<T>& rhs)
+{
+  return !(lhs < rhs);
+}
+
+
+#ifdef ETL_COMPILER_MICROSOFT
+#define min(a,b) (((a) < (b)) ? (a) : (b))
+#endif
+
+#undef ETL_FILE
+
+#endif
+