///////////////////////////////////////////////////////////////////////////////////////////////////
// OpenGL Mathematics Copyright (c) 2005 - 2013 G-Truc Creation (www.g-truc.net)
///////////////////////////////////////////////////////////////////////////////////////////////////
// Created : 2013-11-22
// Updated : 2013-12-18
// Licence : This source is under MIT License
// File    : glm/gtx/inl.inl
///////////////////////////////////////////////////////////////////////////////////////////////////

#include <iomanip> // std::setfill<>, std::fixed, std::setprecision, std::right, std::setw
#include <ostream> // std::basic_ostream<>

namespace glm{
namespace io
{
	template <typename CTy>
	/* explicit */ GLM_FUNC_QUALIFIER
	format_punct<CTy>::format_punct(size_t a)
		: std::locale::facet(a),
		formatted         (true),
		precision         (3),
		width             (1 + 4 + 1 + precision),
		separator         (','),
		delim_left        ('['),
		delim_right       (']'),
		space             (' '),
		newline           ('\n'),
		order             (row_major)
	{}

	template <typename CTy>
	/* explicit */ GLM_FUNC_QUALIFIER
	format_punct<CTy>::format_punct(format_punct const& a)
		: std::locale::facet(0),
		formatted         (a.formatted),
		precision         (a.precision),
		width             (a.width),
		separator         (a.separator),
		delim_left        (a.delim_left),
		delim_right       (a.delim_right),
		space             (a.space),
		newline           (a.newline),
		order             (a.order)
	{}

	template <typename CTy> std::locale::id format_punct<CTy>::id;

	template <typename CTy, typename CTr>
	/* explicit */ GLM_FUNC_QUALIFIER basic_state_saver<CTy,CTr>::basic_state_saver(std::basic_ios<CTy,CTr>& a)
		: state_    (a),
		flags_    (a.flags()),
		precision_(a.precision()),
		width_    (a.width()),
		fill_     (a.fill()),
		locale_   (a.getloc())
	{}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER basic_state_saver<CTy,CTr>::~basic_state_saver()
	{
		state_.imbue(locale_);
		state_.fill(fill_);
		state_.width(width_);
		state_.precision(precision_);
		state_.flags(flags_);
	}

	template <typename CTy, typename CTr>
	/* explicit */ GLM_FUNC_QUALIFIER basic_format_saver<CTy,CTr>::basic_format_saver(std::basic_ios<CTy,CTr>& a)
		: bss_(a)
	{
		a.imbue(std::locale(a.getloc(), new format_punct<CTy>(get_facet<format_punct<CTy> >(a))));
	}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER
	basic_format_saver<CTy,CTr>::~basic_format_saver()
	{}

	/* explicit */ GLM_FUNC_QUALIFIER precision::precision(unsigned a)
		: value(a)
	{}

	/* explicit */ GLM_FUNC_QUALIFIER width::width(unsigned a)
		: value(a)
	{}

	template <typename CTy>
	/* explicit */ GLM_FUNC_QUALIFIER delimeter<CTy>::delimeter(CTy a, CTy b, CTy c)
		: value()
	{
		value[0] = a;
		value[1] = b;
		value[2] = c;
	}

	/* explicit */ GLM_FUNC_QUALIFIER
	order::order(order_type a)
		: value(a)
	{}

	template <typename FTy, typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER FTy const& get_facet(std::basic_ios<CTy,CTr>& ios)
	{
		if (!std::has_facet<FTy>(ios.getloc())) {
		ios.imbue(std::locale(ios.getloc(), new FTy));
		}

		return std::use_facet<FTy>(ios.getloc());
	}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER std::basic_ios<CTy,CTr>& formatted(std::basic_ios<CTy,CTr>& ios)
	{
		const_cast<format_punct<CTy>&>(get_facet<format_punct<CTy> >(ios)).formatted = true;

		return ios;
	}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER std::basic_ios<CTy,CTr>& unformatted(std::basic_ios<CTy,CTr>& ios)
	{
		const_cast<format_punct<CTy>&>(get_facet<format_punct<CTy> >(ios)).formatted = false;

		return ios;
	}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy, CTr>& operator<<(std::basic_ostream<CTy, CTr>& os, precision const& a)
	{
		const_cast<format_punct<CTy>&>(get_facet<format_punct<CTy> >(os)).precision = a.value;

		return os;
	}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy, CTr>& operator<<(std::basic_ostream<CTy, CTr>& os, width const& a)
	{
		const_cast<format_punct<CTy>&>(get_facet<format_punct<CTy> >(os)).width = a.value;

		return os;
	}

	template <typename CTy, typename CTr>
	std::basic_ostream<CTy, CTr>& operator<<(std::basic_ostream<CTy, CTr>& os, delimeter<CTy> const& a)
	{
		format_punct<CTy> & fmt(const_cast<format_punct<CTy>&>(get_facet<format_punct<CTy> >(os)));

		fmt.delim_left  = a.value[0];
		fmt.delim_right = a.value[1];
		fmt.separator   = a.value[2];

		return os;
	}

