/*
 * (c) Copyright Ascensio System SIA 2010-2023
 *
 * This program is a free software product. You can redistribute it and/or
 * modify it under the terms of the GNU Affero General Public License (AGPL)
 * version 3 as published by the Free Software Foundation. In accordance with
 * Section 7(a) of the GNU AGPL its Section 15 shall be amended to the effect
 * that Ascensio System SIA expressly excludes the warranty of non-infringement
 * of any third-party rights.
 *
 * This program is distributed WITHOUT ANY WARRANTY; without even the implied
 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR  PURPOSE. For
 * details, see the GNU AGPL at: http://www.gnu.org/licenses/agpl-3.0.html
 *
 * You can contact Ascensio System SIA at 20A-6 Ernesta Birznieka-Upish
 * street, Riga, Latvia, EU, LV-1050.
 *
 * The  interactive user interfaces in modified source and object code versions
 * of the Program must display Appropriate Legal Notices, as required under
 * Section 5 of the GNU AGPL version 3.
 *
 * Pursuant to Section 7(b) of the License you must retain the original Product
 * logo when distributing the program. Pursuant to Section 7(e) we decline to
 * grant you any rights under trademark law for use of our trademarks.
 *
 * All the Product's GUI elements, including illustrations and icon sets, as
 * well as technical writing content are licensed under the terms of the
 * Creative Commons Attribution-ShareAlike 4.0 International. See the License
 * terms at http://creativecommons.org/licenses/by-sa/4.0/legalcode
 *
 */
#include "Utils.h"
#include <vector>
#include <ctime>
#include <cwctype>

