الفرق بين الصفحتين: «وحدة:Navseasoncats» و«وحدة:Navseasoncats/ملعب»

local p = {}

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

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

local testcasecolon = ''

local testcases = string.match(currtitle.subpageText, '^testcases') or string.match(currtitle.subpageText, '^مختبر')

local navborder = true

local followRs = true

'صيانة شريط تصنيف مدى مختصر',

'تصنيف موسم تحويل مدى (تغيير القاعدة)',

'تصنيف موسم تحويل مدى (نهاية)',

'تصنيف موسم تحويل مدى (دليل الأسلوب)',

"تصنيف موسم خطأ في إعادة التوجيه",

}

'', -- [1] placeholder for [[تصنيف:صيانة شريط تصنيف يستخدم cat]]

'', -- [2] placeholder for [[تصنيف:صيانة شريط تصنيف يستخدم testcase]]

'', -- [4] placeholder for [[تصنيف:صيانة شريط تصنيف لا يستخدم شرطة]]

'', -- [5] placeholder for [[تصنيف:صيانة شريط تصنيف مدى مختصر]]

'', -- [6] placeholder for [[تصنيف:تصنيف موسم تحويل مدى (تغيير القاعدة)]]

}

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

not string.match(currtitle.text, 'تصنيف موسم.*/ملعب') and

currtitle.text ~= 'تصنيف_موسم' and  

currtitle.nsText ~= 'User_talk' and

local er_counts = 0

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

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

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

end

end

end

end

end

end

end

local bwd, fwd = '', ''

if tlistallbwd[1] then

bwd = '\n\nbackward search:\n# '..table.concat(tlistallbwd, nl)

end

if tlistallfwd[1] then

fwd = '\n\nforward search:\n# '..table.concat(tlistallfwd, nl)

end

if tlistall[1] then

else

end

end

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

if to == '00' then return nil end --doesn't follow MOS:DATERANGE

from = string.match(to, '(%d%d)%d%d')..from --1901-1902

end

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

--fix 1-digit decade

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

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

local tens = string.match(s, '1%d$')

local  ones = string.match(s, '%d$')

elseif ones == '2' then return s..'nd'

elseif ones == '3' then return s..'rd' 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 er_counts ~= 0 then

line = '#countall: ' .. er_counts .. '\n' .. line

end]]

end

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

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

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

-- firstpart = Some sequential

-- lastpart  = example cat

--sterilize start

--en dash check

if hyph ~= '–' then

end

--sterilize finish & check for weird parents

local ttlens  = {} --table of term lengths found w/i terms { [<term length found>] = 1 }

local tirregs = {} --table of ir/regular-term-length cats' "from"s & "to"s found

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)

--save sterilized parent range for easier lookup later

tirregs['from0'] = nstart

--sterilize min/max

else --"2001–2005" is required for t > 1; track "2001–05"; anything else = error

if lenfinish == 2 then

elseif lenfinish ~= 4 then

errors = p.errorclass('The second part of the season passed to function nav_hyphen should be four digits, not "'..finish..'".')

end

if finish == '00' then --full year required regardless of term length

end

end

--calculate intERseason gap size

local hgap_limit_reg  = 6 --less expensive per-increment (inc x 4)

local hgap_limit_irreg = 6 --more expensive per-increment (inc x 23: inc x (k_bwd + k_fwd) = inc x (12 + 11))

local hgap = hgap_default

while hgap <= hgap_limit_reg and regularparent == true do --verify

local nextseason2 = firstpart..lspace..(nstart+t+hgap)..hyph..string.match(nstart+2*t+hgap, '%d?%d$')..tspace..lastpart

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

end

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

then

hgap_success = true

if hgap <= hgap_limit_reg then --also to isolate temp vars

--find # of nav-visible ir/regular-term-length cats

local fwanchor = bwanchor + t --forward anchor/common year

if regularparent == 'isolated' then

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

end

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

  (from2 - (to2 or from2)) > 0 --century transition exception (e.g. 1999–2000)

then

end

if to == '0-length' then

--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 {{تحويل تصنيف}} 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

rtarbase = mw.text.trim(rtarbase)

if origbase ~= rtarbase then

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

if avoidself then

local itlens = 0 --# of diff term lengths found

for s = 1, hgap_limit_reg do --must loop; #tgaps, #ttlens unreliable

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

end

end

end

-- lastpart  = ) episodes

-- maximumtv = 7 ('max' tv season parameter; optional; defaults to 9999)

--begin navtvseason

local i = -5 --nav position

while i <= 5 do

local t = tv + i

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

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

if catlink.rtarget then --a {{تحويل تصنيف}} 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

-- lastpart  = example cat

-- mindecade = 1800 ('min' decade parameter; optional; defaults to -9999)

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

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

