/*

Miranda NG: the free IM client for Microsoft* Windows*

Copyright (c) 2012-18 Miranda NG team (https://miranda-ng.org),
Copyright (c) 2000-08 Miranda ICQ/IM project,
all portions of this codebase are copyrighted to the people
listed in contributors.txt.

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

Created by Anton Senko aka ZORG , tweaked by Artem Shpynov aka FYR
*/

#include "stdafx.h"

void rowCalculateMinSize(ROWCELL* cell);
void rowEqualize(ROWCELL* cell);
void rowResetEmptyRects(ROWCELL* cell);
void rowDeleteTree(ROWCELL* cell);

//extern ROWCELL * gl_RowRoot;	// Указатель на корневой тэг  < contact> в шаблоне
//ROWOBJECTS RowTA;				// Структура, через которую осуществляется доступ к элементам контакта.
// Формируется при выполнении фу-и RowParce. Неявный параметр фуи rowParserGetParam


// Формируется при выполнении фу-и RowParce. Неявный параметр фуи rowParserGetParam

char *tmplbuf;					// Буфер для хранения шаблона в текстовом виде

ROWCELL *cppInitModernRow(ROWCELL	** tabAccess)
{
	int fsize;
	int seq = 0;
	ROWCELL * RowRoot = nullptr;
	FILE * hFile;
	int i = 0;
	if (!db_get_b(0, "ModernData", "UseAdvancedRowLayout", SETTING_ROW_ADVANCEDLAYOUT_DEFAULT)) return nullptr;
	tmplbuf = nullptr;
	if (db_get_b(0, "ModernData", "UseAdvancedRowLayout", SETTING_ROW_ADVANCEDLAYOUT_DEFAULT) == 1)
		tmplbuf = db_get_sa(0, "ModernData", "RowTemplate");
	if (tmplbuf) {
		rowParse(RowRoot, RowRoot, tmplbuf, i, seq, tabAccess);
		mir_free(tmplbuf);
		return RowRoot;
	}
	if (hFile = fopen("template.txt", "rb"))
	{
		fsize = _filelength(_fileno(hFile));
		tmplbuf = (char*)malloc(fsize + 1);
		memset(tmplbuf, 0, (fsize + 1));

		for (i = 0; i < fsize; i++) tmplbuf[i] = getc(hFile);
		tmplbuf[i] = 0;
		i = 0;
		rowParse(RowRoot, RowRoot, tmplbuf, i, seq, tabAccess);
		db_set_s(0, "ModernData", "RowTemplate", tmplbuf);
		free(tmplbuf);
		fclose(hFile);
		return RowRoot;
	}
	return nullptr;

}

void cppDeleteTree(ROWCELL	* RowRoot)
{
	ROWCELL *rc = RowRoot;
	rowDeleteTree(rc);
}

int cppCalculateRowHeight(ROWCELL	*RowRoot)
{
	if (RowRoot == nullptr)
		return 0;
	RowRoot->h = 0;
	RowRoot->w = 0;
	rowResetEmptyRects(RowRoot);
	rowCalculateMinSize(RowRoot);
	rowEqualize(RowRoot);
	return RowRoot->r.bottom;
}
void cppCalculateRowItemsPos(ROWCELL	*RowRoot, int width)
{
	rowSizeWithReposition(RowRoot, width);
}

// rowAddCell
// Выделяет необходимое кол-во дин. памяти для структуры ROWCELL
// и связывает ее с деревом описания контакта
// link - поле child или next, родительской структуры ROWCELL
// cont - тип контейнера: строка, столбец или корневой узел
//
//
const ROWCELL * rowAddCell(ROWCELL* &link, int cont)
{
	link = (ROWCELL*)malloc(sizeof(ROWCELL));
	memset(link, 0, sizeof(ROWCELL));
	link->cont = cont;
	return link;
}

// rowDeleteTree
// Освобождает память занятую деревом описания контакта
// cell - адрес корневого узла дерева описания контакта
//
//
void rowDeleteTree(ROWCELL* cell)
{
	if (!cell) return;
	if (cell->child)
		rowDeleteTree((ROWCELL*)(cell->child));
	if (cell->next)
		rowDeleteTree((ROWCELL*)(cell->next));
	free(cell);
	cell = nullptr;
	return;
}

