Module:TryError
local p={} local lib_arg={} local yesno = {} function p._message(err_obj) local err_array = err_obj local body = if type(err_obj.message) == type("string") then err_array={err_obj} end for i=1,#err_array do body = body .. err_array[i].message or end return body end function p._throw(err_obj) local err_array = err_obj local body = if type(err_obj.message) == type("string") then err_array={err_obj} end for i=1,#err_array do local message = err_array[i].message or if mw.text.trim(message) == then message = error('没有指定的錯誤-{zh-cn:信息; zh-tw:資訊}-', 2) end message = tostring(message) local tag = 'strong'
-- Generate the html. local root = mw.html.create(tag) for j=1,#err_array[i].types do root:addClass(err_array[i].types[j]) end root :addClass('error') :wikitext(message) body = body .. tostring(root) end return body end function p._constructErrorFromArg(str) local error_array = {} mw.ustring.gsub(str,"([^%(]+)%(([^%)]*)%)",function(name,para) error_array[#error_array + 1] = {['message']=para,['types']=mw.text.split(name,',')or {name} } return name..para end) return error_array end function p._constructError(str) local result={['message']=,['types']={}} if mw.text.trim(str or ) == "" then return {['message']=,['types']={'unknown'}} end local error_tags = {'strong', 'span', 'p', 'div'}
for i=1,#error_tags do
local check_tag = error_tags[i]:gsub('^(.-)$','<%1[^>]*>(.-)</%1>')
local find_msg = '<'
mw.ustring.gsub(str,check_tag,function(check_msg)find_msg=check_msg end)
find_msg = mw.text.trim(find_msg)
if mw.ustring.sub(find_msg,1,1) ~= '<' then
result.message = find_msg
break
end
end
local error_attritube = {'class', 'id'}
local typemap={['error']=1}
for i=1,#error_attritube do
local check_tag_dstr = error_attritube[i]:gsub('^(.-)$','%1="([^"]+)"')
local check_tag_sstr = error_attritube[i]:gsub('^(.-)$',"%1='([^']+)'")
local check_tag_pstr = error_attritube[i]:gsub('^(.-)$',"%1=([^%%s]+)")
local dstr,sstr,pstr = ,,
mw.ustring.gsub(str,check_tag_dstr,function(check_msg)dstr=mw.text.trim(check_msg)end)
mw.ustring.gsub(str,check_tag_sstr,function(check_msg)sstr=mw.text.trim(check_msg)end)
mw.ustring.gsub(str,check_tag_pstr,function(check_msg)pstr=mw.text.trim(check_msg)end)
local pstr_ch = mw.ustring.sub(pstr,1,1)
if pstr_ch ~= '"' and pstr_ch ~= "'" then
if mw.text.trim(pstr) ~= "" then
typemap[pstr] = 1
end
end
local sdstr = mw.ustring.gsub(dstr .. ' ' .. sstr, '%s+', ' ')
local sdarr = mw.text.split(sdstr,' ')
for _,class_name in ipairs(sdarr) do
if mw.text.trim(class_name) ~= "" then
typemap[class_name] = 1
end
end
end
for class_name,_ in pairs(typemap) do
if type(result.types) ~= type{"table"} then result.types={} end
result.types[#result.types + 1]=class_name
end
local getFrommsg = mw.text.split(result.message,"[:：︓﹕。%s]")
result.types[#result.types + 1]=mw.ustring.gsub(getFrommsg[1],"<[^>]+>","")
result.types[#result.types]=mw.ustring.gsub(result.types[#result.types],'[“"「][^”"」]-[”"」]',)
return result end function p.try(frame) local args, working_frame
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
args = lib_arg.getArgs(frame, {
parentFirst=true,
trim = false,
removeBlanks = false
})
working_frame = frame
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
working_frame = mw.getCurrentFrame()
if type(args) ~= type({}) then args = {frame} end
end
local input_try = args[1] or args['1']
local multi_catch = false
if (args.multi or ) ~= then
if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end multi_catch = yesno(args.multi or 'no') end local preprocess = false
if (args.preprocess or ) ~= then
if type(yesno) ~= type(tonumber) then yesno = require('Module:Yesno') end preprocess = yesno(args.preprocess or 'no') end
local if_errorcall = tonumber(mw.getCurrentFrame().args.if_errorcall or '0') or 0
local catch_list = {}
local default_catch = {["value"]="error(未處理的例外狀況:){{{throw}}}", ["exception"]={} }
for key,value in pairs(args) do
local argname = mw.ustring.lower(tostring(key))
local exception_data ,checker = mw.ustring.gsub(argname,'^%s*catch%s*%((.-)%)%s*$','%1')
if checker > 0 then
catch_list[#catch_list+1] = {["value"]=value, ["exception"]=(mw.text.split(exception_data,',') or {exception_data})}
elseif mw.text.trim(argname) == 'catch' then
default_catch.value=value
end
end
catch_list[#catch_list+1]=default_catch
local find_error = ' ' .. (input_try or ) .. ' '--/^...$/
local error_tags = {'strong', 'span', 'p', 'div'}
local exceptions = {}
for i=1,#error_tags do
local check_tag = error_tags[i]:gsub('^(.-)$','<%1[^>]+error.-</%1>')
find_error = mw.ustring.gsub(find_error,check_tag,function(exception)
exceptions[#exceptions + 1] = p._constructError(exception)
returnend)
end
find_error = mw.text.trim(find_error) if #exceptions<=0 and if_errorcall > 0 then exceptions[#exceptions + 1] = {['message']='其他錯誤',['types']={'error'}} end if #exceptions<=0 and if_errorcall <= 0 then if preprocess == true then return working_frame:preprocess(input_try) end return input_try end local body = local catched = false for i=1,#catch_list do local current_catch = catch_list[i] local found = false local exception_obj = nil for j=1,#current_catch.exception do for k=1,#exceptions do for ke=1,#exceptions[k].types do local to_check_ex = mw.ustring.lower(exceptions[k].types[ke]) local to_check_pattern = mw.text.trim(mw.ustring.lower(current_catch.exception[j])) local check_eq = to_check_ex == to_check_pattern local check_isregexp = false if mw.ustring.sub(to_check_pattern,1,1) == '/' and mw.ustring.sub(to_check_pattern,-1,-1) == '/' then to_check_pattern = mw.ustring.sub(to_check_pattern,2,-2) if check_eq ~= true then xpcall( function() local check_req = mw.ustring.find(to_check_ex, to_check_pattern) if check_req then check_eq = true end end , function() end ) end end if check_eq == true then found = true exception_obj = exceptions[k] break end end if found == true then break end end if found == true then break end end if #exceptions > 0 and i==#catch_list then exception_obj=exceptions[1] found = true end if i==#catch_list then if catched==true then catch_list[#catch_list].value = "{{{throw}}}" end end if found == true and exception_obj then local catch_data = catch_list[i].value catch_data = mw.ustring.gsub(catch_data, '%{%{%{%s*throw%s*(|?[^%}]*)%}%}%}',function(str) local use_old_error = false local input_throw = mw.text.trim(str) if input_throw == then use_old_error = true end if mw.ustring.sub(input_throw,1,1) == '|' then input_throw=mw.text.trim(mw.ustring.sub(input_throw,2,-1)) if input_throw == then return end return p._throw(p._constructErrorFromArg(input_throw)) elseif use_old_error == true then if i==#catch_list then return p._throw(exceptions) end return p._throw(exception_obj) end return '{{{throw' .. str .. '}}}' end) catch_data = mw.ustring.gsub(catch_data, '%{%{%{%s*message%s*(|?[^%}]*)%}%}%}',function(str) local use_old_error = false local input_throw = mw.text.trim(str) if input_throw == then use_old_error = true end if mw.ustring.sub(input_throw,1,1) == '|' then input_throw=mw.text.trim(mw.ustring.sub(input_throw,2,-1)) if input_throw == then return end return p._message(p._constructErrorFromArg(input_throw)) elseif use_old_error == true then if i==#catch_list then return p._message(exceptions) end return p._message(exception_obj) end return '{{{message' .. str .. '}}}' end) body = body .. catch_data if multi_catch==true then catched = true else break end end end body = mw.ustring.gsub(body, '%{%{%{%s*[Nn][Oo]%s*[Ee][Rr][Rr][Oo][Rr]%s*(|?[^%}]*)%}%}%}',function(str) local use_old_error = false local input_throw = mw.text.trim(str) if input_throw == then use_old_error = true end if mw.ustring.sub(input_throw,1,1) == '|' then input_throw=mw.text.trim(mw.ustring.sub(input_throw,2,-1)) if mw.ustring.trim(input_throw) == then return end if mw.ustring.trim(find_error) == then return input_throw end return find_error elseif use_old_error == true then return find_error end return '{{{no error' .. str .. '}}}' end) if preprocess == true then return working_frame:preprocess(body) end
return body
end return p