// Copyright (c) 2016-2018 Easy2D - Nomango
// 
// 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.

#pragma once
#include "macros.h"
#include <functional>

namespace easy2d
{
	template <typename T>
	class IntrusiveList
	{
		T first_;
		T last_;
		int size_;

	public:
		IntrusiveList() : first_(), last_(), size_(0) {}

		~IntrusiveList() { Clear(); }

		T const& First() const { return first_; }

		T& First() { return first_; }

		T const& Last() const { return last_; }

		T& Last() { return last_; }

		bool IsEmpty() const { return size_ == 0; }

		int Size() const { return size_; }

		void Append(T child)
		{
			child->prev_ = last_;
			child->next_ = nullptr;

			if (first_)
			{
				last_->next_ = child;
			}
			else
			{
				first_ = child;
			}

			last_ = child;
			++size_;

#ifdef E2D_DEBUG
			Check();
#endif
		}

		void Prepend(T child)
		{
			child->prev_ = nullptr;
			child->next_ = first_;

			if (first_)
			{
				first_->prev_ = child;
			}
			else
			{
				last_ = child;
			}

			first_ = child;
			++size_;

#ifdef E2D_DEBUG
			Check();
#endif
		}

		void Remove(T child)
		{
#ifdef E2D_DEBUG
			T tmp = first_;
			while (tmp != child)
			{
				if (tmp == last_)
					throw std::logic_error("The node to be removed is not in this list");
				tmp = tmp->next_;
			}
#endif

			if (child->next_)
			{
				child->next_->prev_ = child->prev_;
			}
			else
			{
				last_ = child->prev_;
			}

			if (child->prev_)
			{
				child->prev_->next_ = child->next_;
			}
			else
			{
				first_ = child->next_;
			}

			child->prev_ = nullptr;
			child->next_ = nullptr;
			--size_;

#ifdef E2D_DEBUG
			Check();
#endif
		}

		void Insert(T child, T before)
		{
			if (before->prev_)
				before->prev_->next_ = child;
			else
				first_ = child;

			child->prev_ = before->prev_;
			child->next_ = before;
			before->prev_ = child;
			++size_;

#ifdef E2D_DEBUG
			Check();
#endif
		}

		void Clear()
		{
			T p = first_;
			while (p)
			{
				T tmp = p;
				p = p->next_;
				if (tmp)
				{
					tmp->next_ = nullptr;
					tmp->prev_ = nullptr;
				}
			}
			first_ = nullptr;
			last_ = nullptr;
			size_ = 0;
		}

		void Sort(std::function<bool(T const&, T const&)> func)
		{
#ifdef E2D_DEBUG
			Check();
#endif
		}

#ifdef E2D_DEBUG

		void Check()
		{
			if (!first_)
				return;

			int pos = 0;
			T p = first_;
			T tmp = p;
			do
			{
				tmp = p;
				p = p->next_;
				++pos;

				if (p)
				{
					if (p->prev_ != tmp)
						throw std::logic_error("Check list failed");
				}
				else
				{
					if (tmp != last_)
						throw std::logic_error("Check list failed");
				}
			} while (p);

			if (pos != size_)
				throw std::logic_error("Check list failed");
		}

#endif
	};

	template <typename T>
	class IntrusiveItem
	{
		T prev_;
		T next_;

		template <typename U>
		friend class IntrusiveList;

	public:
		IntrusiveItem() : prev_(), next_() {}

		T const& Prev() const { return prev_; }

		T& Prev() { return prev_; }

		T const& Next() const { return next_; }

		T& Next() { return next_; }
	};
}