// rowParserGetNextWord
// Выбирает из потока данных (сейчас файлового) очередное слово.
// Словом считается последовательность символов, ограниченная знаками: SP,  < , >, ;, TAB, CR, LF
// символы от ; и до конца строки считаются комментарием.
// NOTE: Данная реализация не совсем подходит для включения ее в ModernCL,
// а по сему, тут надо будет переделывать
// tbuf - указатель на буфер содержащий текст шаблона
// hbuf - указатель буфера
//
//
char * rowParserGetNextWord(char *tbuf, int &hbuf)
{
	static char buf[256];
	char ch;

	int j = -1;

	memset(buf, 0, sizeof(buf));

	while (tbuf[hbuf] != 0)
	{
		ch = tbuf[hbuf];

		// Remark found
		if (ch == ';')
		{
			if (j >= 0) return buf;

			while (tbuf[hbuf] != 10 && tbuf[hbuf] != 13) hbuf++;
		}

		// Tag-bracers found
		if (!(ch == '>' && j < 0)) //not single '>' found
		{
			if ((ch == '<' || ch == '>') && j >= 0)
			{
				if (ch == '>')
				{
					if (buf[0] == '/' || buf[0] == '<')  buf[++j] = ch;
					hbuf++;
				}
				return buf;
			}

			if (ch == ' ' || ch == 9 || ch == 10 || ch == 13 || ch == ';' || ch == '>')
			{
				if (ch == '>')
				{
					buf[++j] = ch;
					hbuf++;
				}

				if (j >= 0) return buf;	// Word is selected
			}
			else
				buf[++j] = ch;
		}
		hbuf++;
	}
	return nullptr;
}

