-- Модуль для функционала Викиданных
local M = {};

local function tabletostr( t, fmt, s, o, c ) -- не для использования на страницах
    if type( t ) == "table" then
            local f = {};
            for k, v in pairs( t ) do
                table.insert( f, string.format( fmt or '%s = %s', k, tabletostr( v, fmt, s, o, c ) ) )
            end;
            table.sort( f );
            return ( o or '' ) .. table.concat( f, s or '' ) .. ( c or '' )
        else
        	return tostring( t )
        end
end

function M.wbview( ref, id ) -- вспом. функция для подписи из Викиданных
    local l = mw.wikibase.label( id );
    return l and ( l == ref and l or ref .. '|' .. l .. ( mw.ustring.lower( l ) == mw.ustring.lower( ref ) and '' or '<sup>*</sup>' ) ) or ref
end

function M.id( frame ) -- Элемент текущей страницы в Викиданных
    --Если вызван с параметром, достаёт id значения данного свойства, иначе возвращает id страницы
    --Второй параметр - разделитель, если значений несколько ("; " по умолчанию),
    -- либо можно указать номер параметром n. Третий параметр - формат для строкового свойства,
    -- по умолчанию "%s"
    local function try()
	    local e = mw.wikibase.getEntity();        
	    if frame.args[ 1 ] then
			local function gv( i )
				local z = e.claims[ frame.args[ 1 ] ][ i ].mainsnak.datavalue;
				if z.type == 'wikibase-entityid' then
					return z.value.id
				else
					return string.format( frame.args[ 3 ] or '%s', tabletostr( z.value, "%s", '; ', '{', '}' ) )
				end
			end
			if frame.args[ 'n' ] then
				return gv( tonumber( frame.args[ 'n' ] ) )
			end
			local p, h = e.claims[ frame.args[ 1 ] ], {}
	        for n, v in pairs( p ) do
				h[ n ] = gv( n )
			end
			return table.concat( h, frame.args[ 2 ] or "; " )
		else 
			return e.id
		end
	end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для текущей страницы</strong>';
    end
end

function M.struc( frame ) -- Отладочная функция, будет перенесена в отдельный модуль
    --Структуру см. [[mw:Extension:WikibaseClient/Lua#Entity table and data structure]]
    local function try()
    	local i, e = 1, mw.wikibase.getEntity();
	    while frame.args[i] do
	        e = e[ frame.args[ i ] ] or e[ tonumber( frame.args[ i ] ) ];
	        i = i + 1
	    end
		return tabletostr( e, frame.args[ 'f' ], frame.args[ 's' ] or '; ', '{', '}' )
	end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для текущей страницы</strong>';
    end
end

function M.label( frame ) -- Комментарий к элементу Викиданных в 1-м параметре
    local function try()
	    local id = frame.args[1];
	    if not id or id == '' then
	    	id = mw.wikibase.getEntityIdForCurrentPage(); -- error, если нет элемента
    	end
	    return mw.wikibase.label( id );
    end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для текущей страницы</strong>';
    end
end

function M.description( frame )
    local function try()
	    local entityId = frame.args[1];
	    if not entityId or entityId == '' then
	    	entityId = mw.wikibase.getEntityIdForCurrentPage(); -- error, если нет элемента
    	end
	    return mw.wikibase.description( entityId )
    end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для указанной страницы</strong>';
    end
end

function M.iwiki( frame ) -- Интервики для указанного языка (только с ВД)
    local function try()
	    if frame.args[ 1 ] then
	        return mw.wikibase.getEntity().sitelinks[ frame.args[ 1 ] .. 'wiki' ].title
	    else-- список интервик
	        local r = {};
	        for k, v in pairs( mw.wikibase.getEntity().sitelinks ) do
	            table.insert( r, string.format( frame.args[ 'f' ] or "* [[:%s:%s]]\n", v.language, v.title ) )
	        end
	        return table.concat( r )
	    end
	end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для текущей страницы</strong>';
    end
end

function M.iwikiall( frame ) -- Все ссылки, привязанные к элементу на ВД, в т.ч. викигид и склад
    local function try()
	    if frame.args[ 1 ] then
	        return mw.wikibase.getEntity().sitelinks[ frame.args[ 1 ] ].title
	    else-- список интервик
	        local r = {};
	        for k, v in pairs( mw.wikibase.getEntity().sitelinks ) do
	            table.insert( r, string.format( frame.args[ 'f' ] or "* [[:%s:%s]]\n", v.language, v.title ) )
	        end
	        return table.concat(r)
	    end
	end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '';
    end
end

function M.page( frame ) -- страница Рувики для данного элемента
    local function try()
		return mw.wikibase.sitelink( frame.args[ 1 ] )
	end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для текущей страницы</strong>';
    end
end

function M.wdprops( frame ) -- список всех свойств с ВД в человеко-читаемом виде
    local function try()
	    local e, r = mw.wikibase.getEntity(), {};
	    for p, a in pairs( e.claims ) do
	        local label = mw.wikibase.label( p ) or string.format( [[d:%s]], p );
	        local vals = {};
	        for n, v in pairs( a ) do
	            local w = v.mainsnak.datavalue;
	            vals[ n ] = (
	                w.type == 'wikibase-entityid'
	                and '[[' .. M.wbview(
	                    mw.wikibase.sitelink( w.value.id )
	                    or 'd:' .. w.value.id,
	                    w.value.id
	                ) .. ']]' or M.tabletostr( w.value )
	            )
	        end
	        table.insert( r, string.format(
	            frame.args[ 'f' ] or '\n|-\n|rowspan=%i|%s\n|%s',
	            #vals,
	            label,
	            table.concat( vals, frame.args[ 's' ] or '\n|-\n|' )
	        ) )
	    end--for
    	return table.concat( r )
    end
	local r, result = pcall( try );
    if r then
    	return result;
    else
    	return '<strong class="error">В Викиданных нет записей для текущей страницы</strong>';
    end
end

return M