Modul:Navseasoncats: Perbedaan antara revisi

require[[strict]]

local p = {}

 

--[[==========================================================================]]

'', --[14] placeholder for [[Category:Navseasoncats range ends (present)]]

'', --[15] placeholder for [[Category:Navseasoncats range ends (blank, MOS)]]

'', --[17] placeholder for [[Category:Navseasoncats default season gap size]]

'', --[18] placeholder for [[Category:Navseasoncats decade redirected]]

'', --[24] placeholder for [[Category:Navseasoncats wordinal redirected]]

'', --[25] placeholder for [[Category:Navseasoncats TV season redirected]]

'', --[27] placeholder for [[Category:Navseasoncats year and range]]

'', --[28] placeholder for [[Category:Navseasoncats year and decade]]

--Determine if a category exists (in a function for easier localization).

local function catexists( title )

end

 

--Error message handling.

function p.errorclass( msg )

end

 

if avoidself and key and cat then

if cat ~= '' then

else

ttrackingcats[key] = ''

for k, _ in pairs (tbl) do

if knownparams[k] == nil then

break

end

--Used by catlinkfollowr(), and so indirectly by all nav_*().

local function rtarget( frame, cat )

if string.match( catcontent or '', '{{ *[Cc]at' ) then --prelim test

--the following 11 pages (6 condensed) redirect to [[Template:Category redirect]], in descending order, as of 9/2022:

'{{ *[Cc]ate?g?o?r?y?[ _]*[rR]edirect', --505+312+243+1 transclusions

'{{ *[Cc]ategory[ _]*[mM]ove', --0

}

local rtarget = mw.ustring.match( catcontent, v..'%s*|%s*([^|}]+)' )

if rtarget then

if displayend then

local y, hyph, ending = mw.ustring.match(R, '^.-(%d+)([–-])(.*)$')

disp = y..hyph..ending

elseif ending == '' then

local nl = '\n# '

local out = ''

errors = p.errorclass('The <b><code>|list-all-links=yes</code></b> parameter/utility '..

'should not be saved in category space, only previewed.')

local function find_terminaltxt( cat )

local terminaltxt = nil

elseif mw.ustring.match(cat, '%d+[–-]$') then

terminaltxt = ''

if i == 0 then --center nav element

if navborder == true then

else

end

else

end

end

--begin navhyphen

local terminalcat = false --switch used to hide future cats

local terminaltxt = nil

end

if (from >= 0) and (nminseas <= from) and (from <= nmaxseas) then

if terminalcat then nmaxseas = nminseas_default end --prevent display of future ranges

else

local hidden = '<span style="visibility:hidden">'..disp..'</span>'

if listall then