// rowParserGetParam
// ищет и интерпретирует слова в шаблоне, заключенные между тэгами
// cell - указатель на текущий интерпретируемый контейнер шаблона
// tbuf - указатель на буфер содержащий текст шаблона
// hbuf - указатель буфера
//
//
void rowParserGetParam(ROWCELL* &cell, char *tbuf, int &hbuf)
{
	char * word = rowParserGetNextWord(tbuf, hbuf);
	int param = 0;

	if (!_strnicmp(word, "avatar", mir_strlen(word))) param = TC_AVATAR;
	else if (!_strnicmp(word, "text1", mir_strlen(word))) param = TC_TEXT1;
	else if (!_strnicmp(word, "text2", mir_strlen(word))) param = TC_TEXT2;
	else if (!_strnicmp(word, "text3", mir_strlen(word))) param = TC_TEXT3;
	else if (!_strnicmp(word, "status", mir_strlen(word))) param = TC_STATUS;
	else if (!_strnicmp(word, "extra", mir_strlen(word))) param = TC_EXTRA;
	else if (!_strnicmp(word, "extra1", mir_strlen(word))) param = TC_EXTRA1;
	else if (!_strnicmp(word, "extra2", mir_strlen(word))) param = TC_EXTRA2;
	else if (!_strnicmp(word, "extra3", mir_strlen(word))) param = TC_EXTRA3;
	else if (!_strnicmp(word, "extra4", mir_strlen(word))) param = TC_EXTRA4;
	else if (!_strnicmp(word, "extra5", mir_strlen(word))) param = TC_EXTRA5;
	else if (!_strnicmp(word, "extra6", mir_strlen(word))) param = TC_EXTRA6;
	else if (!_strnicmp(word, "extra7", mir_strlen(word))) param = TC_EXTRA7;
	else if (!_strnicmp(word, "extra8", mir_strlen(word))) param = TC_EXTRA8;
	else if (!_strnicmp(word, "extra9", mir_strlen(word))) param = TC_EXTRA9;
	else if (!_strnicmp(word, "time", mir_strlen(word))) param = TC_TIME;
	else if (!_strnicmp(word, "space", mir_strlen(word))) param = TC_SPACE;
	else if (!_strnicmp(word, "fspace", mir_strlen(word))) param = TC_FIXED;

	else if (!_strnicmp(word, "left", mir_strlen(word))) param = TC_LEFT;
	else if (!_strnicmp(word, "top", mir_strlen(word))) param = TC_TOP;
	else if (!_strnicmp(word, "vcenter", mir_strlen(word))) param = TC_VCENTER;
	else if (!_strnicmp(word, "hcenter", mir_strlen(word))) param = TC_HCENTER;
	else if (!_strnicmp(word, "right", mir_strlen(word))) param = TC_RIGHT;
	else if (!_strnicmp(word, "bottom", mir_strlen(word))) param = TC_BOTTOM;

	else if (!_strnicmp(word, "layer", mir_strlen(word))) cell->layer = TRUE;

	else if (!_strnicmp(word, "width", mir_strlen(word))) param = TC_WIDTH;
	else if (!_strnicmp(word, "height", mir_strlen(word))) param = TC_HEIGHT;

	else
	{
		hbuf -= (int)mir_strlen(word);
		return;
	}

	if (param > TC_TEXT3 && param != TC_SPACE) cell->hasfixed = 1;

	switch (param)
	{
	case TC_TEXT1:
	case TC_TEXT2:
	case TC_TEXT3:
	case TC_SPACE:
		cell->sizing = 1;
	case TC_STATUS:
	case TC_AVATAR:
	case TC_EXTRA:
	case TC_EXTRA1:
	case TC_EXTRA2:
	case TC_EXTRA3:
	case TC_EXTRA4:
	case TC_EXTRA5:
	case TC_EXTRA6:
	case TC_EXTRA7:
	case TC_EXTRA8:
	case TC_EXTRA9:
	case TC_TIME:
	case TC_FIXED:

		cell->type = param;
		break;

	case TC_HCENTER:
	case TC_RIGHT:
		cell->halign = param;
		break;

	case TC_VCENTER:
	case TC_BOTTOM:
		cell->valign = param;
		break;

	case TC_WIDTH:
		word = rowParserGetNextWord(tbuf, hbuf);
		param = atoi(word);
		cell->w = param;
		break;

	case TC_HEIGHT:
		word = rowParserGetNextWord(tbuf, hbuf);
		param = atoi(word);
		cell->h = param;
	}

	rowParserGetParam(cell, tbuf, hbuf);
	return;
}
// rowParse
// Ищет в шаблоне теги  < contact>,  < tr> и  < tc>, и добавляет соответствующие узлы
// в дерево описания контакта
// cell - поле child или next родительского контейнера
// parent - указатель на родительский контейнер
// tbuf - указатель на буфер содержащий текст шаблона
// hbuf - указатель буфера
// sequence - нужно задавать 0, это очередность нахождения
//
BOOL rowParse(ROWCELL* &cell, ROWCELL* parent, char *tbuf, int &hbuf, int &sequence, ROWCELL** RowTabAccess)
{
	char * word;
	word = rowParserGetNextWord(tbuf, hbuf);
	int cont;

	if (!_strnicmp(word, "<tr", mir_strlen(word)) || !_strnicmp(word, "<tr>", mir_strlen(word))) cont = TC_ROW;
	else if (!_strnicmp(word, "<tc", mir_strlen(word)) || !_strnicmp(word, "<tc>", mir_strlen(word))) cont = TC_COL;
	else if (!_strnicmp(word, "/>", mir_strlen(word)) ||
		!_strnicmp(word, "</tr>", mir_strlen(word)) ||
		!_strnicmp(word, "</tc>", mir_strlen(word))) return TRUE;
	else return FALSE;

	rowAddCell(cell, cont);
	rowParserGetParam(cell, tbuf, hbuf);
	if (cell->type != 0 && cell->type != TC_SPACE && cell->type != TC_FIXED)
		RowTabAccess[sequence++] = cell;

	if (!rowParse(cell->child, cell, tbuf, hbuf, sequence, RowTabAccess))
		return FALSE;

	if (!parent)
	{
		RowTabAccess[sequence] = nullptr;
		return TRUE;
	}

	if (!rowParse(cell->next, parent, tbuf, hbuf, sequence, RowTabAccess))
		return FALSE;

	parent->sizing |= cell->sizing;
	parent->hasfixed |= cell->hasfixed;
	return TRUE;
}

void rowResetEmptyRects(ROWCELL* cell)
{
	if (!cell) return;
	if (cell->type == 0)
	{
		SetRect(&(cell->r), 0, 0, 0, 0);
		cell->full_width = 0;
		cell->fixed_width = 0;
	}
	rowResetEmptyRects(cell->child);
	rowResetEmptyRects(cell->next);
}

