local p = {}

-- **********************************************************
-- Вызов через шаблон {{НумерацияТаблицы}}
-- Заменяет число в первой ячейке на номер строки
function p.AutoNumBox2(frame)
 
    local g = frame:getParent().args
    local NumStr = tonumber (frame:getParent().args or "1");
    if g == nil then return "Нет данных" end
    g = g:gsub(".*{|(.*)|}.*", "%1")
    local Titul = g:sub(1, (g:find ("\n!") or 1) - 1)
    g = g:sub((g:find ("\n!") or 1))
    g = g:gsub("||", "\n|")
    local Pos0 = 0
    while g:find("|%-*(|*\n)", Pos0 + 1) ~= nil do
        Pos1, Pos2 = g:find("|%-*(|*\n)", Pos0 + 1)
        while g:find("|", Pos1 + 1) ~= nil and g:find("|", Pos1 + 1) < Pos2 do
            Pos1 = g:find("|", Pos1 + 1)
        end
        if g:find("%d", Pos1) ~= nil and g:find("%d", Pos1) < Pos2 then
            Pos3, Pos4 = g:find("%d+", Pos1)
            g = g:sub(1, Pos3 - 1)..NumStr..g:sub(Pos4 + 1)
            NumStr = NumStr + 1
        end
        Pos0 = Pos2
    end
    return "{|"..Titul..g.."|}"
end

-- **********************************************************
-- Вызов напрямую
-- Заменяет символ # в первой ячейке на номер строки
function p.AutoNumBox ( frame )
    local NumStr = tonumber (frame.args or "1");
    local g = frame.args
    g = g:gsub("^%s- -{{", "", 1)
    g = g:gsub("}}%s- -$", "", 1)
    pattern = "|%s*#%s*%s*|"
    while string.find (g, pattern) ~= nil do
        g = g:gsub(pattern, "|"..NumStr.."\n".."|", 1)
        NumStr = NumStr + 1
    end
    return g
end

-- **********************************************************
function p.AutoNum ( frame )
    local args = frame.args;
    local Style = (frame.args or "standard");
    local Column = tonumber (frame.args or "0");
    local NumStr = tonumber (frame.args or "1");
    local Title0 = (frame.args or "№")
    local Titles = {}
    for i = 1, Column do
        Titles =(frame.args or "Заголовок"..i)
    end
    local Width0 = (frame.args);
    local Widths = {}
    for i = 1, Column do
        Widths =(frame.args)
    end
    local Align0 = (frame.args or "center")
    local Aligns = {}
    for i = 1, Column do
        Aligns =(frame.args or "left")
    end

    local g="<table class = '"..Style.."'>"
    
-- Строка заголовков
    g = g.."<tr>"

---- Заголовок столба с номерами строк
    g = g.."<th scope='col'"; if Width0 ~= nil then g = g.." width='"..Width0.."'" end; g = g..">"
    g = g..Title0.."</th>"

---- Остальные заголовки
    for i = 1, Column do
        g = g.."<th scope='col'"; if Widths ~= nil then g = g.." width='"..Widths.."'" end; g = g..">"
        g = g..Titles.."</th>"
    end
    g = g.."</tr>"
    
-- Строки данных
    J = 1
    while args ~= nil do
        g = g.."<tr><td style='text-align:"..Align0.."'>"..NumStr.."</td>"
        for i = 1, Column do
             if args == nil then
                g = g.."<td></td>"
            else
                g = g.."<td style='text-align:"..Aligns.."'>"..args.."</td>"
             end
        end
        g = g.."</tr>"
        NumStr = NumStr + 1
        J = J + 1
    end

    g = g.."</table>"
    return g
end

