--[[--------------------------------------------------
Highlighting Identical Text
Version: 1.3.1
Author: mozers™, TymurGubayev
------------------------------
Авто подсветка текста, который совпадает с текущим словом или выделением
В файле настроек задается стиль подсветки
Внимание:
В скрипте используются функции из COMMON.lua (EditorMarkText, EditorClearMarks, GetCurrentWord)
------------------------------
Подключение:
Добавить в SciTEStartup.lua строку:
	dofile (props["SciteDefaultHome"].."\\tools\\highlighting_identical_text.lua")

Добавить в файл настроек параметр:
	highlighting.identical.text=0
и переключатель в меню Tools:
	command.checked.139.*=$(highlighting.identical.text)
	command.name.139.*=Highlighting Identical Text
	command.139.*=highlighting_identical_text_switch
	command.mode.139.*=subsystem:lua,savebefore:no

Задать стиль используемых маркеров
(4 - отметка идентичного текста, 5 - отметка текста при превышении max кол-ва вхождений):
	find.mark.4=#CC99FF,box
	find.mark.5=#FF0000,box

Дополнительно можно изменить значение по умолчанию (50) на max кол-во вхождений (0 - без ограничения).
	highlighting.identical.text.max=100
и задать перечень неподсвечиваемых слов для конкретного лексера (или для всех остальных - *)
	highlighting.identical.text.reserved.words.lua=and,break,do,else,elseif,end,false,for,function,if,in,local,nil,not,or,repeat,return,then,true,until,while

============================================================================
Если бы функция editor:findtext не вешала редактор при работе с UTF текстами,
то код можно было бы значитально оптимизировать (см. версию 1.0 этого скрипта).
============================================================================
--]]----------------------------------------------------

local count_max = 50   -- max кол-во результатов поиска (по умолчанию)
local store_pos        -- переменная для хранения передыдущей позиции курсора
local store_text       -- переменная для хранения передыдущего поискового текста
local mark_ident = 4   -- номер маркера для отметки идентичного текста/слова
local mark_max = 5     -- номер маркера для отметки при превышении max кол-ва вхождений
local chars_count      -- кол-во символов в текущем документе
local all_text         -- текст текущего документа
local word_pattern     -- паттерн для поиска слов
local reserved_words   -- неподсвечиваемые слова

local max = props['highlighting.identical.text.max']
if max ~= '' then count_max = tonumber(max) end

-- Переключатель подсветки (вкл/выкл) срабатывает из меню Tools
function highlighting_identical_text_switch()
	local prop_name = 'highlighting.identical.text'
	props[prop_name] = 1 - tonumber(props[prop_name])
	EditorClearMarks(mark_ident)
	store_pos, store_text = 0, ''
end

-- Проверка, является ли найденный текст словом
local function isWord(all_text, text_start, text_end)
	if  ( (text_start==1)       or (all_text:sub(text_start-1, text_start-1):match(word_pattern)) ) and
		( (text_end==#all_text) or (all_text:sub(text_end+1, text_end+1):match(word_pattern)) )    then
			return true
	end
	return false
end

-- Проверка, является ли текущее слово зарезервированным
local function isReservedWord(cur_text)
	if reserved_words == '' then return false end
	for w in string.gmatch(reserved_words, "%w+") do
		if cur_text:lower() == w:lower() then return true end
	end
	return false
end

-- Поиск идентичных слов/текста
local function IdenticalTextFinder()
	local current_pos = editor.CurrentPos
	if current_pos == store_pos then return end
	store_pos = current_pos

	local wholeword = false
	local cur_text = editor:GetSelText()
	if cur_text:find('^%s+$') then return end
	if cur_text == '' then
		cur_text = GetCurrentWord()
		wholeword = true
		if isReservedWord(cur_text) then return end
	end
	if cur_text == store_text then return end
	store_text = cur_text

	EditorClearMarks(mark_ident)
	EditorClearMarks(mark_max)
	if wholeword then word_pattern = '[^' .. editor.WordChars .. ']' end
	----------------------------------------------------------
	local match_table = {}
	local find_start = 1
	repeat
		local ident_text_start, ident_text_end = all_text:find(cur_text, find_start, true)
		if ident_text_start == nil then break end
		if ident_text_end == 0 then break end
		if ( not wholeword ) or
			( isWord(all_text, ident_text_start, ident_text_end) ) then
				-- загоняем все результаты поиска в таблицу match_table
				match_table[#match_table+1] = {ident_text_start-1, ident_text_end}
		end
		if count_max ~= 0 then
			if #match_table > count_max then -- если результатов больше, чем указанное число...
				local err_start, err_end
				if wholeword then
					-- то маркируем только текущее слово
					err_start = editor:WordStartPosition(current_pos, true)
					err_end = editor:WordEndPosition(current_pos, true)
					EditorMarkText(err_start, err_end-err_start, mark_max)
					return
				else
					-- то маркируем только текущее выделение
					err_start = editor.SelectionStart
					err_end = editor.SelectionEnd
					EditorMarkText(err_start, err_end-err_start, mark_max)
					return
				end
			end
		end
		find_start = ident_text_end + 1
	until false
	----------------------------------------------------------
	if #match_table > 1 then
		for i = 1, #match_table do
			-- Отмечаем все слова, беря данные из таблицы match_table
			EditorMarkText(match_table[i][1], match_table[i][2]-match_table[i][1], mark_ident)
		end
	end

end

-- Add user event handler OnUpdateUI
local old_OnUpdateUI = OnUpdateUI
function OnUpdateUI ()
	local result
	if old_OnUpdateUI then result = old_OnUpdateUI() end
	if props['FileName'] ~= '' then
		if tonumber(props["highlighting.identical.text"]) == 1 then
			if editor.Length ~= chars_count then
				all_text = editor:GetText()
				chars_count = editor.Length
				reserved_words = props['highlighting.identical.text.reserved.words.' .. editor.LexerLanguage]
				if reserved_words == '' then reserved_words = props['highlighting.identical.text.reserved.words.*'] end
			end
			IdenticalTextFinder()
		end
	end
	return result
end