local p,lib_arg ={},{}
function p.main(frame)
-- For calling from #invoke.
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) --frame
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
end
working_frame = mw.getCurrentFrame()
local yesno = require('Module:Yesno')
local is_article = (mw.title.getCurrentTitle().namespace==0)
local is_test_article=yesno(working_frame.args.TestIsArticle) or yesno(args.TestIsArticle)
if is_test_article then is_article = true end
local check_flag = yesno(working_frame.args.checkOnly)
local chembox_str,start,chembox_start,chembox_end='',0,'',''
if not check_flag then
chembox_str = working_frame:preprocess('{{Chembox CASNo}}')
start=mw.ustring.find(chembox_str, '|', 1+({mw.ustring.find(chembox_str, '\n')})[1] )
chembox_start, chembox_end = mw.ustring.sub(chembox_str,1,start), mw.ustring.sub(chembox_str,start+1,-1)
end
local casData = {}
local lower_args = {}
for k,v in pairs(args) do
if mw.ustring.find(k,'CAS') then
local check_id = mw.ustring.gsub(k, '%d+', function(str) check_id = check_id or tonumber(str) end )
local check_k = mw.ustring.lower(k)
local norm_k = check_k
local argtype = 'number'
lower_args[check_k]=v
if mw.ustring.find(check_k,'ref') then argtype = 'ref'
norm_k = mw.ustring.gsub(norm_k,'[_%s]-ref','')
elseif mw.ustring.find(check_k,'comment') or mw.ustring.find(check_k,'cmt') or mw.ustring.find(check_k,'supplemental') then argtype = 'comment'
norm_k = mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(norm_k,'[_%s]-comment',''),'[_%s]-cmt',''),'[_%s]-supplemental','')
elseif mw.ustring.find(check_k,'ur[li]') then argtype = 'url'
norm_k = mw.ustring.gsub(norm_k,'[_%s]-ur[li]','')
else
end
casData[norm_k] = casData[norm_k] or {}
if argtype == 'number' or argtype == 'url' then
casData[norm_k][argtype] = casData[norm_k][argtype] or v
else
local casData_temp = casData[norm_k][argtype]
if casData_temp then casData_temp = casData_temp .. '、' .. v
else casData_temp = v
end
casData[norm_k][argtype] = casData_temp
end
end
end
local norm_casData = {}
local casDataChecker = {}
for k,v in pairs(casData) do
if not v.number then
local fst,lst = mw.ustring.find(k,'%d+')
local head_s, end_s = mw.ustring.sub(k,1,(fst or-1)-1), mw.ustring.sub(k,fst or -1,-1)
if not fst then head_s,end_s=k,'' end
local temp_data = casData[head_s..'number'..end_s] or casData[head_s..'_number'..end_s] or casData[head_s..'number_'..end_s] or casData[head_s..'_number_'..end_s]
if not norm_casData[k] then
norm_casData[k]={}
for k1,v1 in pairs(v) do norm_casData[k][k1]=v1 end
for k1,v1 in pairs(temp_data or {}) do norm_casData[k][k1]=norm_casData[k][k1] or v1 end
end
if (temp_data or {}).number then
casDataChecker[temp_data.number]=true
end
end
end
for k,v in pairs(casData) do
if v.number then
if not norm_casData[k] then
if not casDataChecker[v.number] then
norm_casData[k]={}
for k1,v1 in pairs(v) do norm_casData[k][k1]=v1 end
end
end
end
end
local count = 0
local body = ''
local last = nil
local no_ref=false
local no_index=false
local is_none = false
--由於lua的pairs()不保證順序，因此執行key的排序
local key_sort = {}
--記錄所有key
for k,v in pairs(norm_casData) do key_sort[#key_sort + 1] = k end
--排序key
table.sort(key_sort)
--以排序後的key執行迴圈
for it = 1,#key_sort do
--for k,v in pairs(norm_casData) do
local k, v = key_sort[it], norm_casData[key_sort[it]]
if not check_flag and mw.ustring.lower(v.number or "") == 'none' and is_article and yesno(working_frame.args.hideNone) then
require('Module:TrackingCategory').append(working_frame,'暫未分配CAS號的化學物質')
if is_test_article then return '[[Category:暫未分配CAS號的化學物質]]' end
return ''
end
com_check = mw.ustring.lower(v.comment or "")..mw.ustring.lower(v.ref or "")
if not check_flag and mw.ustring.find(com_check,"%d%d+%-%d%d-%d") and is_article then
require('Module:TrackingCategory').append(working_frame,'CAS號參數誤植的條目')
if is_test_article then body=body..'[[Category:CAS號參數誤植的條目]]' end
end
local check_k = mw.ustring.lower(k)
if mw.ustring.find(check_k,'nos') or mw.ustring.find(check_k,'other') then
if body~='' then body = body .. '<br/>' end
body = body .. v.number .. (v.comment and ' ' .. v.comment or '') .. (v.ref and ' ' .. v.ref or '')
no_index = true
else
if v.number then
if not v.ref then no_ref=true end
if not check_flag and mw.ustring.find(v.number,"[^%d%s-]") and mw.ustring.lower(v.number or "") ~= 'none' and is_article then
require('Module:TrackingCategory').append(working_frame,'CAS號參數格式不正確的條目')
if is_test_article then body=body..'[[Category:CAS號參數格式不正確的條目]]' end
end
count = count + 1
if not check_flag then
body = body .. require('Module:Template invocation').invocation('Chembox CASCheck', {
count=count,
value=v.number,
value_url=v.url,
value_comment=v.comment,
value_ref=v.ref,
value0=last
})
end
last=v.number
end
end
end
if check_flag then if count==0 then return '' else return'1' end end
if is_article then
if no_ref then body=body..'[[Category:未提供參考文獻的CAS號]]' end
if no_index then body=body..'[[Category:含有未被索引CAS號的條目]]' end
if count==0 and yesno(working_frame.args.tagNoInput) then body=body..'[[Category:没有CAS注册号的化学条目]]' end
else
body = require('Module:Delcat').delete_category(working_frame:preprocess(body),{})
end
if yesno(working_frame.args.inChembox) then
body = chembox_start..body..chembox_end
end
return working_frame:preprocess(body)
end
function p.checkHeader(frame)
-- For calling from #invoke.
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) --frame
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
end
working_frame = mw.getCurrentFrame()
local magic_str='{{subst:void|僅能透過模板內部呼叫}}'
local input_str = working_frame.args[1] or working_frame.args['1']
local arg_str = working_frame.args[2] or working_frame.args['2']
if input_str then
local start = mw.ustring.len(magic_str) + 1
local check_start = mw.ustring.lower(mw.ustring.sub(input_str,1,start-1))
if mw.ustring.lower(check_start) ~= mw.ustring.lower(magic_str) then
if arg_str then mw.addWarning( '錯誤! 參數 \''.. arg_str ..'\' 僅能由模板呼叫。' ) end
require('Module:TrackingCategory').append(working_frame,'CAS號參數誤植的條目')
require('Module:TrackingCategory').append(working_frame,'含有未被索引CAS號的條目')
return input_str
else return mw.ustring.sub(input_str,start,-1)
end
else return magic_str
end
end
return p
