Module:Infobox cyclist tracking/sandbox
 | This is the module sandbox page for Module:Infobox cyclist tracking (diff). |
local p = {}
function p.tracking(frame)
function isblank( val )
return (val == nil) or val:match('^[%s]*$')
end
local function isnotblank(s)
return s and s:match( '^%s*(.-)%s*$' ) ~= ''
end
local cats = ''
local args = frame:getParent().args
local hasbr = 0
local hasli = 0
local hasul = 0
local hasnewline = 0
local toohighnumber = 0
local missingyears = {0, 0, 0}
local missingteams = {0, 0, 0}
local hasyears = {0, 0, 0}
local hasteams = {0, 0, 0}
local prefixes = {'pro', 'amateur', 'manage'}
local maxindices = {25, 15, 25}
for k=1,3 do
local prefix = prefixes[k]
local maxindex = maxindices[k]
if (isnotblank(args[prefix .. 'years']) ) then hasyears[k] = 1 end
if (isnotblank(args[prefix .. 'years']) and isblank(args[prefix .. 'teams']) ) then
missingteams[k] = 1
end
if (isnotblank(args[prefix .. 'teams']) ) then hasteams[k] = 1 end
if (isnotblank(args[prefix .. 'teams']) and isblank(args[prefix .. 'years']) ) then
missingyears[k] = 1
end
if (args[prefix .. 'years'] or ''):match('<[\t ]*[Bb]') then
hasbr = 1
end
if (args[prefix .. 'years'] or ''):match('<[\t ]*[Ll][Ii]') then
hasli = 1
end
if (args[prefix .. 'years'] or ''):match('<[\t ]*[Uu][Ll]') then
hasul = 1
end
if (args[prefix .. 'teams'] or ''):match('<[\t ]*[Bb]') then
hasbr = 1
end
if (args[prefix .. 'teams'] or ''):match('<[\t ]*[Ll][Ii]') then
hasli = 1
end
if (args[prefix .. 'teams'] or ''):match('<[\t ]*[Uu][Ll]') then
hasul = 1
end
if (args[prefix .. 'years'] or ''):match('[\r\n]') then
hasnewline = 1
end
if (args[prefix .. 'teams'] or ''):match('[\r\n]') then
hasnewline = 1
end
for i = 1,maxindex do
if (isnotblank(args[prefix .. 'years'.. tostring(i)]) ) then hasyears[k] = 1 end
if (isnotblank(args[prefix .. 'years'.. tostring(i)]) and isblank(args[prefix .. 'team'.. tostring(i)]) ) then
missingteams[k] = 1
end
if (isnotblank(args[prefix .. 'team'.. tostring(i)]) ) then hasteams[k] = 1 end
if (isnotblank(args[prefix .. 'team'.. tostring(i)]) and isblank(args[prefix .. 'years'.. tostring(i)]) ) then
missingyears[k] = 1
end
if(args[prefix .. 'years' .. tostring(i)] or ''):match('<[\t ]*[Bb]') then
hasbr = 1
end
if(args[prefix .. 'years' .. tostring(i)] or ''):match('<[\t ]*[Ll][Ii]') then
hasli = 1
end
if(args[prefix .. 'years' .. tostring(i)] or ''):match('<[\t ]*[Uu][Ll]') then
hasul = 1
end
if(args[prefix .. 'team' .. tostring(i)] or ''):match('<[\t ]*[Bb]') then
hasbr = 1
end
if(args[prefix .. 'team' .. tostring(i)] or ''):match('<[\t ]*[Ll][Ii]') then
hasli = 1
end
if(args[prefix .. 'team' .. tostring(i)] or ''):match('<[\t ]*[Uu][Ll]') then
hasul = 1
end
if(args[prefix .. 'years' .. tostring(i)] or ''):match('[\r\n]') then
hasnewline = 1
end
if(args[prefix .. 'team' .. tostring(i)] or ''):match('[\r\n]') then
hasnewline = 1
end
end
if (isnotblank(args[prefix .. 'team'.. tostring(maxindex+1)]) or isnotblank(args[prefix .. 'years'.. tostring(maxindex+1)]) ) then
toohighnumber = 1
end
end
if (isnotblank(args['weight'])) then
local w = frame:expandTemplate{ title = 'Infobox person/weight', args = {args['weight'] .. ' '} }
w = mw.ustring.gsub(w, '[≈~]', ' ')
w = mw.ustring.gsub(w, '<abbr[^<>]*>c.</abbr> ', '')
w = mw.ustring.gsub(w, '​', '')
w = mw.ustring.gsub(w, '–[%d]+%.[%d]', '')
w = mw.ustring.gsub(w, '–[%d]+', '')
w = mw.ustring.gsub(w, '[%d][%d]%.[%d] kg %([%d]+ lb%)', '')
w = mw.ustring.gsub(w, '[%d][%d]%.[%d] kg %([%d]+ lb; [%d][%.%d]* st%)', '')
w = mw.ustring.gsub(w, '[%d][%d]%.[%d] kg %([%d]+ lb; [%d]+ st [%d]+ lb%)', '')
w = mw.ustring.gsub(w, '[%d][%d]%.[%d] kg %([%d][%.%d]* st; [%d][%.%d]* lb%)', '')
w = mw.ustring.gsub(w, '[%d][%.%d]* kg %([%d]+ lb%)', '')
w = mw.ustring.gsub(w, '[%d]+ kg %([%d]+ lb; [%d][%.%d]* st%)', '')
w = mw.ustring.gsub(w, '[%d]+ kg %([%d]+ lb; [%d]+ st [%d]+ lb%)', '')
w = mw.ustring.gsub(w, '[%d]+ kg %([%d]+ st; [%d][%.%d]* lb%)', '')
w = mw.ustring.gsub(w, '[%d]+ st [%d]+ lb %([%d]+ kg%)', '')
w = mw.ustring.gsub(w, '[%d]+ lb %([%d]+ kg%)', '')
w = mw.ustring.gsub(w, '[%d]+ lb %([%d]+ kg; [%d][%.%d]* st%)', '')
w = mw.ustring.gsub(w, '[%d]+[ ]*kg ', '')
w = mw.ustring.gsub(w, '[%d]+[ ]*lb ', '')
w = mw.ustring.gsub(w, '%([12][%d][%d][%d]%)', '')
w = mw.ustring.gsub(w, '%([12][%d][%d][%d]%-[%d][%d]%)', '')
w = mw.text.unstrip(w)
w = mw.ustring.gsub(w, '[<]', '.LT.')
w = mw.ustring.gsub(w, '[>]', '.GT.')
w = mw.ustring.gsub(w, '&', '&')
if(isnotblank(w)) then
cats = cats .. '[[Category:Pages using infobox cyclist with atypical values for height or weight|W]]'
-- cats = cats .. '<span class=error>Atypical value: weight = ' .. w .. '</span>'
end
end
if (isnotblank(args['height'])) then
local h = frame:expandTemplate{ title = 'Infobox person/height', args = {args['height'] .. ' '} }
h = mw.ustring.gsub(h, '<templatestyles[^<>]*><%/templatestyles>', '')
h = mw.ustring.gsub(h, '[≈~]', ' ')
h = mw.ustring.gsub(h, '<abbr[^<>]*>c.</abbr> ', '')
h = mw.ustring.gsub(h, '​', '')
h = mw.ustring.gsub(h, '<span class="frac" role="math">([%d]+)<span class="sr%-only">[^<>]*<%/span><span class="num">1<%/span>[^<>]*<span class="den">2<%/span><%/span>', '%1')
h = mw.ustring.gsub(h, '<span class="frac" role="math"><span class="num">1<%/span>[^<>]*<span class="den">2<%/span><%/span>', '0')
h = mw.ustring.gsub(h, '<span class="frac nowrap">([%d]+)<span class="sr%-only"> <%/span><sup>1<%/sup>⁄<sub>2<%/sub><%/span>', '%1')
h = mw.ustring.gsub(h, '<span class="frac nowrap"><sup>1<%/sup>⁄<sub>2<%/sub><%/span>', '0')
h = mw.ustring.gsub(h, '[1-2]%.[%d][%d]? m %([4-7] ft [%d]+ in%)', '')
h = mw.ustring.gsub(h, '[1-2][%d][%d] cm %([4-7] ft [%d]+ in%)', '')
h = mw.ustring.gsub(h, '[4-7] ft [%d]+ in %([12]%.[%d][%d] m%)', '')
h = mw.ustring.gsub(h, '[4-7] ft [%d]+ in %([12][%d][%d] cm%)', '')
h = mw.ustring.gsub(h, '[1-2]%.[%d][%d] *m ', '')
h = mw.ustring.gsub(h, '[1-2][%d][%d] *cm ', '')
h = mw.ustring.gsub(h, '[4-7] ft [%d]+ in ', '')
h = mw.ustring.gsub(h, '%([1-2][%d][%d][%d]%)', '')
h = mw.ustring.gsub(h, '%([1-2][%d][%d][%d]-[%d][%d]%)', '')
h = mw.text.unstrip(h)
h = mw.ustring.gsub(h, '[<]', '.LT.')
h = mw.ustring.gsub(h, '[>]', '.GT.')
h = mw.ustring.gsub(h, '&', '&')
if(isnotblank(h)) then
cats = cats .. '[[Category:Pages using infobox cyclist with atypical values for height or weight|H]]'
-- cats = cats .. '<span class=error style="display:none">Atypical value: height = ' .. h .. '</span>'
end
end
if (hasli > 0) then
cats = cats .. '[[Category:Pages using infobox cyclist with multiple entries in single field|λ]]'
end
if (hasul > 0) then
cats = cats .. '[[Category:Pages using infobox cyclist with multiple entries in single field|μ]]'
end
if (hasbr > 0) then
cats = cats .. '[[Category:Pages using infobox cyclist with multiple entries in single field|β]]'
end
if (hasnewline > 0) then
cats = cats .. '[[Category:Pages using infobox cyclist with multiple entries in single field|ν]]'
end
for k=1,3 do
if (missingyears[k] > 0 and hasyears[k] > 0) then
cats = cats .. '[[Category:Pages using infobox cyclist with unknown parameters|Υ]]'
end
if (missingteams[k] > 0 and hasteams[k] > 0) then
cats = cats .. '[[Category:Pages using infobox cyclist with unknown parameters|Τ]]'
end
end
return cats
end
return p
Content Disclaimer
Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.
- The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
- There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
- It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
- Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
- Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.