模組:Hms

模組解[睇] [改] [史] [清]

概要

{{#invoke:Hms | main | duration=時間長度}}

{{#invoke:Hms | main | 時 | 分 | 秒 }}

{{#invoke:Hms | main | 分 | 秒 }}

用途

呢個模組係俾 Infobox album 明細模（用 duration= 嘅方式）直接叫用，輸出係原輸入嘅微格式第一版（Microformats version 1）duration 機讀資料，包含 h、min 同 s 欄位。如果無法解析輸入參數，貼明細模原文版面會加入維護分類：

• Category:Duration with input error
• Category:Duration without hAudio microformat

本地化

模組嘅本地化會處理粵文（中文）時間長度（x時y分z秒，時、分、秒都可以省略）。

處理粵文時間長度暫時唔會檢查參數值；例如原模組會檢查到 ｢1:60｣ 係無效參數，呼叫版面放入維護分類，但係本地化暫時唔會檢查 ｢1分60秒｣ 係咪無效。

睇埋

• Template:Infobox album

註

local p = {}

function p._error( error_str )
    return '[[Category:Duration with input error]]<strong class="error">Error in Module:Duration: ' .. error_str .. '</strong>'
end

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {wrappers = {'Template:Duration', 'Template:Duration/sandbox'}})
	local tmp = args.duration or args[1] or ''
	local duration = {}
	if tonumber(args[1]) or args[2] or args[3] then
		if args[4] then return p._error('Parameter number 4 should not be specified') end
		if not args[1] or args[1] == '' then
			duration = {args[2] or 0, args[3] or 0}
		else
			duration = {args[1], args[2] or 0, args[3] or 0}
		end
		tmp = nil
		for k, v in ipairs(duration) do
			duration[k] = tonumber(v)
			if not duration[k] then return p._error('Invalid values') end
		end
	elseif args.h or args.m or args.s then
		if not args.h or args.h == '' then
			duration = {args.m or 0, args.s or 0}
		else
			duration = {args.h, args.m or 0, args.s or 0}
		end
		tmp = nil
		for k, v in ipairs(duration) do
			duration[k] = tonumber(v)
			if not duration[k] then return p._error('Invalid values') end
		end
	else
		if mw.ustring.find(tmp, 'class="duration"', 1, yes) then return tmp end -- if there is already a microformat, don't do anything
		-- LOCAL: Handle Cantonese durations
		local h, hu, m, mu, s, su;
		h, hu, m, mu, s, su = mw.ustring.match(tmp, '(%d+)(時)(%d+)(分鐘?)(%d+%.?%d*)(秒)')
		if s then
			return '<span class="duration">'
				.. '<span class="h">' .. h ..'</span>' .. hu
				.. '<span class="min">' .. m ..'</span>' .. mu
				.. '<span class="s">' .. s ..'</span>' .. su
				.. '</span>'
		end
		m, mu, s, su = mw.ustring.match(tmp, '(%d+)(分鐘?)(%d+%.?%d*)(秒)')
		if s then
			return '<span class="duration">'
				.. '<span class="min">' .. m ..'</span>' .. mu
				.. '<span class="s">' .. s ..'</span>' .. su
				.. '</span>'
		end
		s, su = mw.ustring.match(tmp, '(%d+%.?%d*)(秒)')
		if s then
			return '<span class="duration">'
				.. '<span class="s">' .. s ..'</span>' .. su
				.. '</span>'
		end
		m, mu = mw.ustring.match(tmp, '(%d+)(分鐘?)')
		if m then
			return '<span class="duration">'
				.. '<span class="min">' .. m ..'</span>' .. mu
				.. '</span>'
		end
		-- END LOCAL
		duration = mw.text.split(mw.ustring.match(tmp, '%d*:?%d+:%d+%.?%d*') or '', ':') -- split into table
		if duration[4] then return p._error('Maximum of two colons allowed') end
		for k, v in ipairs(duration) do duration[k] = tonumber(v) or 0 end -- convert values to numbers
	end
	if duration[3] then
		if (duration[1] + duration[2] + duration[3]) == 0 then return nil end
		if (duration[1] ~= math.ceil(duration[1])) or (duration[2] ~= math.ceil(duration[2])) then return p._error('Hours and minutes values must be integers') end
		if duration[3] >= 60 then return p._error('Seconds value must be less than 60') end
		if duration[2] >= 60 then return p._error('Minutes value must be less than 60 if hours value is specified') end
		if duration[2] < 10 then duration[2] = '0'..duration[2] end -- zero padding
		if duration[3] < 10 then duration[3] = '0'..duration[3] end
		duration = '<span class="duration"><span class="h">' .. duration[1] .. '</span>:<span class="min">' .. duration[2] .. '</span>:<span class="s">' .. duration[3] .. '</span></span>'
	elseif duration[2] then
		if (duration[1] + duration[2]) == 0 then return nil end
		if duration[1] ~= math.ceil(duration[1]) then return p._error('Hours and minutes values must be integers') end
		if duration[2] >= 60 then return p._error('Seconds value must be less than 60') end
		if duration[2] < 10 then duration[2] = '0'..duration[2] end -- zero padding
		duration = '<span class="duration"><span class="min">' .. duration[1] .. '</span>:<span class="s">' .. duration[2] .. '</span></span>'
	else
		duration = ''
	end
	
	if tmp and tmp ~= '' then
		if duration ~= '' then tmp = mw.ustring.gsub(tmp, '%d*:?%d+:%d+%.?%d*', duration, 1) else tmp = tmp .. ' [[Category:Duration without hAudio microformat]]' end
	else
		if duration ~= '' then tmp = duration end
	end
	return tmp
end

return p