// rowCalculateMinSize
// Вычисление минимальных размеров каждого контейнера дерева описания контакта
// Эта фу-я ВСЕГДА! должна вызываться непосредственно перед rowPositioning
// cell - указатель на корневой узел дерева описания контакта
// NOTE: Перед вызывом rowCalculateMinSize необходимо заполнить поля w и h структуры RowTA, для каждого элемента
//
void rowCalculateMinSize(ROWCELL* cell)
{
	ROWCELL* curchild = nullptr;
	int w = 0, h = 0;
	int wl = 0, hl = 0;
	int fullWidth = 0;
	if (!cell) return;

	cell->r.left = 0;
	cell->r.top = 0;

	if (cell->type < TC_TEXT1 || cell->type > TC_TEXT3 && cell->type != TC_SPACE)
		cell->r.right = cell->w;
	else
		cell->r.right = 0;

	cell->r.bottom = cell->h;

	rowCalculateMinSize(cell->child);
	rowCalculateMinSize(cell->next);

	if (!(curchild = cell->child)) return;

	if (cell->cont == TC_ROW)
	{
		do
		{
			h = max(h, curchild->r.bottom);

			if (curchild->layer)
			{
				//w = max(w, curchild->r.right);
				wl += curchild->r.right;
				fullWidth = max(fullWidth, max(curchild->full_width, curchild->w));
			}
			else
			{
				w += curchild->r.right;
				fullWidth += max(curchild->full_width, curchild->w);
			}
		} while (curchild = curchild->next);
	}

	if (cell->cont == TC_COL)
	{
		while (curchild)
		{
			w = max(w, curchild->r.right);
			fullWidth = max(fullWidth, max(curchild->full_width, curchild->w));

			if (curchild->layer)
			{
				hl = curchild->r.bottom;
				//				h = max(h, curchild->r.bottom);
			}
			else
				h += curchild->r.bottom;

			curchild = curchild->next;
		}
	}

	cell->r.right = max(max(w, cell->r.right), wl);
	cell->r.bottom = max(max(h, cell->r.bottom), hl);
	cell->full_width = max(fullWidth, cell->full_width);
	cell->fixed_width = max(cell->fixed_width, cell->r.right);
	return;
}

// void rowEqualise(ROWCELL* cell)
//
// Уравнивает высоты детей внутри строк, и ширины детей внутри стобцов
// cell - указатель на корневой узел дерева описания контакта
//
void rowEqualize(ROWCELL* cell)
{
	ROWCELL* curchild = nullptr;
	if (!cell) return;
	rowEqualize(cell->child);
	rowEqualize(cell->next);

	if (!(curchild = cell->child)) return;

	if (cell->cont == TC_ROW)
	{
		do
		{
			if (curchild->layer) continue;
			curchild->r.bottom = cell->r.bottom;
		} while (curchild = curchild->next);
	}

	if (cell->cont == TC_COL)
	{
		do
		{
			if (curchild->layer) continue;
			curchild->r.right = cell->r.right;
		} while (curchild = curchild->next);
	}


	//rowEqualize(cell->child);
	//rowEqualize(cell->next);
}

// void rowPlacing(pttCell cell, pttCell parent)
//
// Позиционирует элемент строки контакта в его контейнере
// cell - указатель на плавающий контейнер
//
void rowPlacing(pROWCELL cell)
{
	if (cell->type == 0) return;

	switch (cell->type)
	{
	case TC_TEXT1:
	case TC_TEXT2:
	case TC_TEXT3:
	case TC_SPACE:
		cell->r.right += cell->r.left;
		break;
	default:
	{
		switch (cell->halign)
		{
		case TC_LEFT:
			break;
		case TC_HCENTER:
			cell->r.left += (cell->r.right - cell->w) / 2;
			break;
		case TC_RIGHT:
			cell->r.left += cell->r.right - cell->w;
		}
		cell->r.right = cell->r.left + cell->w;
	}
	}

	switch (cell->valign)
	{
	case TC_TOP:
		break;
	case TC_VCENTER:
		cell->r.top += (cell->r.bottom - cell->h) / 2;
		break;
	case TC_BOTTOM:
		cell->r.top += cell->r.bottom - cell->h;
	}
	cell->r.bottom = cell->r.top + cell->h;
}

// void ttTLProc(pROWCELL cell, pROWCELL parent)
//
// Позиционирует плавающий контейнер, внутри родительского
// cell - указатель на плавающий контейнер
// parent - указатель на родительский контейнер
//
void rowLayerProc(pROWCELL cell, pROWCELL parent)
{
	if (cell->sizing)
	{
		cell->r.left = parent->r.left;
		//cell->r.right += cell->r.left;
	}
	else
	{
		switch (cell->halign)
		{
		case TC_LEFT:
			cell->r.left = parent->r.left;
			break;
		case TC_HCENTER:
			cell->r.left = parent->r.left + (parent->r.right - cell->r.right) / 2;
			break;
		case TC_RIGHT:
			cell->r.left = parent->r.left + parent->r.right - cell->r.right;
		}
	}

	switch (cell->valign)
	{
	case TC_TOP:
		cell->r.top = parent->r.top;
		break;
	case TC_VCENTER:
		cell->r.top = parent->r.top + (parent->r.bottom - cell->r.bottom) / 2;
		break;
	case TC_BOTTOM:
		cell->r.top = parent->r.top + parent->r.bottom - cell->r.bottom;
		break;
	}
}

