Module:Sandbox/不是液氮/CLSsort

模块文档  

local p = {}
local getArgs = require('Module:Arguments').getArgs

local this -- 当前frame。

function p.main(frame)
	this = frame
	local args = getArgs(frame)
	return p._main(args)
end

local function parseList(args)
	local lists, html = {}, {}
	for i, v in pairs(args) do
		if(i ~= "t") then lists[i] = mw.text.decode(mw.text.unstripNoWiki(v)) end
	end
	for i = 1, #lists do
		html[i] = this:preprocess(lists[i])
	end
	return lists, html
end

function p.build(frame)
	this = frame
	local args = getArgs(frame)
	local lists, html = parseList(args)
	local template = [[{{切换显示按钮|@default=b1|@radio=true|b1=按投稿时间排序|b2=按达成时间排序|b3=按所用时间排序|@#1=b1|@#2=b2|@#3=b3}}
	{{切换显示按钮样式|@cancel=display:none}}
	{{切换显示|b1|START_REPLACE_b1_END_REPLACE|div}}
	{{切换显示|b2|START_REPLACE_b2_END_REPLACE|div}}
	{{切换显示|b3|START_REPLACE_b3_END_REPLACE|div}}]]
	template = this:preprocess(template)
	local tabs, ret = {}, {}
	for i = 1, 3 do
		lists = p.Ssort(i, lists)
		tabs[i] = p.Stab(i, lists, html)
	end
	ret = mw.ustring.gsub(template, 'START_REPLACE_b(%d+)_END_REPLACE', tabs)
	return ret
end

function p._main(args)
	local lists, html = parseList(args)
	lists = p.Ssort(tonumber(args.t), lists)
	return p.Stab(tonumber(args.t), lists, html)
end

local function parseDate(...)
	local year, month, day, hour, min = ...
	return {
		year = tonumber(year),
		month = tonumber(month),
		day = tonumber(day),
		hour = tonumber(hour),
		min = tonumber(min)
	}
end

local function parseTime(...)
	local day, hour, min = ...
	day, hour, min = tonumber(day), tonumber(hour), tonumber(min)
	return day * 1440 + hour * 24 + min
end

function p.Ssort(t, lists)
	local pat = {
		"投稿时间%s*=%s*(%d+)-(%d+)-(%d+) (%d+):(%d+)",
		"达成时间%s*=%s*(%d+)-(%d+)-(%d+) (%d+):(%d+)",
		"(%d+)日(%d+)时(%d+)分"
	}
	table.sort(lists, function(a, b)
		if(t ~= 3) then
			a, b = parseDate(mw.ustring.match(a, pat[t])), parseDate(mw.ustring.match(b, pat[t]))
			return os.difftime(os.time(a), os.time(b)) < 0
		else
			a, b = parseTime(mw.ustring.match(a, pat[t])), parseTime(mw.ustring.match(b, pat[t]))
			return a < b
		end
	end)
	return lists
end

function p.Stab(t, lists, html)
	local Sstr = [[{{tabs/core
	|LabelPadding=0.5em 0.75em
	|LabelBorderColor=#aaa
	|LabelColor=#aaa
	|TextPadding=1em
	|TextBorderColor=#aaa
	]]
	local pat = {
		"投稿时间%s*=%s*(%d+)",
		"达成时间%s*=%s*(%d+)",
		"所用时间%s*=%s*(%d+)"
	}
	if(t ~= 3) then
		local j, Ynow, Etext = 1, "2000", {"年投稿", "年达成"}
		for i = 1, #lists do
			local Ythis = mw.ustring.match(lists[i], pat[t])
			if(Ythis ~= Ynow) then
				Sstr = Sstr.."|label"..j.."= {{color|#007FFF|'''<u>"..Ythis..Etext[t].."</u>'''}}|text"..j.."="
				j, Ynow = j + 1, Ythis
			end
			Sstr = Sstr..'<span data-replacement="'..i..'"></span>'
		end
	else
		local j = 1
		local Etext = {
			{0, 10, 40, 100, 200, 400, 600, 800, 1000, 1500, 10000},
			{"0~9日", "10~39日", "40~99日", "100~199日", "200~399日", "400~599日", "600~799日", "800~999日", "1000~1499日", "1500日以上"}
		}
		for i = 1, #lists do
			local d = tonumber(mw.ustring.match(lists[i], pat[3]))
			if(d >= Etext[1][j]) then
				Sstr = Sstr.."|label"..j.."= {{color|#007FFF|'''<u>"..Etext[2][j].."</u>'''}}|text"..j.."="
				j = j + 1
			end
			Sstr = Sstr..'<span data-replacement="'..i..'"></span>'
		end
	end
	Sstr = this:preprocess(Sstr.."}}")
	Sstr = mw.ustring.gsub(Sstr, '<span data%-replacement="(%d+)"></span>', html)
	return Sstr
end

return p