tlistall[#tlistall] = tlistall[#tlistall]..' ('..hidden..')'

end

else --center navh

elseif finish == 0 then finish = '<span style="visibility:hidden">'..start..'</span>' end

local disp = start..hyph..finish

if regularparent == 'isolated' then disp = start end

end

i = i + 1

end

--tracking cats & finalize

--begin navtvseason

local i = -5 --nav position

while i <= 5 do

trackcat(25, 'Navseasoncats TV season redirected')

end

else

local hidden = '<span style="visibility:hidden">'..'0'..'</span>' --'0' to maintain dot spacing

if listall then

tlistall[#tlistall] = tlistall[#tlistall]..' ('..hidden..')'

end

else --center navt

end

i = i + 1

end

isolatedcat()

if listall then

if mindec then

if string.match(mindecade, '-%d') or

then

mindec = '-'..mindec --better +/-0 behavior with strings (0-initialized int == "-0" string...)

if maxdec then

if string.match(maxdecade, '-%d') or

then --better +/-0 behavior with strings (0-initialized int == "-0" string...),

maxdec = '-'..maxdec --but a "-0" string -> tonumber() -> tostring() = "-0",

--AD/BC switches & vars

--TODO?: handle BCE, but only if it exists in the wild

bnb = ' border-style: none; background-color: transparent;'

end

local i = -50 --nav position x 10

while i <= 50 do

if D < -10 then

d = math.abs(d + 10) --b/c 2 "0s" decades exist: "0s BC" & "0s" (AD)

if d == 0 then

D = -10 --track 1st d = 0 use (BC)

elseif parentBC then

if switchADBC == -1 then --parentBC looking at the BC side (the common case)

if d == 0 then --prepare to switch to the AD side on the next iteration

switchADBC = 1 --1st d = 0 use (BC)

end

if BC ~= '' and ndec <= 50 then

end

--determine target cat

local catlink = catlinkfollowr( frame, firstpart..' '..d..'s'..tspace..BC..lastpart, disp )

if catlink.rtarget then --a {{Category redirect}} was followed

if (zmin <= zsign) and (zsign <= zmax) then

hidden = nil

else

end

else

hidden = nil

end

else

end

if listall and hidden then

i = i + 10

end

isolatedcat()

if listall then

local minyear = tonumber(string.match(minimumyear or '', '-?%d+')) or minyear_default --allow +/- qualifier

local maxyear = tonumber(string.match(maximumyear or '', '-?%d+')) or maxyear_default --allow +/- qualifier

if year == nil then

local yearBCElastparts = { --needed for parent = AD 1-5, when the BC/E format is unknown

--"BCE" removed to match both AD & BCE cats; easier & faster than multiple string.match()s

}

local year1to10 = (year >= 1 and year <= 10)

local ygapdefault = 1 --assume/start at the most common case: 2001, 2002, etc.

local ygap = ygapdefault

local ygap1, ygap2 = ygapdefault, ygapdefault --need to determine previous & next year gaps indepedently

local ygap1_success, ygap2_success = false, false

--begin navyears

local y

local i = -5 --nav position

while i <= 5 do

y = ynogaps[i]

else

end

local BCdisp = ''

if year >= 11 then --parent = AD 11-15

if y <= 10 then --prepend AD on y = 1-10 cats only, per existing cats

end

y = math.abs(y - 1) --skip y = 0 (DNE)

elseif y >= 1 and y <= 10 then --prepend AD on y = 1-10 cats only, per existing cats

end

end

Y = Y + 1 --skip y = 0 (DNE)

y = Y --easiest solution: start another iterator for these AD y's displayed on a BC year parent

end

end

catlink = catlinkNoAD --usurp

elseif listall then

end

end

else

if listall then

end

local yHyph_2 = y..'–'..string.match(y+1, '%d%d$') --try 2010–11 type cats

end

end

local r = catlink.rtarget

local c = catlink.cat

end

if r_base ~= c_base then

trackcat(19, 'Navseasoncats year redirected (base change)') --acceptable #R target

trackcat(20, 'Navseasoncats year redirected (var change)') --e.g. "2008 in Scottish women's football" to "2008–09"

else

end

end

else --OOB vs min/max

local hidden = '<span style="visibility:hidden">'..disp..'</span>'

if listall then

local dummy = catlinkfollowr( frame, firsttry, disp )

else --center navy

if parentBC then BCdisp = ' '..BCe end

end

i = i + 1

end

isolatedcat()

 

local function nav_roman( frame, firstpart, roman, lastpart, minimumrom, maximumrom )

--sterilize/convert rom/num

if num == nil or rom == nil then --out of range or some other error

errors = p.errorclass('Function nav_roman can\'t recognize one or more of "'..(num or 'nil')..'" & "'..

return p.failedcat(errors, 'R')

end

--begin navroman

local i = -5 --nav position

while i <= 5 do

trackcat(22, 'Navseasoncats roman numeral redirected')

end

else

local hidden = '<span style="visibility:hidden">'..r..'</span>'

if listall then

tlistall[#tlistall] = tlistall[#tlistall]..' ('..hidden..')'

end

else --center navr

end

else

end

end

isolatedcat()

if listall then

local minord = tonumber(string.match(minimumord or '', '(-?%d+)[snrt]?[tdh]?')) or -9999 --allow full ord & +/- qualifier

local maxord = tonumber(string.match(maximumord or '', '(-?%d+)[snrt]?[tdh]?')) or 9999 --allow full ord & +/- qualifier

local tspace = ' ' --assume a trailing space after ordinal

--lists the lastpart of valid BCE cats

--"BCE" removed to match both AD & BCE cats; easier & faster than multiple string.match()s

}

local switchADBC = 1 -- 1=AD parent

bnb = ' border-style: none; background-color: transparent;'

end

local i = -5 --nav position

while i <= 5 do

trackcat(23, 'Navseasoncats nordinal redirected')

end

else

if listall then

tlistall[#tlistall] = tlistall[#tlistall]..' ('..hidden..')'

trackcat(23, 'Navseasoncats nordinal redirected')

end

else --either out-of-range (hide), or non-temporal + BC = something might be wrong (2nd X parliament BC?); handle exceptions if/as they arise

end

i = i + 1

end

isolatedcat()

 

local function nav_wordinal( frame, firstpart, word, lastpart, minimumword, maximumword, ordinal, frame )

th = ''

end

local lspace = ' ' --assume a leading space (most common)

minword = num

else

if 0 < ord and ord < maxword then

minword = ord

maxword = num

else

if 0 < ord and ord < maxword then

maxword = ord

--begin navwordinal

local i = -5 --nav position

while i <= 5 do

if n >= 1 then

local nth = p.addord(n)

if i ~= 0 then --left/right navw

local catlink = catlinkfollowr( frame, firstpart..lspace..w..tspace..lastpart, nth )

if minword <= n and n <= maxword then

trackcat(24, 'Navseasoncats wordinal redirected')

end

else

local hidden = '<span style="visibility:hidden">'..nth..'</span>'

if listall then

tlistall[#tlistall] = tlistall[#tlistall]..' ('..hidden..')'

end

else --center navw

end

else

end

i = i + 1

end

isolatedcat()

end

local y_season = mw.ustring.match(cpagename, ':(%d+) .+%(%d+[–-]%d+%)') --i.e. "1763 establishments in the Province of Quebec (1763–1791)"

local e_season = mw.ustring.match(cpagename, '%s(%d+[–-])$') or --irreg; ending unknown, e.g. "Members of the Scottish Parliament 2021–"

local season = mw.ustring.match(cpagename, '[:%s%(](%d+[–-]%d+)[%)%s]') or --split in 2 b/c you can't frontier '$'/eos?

mw.ustring.match(cpagename, '[:%s](%d+[–-]%d+)$')

local year = mw.ustring.match(cpagename, '[:%s](%d%d%d%d)%s') or --prioritize 4-digit years

else

--try wordinals ('zeroth' to 'ninety-ninth' only)

local split = mw.text.split(pagename, ' ')

for i=1, #split do

return { ['vtype'] = 'wordinal', ['v'] = split[i] }

end

--try English numerics ('one'/'single' to 'ninety-nine' only)

local split = mw.text.split(pagename, '[%s%-]') --e.g. "Nine-cylinder engines"

for i=1, #split do

if skip_gaps and skip_gaps == 'yes' then

skipgaps = true

end

--ns checks

if cat and cat ~= '' then

trackcat(1, 'Navseasoncats using cat parameter')

local firstpart, lastpart = string.match(pagename, '^(.-)'..findvar_escaped..'(.*)$')

if findvar.vtype == 'tvseason' then --double check for cases like '30 Rock (season 3) episodes'

if firstpart == nil then

end

end

local firstpart_dec = firstpart

if firstpart_dec ~= '' then

firstpart_dec = ''

if dec == 0 then dec = '' end

end

decadecat = mw.text.trim( firstpart_dec..' '..decade..lastpart )

local exists = catexists(decadecat)

local nav1 = nav_decade( frame, firstpart, start, lastpart, minimum, maximum )..testcaseindent..table.concat(ttrackingcats)

local century = math.floor( ((decade-1)/100) + 1 ) --from {{CENTURY}}

if century == 0 then century = 1 end --no 0th century

century = century + 1 --'2000' is in the 20th, but the rest of the 2000s is in the 21st

end

local centurycat = mw.text.trim( firstpart..' '..p.addord(century)..clastpart )

local exists = catexists(centurycat)

if not exists then --check for hyphenated century

centurycat = mw.text.trim( firstpart..' '..p.addord(century)..clastpart )

exists = catexists(centurycat)

elseif findvar.vtype == 'wordinal' then --e.g. "first", "ninety-ninth"; <<1% of cats

return nav_wordinal( frame, firstpart, findvar.v, lastpart, minimum, maximum, ordinal, frame )..testcaseindent..table.concat(ttrackingcats)

elseif findvar.vtype == 'enumeric' then --e.g. "one", "ninety-nine"; <<1% of cats

return nav_wordinal( frame, firstpart, findvar.v, lastpart, minimum, maximum, ordinal, frame )..testcaseindent..table.concat(ttrackingcats)

elseif findvar.vtype == 'ending' then --e.g. "2021–" (irregular; ending unknown); <<<1% of cats

if hyphen == nil then

hyphen, finish = mw.ustring.match(findvar.v, '%d([–-])$'), 0 --0/-1 are hardcoded switches for nav_hyphen()