_G.buffer = require("doubleBuffering")
_G.unicode = require("unicode")

local syntax = {}

----------------------------------------------------------------------------------------------------------------------------------------

--Стандартные цветовые схемы
syntax.colorSchemes = {
	midnight = {
		background = 0x262626,
		text = 0xffffff,
		strings = 0xff2024,
		loops = 0xffff98,
		comments = 0xa2ffb7,
		boolean = 0xffcc66,
		logic = 0xffcc66,
		numbers = 0x24c0ff,
		functions = 0xffcc66,
		compares = 0xffff98,
		lineNumbers = 0x444444,
		lineNumbersText = 0xDDDDDD,
		scrollBar = 0x444444,
		scrollBarPipe = 0x24c0ff,
		selection = 0x99B2F2,
	},
	sunrise = {
		background = 0xffffff,
		text = 0x262626,
		strings = 0x880000,
		loops = 0x24c0ff,
		comments = 0xa2ffb7,
		boolean = 0x19c0cc,
		logic = 0x880000,
		numbers = 0x24c0ff,
		functions = 0x24c0ff,
		compares = 0x880000,
		lineNumbers = 0x444444,
		lineNumbersText = 0xDDDDDD,
		scrollBar = 0x444444,
		scrollBarPipe = 0x24c0ff,
		selection = 0x99B2F2,
	},
}

--Текущая цветовая схема
local currentColorScheme = {}
--Шаблоны поиска
local patterns

----------------------------------------------------------------------------------------------------------------------------------------