elseif maxdec == nil and maxdecade and maxdecade ~= '' then

errors = p.errorclass('Function nav_decade was sent "'..(maxdecade or '')..'" as its 5th parameter, '..

--AD/BC switches & vars

local parentBC = string.match(lastpart, '^%s*(ق%sم)')

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

lastpart = mw.ustring.gsub(lastpart, '^ق م%s*', '')

local dec0to40AD = (ndec >= 0 and ndec <= 40 and not parentBC) --special behavior in this range

if parentBC then switchADBC = -1 end -- -1=BC parent; possibly adjusted later

local BCdisp = ''

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 D >= -10 then

D = D + 10 --now iterate from 0s AD

end

elseif parentBC then

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

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

end

elseif switchADBC == 1 then --switched to the AD side

D = D + 10 --now iterate from 0s AD

end

end

--BCdisp = ' BC' --show BC for all BC decades whenever a "0s" is displayed on the nav

BCdisp = ' ق م '

--determine target cat

local catlink = catlinkfollowr( frame, link1, disp )

if catlink.rtarget then --a {{تحويل تصنيف}} was followed

end

local zsign, zmin, zmax = 1, nmindec, nmaxdec

if BC ~= '' then zsign = -1 end

elseif mindec ==  '0' then zmin =  1 end

elseif maxdec ==  '0' then zmax =  1 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

local minyear_default = -9999

local maxyear_default = 9999

local parentBC = string.match(lastpart, "^%s*(ق%sم)")  

local BCe = parentBC or "ق م"

mw.ustring.match(firstpart, "%s*كأس%s*العالم%s*") or  

mw.ustring.match(firstpart, "%s*الأولمبية%s*") or  

mw.ustring.match(firstpart, "%s*الألعاب%s*الآسيوية%s*") or

mw.ustring.match(firstpart, "%s*الرئاسة%s*الأمريكية%s*") or

end

end

BCdisp = " " .. BCe

end

if catlinkHyph_4.catexists and catlinkHyph_4.rtarget == nil then

catlink = catlinkHyph_4

done = true

else

if catlinkHyph_2.catexists and catlinkHyph_2.rtarget == nil then

catlink = catlinkHyph_2

elseif listall then

tlistall[#tlistall] = tlistall[#tlistall] .. " (tried; not displayed)"

local c_base = mw.ustring.gsub(c, regex_final, "")

if r_base ~= c_base then

else

end

else

end

end

end

end

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

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

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

local minrom = tonumber(minimumrom or '') or tonumber(toarabic(minimumrom or ''))

local maxrom = tonumber(maximumrom or '') or tonumber(toarabic(maximumrom or ''))

if maxrom < 1 then maxrom = 9999 end --toarabic() returns -1 on error

if minrom > num then minrom = num end

--begin navroman

local i = -5 --nav position

while i <= 5 do

if minrom <= n and n <= maxrom then

if catlink.rtarget then --a {{تحويل تصنيف}} 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

local nord = tonumber(ord)

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

if string.match(minimumord or '', 'BC') then minord = -math.abs(minord) end --allow BC qualifier (AD otherwise assumed)

if string.match(maximumord or '', 'BC') then maxord = -math.abs(maxord) end --allow BC qualifier (AD otherwise assumed)

local temporal = string.match(firstpart, 'القرن') or -- century

string.match(firstpart, 'الألفية') -- millennium

mw.log('nav_nordinal firstpart:' .. firstpart)

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

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

['-century Hebrew people'] = 'BCE', --WP:CFD/Log/2016 June 21#Category:11th-century BC Hebrew people

['-century High Priests of Israel'] = 'BCE',

}

local parentBC = mw.ustring.match(lastpart, '^%s*(ق%sم)')

local lastpartNoBC = mw.ustring.gsub(lastpart, '^%s*ق%s*م%s*' , '')

local BCe = parentBC or 'ق م' --"BC" default

if parentBC then switchADBC = -1 end -- -1=BC parent; possibly adjusted later

local O = 0 --secondary iterator for AD-on-a-BC-parent

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

end

firstpart = ' ' .. firstpart .. ' '

local i = -5 --nav position

while i <= 5 do

if parentBC then

if switchADBC == -1 then --parentBC looking at the BC side

elseif o == 0 then --switch to the AD side

BC = ''

if switchADBC == 1 then --displayed o is now in the AD regime

O = O + 1 --skip o = 0 (DNE)

end

elseif o <= 0 then --parentAD looking at BC side

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

end

--populate left/right navo

local osign = o --use o for display & osign for logic

if BC ~= '' then osign = -osign end

if temporal then --e.g. "3rd-century BC"

local lastpart = lastpartNoBC --lest we recursively add multiple "BC"s

if BC ~= '' then

end

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

if catlink.rtarget then --a {{تحويل تصنيف}} was followed