namespace PdfWriter
{
	BYTE* MemCpy(BYTE* pDst, const BYTE *pSrc, unsigned int unLen)
	{
		if (unLen > 0)
			memcpy(pDst, pSrc, unLen);

		return pDst;
	}
	int   StrLen(const char* sString, int nMaxLen)
	{
		int nLen = 0;

		if (!sString)
			return 0;

		while (*sString != 0 && (nMaxLen < 0 || nLen < nMaxLen))
		{
			sString++;
			nLen++;
		}

		return nLen;
	}
	BYTE* StrCpy(char* sDst, const char* sSrc, char* pEnd)
	{
		if (NULL != sSrc)
		{
			while (pEnd > sDst && *sSrc != 0)
				*sDst++ = *sSrc++;
		}

		*sDst = 0;

		return (BYTE*)sDst;
	}
	void  MemSet(void *pBuf, BYTE nChar, unsigned int unLen)
	{
		memset(pBuf, nChar, unLen);
	}
	char* ItoA  (char *str, int nVal, char *eptr)
	{
		char* sTemp;
		char sBuf[INT_LEN + 1];

		if (nVal < 0)
		{
			if (nVal < LIMIT_MIN_INT)
				nVal = LIMIT_MIN_INT;
			*str++ = '-';
			nVal = -nVal;
		}
		else if (nVal > LIMIT_MAX_INT)
		{
			nVal = LIMIT_MAX_INT;
		}
		else if (nVal == 0)
		{
			*str++ = '0';
		}

		sTemp = sBuf + INT_LEN;
		*sTemp-- = 0;

		while (nVal > 0)
		{
			*sTemp = (char)(nVal % 10) + '0';
			nVal /= 10;
			sTemp--;
		}

		sTemp++;
		while (str < eptr && *sTemp != 0)
			*str++ = *sTemp++;

		*str = 0;

		return str;
	}
	char* ItoA2 (char  *str, unsigned int nVal, unsigned int nLen)
	{
		char* sT;
		char* sU;

		if (nVal > LIMIT_MAX_INT)
			nVal = LIMIT_MAX_INT;

		sU = str + nLen - 1;
		*sU = 0;
		sT = sU - 1;
		while (nVal > 0 && sT >= str)
		{
			*sT = (char)(nVal % 10) + '0';
			nVal /= 10;
			sT--;
		}

		while (str <= sT)
			*sT-- = '0';

		return str + nLen - 1;
	}
	int   StrCmp(const char* s1, const char* s2)
	{
		if (!s1 || !s2)
		{
			if (!s1 && !s2)
				return 0;
			if (!s1 && s2)
				return -1;
			else
				return 1;
		}

		while (*s1 == *s2)
		{
			s1++;
			s2++;
			if (*s1 == 0 || *s2 == 0)
				break;
		}

		return (BYTE)*s1 - (BYTE)*s2;
	}
	char* FtoA  (char* sDst, double dVal, char* pEnd)
	{
		int nNPartVal = 0;
		int nFPartVal = 0;
		char sBuf[REAL_LEN + 1];
		char* sptr = sDst;
		char* sTemp;

		unsigned int nIndex = 0;

		if (dVal > LIMIT_MAX_REAL)
			dVal = LIMIT_MAX_REAL;
		else if (dVal < LIMIT_MIN_REAL)
			dVal = LIMIT_MIN_REAL;

		sTemp = sBuf + REAL_LEN;
		*sTemp-- = 0;

		if (dVal < 0)
		{
			*sDst++ = '-';
			dVal = -dVal;
		}

		// разделяем целую и дробную части
		nNPartVal = (int)(dVal + 0.000005);
		nFPartVal = (int)((float)(dVal - nNPartVal + 0.000005) * 100000);

		// пишем дробную часть
		for (nIndex = 0; nIndex < 5; nIndex++)
		{
			*sTemp = (char)(nFPartVal % 10) + '0';
			nFPartVal /= 10;
			sTemp--;
		}

		// пишем целую часть
		*sTemp-- = '.';
		*sTemp = '0';
		if (nNPartVal == 0)
			sTemp--;

		while (nNPartVal > 0)
		{
			*sTemp = (char)(nNPartVal % 10) + '0';
			nNPartVal /= 10;
			sTemp--;
		}

		sTemp++;

		while (sDst <= pEnd && *sTemp != 0)
			*sDst++ = *sTemp++;
		sDst--;


		// TODO: при избавлении от нулей при сдвиге конец строки тоже нужно чистить
		// пример число -00.90123 результат "-0.901234"

		while (sDst > sptr)
		{
			if (*sDst == '0')
				*sDst = 0;
			else {
				if (*sDst == '.')
					*sDst = 0;
				break;
			}
			sDst--;
		}

		return (*sDst == 0) ? sDst : ++sDst;
	}
	void  UIntChangeBit(unsigned int& nValue, short nBit)
	{
		// работаем только с 4-байтовыми числами
		if (nBit < 0 || nBit > 31)
			return;

		unsigned int unBitNum = 1 << nBit;
		if (nValue & unBitNum)
			nValue ^= unBitNum;
		else
			nValue |= unBitNum;
	}
	std::string DateNow()
	{
		char sTemp[DATE_TIME_STR_LEN + 1];
		char* pTemp = NULL;

		MemSet(sTemp, 0, DATE_TIME_STR_LEN + 1);
		time_t oTime = time(0);
		struct tm* oNow = gmtime(&oTime);

		pTemp = (char*)MemCpy((BYTE*)sTemp, (BYTE*)"D:", 2);
		*pTemp++;
		*pTemp++;
		pTemp = ItoA2(pTemp, oNow->tm_year + 1900, 5);
		pTemp = ItoA2(pTemp, oNow->tm_mon + 1, 3);
		pTemp = ItoA2(pTemp, oNow->tm_mday, 3);
		pTemp = ItoA2(pTemp, oNow->tm_hour, 3);
		pTemp = ItoA2(pTemp, oNow->tm_min, 3);
		pTemp = ItoA2(pTemp, oNow->tm_sec, 3);
		*pTemp++ = '+';
		pTemp = ItoA2(pTemp, 0, 3);
		*pTemp++ = '\'';
		pTemp = ItoA2(pTemp, 0, 3);
		*pTemp++ = '\'';
		*pTemp = 0;

		std::string sRes(sTemp);
		return sRes;
	}
	std::wstring NormalizeWhitespace(const std::wstring& s)
	{
		std::wstring sRes;
		sRes.reserve(s.size());

		for (wchar_t c : s)
		{
			switch(c)
			{
			/*
			case 0x0009:   // Character tabulation
			case 0x000A:   // Line feed
			case 0x000B:   // Line tabulation
			case 0x000C:   // Form feed
			case 0x000D:   // Carriage return
			*/
			case 0x00A0:   // No-break space
			case 0x1680:   // Ogham space mark
			case 0x2000:   // En quad
			case 0x2001:   // Em quad
			case 0x2002:   // En space
			case 0x2003:   // Em space
			case 0x2004:   // Three-per-em space
			case 0x2005:   // Four-per-em space
			case 0x2006:   // Six-per-em space
			case 0x2007:   // Figure space
			case 0x2008:   // Punctuation space
			case 0x2009:   // Thin space
			case 0x200A:   // Hair space
			case 0x2028:   // Line separator
			case 0x2029:   // Paragraph separator
			case 0x202F:   // Narrow no-break space
			case 0x205F:   // Medium mathematical space
			case 0x2060:   // Word joiner
			case 0x3000:   // Ideographic space
			case 0xFEFF:   // Zero width no-break space
				sRes += L' ';
				break;
			default:
				sRes += c;
			}
		}

		return sRes;
	}
	void projectPolygon(const std::vector<CPoint>& polygon, const CPoint& axis, double& min, double& max)
	{
		min = std::numeric_limits<double>::max();
		max = std::numeric_limits<double>::lowest();

		for (const auto& point : polygon)
		{
			double projection = (point.x * axis.x + point.y * axis.y) / (axis.x * axis.x + axis.y * axis.y);
			projection *= (axis.x * axis.x + axis.y * axis.y);

			if (projection < min) min = projection;
			if (projection > max) max = projection;
		}
	}
	bool SAT(const std::vector<CPoint>& poly1, const std::vector<CPoint>& poly2)
	{
		std::vector<CPoint> axes;
		for (size_t i = 0; i < poly1.size(); i++)
		{
			CPoint p1 = poly1[i];
			CPoint p2 = poly1[(i + 1) % poly1.size()];
			CPoint edge(p2.x - p1.x, p2.y - p1.y);
			CPoint normal(-edge.y, edge.x); // Перпендикуляр к ребру
			axes.push_back(normal);
		}

		for (size_t i = 0; i < poly2.size(); i++)
		{
			CPoint p1 = poly2[i];
			CPoint p2 = poly2[(i + 1) % poly2.size()];
			CPoint edge(p2.x - p1.x, p2.y - p1.y);
			CPoint normal(-edge.y, edge.x); // Перпендикуляр к ребру
			axes.push_back(normal);
		}

		// Проверяем все оси на разделение
		for (const auto& axis : axes)
		{
			double min1, max1, min2, max2;
			projectPolygon(poly1, axis, min1, max1);
			projectPolygon(poly2, axis, min2, max2);

			if (max1 < min2 || max2 < min1)
				return false; // Найдена разделяющая ось
		}
		return true; // Пересекаются
	}
	double crossProduct(double x1, double y1, double x2, double y2, double x3, double y3)
	{
		return (x2 - x1) * (y3 - y1) - (y2 - y1) * (x3 - x1);
	}
	bool isPointInQuad(double px, double py, double x1, double y1, double x2, double y2, double x3, double y3, double x4, double y4)
	{
		// Проверяем знаки векторных произведений для всех сторон
		double cross1 = crossProduct(x1, y1, x2, y2, px, py);
		double cross2 = crossProduct(x2, y2, x3, y3, px, py);
		double cross3 = crossProduct(x3, y3, x4, y4, px, py);
		double cross4 = crossProduct(x4, y4, x1, y1, px, py);

		// Точка внутри, если все векторные произведения имеют одинаковый знак
		return (cross1 >= 0 && cross2 >= 0 && cross3 >= 0 && cross4 >= 0) ||
			   (cross1 <= 0 && cross2 <= 0 && cross3 <= 0 && cross4 <= 0);
	}
}