--Пересчитать цвета шаблонов
--Приоритет поиска шаблонов снижается сверху вниз
local function definePatterns()
	patterns = {
		--Комментарии
		{ pattern = "%-%-.*", color = currentColorScheme.comments, cutFromLeft = 0, cutFromRight = 0 },
		
		--Строки
		{ pattern = "\"[^\"\"]*\"", color = currentColorScheme.strings, cutFromLeft = 0, cutFromRight = 0 },
		
		--Циклы, условия, объявления
		{ pattern = "while ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "do$", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "do ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "end$", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "end ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "for ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = " in ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "repeat ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "if ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "then", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "until ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "return", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "local ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "function ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "else$", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "else ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = "elseif ", color = currentColorScheme.loops, cutFromLeft = 0, cutFromRight = 1 },

		--Состояния переменной
		{ pattern = "true", color = currentColorScheme.boolean, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "false", color = currentColorScheme.boolean, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "nil", color = currentColorScheme.boolean, cutFromLeft = 0, cutFromRight = 0 },
				
		--Функции
		{ pattern = "%s([%a%d%_%-%.]*)%(", color = currentColorScheme.functions, cutFromLeft = 0, cutFromRight = 1 },
		
		--And, or, not, break
		{ pattern = " and ", color = currentColorScheme.logic, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = " or ", color = currentColorScheme.logic, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = " not ", color = currentColorScheme.logic, cutFromLeft = 0, cutFromRight = 1 },
		{ pattern = " break$", color = currentColorScheme.logic, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "^break", color = currentColorScheme.logic, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = " break ", color = currentColorScheme.logic, cutFromLeft = 0, cutFromRight = 0 },

		--Сравнения и мат. операции
		{ pattern = "<=", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = ">=", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "<", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = ">", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "==", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "~=", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "=", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "%+", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "%-", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "%*", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "%/", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "%.%.", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "%#", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "#^", color = currentColorScheme.compares, cutFromLeft = 0, cutFromRight = 0 },

		--Числа
		{ pattern = "%s(0x)(%w*)", color = currentColorScheme.numbers, cutFromLeft = 0, cutFromRight = 0 },
		{ pattern = "(%s)([%d%.]*)", color = currentColorScheme.numbers, cutFromLeft = 0, cutFromRight = 0 },	
	}
end

--Костыльная замена обычному string.find()
--Работает медленнее, но хотя бы поддерживает юникод
function unicode.find(str, pattern, init, plain)
	-- checkArg(1, str, "string")
	-- checkArg(2, pattern, "string")
	-- checkArg(3, init, "number", "nil")

	if init then
		if init < 0 then
			init = -#unicode.sub(str,init)
		elseif init > 0 then
			init = #unicode.sub(str, 1, init - 1) + 1
		end
	end
	
	a, b = string.find(str, pattern, init, plain)
	
	if a then
		local ap, bp = str:sub(1, a - 1), str:sub(a,b)
		a = unicode.len(ap) + 1
		b = a + unicode.len(bp) - 1
		return a, b
	else
		return a
	end
end

--Объявить новую цветовую схему
function syntax.setColorScheme(colorScheme)
	--Выбранная цветовая схема
	currentColorScheme = colorScheme
	--Пересчитываем шаблоны
	definePatterns()
end

----------------------------------------------------------------------------------------------------------------------------------------

--Проанализировать строку и создать на ее основе цветовую карту
function syntax.highlight(x, y, text, fromSymbol, limit)
	--Кароч вооот, хыыы
	local searchFrom, starting, ending
	--Загоняем в буфер всю строку базового цвета
	buffer.text(x - fromSymbol + 1, y, currentColorScheme.text, text)
	--Перебираем шаблоны
	for i = #patterns, 1, -1 do
		searchFrom = 1
		--Перебираем весь текст, а то мало ли шаблон дохуя раз встречается
		while true do
			starting, ending = unicode.find(text, patterns[i].pattern, searchFrom)
			if starting and ending then
				buffer.text(x + starting - fromSymbol, y, patterns[i].color, unicode.sub(text, starting, ending - patterns[i].cutFromRight))		
				if ending > limit then break end
				searchFrom = ending + 1
			else
				break
			end
		end
	end
end

function syntax.convertFileToStrings(path)
	local array = {}
	local maximumStringWidth = 0
	local file = io.open(path, "r")
	for line in file:lines() do
		line = string.gsub(line, "	", string.rep(" ", 4))
		maximumStringWidth = math.max(maximumStringWidth, unicode.len(line))
		table.insert(array, line)
	end
	file:close()
	return array, maximumStringWidth
end

-- Открыть окно-просмотрщик кода
function syntax.viewCode(x, y, width, height, strings, maximumStringWidth, fromSymbol, fromString, highlightLuaSyntax, selection, highlightedStrings)
	--Рассчитываем максимальное количество строк, которое мы будем отображать
	local maximumNumberOfAvailableStrings, yPos
	if strings[fromString + height - 1] then
		maximumNumberOfAvailableStrings = fromString + height - 2
	else
		maximumNumberOfAvailableStrings = #strings - 1
	end
	--Рассчитываем ширину полоски с номерами строк
	local widthOfStringCounter = unicode.len(maximumNumberOfAvailableStrings) + 2
	--Рассчитываем стратовую позицию текстового поля
	local textFieldPosition = x + widthOfStringCounter
	local widthOfText = width - widthOfStringCounter - 3
	local xEnd, yEnd = x + width - 1, y + height - 1

	--Рисуем подложку под текст
	buffer.square(x, y, width, height, currentColorScheme.background, 0xFFFFFF, " ")
	--Рисуем подложку под номера строк
	buffer.square(x, y, widthOfStringCounter, height, currentColorScheme.lineNumbers, 0xFFFFFF, " ")
	--Рисуем вертикальный скроллбар
	buffer.scrollBar(xEnd, y, 1, height, #strings, fromString, currentColorScheme.scrollBar, currentColorScheme.scrollBarPipe)
	--Рисуем горизонтальный скроллбар
	buffer.horizontalScrollBar(x + widthOfStringCounter, yEnd, width - widthOfStringCounter - 1, maximumStringWidth, fromSymbol, currentColorScheme.scrollBar, currentColorScheme.scrollBarPipe)
	
	--Подсвечиваем некоторые строки, если указано
	if highlightedStrings then
		for i = 1, #highlightedStrings do
			if highlightedStrings[i].number >= fromString and highlightedStrings[i].number < fromString + height then
				buffer.square(x, y + highlightedStrings[i].number - fromString, width - 1, 1, highlightedStrings[i].color, 0xFFFFFF, " ")
				buffer.square(x, y + highlightedStrings[i].number - fromString, widthOfStringCounter, 1, currentColorScheme.lineNumbers, 0xFFFFFF, " ", 60)
			end
		end
	end

	--Рисуем номера строк
	yPos = y
	for i = fromString, maximumNumberOfAvailableStrings do
		buffer.text(x + widthOfStringCounter - unicode.len(i) - 1, yPos, currentColorScheme.text, tostring(i))
		yPos = yPos + 1
	end

	--Рисуем выделение, если оно имеется
	if selection then
		--Считаем высоту выделения
		local heightOfSelection = selection.to.y - selection.from.y + 1
		--Если высота выделения > 1
		if heightOfSelection > 1 then
			--Верхнее выделение
			if selection.from.x < fromSymbol + widthOfText and selection.from.y >= fromString and selection.from.y < fromString + height then
				local cyka = textFieldPosition + selection.from.x - fromSymbol
				if cyka < textFieldPosition then
					cyka = textFieldPosition
				end
				buffer.square(cyka, y + selection.from.y - fromString, widthOfText - cyka + widthOfStringCounter + 2 + x, 1, currentColorScheme.selection, 0xFFFFFF, " ")
			end
			--Средние выделения
			if heightOfSelection > 2 then
				for i = 1, heightOfSelection - 2 do
					if selection.from.y + i >= fromString and selection.from.y + i < fromString + height then
						buffer.square(textFieldPosition, y + selection.from.y + i - fromString, widthOfText + 2, 1, currentColorScheme.selection, 0xFFFFFF, " ")
					end
				end
			end
			--Нижнее выделение
			if selection.to.x >= fromSymbol and selection.to.y >= fromString and selection.to.y < fromString + height then
				buffer.square(textFieldPosition, y + selection.to.y - fromString, selection.to.x - fromSymbol + 1, 1, currentColorScheme.selection, 0xFFFFFF, " ")
			end
		elseif heightOfSelection == 1 then
			local cyka = selection.to.x
			if cyka > fromSymbol + widthOfText - 1 then cyka = fromSymbol + widthOfText - 1 end
			buffer.square(textFieldPosition + selection.from.x, selection.from.y, cyka - selection.from.x, 1, currentColorScheme.selection, 0xFFFFFF, " ")
		end
	end

	--Выставляем ограничение прорисовки буфера
	textFieldPosition = textFieldPosition + 1
	buffer.setDrawLimit(textFieldPosition, y, widthOfText, height)

	--Рисуем текст
	yPos = y
	for i = fromString, maximumNumberOfAvailableStrings do
		--Учитываем опциональную подсветку ситнаксиса
		if highlightLuaSyntax then
			syntax.highlight(textFieldPosition, yPos, strings[i], fromSymbol, widthOfText)
		else
			buffer.text(textFieldPosition, yPos, currentColorScheme.text, unicode.sub(strings[i], fromSymbol, widthOfText))
		end

		yPos = yPos + 1
	end

	--Убираем ограничение отрисовки
	buffer.resetDrawLimit()

	return textFieldPosition
end

----------------------------------------------------------------------------------------------------------------

-- Стартовое объявление цветовой схемы при загрузке библиотеки
syntax.setColorScheme(syntax.colorSchemes.midnight)

-- -- Епты бля!
-- local strings, maximumStringWidth = syntax.convertFileToStrings("MineOS/Applications/Highlight.app/Resources/TestFile.txt")
-- local strings = syntax.convertFileToStrings("OS.lua")

-- local xSize, ySize = gpu.getResolution()
-- buffer.square(1, 1, xSize, ySize, ecs.colors.red, 0xFFFFFF, " ")
-- buffer.draw(true)

-- local selection = {
-- 	from = {x = 8, y = 6}, 
-- 	to = {x = 16, y = 12}
-- }

-- local highlightedStrings = {
-- 	{number = 31, color = 0xFF4444},
-- 	{number = 32, color = 0xFF4444},
-- }

-- syntax.viewCode(20, 5, 100, 40, strings, maximumStringWidth, 1, 20, true, selection, highlightedStrings)

----------------------------------------------------------------------------------------------------------------

return syntax