-- **********************************************************
function p.AutoNumSort(frame)

    local args = frame:getParent().args
    local Column = tonumber(args or "0")
        if Column == 0 then return "Невозможно определить количество столбцов" end
    local TempSort = (args or "0")
    local SortColumn = tonumber(string.match(TempSort, "%d*")) or 0
        if SortColumn > Column then SortColumn = 0 end
    local SortAsNumber = string.match(TempSort, "#") ~= nil
    local SortDescend
        if SortAsNumber
        then SortDescend = string.find(TempSort, "<") == nil
        else SortDescend = string.find(TempSort, ">") ~= nil end

    local Strings={}
    local NumCell = 0

    while args ~= nil or NumCell%Column ~= 0 do
        NumCell = NumCell + 1
    	if (args == nil) then args="" end
    	-- NumCell%Column==0 значит строка сформирована
    	if NumCell%Column == 0 then
    		local TempString = {NumCell-Column+1}
            if SortAsNumber then
                KeyCell=args+SortColumn-1]
				KeyCell=mw.ustring.gsub(KeyCell, "<span+>","")
				KeyCell=mw.ustring.gsub(KeyCell, ",",".")
				KeyCell=mw.ustring.gsub(KeyCell, " ","")
				KeyCell=mw.ustring.gsub(KeyCell, "&nbsp;","")
				KeyCell=mw.ustring.gsub(KeyCell, "%s","")
				KeyCell=mw.ustring.match(KeyCell, "^%D*(%d+%.?%d*)") or ""
	            TempString.Key=tonumber(KeyCell)
            elseif SortColumn > 1 then
                TempString.Key = (args+SortColumn-1] or "")
                -- Возможность сортировки по скрытому ключу, например через шаблон {{~}}
                TempString.Key = mw.ustring.gsub(TempString.Key, '<span+>', "")
                -- Сортировка ё как е
                TempString.Key = mw.ustring.gsub(TempString.Key, "ё", "е")
                TempString.Key = mw.ustring.gsub(TempString.Key, "Ё", "Е")
                -- trim
                TempString.Key = mw.ustring.gsub(TempString.Key, "^%s*(.-)%s*$", "%1")
            else TempString.Key = tonumber(TempString) end
            TempString.Group = mw.ustring.gsub(args], "", "")
            table.insert(Strings, TempString)
        end
    end

    local function SortString(a, b)
        if a.Group ~= b.Group then return a.Group < b.Group end
        if SortDescend then a, b = b, a end
        if SortAsNumber or (SortColumn < 2) then
            return a.Key < b.Key
        else
            local LenA = mw.ustring.len(a.Key)
            local LenB = mw.ustring.len(b.Key)
            for i = 1, (LenA < LenB) and LenA or LenB do
                if mw.ustring.codepoint(a.Key, i, i) ~= mw.ustring.codepoint(b.Key, i, i) then
                    return mw.ustring.codepoint(a.Key, i, i) < mw.ustring.codepoint(b.Key, i, i)
                end
            end
            return LenA < LenB
        end
    end

-- Сортировка строк по группам и ключу
    table.sort(Strings, SortString)

--  Формироание HTML-таблицы
    local HTML = mw.html.create('table')

    HTML:attr('class', (args or "standard"))
    
    if args~=('' or nil) then
    	HTML:attr('style', args)
    end

--  Название таблицы
    if args then
		TempCaption=HTML:tag('th')
			:wikitext(args)
			:attr('colspan', Column)
			:attr('scope', 'colgroup')
    end

--  Строка заголовков
    local TempRow
    TempRow = HTML:tag('tr')
    TempHeader=TempRow:tag('th'):attr('scope', 'col')
    if args then  TempHeader:css('width', (args)) end
    TempHeader:wikitext(args or "№")
    
    for i = 2, Column do
        TempColumn=TempRow:tag('th'):attr('scope', 'col')
        if args then TempColumn:css('width', (args)) end
        TempColumn:wikitext(args or "Заголовок"..i)
		if args=="без сортировки" then
			TempColumn:addClass('unsortable')
		elseif args=="число" then
			TempColumn:attr('data-sort-type', 'number')
		elseif args=="дата" then
			TempColumn:attr('data-sort-type', 'date')
		end
	end

--  Строки данных
    local HideNum = 0
	local NumStr = tonumber (args or "1") - 1
    local Backlight = (args or "class='bright'"):gsub("\"", "'")
	for Index, TempString in pairs(Strings) do
        TempRow = HTML:tag('tr')
        local first = args]