// void rowPositioning(pROWCELL cell, int &dist)
//
// Вычисляет прямоугольники элементов контакта, учитывая выравнивание в контейнере
// cell - указатель на корневой узел дерева описания контакта
// dist - новая ширина контакта
//
void rowPositioning(pROWCELL cell, int &dist)
{
	ROWCELL* curchild = nullptr;

	int x = cell->r.left;
	int y = cell->r.top;

	int h = cell->r.bottom;
	int w = dist;

	int r = 0;
	int size = 0;
	int cw = 0;
	int fixedsized = 0;
	int autosized = 0;
	int dummy = 0;

	// Коррректировка назначаемой ширины dist
	if (w < cell->r.right && (cell->type < TC_TEXT1 || cell->type > TC_TEXT3 && cell->type != TC_SPACE) || !cell->sizing)
		dist = w = cell->r.right;

	cell->r.right = dist;
	dummy = dist;
	if (!(curchild = cell->child))
	{
		rowPlacing(cell);
		return;
	}

	// Позиционирование контейнеров в строке
	if (cell->cont == TC_ROW)
	{
		fixedsized = cell->fixed_width;
		while (curchild)
		{
			// Контейнеры layer не должны влиять на позиционирование контейнеров tc
			if (curchild->layer)
			{
				curchild = curchild->next;
				continue;
			}

			cw += curchild->r.right;

			if (curchild->sizing)
			{
				autosized += max(curchild->w, curchild->full_width);
				r++;
			}
			else
				size += curchild->r.right;

			curchild = curchild->next;
		}

		w -= size;
		fixedsized -= size;

		if (r == 0)
		{
			switch (cell->halign)
			{
			case TC_HCENTER:
				x += (dist - cw) / 2;// - 1;
				break;
			case TC_RIGHT:
				x += dist - cw;
				break;
			}
		}


		curchild = cell->child;

		size = 0;
		while (curchild)
		{
			if (curchild->layer)
			{
				//int dummy = 0;
				rowLayerProc(curchild, cell);
				rowPositioning(curchild, dummy);
			}
			else
			{
				curchild->r.top = cell->r.top;
				curchild->r.left = x;


				w -= size;
				if (curchild->sizing)
				{
					size = w;
					r--;
				}
				else
					size = curchild->r.right;

				rowPositioning(curchild, size);
				x += size;

				if (!curchild->sizing)
					size = 0;
			}

			curchild = curchild->next;
		}
	}

	// Позиционирование контейнеров в столбце
	if (cell->cont == TC_COL)
	{
		while (curchild)
		{
			// Контейнеры layer не должны влиять на позиционирование контейнеров tr
			if (curchild->layer)
			{
				curchild = curchild->next;
				continue;
			}

			size += curchild->r.bottom;
			curchild = curchild->next;
		}

		if (h > size)
		{
			switch (cell->valign)
			{
			case TC_VCENTER:
				y += (h - size) / 2;
				break;
			case TC_BOTTOM:
				y += (h - size);
				break;
			}
		}

		curchild = cell->child;
		while (curchild)
		{
			if (curchild->layer)
			{
				rowLayerProc(curchild, cell);
				rowPositioning(curchild, dummy);
			}
			else
			{
				curchild->r.top = y;
				y += curchild->r.bottom;

				curchild->r.left = cell->r.left;
				curchild->r.right = dist;

				rowPositioning(curchild, size);

			}

			curchild = curchild->next;
		}
	}

	rowPlacing(cell);

}

// void rowSizeWithReposition(ROWCELL* &root, int width)
//
// Производит просчет и позиционирование элементов котакта
// Перед вызовом необходимо заполнить структуру RowTA
//
void rowSizeWithReposition(ROWCELL* &root, int width)
{
	root->h = 0;
	root->w = 0;
	rowCalculateMinSize(root);
	rowEqualize(root);
	rowPositioning(root, width);
	root->h = root->r.bottom;
	root->w = root->r.right;
}

#undef _CPPCODE