	template <typename CTy, typename CTr>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy, CTr>& operator<<(std::basic_ostream<CTy, CTr>& os, order const& a)
	{
		const_cast<format_punct<CTy>&>(get_facet<format_punct<CTy> >(os)).order = a.value;

		return os;
	}
} // namespace io

namespace detail
{
	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tquat<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));

			if(fmt.formatted)
			{
				io::basic_state_saver<CTy> const bss(os);

				os << std::fixed
					<< std::right
					<< std::setprecision(fmt.precision)
					<< std::setfill(fmt.space)
					<< fmt.delim_left
					<< std::setw(fmt.width) << a.w << fmt.separator
					<< std::setw(fmt.width) << a.x << fmt.separator
					<< std::setw(fmt.width) << a.y << fmt.separator
					<< std::setw(fmt.width) << a.z
					<< fmt.delim_right;
			}
			else
			{
				os << a.w << fmt.space << a.x << fmt.space << a.y << fmt.space << a.z;
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tvec2<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));

			if(fmt.formatted)
			{
				io::basic_state_saver<CTy> const bss(os);

				os << std::fixed
					<< std::right
					<< std::setprecision(fmt.precision)
					<< std::setfill(fmt.space)
					<< fmt.delim_left
					<< std::setw(fmt.width) << a.x << fmt.separator
					<< std::setw(fmt.width) << a.y
					<< fmt.delim_right;
			}
			else
			{
				os << a.x << fmt.space << a.y;
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tvec3<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));

			if(fmt.formatted)
			{
				io::basic_state_saver<CTy> const bss(os);

				os << std::fixed
					<< std::right
					<< std::setprecision(fmt.precision)
					<< std::setfill(fmt.space)
					<< fmt.delim_left
					<< std::setw(fmt.width) << a.x << fmt.separator
					<< std::setw(fmt.width) << a.y << fmt.separator
					<< std::setw(fmt.width) << a.z
					<< fmt.delim_right;
			}
			else
			{
				os << a.x << fmt.space << a.y << fmt.space << a.z;
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tvec4<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));

			if(fmt.formatted)
			{
				io::basic_state_saver<CTy> const bss(os);

				os << std::fixed
					<< std::right
					<< std::setprecision(fmt.precision)
					<< std::setfill(fmt.space)
					<< fmt.delim_left
					<< std::setw(fmt.width) << a.x << fmt.separator
					<< std::setw(fmt.width) << a.y << fmt.separator
					<< std::setw(fmt.width) << a.z << fmt.separator
					<< std::setw(fmt.width) << a.w
					<< fmt.delim_right;
			}
			else
			{
				os << a.x << fmt.space << a.y << fmt.space << a.z << fmt.space << a.w;
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tmat2x2<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat2x2<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tmat2x3<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat3x2<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.newline
					<< fmt.space      << m[2] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1] << fmt.space << m[2];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tmat2x4<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat4x2<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);


			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.newline
					<< fmt.space      << m[2] << fmt.newline
					<< fmt.space      << m[3] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1] << fmt.space << m[2] << fmt.space << m[3];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tmat3x2<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat2x3<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(std::basic_ostream<CTy,CTr>& os, tmat3x3<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat3x3<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.newline
					<< fmt.space      << m[2] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1] << fmt.space << m[2];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr> & operator<<(std::basic_ostream<CTy,CTr>& os, tmat3x4<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat4x3<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if (fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.newline
					<< fmt.space      << m[2] << fmt.newline
					<< fmt.space      << m[3] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1] << fmt.space << m[2] << fmt.space << m[3];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr> & operator<<(std::basic_ostream<CTy,CTr>& os, tmat4x2<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat2x4<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if (fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr> & operator<<(std::basic_ostream<CTy,CTr>& os, tmat4x3<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat3x4<T,P> m(a);

			if(io::row_major == fmt.order)
				m = transpose(a);

			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.newline
					<< fmt.space      << m[2] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1] << fmt.space << m[2];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr> & operator<<(std::basic_ostream<CTy,CTr>& os, tmat4x4<T,P> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat4x4<T,P> m(a);

			if (io::row_major == fmt.order)
				m = transpose(a);

			if(fmt.formatted)
			{
				os << fmt.newline
					<< fmt.delim_left << m[0] << fmt.newline
					<< fmt.space      << m[1] << fmt.newline
					<< fmt.space      << m[2] << fmt.newline
					<< fmt.space      << m[3] << fmt.delim_right;
			}
			else
			{
				os << m[0] << fmt.space << m[1] << fmt.space << m[2] << fmt.space << m[3];
			}
		}

		return os;
	}

	template <typename CTy, typename CTr, typename T, precision P>
	GLM_FUNC_QUALIFIER std::basic_ostream<CTy,CTr>& operator<<(
		std::basic_ostream<CTy,CTr> & os,
		std::pair<tmat4x4<T,P> const, tmat4x4<T,P> const> const& a)
	{
		typename std::basic_ostream<CTy,CTr>::sentry const cerberus(os);

		if(cerberus)
		{
			io::format_punct<CTy> const & fmt(io::get_facet<io::format_punct<CTy> >(os));
			tmat4x4<T,P> ml(a.first);
			tmat4x4<T,P> mr(a.second);

			if(io::row_major == fmt.order)
			{
				ml = transpose(a.first);
				mr = transpose(a.second);
			}

			if(fmt.formatted)
			{
				CTy const & l(fmt.delim_left);
				CTy const & r(fmt.delim_right);
				CTy const & s(fmt.space);

				os << fmt.newline
					<< l << ml[0] << s << s << l << mr[0] << fmt.newline
					<< s << ml[1] << s << s << s << mr[1] << fmt.newline
					<< s << ml[2] << s << s << s << mr[2] << fmt.newline
					<< s << ml[3] << r << s << s << mr[3] << r;
			}
			else
			{
				os << ml << fmt.space << mr;
			}
		}

		return os;
	}
}//namespace detail
}//namespace glm