Module:Navseasoncats: Difference between revisions

local p = {}

local currtitle = mw.title.getCurrentTitle()

local tlistallbwd = {}

local tlistallfwd = {}

'', -- [1] placeholder for [[Category:Navseasoncats using cat parameter]]

'', -- [2] placeholder for [[Category:Navseasoncats using testcase parameter]]

'', -- [5] placeholder for [[Category:Navseasoncats range abbreviated (MOS)]]

'', -- [6] placeholder for [[Category:Navseasoncats range redirected (base change)]]

}

local avoidself =  (not string.match(currtitle.text, 'Navseasoncats with') and

not string.match(currtitle.text, 'Navseasoncats.*/doc') and

not string.match(currtitle.text, 'Navseasoncats.*/sandbox') and

currtitle.nsText ~= 'User_talk' and

currtitle.nsText ~= 'Template_talk' and

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

function p.errorclass( msg )

return mw.text.tag( 'span', {class='error mw-ext-cite-error'}, '<b>Error!</b> '..string.gsub(msg, '&#', '&amp;#') )

end

function p.failedcat( errors, sortkey )

if avoidself then

end

return ''

end

--Check for unknown parameters.

--Used by main only.

local knownparams = {

['min'] = 'min',

if knownparams[k] == nil then

trackcat(3, 'Navseasoncats using unknown parameter')

end

end

end

-- ['catexists'] = true,

-- ['rtarget'] = <#R target>,

--   } otherwise.

--Used by all nav_*().

cat        = mw.text.trim(cat or '')

displaytext = mw.text.trim(displaytext or '')

local link, nilorR

if exists then

nexistingcats = nexistingcats + 1

else

link = '<span style="color:'..grey..'">'..disp..'</span>'

end

end

local nl = '\n# '

local out = ''

--Returns the difference b/w 2 ints separated by endash|hyphen, nil if error.

--Used by nav_hyphen() only.

local from, to = mw.ustring.match(cat, '(%d+)[–-](%d+)')

if from and to then

--Returns the ending of a terminal cat, and sets the appropriate tracking cat, else nil.

--Used by nav_hyphen() only.

local terminaltxt = nil

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

terminaltxt = 'present'

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

terminaltxt = ''

end

return terminaltxt

--Returns an unsigned string of the 1-4 digit decade ending in "0", else nil.

--Used by nav_decade() only.

if decade == nil or decade == '' then

return nil

end

string.match(decade, '^[-%+]?(%d?%d?%d?0)%D')

if dec then

--Check for nav_hyphen default gap size + isolatedcat() (not necessarily an error).

--Used by nav_hyphen() only.

if bool and nexistingcats == 0 then

--using "nexistingcats > 0" isn't as useful, since the default gap size obviously worked

end

end

--Expects an integer i, and a catlinkfollowr() table.

--Used by nav_decade() & nav_ordinal() only.

if i == 0 then --center nav element

if navborder == true then

else

end

else

end

end

--Return conditionally aligned stacked navs.

--Used by main only.

if avoidself then

local forcealign = '<div style="display:block !important; max-width: calc(100% - 25em);">'

--[[==========================={{  nav_hyphen  }}=============================]]

-- start    = 2015

-- hyph      = –

maxseas = start --hide subsequent ranges

end

elseif (start == finish) and

then

ttlens[0] = 1 --calc ttlens for std cases below

regularparent = 'isolated'

if (string.match(finish or '', '^%d+$') == nil) and

  (string.match(finish or '', '^%-%d+$') == nil)

local nextseason4 = firstpart..lspace..(nstart+t+hgap)..hyph..(nstart+2*t+hgap)..tspace..lastpart

if t == 1 then --test abbreviated range first, then full range, to be frugal with expensive functions

then

hgap_success = true

break

end

then

hgap_success = true

local endfound = false --switch used to stop searching forward

local iirregs = 0 --index of tirregs[] for j < 0, since search starts from parent

while j <= 3 do

local g = 0 --gap size

while g <= hgap_limit_irreg do

while k <= term_limit do

local from = bwanchor - k - g

if (k == 1) and

  (g == 0 or g == 1) and

then --allow bare-bones MOS:DATERANGE alternation, in case we're on a 0|1-gap, 1-year term series

local to2 = string.match(to, '%d%d$')

end

end

if to == '0-length' then

end

tlistallbwd[#tlistallbwd] = spanblue..tlistallbwd[#tlistallbwd]..span..' (found)'

local g = 0 --gap size

while g <= hgap_limit_irreg do

while k <= term_limit do

local from = fwanchor + g

if (k == 1) and

  (g == 0 or g == 1) and

then --allow bare-bones MOS:DATERANGE alternation, in case we're on a 0|1-gap, 1-year term series

to2 = string.match(to4, '%d%d$')

end

end

if to4 == '0-length' then

if rtarget(frame, full) == full then --only use 0-length cats that don't #R

end

end

end --if j > 0

  (lastk == (term_limit + 1))

then --search exhausted

--begin navhyphen

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

local terminaltxt = nil

--determine which link exists (full or abbr)

local full = firstpart..lspace..from..hyph..tofinal..tspace..lastpart

local abbr = firstpart..lspace..from..hyph..to2..tspace..lastpart

tofinal = (to2 or '') --rv to MOS-incorrect format; if full AND abbr DNE, then tofinal is still in its MOS-correct format

end

elseif t == 1 then --full-year consecutive ranges are also allowed

local abbr = firstpart..lspace..from..hyph..tofinal..tspace..lastpart --assume tofinal is in abbr format

local full = firstpart..lspace..from..hyph..to..tspace..lastpart

tofinal = (to or '') --if abbr AND full DNE, then tofinal is still in its abbr format (unless it's a century transition)

end end end end

if terminalcat == false then

terminaltxt = find_terminaltxt( disp ) --also sets tracking cats

end

if catlink.rtarget and avoidself then --a {{Category redirect}} was followed, figure out why

local base_regex = '%d+[–-]%d+'

local origbase = mw.ustring.gsub(orig, base_regex, '')

local terminal_regex = '%d+[–-]'..(terminaltxt or '')..'$' --more manual ORs bc Lua regex sux

if mw.ustring.match(orig, terminal_regex) then

trackcat(6, 'Navseasoncats range redirected (base change)')

elseif terminalcat == 1 then

local all4s_regex = '%d%d%d%d[–-]%d%d%d%d'

else

end

end

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..')'

local disp = start..hyph..finish

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

end

i = i + 1

end

--tracking cats & finalize

itlens = itlens + (ttlens[s] or 0)

end

end

end

--[[=========================={{  nav_tvseason  }}============================]]

-- tv        = 1

-- lastpart  = ) episodes

--begin navtvseason

local i = -5 --nav position

while i <= 5 do

if (t >= 1 and t <= maxtv) then --hardcode mintv

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

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

--[[==========================={{  nav_decade  }}=============================]]

-- firstpart = Some sequential

-- decade    = 2000

local mindec = sterilizedec(mindecade) --returns a tostring(unsigned int), or nil

if mindec then

  string.match(mindecade, 'BC')

then

local maxdec = sterilizedec(maxdecade) --returns a tostring(unsigned int), or nil + error

if maxdec then

  string.match(maxdecade, 'BC')

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

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

end

local i = -50 --nav position x 10

while i <= 50 do

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

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

end

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

--[[============================{{  nav_year  }}==============================]]

-- firstpart  = Some sequential

-- year        = 1760

while ygap1 <= 5 do --Czech Republic, Poland, Sri Lanka, etc. have 5-year terms

prevseason = firstpart..lspace..(year-ygap1)..tspace..lastpart

ygap1_success = true

break

while ygap2 <= 5 do --Czech Republic, Poland, Sri Lanka, etc. have 5-year terms

nextseason = firstpart..lspace..(year+ygap2)..tspace..lastpart

ygap2_success = true

break

yskipped[Yeary] = Yeary

cat = firstpart..lspace..Yeary..tspace..lastpart

if found then break end

end

yskipped[Yeary] = Yeary

cat = firstpart..lspace..Yeary..tspace..lastpart

if found then break end

end

--begin navyears

local y

local i = -5 --nav position

while i <= 5 do

y = ynogaps[i]

else

end

local BCdisp = ''

if switchADBC == -1 then --displayed y is in the BC regime

if y >= 1 then    --the common case

elseif y == 0 then --switch from BC to AD regime

switchADBC = 1

catlink = catlinkNoAD --usurp

elseif listall then

end

end

if catlinkHyph_4.catexists and catlinkHyph_4.rtarget == nil then --exists & no #Rs

catlink = catlinkHyph_4 --usurp

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

else

end

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()

--[[==========================={{  nav_roman  }}==============================]]

local toarabic = require('Module:ConvertNumeric').roman_to_numeral

local toroman  = require('Module:Roman').main

--begin navroman

local i = -5 --nav position

while i <= 5 do

if minrom <= n and n <= maxrom then

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

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

--[[=========================={{  nav_nordinal  }}============================]]

local nord = tonumber(ord)

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

['-century Judaism']      = 'BCE', --co-nominated

['-century rabbis']        = 'BCE', --co-nominated

}

local parentBC = mw.ustring.match(lastpart, '%s(BCE?)')      --"1st-century BC" format

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

end

local i = -5 --nav position

while i <= 5 do

if (minord <= osign) and (osign <= maxord) then

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

end

else

if listall then

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

local catlink = catlinkfollowr( frame, firstpart..' '..oth..tspace..lastpart, oth )

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

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()

--[[========================={{  nav_wordinal  }}=============================]]

local eng2ord = require('Module:ConvertNumeric').english_to_ordinal

local th = 'th'

th = ''

eng2ord = require('Module:ConvertNumeric').english_to_numeral

end

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

--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

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

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()

--[[==========================={{  find_var  }}===============================]]

local pagename = currtitle.text

if pn and pn ~= '' then

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

mw.ustring.match(cpagename, '%s(%d+[–-]present)$') --e.g. "UK MPs 2019–present"

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 tvseason = mw.ustring.match(cpagename, 'season (%d+)') or

mw.ustring.match(cpagename, 'series (%d+)')

local nordinal = mw.ustring.match(cpagename, '[:%s](%d+[snrt][tdh])[-%s]') or

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

local decade  = mw.ustring.match(cpagename, '[:%s](%d+s)[%s-]') or

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

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

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

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

mw.ustring.match(cpagename, '[:%-VW](%d+)%s') --e.g. "Straight-8 engines"

local roman    = mw.ustring.match(cpagename, '%s([IVXLCDM]+)%s')

nordinal or decade or year or roman

if skip_gaps and skip_gaps == 'yes' then

skipgaps = true

end

end

elseif currtitle.nsText == '' then

end

local decade = dec..'0s '

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

if exists then

navborder = false

local nav2 = nav_decade( frame, firstpart_dec, decade, lastpart, minimum, maximum )..testcaseindent..table.concat(ttrackingcats)

return nav1nav2( nav1, nav2 )

local nav2 = nav_hyphen( frame, start, hyphen, finish, firstpart, lastpart, minimum, maximum, testcasegap )..testcaseindent..table.concat(ttrackingcats)

else return nav2 end

else --regular nav_year

local clastpart = ' century '..lastpart

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

if not exists then --check for hyphenated century

clastpart = '-century '..lastpart

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

end

if exists then

navborder = false

local nav2 = nav_nordinal( frame, firstpart, century, clastpart, minimum, maximum )..testcaseindent..table.concat(ttrackingcats)

return nav1nav2( nav1, nav2 )

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)