Modul:Single

local p = {}

-- Diambil daripada Modul:Infobox. TODO: Buat modul utiliti yang boleh melakukan perkara seperti ini
local function getArgNums(args, prefix)
    -- Kembalikan jadual yang mengandungi bilangan argumen yang wujud
    -- untuk awalan tertentu. Contohnya, jika awalannya itu ialah 'data', dan
    -- 'data1', 'data2', dan 'data5' telah ada, ia akan mengembalikan {1, 2, 5}.
    local nums = {}
    for k, v in pairs(args) do
        local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
        if num then table.insert(nums, tonumber(num)) end
    end
    table.sort(nums)
    return nums
end

-- Dicabangkan daripada Modul:Unsubst-infobox

local specialParams = {
	['$B'] = 'template content'
}

p[''] = function ( frame )
	if not frame.args['$B'] then
		error( '{{#invoke:Single|}} memerlukan parameter $B (kandungan templat)' )
	end

	if mw.isSubsting() then
		---- substing
		-- Passed args
		local args = {}
		for k, v in pairs( frame:getParent().args ) do
			args[k] = v
		end

		-- Buat seruan templat yang setara
		-- Pertama, cari tajuk untuk digunakan
		local titleobj = mw.title.new(frame:getParent():getTitle())
		local title
		if titleobj.namespace == 10 then -- NS_TEMPLATE
			title = titleobj.text
		elseif titleobj.namespace == 0 then -- NS_MAIN
			title = ':' .. titleobj.text
		else
			title = titleobj.prefixedText
		end

		-- Keluarkan medan kosong
		for k, v in pairs( args ) do
			if v == '' then args[k] = nil end
		end

		-- Tarik alias
		local nums = getArgNums(args, '[Ss]ingle ?')
		for _, num in ipairs(nums) do
			args['single' .. num] = args['single' .. num] or args['single ' .. num] or args['Single ' .. num]
			args['single' .. num .. 'date'] = args['tarikh_single' .. num .. ''] or args['single' .. num .. 'date'] or args['single ' .. num .. ' date'] or args['Single ' .. num .. ' date'] or ''
			args['single ' .. num], args['single_' .. num], args['Single ' .. num], args['tarikh_single' .. num .. ''], args['single ' .. num .. ' date'], args['Single ' .. num .. ' date'] = nil, nil, nil, nil
		end
		for k, v in pairs( {Type = 'type' or 'jenis', Name = 'name' or 'nama'} ) do
			if args[k] and not args[v] then args[v], args[k] = args[k], nil end
		end

		-- Buat badan seruan
		local ret = '{{' .. title

		-- Buat senarai parameter
		local params = {'name', 'type', 'nama', 'jenis'}
		for _, num in ipairs( nums ) do table.insert( params, 'single' .. num ); table.insert( params, 'single' .. num .. 'date' ) end

		-- Jajarkan parameter dengan betul dan keluarkan yang tambahannya
		local maxlength = 0
		for k, v in ipairs( params ) do
			local tmp = mw.ustring.len( v )
			if tmp > maxlength then maxlength = tmp end
		end

		for k, v in ipairs( params ) do
			ret = ret .. '\n | ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (args[v] or '')
		end

		ret = ret .. '\n}}'

		ret = mw.ustring.gsub(ret, '%s+\n', '\n')

		return ret
	else
		-- Not substing
		-- Cuma kembalikan "badan"
		return frame.args['$B']
	end
end

function p.main(frame)
	local args = require('Modul:Arguments').getArgs(frame, {wrappers = 'Templat:Single'})
	local out = ''
	local nums = getArgNums(args, '[Ss]ingle ?')
	for _, num in ipairs(nums) do
		out = out .. '\n# <span class="item"><span class="fn">"' .. (args['single' .. num] or args['single ' .. num] or args['Single ' .. num]) .. '"</span>'
		local date = args['tarikh_single' .. num .. ''] or args['single' .. num .. 'date'] or args['single ' .. num .. ' date'] or args['Single ' .. num .. ' date']
		if date then
			out = out .. '<br />Dikeluarkan: ' .. date
		end
		out = out .. '</span>'
	end
	
	if out ~= '' then
		if mw.ustring.match(out, '</?t[drh][ >]') then out = out .. ' [[Kategori:Kotak info muzik dengan peletakan jadual yang cacat|R]]' end
		return '<div style="text-align:left">' .. out .. '\n</div>'
	end
	
	return out
end

return p