--      Стиль оформления строк
        if string.find(first, "%$") ~= nil then TempRow:attr('class', 'shadow')
        elseif string.find(first, "%%") ~= nil then TempRow:attr('class', 'bright')
        elseif string.find(first, "@") ~= nil then TempRow:attr('class', 'dark')
        elseif string.find(first, "%+") ~= nil then
            for Part in string.gmatch(Backlight, "*=%s*'*'") do
                TempRow:attr(string.match(Part, "(*)="), string.match(Part, "'(*)'"))
            end
        end
        if string.find(first, "!") ~= nil then TempRow:attr('style', 'font-weight:bold') end

--      Вывод номера строки
        if string.find(first, "-") ~= nil then
            HideNum = HideNum + 0.000001
            TempRow:tag('td')
                :tag('span')
                :attr('style', 'display: none; speak: none;')
                :wikitext( tonumber(NumStr + HideNum))
        else
            NumStr = NumStr + 1
            TempRow:tag('td')
                :css('text-align', (args or "center") )
                :wikitext(tonumber(NumStr))
        end
--      Вывод ячеек строки
		for i = 2, Column do
            TempTd=TempRow:tag('td')
            KeyCell=""
			if args=="число" then
				KeyCell=mw.ustring.gsub(args+i-1], ",",".")
				KeyCell=mw.ustring.gsub(KeyCell, "&nbsp;","")
				KeyCell=mw.ustring.gsub(KeyCell, "<span+>","")
				KeyCell=mw.ustring.gsub(KeyCell, "%s","")
				KeyCell=mw.ustring.match(KeyCell, "^%D*(%d+%.?%d*)") or ""
	            TempTd:attr('data-sort-value', KeyCell)
			end
            TempTd:wikitext( mw.text.trim( args + i - 1] ) )
            if args and args ~= "left" then
	            TempTd:css('text-align', args)
            end
		end
	end
    return tostring(HTML)
end

-- **********************************************************
function p.DataOutput(frame)
	
	local args = frame:getParent().args
	local Tab = args.tab
	local NumColumns = tonumber (args or "9");
	local Titul = args or "";
	local Reverse = args ~= nil
    local Style = args or "standard";

	local function FormatF(Number)
		local lang = mw.language.getContentLanguage()
		return lang:formatNum(tonumber(Number))
	end
 
	local function FormatT(NewRecord, OldRecord)    
		if OldRecord == nil then
			return ""
		elseif NewRecord > OldRecord then 
			if Reverse then
            	return "<span style='color: red; font-weight:bold; font-size: larger;'>↗</span>"  
            else
            	return "<span style='color: #0c0; font-weight:bold; font-size: larger;'>↗</span>"
			end
		elseif NewRecord < OldRecord then
			if Reverse then
            	return "<span style='color: #0c0; font-weight:bold; font-size: larger;'>↘</span>" 
            else
	            return "<span style='color: red; font-weight:bold; font-size: larger;'>↘</span>"  
			end
        else
            return "<span style='color:#0AF; font-weight:bold;'>→</span>"  
        end
	end

    local k, v
    local NumData = 0
    for k, v in pairs( args ) do
    	if type(k) ~= 'string' then
	        NumData = NumData + 1
		end
    end -- for k, v
    NumData = NumData / 2
    if NumData < NumColumns then
    	NumColumns = NumData 
    end
    
--  Формирование HTML-таблицы
    local HTML = mw.html.create('table')
    HTML:attr('class', Style) 

    local TempRow
    local NumRecord
    local OldRecord 
    local NewRecord
    if Titul then
    	TempRow = HTML:tag('th'):attr('scope', 'colgroup'):attr('colspan', NumColumns):wikitext(Titul)
    end
    for i = 1, math.ceil(NumData / NumColumns) do
        TempRow = HTML:tag('tr'):addClass("bright")
        for j = 1, NumColumns do
			NumRecord = ((i - 1) * NumColumns + j) * 2 - 1 
            if args == nil then
                TempRow:tag('th'):attr('scope', 'col'):wikitext("")
            else
                TempRow:tag('th'):attr('scope', 'col'):wikitext(args)
            end
        end

        TempRow = HTML:tag('tr'):css('text-align', 'center')
        for j = 1, NumColumns do
			NumRecord = ((i - 1) * NumColumns + j ) * 2 
            if type(tonumber(args)) ~= "number" then
                TempRow:tag('td'):wikitext(args)
                OldRecord = nil
            else
            	NewRecord = tonumber(args)
                TempRow:tag('td'):wikitext(FormatT(NewRecord, OldRecord) .. FormatF(NewRecord))
                OldRecord = NewRecord
            end
        end
    end            

	return tostring(HTML)
end	

-- **********************************************************
function p.DataOutput2(frame)
	
	local args = frame:getParent().args
	local NumColumns
	if type(tonumber(args)) == "number" then
		NumColumns = tonumber(args)
	else
		NumColumns = 9
	end
	local Titul = args or '';
	local Format = args or 'Таблица';
	local Reverse = args ~= nil
    local Style = args or 'standard';

	local function FormatF(Number)
		local lang = mw.language.getContentLanguage()
		return lang:formatNum(tonumber(Number))
	end
 
	local function FormatT(NewRecord, OldRecord)    
		if OldRecord == nil then
			return ""
		elseif NewRecord > OldRecord then 
			if Reverse then
            	return "<span style='color: red; font-weight:bold; font-size: larger;'>↗</span>"  
            else
            	return "<span style='color: #0c0; font-weight:bold; font-size: larger;'>↗</span>"
			end
		elseif NewRecord < OldRecord then
			if Reverse then
            	return "<span style='color: #0c0; font-weight:bold; font-size: larger;'>↘</span>" 
            else
	            return "<span style='color: red; font-weight:bold; font-size: larger;'>↘</span>"  
			end
        else
            return "<span style='color:#0AF; font-weight:bold;'>→</span>"  
        end
	end

    local NumData = 0
	while args ~= nil do
		NumData = NumData + 1
	end

    if NumData < NumColumns then
    	NumColumns = NumData 
    end

	if Format == 'г' or Format == 'Год' then
		return args
	elseif Format == 'ч' or Format == 'Безформат' or Format == 'Число' then
		return args
	elseif Format == 'с' or Format == 'Ссылка' then
		return args
	elseif Format == 'ф' or Format == 'Формат' then
		return FormatF(args)
	elseif Format == 'фс' or Format == 'ФорматСсылка' then
		return FormatF(args) .. args
	elseif Format == 'фсг' or Format == 'ФорматСсылкаГод' then
		return FormatF(args) .. args .. ' (' ..  args .. ')'
	elseif Format == 'т' or Format == 'Тренд' then
		return FormatT(args, args) .. FormatF(args)
	elseif Format == 'тс' or Format == 'Значение' or Format == 'ТрендСсылка' then
		return FormatT(args, args) .. FormatF(args) .. args
	elseif Format == 'тсг' or Format == 'ТрендСсылкаГод' then
		return FormatT(args, args) .. FormatF(args) .. args .. ' (' ..  args .. ')'
	else
--  Формирование HTML-таблицы
	    local HTML = mw.html.create('table')
	    HTML:attr('class', Style) 
	
	    local TempRow
	    local NumRecord
	    local OldRecord 
	    local NewRecord
	    if Titul then
	    	TempRow = HTML:tag('th'):attr('scope', 'colgroup'):attr('colspan', NumColumns):wikitext(Titul)
	    end
	    for i = 1, math.ceil(NumData / NumColumns) do
	        TempRow = HTML:tag('tr'):addClass("bright")
	        for j = 1, NumColumns do
				NumRecord = ((i - 1) * NumColumns + j) * 3 - 2 
	            if args == nil then
	                TempRow:tag('th'):attr('scope', 'col'):wikitext("")
	            else
	                TempRow:tag('th'):attr('scope', 'col'):wikitext(args..(args or ""))
	            end
	        end
	
	        TempRow = HTML:tag('tr'):css('text-align', 'center')
	        for j = 1, NumColumns do
				NumRecord = ((i - 1) * NumColumns + j ) * 3 - 1
	            if type(tonumber(args)) ~= "number" then
	                TempRow:tag('td'):wikitext(args)
	                OldRecord = nil
	            else
	            	NewRecord = tonumber(args)
	                TempRow:tag('td'):wikitext(FormatT(NewRecord, OldRecord) .. FormatF(NewRecord))
	                OldRecord = NewRecord
	            end
	        end
	    end            
	    return tostring(HTML)
	end
end	

return p