DOKUMEN123.COM

local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:If empty', removeBlanks = false}) -- For backwards compatibility reasons, the...

local p = {} local cfg = mw.loadData('Module:If preview/configuration') --[[ main This function returns either the first argument or second argument...

are specified if title_t[std] then -- and if standard is legitimate if title_t[std][tscript] then -- and if script for that...

are specified if title_t[std] then -- and if standard is legitimate if title_t[std][tscript] then -- and if script for that...

-- if first is initials with or without suffix if 3 > mw.ustring.len (name) then -- if one or two initials if suffix then ...

return frame:extensionTag{ name = 'templatestyles', args = { src = 'Module:If preview/styles.css' } } end return { preview = is_preview(), templatestyles...

templatestyles element inserts a link element before hatnotes. * TODO: Remove link if/when WMF resolves T200206 */ .preview-warning + link + .preview-warning {...

set to yes, if the image has to be centered -- upright - upright image param -- suppressplaceholder - if yes then checks to see if image is a placeholder...

fixChildBoxes(sval, tt) local function notempty( s ) return s and s:match( '%S' ) end if notempty(sval) then local marker = '<span class=special_infobox_marker>'...

passed to the parent -- with a list of arguments, returning a specified result if an argument is -- not on the list require ('strict'); local p = {} local...

-- if first is initials with or without suffix if 3 > mw.ustring.len (name) then -- if one or two initials if suffix then ...

local function tidyValDefault(key, val) if type(val) == 'string' then val = val:match('^%s*(.-)%s*$') if val == '' then return nil else return...

getEntityObject( id ) local value_id = id if entity then if entity.claims then if entity.claims[property] then ...

stripToNil(text) -- If text is a string, return its trimmed content, or nil if empty. -- Otherwise return text (which may, for example, be nil). if type(text)...

stripToNil(text) -- If text is a string, return its trimmed content, or nil if empty. -- Otherwise return text (which may, for example, be nil). if type(text)...

used in detecting DMS formatting ]] local function dmsTest(first, second) if type(first) ~= 'string' or type(second) ~= 'string' then return nil end...

pairs(cdata["isonames"] or {}) do if sqry==p.strip(tname) then return true end end for _,tname in pairs(cdata["altnames"] or {}) do if sqry==p.strip(tname)...

used in detecting DMS formatting ]] local function dmsTest(first, second) if type(first) ~= 'string' or type(second) ~= 'string' then return nil end...

can be invoked with named parameters, unnamed parameters, or a mixture. If named parameters are used, Mediawiki will automatically remove any leading...

math.floor(n * pow + 0.5) / pow end function p.getMapParams(map, frame) if not map then error('The name of the location map definition to use must...

= 1, ["retired"] = 1, ["free agent"] = 1, } local colors = nil if ( team and use_default[team:lower()] ) then colors = {"DCDCDC", "000000"...

local function trimArg(arg, i) arg = mw.text.trim(arg or '') if arg == '' then if i then error('Parameter ' .. i .. ' is missing. See template...

get_title_arg(is_collapsible, template) local title_arg = 1 if is_collapsible then title_arg = 2 end if template then title_arg = 'template' end return title_arg...

get_title_arg(is_collapsible, template) local title_arg = 1 if is_collapsible then title_arg = 2 end if template then title_arg = 'template' end return title_arg...

i18n local i18nPath local function loadI18n(aliasesP, frame) local title if frame then -- current module invoked by page/template, get its title from...

numericArray(csv) if not csv then return end local list = mw.text.split(csv, "%s*,%s*") local result = {} local isInteger = true for i = 1, #list do if list[i]...

leading # (if there is one) c = mw.ustring.match(c, '^[#]*([a-f0-9]*)$') -- split into rgb local cs = mw.text.split(c or '', '') if( #cs == 6 )...

--Gets general location from more specific one for short descriptions --i.e if a location is specified to be "P. Sherman 42 Wallaby Way Sydney, Australia"...

function in_array( needle, haystack ) if needle == nil then return false; end for n,v in ipairs( haystack ) do if v == needle then return n; end...

wikipedia.org local wd_article; -- article title from wikidata if options.encode == true or options.encode == nil then url_string = mw.uri...

(v) if (v <= 0.03928) then v = v / 12.92 else v = math.pow((v+0.055)/1.055, 2.4) end return v end local function rgbdec2lum(R, G, B) if ( 0 <=...

C C E S S D A T E >---------------------------------------- returns true if: Wikipedia start date <= accessdate < today + 2 days Wikipedia start date...

todays_date = lang:formatDate ('U'); if good1 then -- if embargo date is a good date if tonumber (embargo_date) >= tonumber (todays_date)...

local tracking, preview local function checkarg(k,v) if k and type(k) == 'string' then if k == 'align' or k == 'state' or k == 'style' or k == 'title'...

} end local function strip_to_nil(text) -- If text is a string, return its trimmed content, or nil if empty. -- Otherwise return text (convenient when...

is assumed that a valid taxobox colour is defined using CSS rgb() syntax. If no taxon that sets a taxobox colour is found, then 'transparent' is returned...

C C E S S D A T E >---------------------------------------- returns true if: Wikipedia start date <= accessdate < today + 2 days Wikipedia start date...

function in_array (needle, haystack) if needle == nil then return false; end for n, v in ipairs (haystack) do if v == needle then return n; end...

Can take a named parameter |qid which is the Wikidata ID for the article -- if not supplied, it will use the Wikidata ID associated with the current page...

self:parseDate(args[1]) end -- Raise an error on invalid values if self.year then if self.year == 0 then error('years cannot be zero', 0) elseif...

Gets a message from the cfg table and formats it if appropriate. -- The function raises an error if the value from the cfg table is not -- of the type...

end if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10)) end if era then if addon...

"%[(%w+)%|(.*)%|(.*)%|(.*)%]" -- [arg|equal to (blank for existence)|if true|if false] local pattern = "%%(%w+)%%" -- %arg% local function parser(formatStr...

args['cmax'] or '30') or 30 for k,v in pairs(pargs) do if type(k) == 'string' and isnotempty(v) then if k:match('^team%d%d*$') then local num = mw.ustring...

args = getArgs(frame) local deleted = args.decommissioned or args.deleted if deleted then return "background:#AAA;" end local colors = require"Module:Infobox...

tonumber(args["length_round" .. num]) if '' == km then local n = tonumber(mi) prec = prec or precision(mi) if n then lengths...

trimWhitespace(s, removeBlanks) if type(s) ~= 'string' then return s end s = s:match('^%s*(.-)%s*$') if removeBlanks then if s ~= '' then return s...

"no", default = "yes"} local yesOrNo = data[country] or data.default if yesOrNo == "no" then return args.countries else return...

require('Module:Yesno') function p.num(frame, count) if count == nil then if yesno(frame.args['fetch']) == false then if (frame.args[1] or '') ~= '' then count...

tonumber(d) if n and d and d > 0 then return string.format('%.2f', n / d * 100) end return '&ndash;' end local function tonumdash(s) if s then ...

'">' if not t1 or string.find(t1, '^%s*$') then if not t2 then t2 = '' end if string.find(t2, '<br ?/?>') == nil then t1 = '&nbsp;' end end if not...

customtoggles = ' mw-customtoggle-' .. id if month.s then label = label .. '&nbsp;' .. month.s -- "Mmm ##" if month.s ~= month.e then -- "Mmm ##–##"...

-- if there is an id handler if access then -- and if this is a request for the handler's custom access parameter if id_src[meta]...

'§&nbsp;' .. section if isShowingPage then page = page or title.prefixedText if options.display and options.display ~= '' then if normalizeTitle(options...

similarly to the template {{yesno}}. return function (val, default) -- If your wiki uses non-ascii characters for any of "yes", "no", etc., you --...

map = args.map or '' if args.map_custom == "yes" then return format('<div style="white-space:nowrap;">%s</div>', map) end if map == '' then local...

if we are using section transclusion for a different section if( isnotblank(Pargs['transcludesection']) and isnotblank(Args['section']) ) then if(...

script) if is_set (title) then title = strip_apostrophe_markup (title); -- strip any apostrophe markup else title=''; -- if not...

= {} for i = 1, numRedirects do -- Return an error if a redirect parameter is missing. if not args[i] then return mHatnote.makeWikitextError(...

range = range_types[arg] if range then if type(index) == 'number' and (index % 2 == 0) then if index == 2 then if numbers[1] and numbers[1]...

range = range_types[arg] if range then if type(index) == 'number' and (index % 2 == 0) then if index == 2 then if numbers[1] and numbers[1]...

showLimit = tonumber(args['show_limit']) -- build the legend if host ~= '' then if args['name_' .. host] then host = args['name_' .. host] host...

the need of repeated calls to Module:CountryData. This saves a little time if the same abbreviation appears multiple times in the template. local function...

lazily initialized local function colorlinks(v, s) if v and v ~= '' and s and s ~= '' then if not mw.ustring.match(v, '<span style') then v = mw...

(title); if is_set (title) then title = strip_apostrophe_markup (title); -- strip any apostrophe markup else title = ''; -- if not...

for key, val in pairs(argsTable) do if type(val) == 'string' then val = val:match('^%s*(.-)%s*$') if val ~= '' then cleanArgs[key] = val...

with messages from the -- config module. local msg = self.cfg.msg[key] if select(1, ...) then return mw.message.newRawMessage(msg, ...):plain() else...

format('[[File:Farm-Fresh css add.svg|32px|alt=%s]]', format('logo-alt')) } if #tStyles < 1 then boxArgs.text = string.format('<strong class="error">%s</strong>'...

dateType) if not lang then lang = mw.language.getContentLanguage() end local success, result = pcall(lang.formatDate, lang, 'U', dateString) if success...

num] if not(city or location) then return '' end local parts if num == 1 then parts = {"&nbsp;– "} else parts = {", "} end if location...

unnecessary manual displaytitle]]", } --- Returns a maintenance category if the italic_title value is not "no". --- --- Infobox parameters checked: ---...

title = mw.title.getCurrentTitle() if title.subpageText == "doc" then title = title.basePageTitle end if title.contentModel == "Scribunto" then...

expensive function count limit. local success, title = pcall(mw.title.new, ...) if success then return title end end local function union(t1, t2) -- Returns...

trim( s ) == '' end local function createGroupList( tab, legends, cols ) if #legends > 1 and not hideGroupLegends then table.insert( tab, mw.text.tag(...

'') ~= '' end local function widths(w,d) local width = is(w) and w or d if tonumber(width) then width = width .. 'px' end return width end local p...

if #t == 0 then temppage = removeditem1 .. "-stub" end temppageexists = i.exists(temppage) if temppageexists...

colhead(ttt,width,text) -- For individual column headers local head_string if width=='auto' then head_string = '! scope="col" |'..text..'\n' else head_string...

Short Summary cell. local nonNilParams = 0 -- Variable that will keep track if a TBA value was entered. local cellValueTBA = false -- Variable that handles...

to test against argument; if empty, the argument is -- tested for existence -- match is the string to be substituted if the argument matches value...

function p.split(parameters, args) local route = tonumber(args.route) or 0 if route < parameters.split then return parameters.below else return parameters...

function p.split(parameters, args) local route = tonumber(args.route) or 0 if route < parameters.split then return parameters.below else return parameters...

table.insert(listItems, options.msg) -- Return an error if we have nothing to display if #listItems < 1 then local msg = cfg['no-content-error']...

cfg.class.navbox_odd_part, cfg.class.navbox_even_part if args[cfg.arg.evenodd] then if args[cfg.arg.evenodd] == cfg.keyword.evenodd_swap then ...

getArgs(frame, {parentFirst = true}) -- Exit early if we are using section transclusion for a different section if (Args['transcludesection'] and Args['section'])...

in ipairs(s) do v = mw.text.trim(v, "%s;") if not isblank(v) then r = r .. v .. ';' end end if isblank(r) then return nil end return r end local...

SelColors = {} local ColorNameL = string.lower(ColorName) local Palet0 = {} if ColorNameL == 'categ20' then Palet0 = category20 elseif ColorNameL == 'plotter'...

access ] if not suited then finer() lucky, r = pcall( fun, "Module:" .. storage ) end if not lucky then if not suited...

['H301+H311+H331'] = 'Toxic if swallowed, in contact with skin or if inhaled', ['H301+H331'] = 'Toxic if swallowed or if inhaled', ['H302'] = 'Harmful if swallowed'...

= {} if tonumber(args[1]) or args[2] or args[3] then if args[4] then return p._error('Parameter number 4 should not be specified') end if not args[1]...

error, if not available if not URLutil then local lucky, util = pcall( require, "Module:URLutil" ); if lucky then if type(...

access ] if not suited then finer() lucky, r = pcall( fun, "Module:" .. storage ) end if not lucky then if not suited...

function addTrackingCat(prop, cat) if not prop and not cat then return error("no property provided") end if not cat then cat = i18nmessages.trackingcat...

args.province local type = args.type if country == 'MEX' then return "20x30" elseif country == 'CAN' then if state == 'AB' or state == 'QC' or state...

) if thing == nil or thing == '' then return true end return nil end local function getIdFromWikidata( item, property ) local id = nil if property...

access ] if not suited then finer() lucky, r = pcall( fun, "Module:" .. storage ) end if not lucky then if not suited...

local i, _ = s:find(':', 1, true) if i == nil then return 'Template:' .. s end local ns = s:sub(1, i - 1) if ns == '' or mw.site.namespaces[ns]...

--2020-06-16 fix error when vtos(nil), then it showed two nil --2020-06-08 if a variable is a function now is displayed as function (before "function")...

if(platformA == nil) then platformA = mw.wikibase.label('Q'..a['qualifiers']['P400'][1]['datavalue']['value']['numeric-id']); end; end; if...

style="color:#d33">[[Module:GetShortDescription]] '..message..'.</span>' if not preview then message = message..'[[Category:Pages displaying alarming...

key) local ret = rawget(t, key) if ret then return ret end ret = metatable[key] if type(ret) == 'function' then ...

function(cat, sortkey) if cat and cat~='' and (namespace==0 or namespace==14 or testcases) then local redlinkcat = '' if testcases==false then ...

{{convert|123|lb|kg}} --> 123 pounds (56 kg) -- See [[:en:Template:Convert/Transwiki guide]] if copying to another wiki. local MINUS = '−' -- Unicode U+2212 MINUS SIGN...

GlossingType = "label", -- if set to "label" gloss abbreviations are formatted as an <abbr> with the "label" appearing in a tooltip -- if set to "wikilink"...

override', } function p.main(frame, body) -- If we are substing, this function returns a template invocation, and if -- not, it returns the template body....

= {} Collection.__index = Collection do function Collection:add(item) if item ~= nil then self.n = self.n + 1 self[self.n] = item end end...

require("strict") local p = {} local getArgs local function delinkReversePipeTrick(s) if s:match("^%[%[|.*[|\n]") then -- Check for newlines or multiple pipes. return...

parameters; see if there's a first parameter, ignoring its name if (args[1]) then -- if there is treat it as Chinese label = "" if (uselabels)...

= require( "Module:WeatherBoxColors" ); function checkFlag( flag ) if flag == nil then return nil; elseif type( flag ) == 'boolean'...

parenthetical disambiguators if any when <raw> is false if link then -- make a link to the language article? if name:find ('languages')...

function ( frame ) if not frame:getParent() then error( '{{#invoke:Unsubst-infobox|}} makes no sense without a parent frame' ) end if not frame.args['$B']...

local TaxonItalics = require("Module:TaxonItalics") local IfPreview = require([[Module:If preview]]) local p = {} --[[============================...

namespace] or {} local keys = {} if nsInfo.name ~= '' then table.insert(keys, nsInfo.name) end if nsInfo.canonicalName ~= nsInfo.name and nsInfo...

if not frame then frame = mw.getCurrentFrame() end local refContent = "" local rfc = isblank(tonumber(args[1])) and 0 or tonumber(args[1]) if not...

= '' local testcases = string.match(currtitle.subpageText, '^testcases') if testcases then testcasecolon = ':' end local navborder = true local followRs...

return mw.ustring.gsub(short_description, '^([^%d])', function(first_char) if case == 'upper' then return mw.ustring.upper(first_char) end return...

for i, j in ipairs(p.fblist(lang)) do if args[j] then if args[j] == '~' then return nil, j end if j == 'message' then return tostring(mw.message...

cattype) if category then p.categories = p.categories..category end --categorize end --sanity and other checks function p.validate (parameter, cat) if not...

non-A-Z starts if string.match(index, '%A') then return '1' end return string.upper(index) end local function stripToNil(text) -- If text is a string...

table classes data.classes = {} if yesno(args.metadata) ~= false then table.insert(data.classes, 'metadata') end if args.position and args.position:lower()...

v1 in ipairs(data) do args = {} if v1 ~= '' and v1 ~= '\\' then local tmp = mw.text.split(v1, '\\') if i1 == 1 then default = tmp[1] ...

process -- origArgs.no_comma: if false, use commas to detect plural (default false) -- origArgs.parse_links: if false, treat wikilinks as opaque...

( frame ) local entity = mw.wikibase.getEntity( frame.args.qId or nil ) if entity then local prevalenceClaims = entity.claims and entity.claims.P1193...

makelist = function(frame) local args = frame.args if not args[1] then args = frame:getParent().args if not args[1] then return end end local semi =...

provided in the statement (if sourceproperty is not provided, the property used is Padron:P) excludespecial = set to true if you do not want to get "novalue"...

bannerModule) if shield and shield ~= '' then if suffix == nil then suffix = parser(route, 'shield', 'suffix', bannerModule) end if suffix and...

= {} Collection.__index = Collection do function Collection:add(item) if item ~= nil then self.n = self.n + 1 self[self.n] = item end end...

-- * Remove thousand separators (commas) from the scale field. -- If the scale is a number, do not change it. -- Otherwise, it should be an...

require('strict') local p = {} local data -- Load [[Module:eFloras/data]] if needed and assign to this variable. local function getResource(floraID) ...

local suffix = "th" -- If tonumber(n) worked: if x then local mod10 = math.abs(x) % 10 local mod100 = math.abs(x) % 100 if mod10 == 1 and mod100...

trimArg >----------------------- trimArg returns nil if arg is "" while trimArg2 returns 'true' if arg is "" trimArg2 is for args that might accept...

res = nil val = mw.text.killMarkers(val) if val:match('[0-9]') then res = 1 if val:match('[%(][−0-9%.]') and val:match('[%)]') then...

require('Module:Yesno') local generateWarning = require('Module:If preview')._warning local p = {} -- Check if string is a valid QID -- Argument: QID to check --...

getData(system, verify) if verify then local title = mw.title.new('Module:Adjacent stations/' .. system -- .. '/sandbox' ) if not (title and title...

bannerModule) if shield and shield ~= '' then if suffix == nil then suffix = parser(route, 'shield', 'suffix', bannerModule) end if suffix and...

ColorNameInvFromS0 (S) local IsInv = false local ColorName = '' local Params = {} if S ~= '' then for w in S:gmatch("([^_]+)") do table.insert(Params...

-- args.archive: if non-empty, return nil -- args.year: else if this is non-empty, use it for year -- args.date: else if this is non-empty, parse...

if (string.match(thisPageLC, "/archive") ~= nil) then return false end if (string.match(thisPageLC, "/doc") ~= nil) then return false end if (string...

to check if we're in a good namespace local ns = mw.title.getCurrentTitle().namespace for v in mw.text.gsplit( namespaces, ",", true) do if tonumber(v)...

-- loop over the parent args and see if any are deprecated for k, v in pairs(pargs) do if ignoreblank then if dep_values[k] and v~='' then table...

lazy initialization local function ifexist(page) if not page then return false end if mw.title.new(page).exists then return true end return...

text = {args.region_note} local tense local hatnoteArg = args.hatnote if hatnoteArg == 'off' then insert(text, '') elseif hatnoteArg then insert(text...

==================================== function p.main(frame) local args if frame.args['direct'] == 'yes' then args = frame.args else args = frame:getParent()...

2] do local change = {pattern = args[i * 2], repl = args[i * 2 + 1]} if not change.repl then return require('Module:Error').error{ 'MultiReplace:...

throw an error if given an explicit nil parameter, so we need to use if statements to check the params. if first and second then if first <= second...

trim(vv) if checknested and pargs[vv] or isnotempty(pargs[vv]) then count = count + 1 table.insert(pfound, vv) end end if count > 1...

trim(vv) if checknested and pargs[vv] or isnotempty(pargs[vv]) then count = count + 1 table.insert(pfound, vv) end end if count > 1...

options, n, more = {} if frame.args['module_options'] then local module_options = mw.loadData( frame.args['module_options'] ) if type( module_options...

end -- add table classes if isnotempty(args['class']) then root:addClass(args['class']) end -- add table style if isnotempty(args['style']) then...

plural) if ordinal then return 'ika' end if plural then return 'mga ' end return '' end local function numeral_naong(num, bilang, st) if bilang <...

bannerModule) if shield and shield ~= '' then if suffix == nil then suffix = parser(route, 'shield', 'suffix', bannerModule) end if suffix and...

new, ...) if success then return titleObj else return nil end end -- Gets the name of a page that a redirect leads to, or nil if it isn't a --...

from the given link and display values. Links are escaped -- with colons if necessary, and links to sections are detected and displayed -- with " § "...

purge = args.purge -- Add a purge link if something (usually "yes") is entered into the purge parameter if purge then purge = ' <span class="plainlinks">(['...

then regular season if entry.startA then if not entry[key..'A'] then spanlength = spanlength + 1 else break end if not entry[key..'B'] then...

exit displaying nothing if the input is empty. if args[1] == nil then return end local num = tonumber(args[1]) if not num or num < 0 or num...

airdate_overall if start_date then if not start_date:find("dtstart") then return error_category end end local end_date = args.last_aired if end_date...

= string.find(content, "==", 1 , true) if offset then local lead = string.sub(content, 1, offset-1) if (string.find(lead, searchString)) then ...

name .. '\n' .. [=[ |- ! name |colspan="3"| ]=] .. map.name .. [=[ |- ]=] if map.top then retval = retval .. [=[!rowspan="4"|border<br/>coordinates |-...

local card = tonumber(cardinal) if not card then return cardinal end local ordsuffix = i18n.ordinal.default if card % 10 == 1 then ordsuffix = i18n...

The -- -- module can also use the corresponding subject namespace value if it is -- -- used on a talk page. Parameter names can be configured for...

error is raised if `overwrite` is not true -- and any key in `arr` is already in `target`. function util.addAll(target, arr, overwrite) if type(target)...

= {} if not args then args = getArgs(frame, {wrappers = 'Template:Location map+', valueFunc = locmap.valueFunc}) end if not map then if args[1]...

>----------------------- trimArg returns nil if arg is "" while trimArg2 returns 'true' if arg is "" trimArg2 is for args that might accept...

duration in seconds in "(h:)mm:ss" (minutes are zero-padded -- only if there are hours). if not length or length == 0 then return nil end -- Add 0.5 to...

function(key,value) if value then value = mw.text.trim(value) --Change empty string to nil for all args except 'image' and 'border' if key=="image"...

args = {} if type(frame.args) == 'table' then for k, v in pairs( frame.args ) do v = mw.text.trim(v) if v ~= '' then...

if title.isRedirect then title = title.redirectTarget if fragment == "" then fragment = title.fragment -- page merge potential end end if...

math.max(#langList,2),'default') for i,language in ipairs(langList) do if list[language] then return list[language] end end end --...

'Template:Clickable button 2' }) return p.luaMain(args) end function p.luaMain(args) if not args[1] and not args.url then return '' end local data = p.makeLinkData(args)...

s:match( '^%s*(.-)%s*$' ) ~= '' end local function getdimensions(s, w, h) if tonumber(w) and tonumber(h) then nonautoscaledimages = true return tonumber(w)...

2, #patterns do local i2, j2 = mw.ustring.find(s, patterns[n], init) if i2 and (not i or i2 < i) then i, j = i2, j2 end end return i, j end...

check(frame) local taxonbarExists = require('Module:Taxonbar/exists').check if taxonbarExists(frame) then return '' else local resolveEntity = require(...

listed. Whitespace is trimmed off both ends and the strings are urlencoded as if they were query strings. |article-link=: Optional Wikipedia article name to...

values -- @todo Somehow internationalize it local function truthy(value) if not value or value == '' or value == 0 or value == '0' or value == 'false'...

local p = {} local getArgs function p.main(frame) if not getArgs then getArgs = require('Module:Arguments').getArgs end local args = getArgs(frame...

scale2) if yn(doColor) then out = out .. '</span>' end if yn(link) then out = out .. "]]" end if (scale2) then out = out .. " (" if yn(link)...

= '' end if not case then case = '' end if not class then class = '' end if not trim_year then trim_year = '100-999' end -- if language is...

elpf .. elpc .. " " .. elpn .. "]" end local tidy_param = function(param) if param == "" then param = nil end return param end p.make_entry = function(frame)...

local titleText = args[2] or args["title_text"] -- If the title text was manually added, return it. if (titleText) then return titleText end -- The...

t[sub(s, i, i + 1)] or t[sub(s, i, i)] if ret then return ret end end ret = t[sub(s, -1)] -- Last character if ret then return ret end end local...

check if we're in a good namespace local ns = mw.title.getCurrentTitle().namespace for v in mw.text.gsplit( namespaces, ",", true) do if tonumber(v)...

'Module:Banner shell' .. (sandbox or '') .. '/styles.css'}) local content_row if content then content_row = mw.html.create('tr') :tag('td') :attr('colspan'...

process the image parameters and tidy up the formatting of the result. NOte: If you specify the maxsize or sizedefault params, the should include the px after...

given title. -- If no title is specified, the title of the page being displayed is used. function p._main(action, pagename) local title if type(pagename)...

validating a specific object. return function (methodName, argIdx, arg) if not isObjectFunc(arg) then error(string.format( "bad argument #%d to...

";"} ); end function range_pos( value, start, stop ) if start < stop then if value < start then return 0; elseif value...

function p.TNTTabFull (TNTTab) if (string.sub(TNTTab, 1, 5)) ~= 'I18n/' then TNTTab = 'I18n/'..TNTTab end if (string.sub(TNTTab, string.len(TNTTab)-3))...

Gets a message from the cfg table and formats it if appropriate. -- The function raises an error if the value from the cfg table is not -- of the type...

function p._id(id,alt) if type(id) == 'string' then id = mw.ustring.upper(mw.ustring.sub(id,1,1))..mw.ustring.sub(id,2) if mw.ustring.match(id,'^Q%d+$')...

always like "[[target|" even if the source wasn't local T_NOCHANGE = 30 -- Anything else like ☃ function su(up, down) if up == "" then return ('<sub...

Use demo parameter if it exists, otherswise use current template name local namespace = mw.title.getCurrentTitle().namespace if frame.args["demo"] and...

if success then return uri end end function p._url(url, text) url = trim(url or '') text = trim(text or '') if url ==...

']]' end local if_exists = function(target, fallback) -- function to add wikilink if target exists local title = mw.title.new(target) if title and title...

if not entity or not entity.claims then return end--the entity doesnt exist or have no claims local property = entity.claims[propertyName] if...

if type(k)=='string' then local j,n = string.gsub(k, " ", "_") -- substitute spaces if n > 0 then --if j ~= k then -- if substitution...

positional key, and if so, returns it. If -- the key is invalid, this returns nil. local function isPositionalKey(s) s = trim(s) if s:find('^[1-9][0-9]*$')...

tonumber(mw.ustring.match(k,pattern)) --- if "foo_?%d+", extract number if ord then values[ord] = v end end if args[key] ~= nil then values[1] =...

end -- set the taxobox name if not supplied, italicizing it if appropriate. if name == '' then name = basePagename if italicTitle == 'yes' then ...

potential mathematical expression? number = tonumber(frame.args[1]) if number == nil then return '<strong class="error">Error: input not recognized...

-- check if thousand marker exists if letter == "," then thousand_flag = true else if thousand_flag ==...

algorithm used is: * If the name has italic markup at the start or the end, do nothing. * Else * Remove (internal) italic markup. * If the name is made...

langData = m_data.languages or m_data local p = {} local function ifNotEmpty(value) if value == "" then return nil else return value end end local...

input base) from = tonumber(from) if not from or from < 34 then local c n, c = n:gsub('^(-?)0[Xx]', '%1') if c > 0 and not from then from = 16 end...

langData = m_data.languages or m_data local p = {} local function ifNotEmpty(value) if value == "" then return nil else return value end end local...

local p = {} local floor = math.floor local function errorf(level, ...) if type(level) == "number" then return error(string.format(...), level + 1)...

a number local msg; local category; if not number then if ignore then return ''; -- if ignore is true then no message, no category...

(frame.args[1] ~= nil) and frame.args or frame:getParent().args local cols if isnotempty(args['4thcoltitle']) and isnotempty(args['3rdcoltitle']) then ...

if k == args[1] then --- if argument is just "foo", put it first values[1] = v else ord = tonumber(mw.ustring.match(k,pattern)) --- if "foo_...

_main(args) local shorthand = args[1] if shorthand then shorthand = trim(shorthand) end local return_table if cfg[shorthand] and type(cfg[shorthand])...

width,area) if length and width then return math.max(length,width) end if length then return length end if width then return width end if area then...

index, cols in ipairs(data.data) do if cols[1] and cols[2] then first_char=string.sub(cols[2], 1, 1) if first_char == "C" or first_char == "Z"...

distinguished by the presence of a "-" but that does not always work, see Q11927173 if not page then return nil end return fb._langSwitch({ -- singular de...

processResult(options, success, ...) if not success then local message = tostring(... or '(no message)') if options.removeLocation then message...

country if params and next(params) then return p.gettable(frame, country, params) end -- Uses mw.loadData to cache data for the most-used templates if mostUsed...

local p = {} local yn = require("Module:Yesno") local pv = require("Module:If preview") local pvWarning = pv._warning --[[ Formats the word count, etc....

'%[%[kg%]%]s', '[[Kilogram|kg]]') return s end local function isnumber(s) if s then s = mw.ustring.gsub(s, '%+%s*%d+%s*/%s*%d+%s*$', '') s = mw.ustring...

url_assesment_ID local msg if args.doi then doi_taxon_ID, doi_assesment_ID = args.doi:match ('[Tt](%d+)[Aa](%d+)%.e[ns]$') if not doi_taxon_ID then ...

{width = 0, height = 0} if h > 0 then w = math.floor(h * (tonumber(file.width) or 0)/(tonumber(file.height) or 1) + 0.5) if w > 0 then return w...

if not page then return ''; -- TODO: error message? end local content = page:getContent(); -- get unparsed content if...

Classes and TemplateStyles data.classes = {} data.templatestyles = '' if listType == 'horizontal' or listType == 'horizontal_ordered' then table...

separation --- if yesno(tArgs.literals, false) then if false then local _, sCount _, sCount = mw.ustring.gsub(sWordlist, '"', '') if sCount > 1 then...

['tpt-languages'] = true } local function getSeparator(sep) if type(sep) ~= 'string' then return nil end if separators[sep] then return mw.message.new(sep...

trimcache[str] if quick then return quick else -- local out = string.gsub(str, "^%s*(.-)%s*$", "%1") local lowEnd for i = 1,#str do if not whitespace[string...

collapsible lists}} -- implementation, which passed some parameters through {{#if}} to trim -- their whitespace. This also triggered the automatic newline...

expiry of a restriction of an action on a given title, or unknown if it cannot be known. -- If no title is specified, the title of the page being displayed...

1. 'Special:Search/', if using the enwiki pagename as the interwiki target 2. If not (1), an 'Author:' prefix, localized, if given a works parameter...

search(testFunc, i, lower, upper) if testFunc(i) then if i + 1 == upper then return i end lower = i if upper then i = midPoint(lower, upper)...

unsupported units]]' if(pop ~= '' and area1 ~= '') then -- pop and area are defined local popnum = tonumber(pop) if not popnum then error(string...

section) local help if section then help = ' ([[Template:Page-multi#' .. section .. '|tulong]])' else help = '' end local cat if demo == 'yes' then...

require('Module:Side box')._main local generateWarning = require('Module:If preview')._warning local p = {} local logo = { wikt="Wiktionary-logo-v2...

Local function which checks if both booleans are true or not. local function validateTwoParameters(isValid1, isValid2) if (isValid1 and isValid2) then...

if (string.match(thisPageLC, "/archive") ~= nil) then return false end if (string.match(thisPageLC, "/doc") ~= nil) then return false end if (string...

tab") for index, cols in ipairs(data.data) do if cols[1] and cols[2] then if cols[2] ~= "Cn" then result.singles[tonumber(cols[1],...

'boolean', true) if removeColon ~= false then link = removeInitialColon(link) end local namespace = link:match('^(.-):') if namespace then local...

for value; return true if found, false else ]] local function is_in_table (tbl, value) for k, v in pairs (tbl) do if v == value then return...

'no' if yesno(sort_table_val) then sort_text = 'sortable' end local show_played = true local hide_played_val = Args['hide_played'] or 'no' if yesno(hide_played_val)...

if match(s, '^' .. v .. '$') then return true end end end function p._main(args) local s = args[1] local pron = 'a' local ret = '' if s...

sortkey nesting. -- Example: {{sort|{{dts|2013|07|07}}|{{dts|1990|12|01}}}} if string.find(sortkey, "sortkey") or string.find(sortkey, "data-sort-value")...

parameter value if found, or nil if not found ]]-- function util.getParameterValue(args, param_id, suffix) suffix = suffix or '' if type( L10n.para[param_id]...

colors = nil if ( team and use_default[team:lower()] ) then colors = {"DCDCDC", "000000"} else colors = all_colors[team] if ( colors and type(colors)...

local fontcolor = '' local function buildicon(n, form, lk, c, t) local res if form == 'text' then return tostring( mw.html.create('span') :css('font-weight'...

_ISOyear( input ) if not input then return '' end input = mw.text.trim( input ) -- if empty string then return it if input == "" then return...

`unitdef` -- to the other supported unit. local function convert(unit, unitdef) if unit == nil or unitdef == nil then return {} end -- Import module to convert...

local p = {} --[[ main This function returns parameter 1 as a warning if the page containing it is being previewed. Usage: {{#invoke:Preview...

frame:getParent().args for k, v in pairs(args) do if tostring(k):match('%-team[0-9]') then if tostring(v):match('[Bb][Rr][^<>]*>[%s]*.[Nn][Bb][Ss][Pp]')...

category, if it exists -- If it doesn't exist, just display the greyed unlinked title function makeCatLink(catname, disp) local displaytext = catname if disp...

iconData if code then code = code:match('^%s*(.-)%s*$'):lower() -- trim whitespace and put in lower case iconData = data[code] end if not iconData...

sdata if not data[code] then return "" --Unassigned or reserved 3166-1 code else local sname = "Module:ISO 3166/data/"..code if not (d...

local function newCategoryLinker(options) local formatString if options.project then if options.showPrefix then formatString = '[[:' .. options.project...

in ipairs(s) do v = mw.text.trim(v, "%s;") if not isblank(v) then r = r .. v .. ';' end end if isblank(r) then return nil end return r end local...

Wikitext to parse. -- @return Wikitext of the lead section. May be empty if the lead section is empty. function parser.getLead( wikitext ) wikitext =...

not be categorized (except for the -- error category, which is always added if there is an error). -- For example “Template:Foo/doc” matches the `doc = true`...

if not args[1] then local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided...

loadEasterYear(year) if not year then return false, formatEasterError(EasterData.errorMissingYear) end local result = tonumber(year) if not result...

-- validate the language parameter within MediaWiki's caller frame if lang == "arabic-indic" then -- only for compatibility ("arabic-indic" is not...

subspecies3 = "", "", "" --if (templateArgs['subspecies1'] and templateArgs['subspecies2']) if templateArgs['subspecies1'] or...

local boolean_value; if type( boolean_str ) == 'string' then boolean_str = boolean_str:lower(); if boolean_str == 'false' or boolean_str...

the routines -- -- local lua_value = JSON:decode(raw_json_text) -- -- If the JSON text is for an object or an array, e.g. -- { "what": "books"...

numbers just in case month = tonumber (month); if (2 == month) then -- if February if (0 == (year%4) and (0 ~= (year%100) or 0 == (year%400)))...

getActiveSystems(args) local activeSystems = {} for k, v in pairs(args) do if data.systems[k] and yesno(v) then table.insert(activeSystems, k) end...

isPositiveInteger -- -- This function returns true if the given value is a positive integer, and false -- if not. Although it doesn't operate on tables, it...

0 local function tableMerge(t1, t2, overwrite) for k,v in pairs(t2) do if type(v) == "table" and type(t1[k]) == "table" then -- since type(t1[k])...

=============================--]] local function Valid(v)--type validation if v and v~=true then--reject nil/boolean; faster than 2 type() comparisons ...

replace url if contains "details" if url == "" and templateArgs['page'] then replace = true end -- if no url and page number available, if replace then...

pairs(lists) do if not list.found then for _, arg in pairs(args_to_check) do for _, pattern in ipairs(list.patterns) do if mw.ustring.find(arg...

args['title'] or args[1] or args['1'] or tostring(mw.title.getCurrentTitle()) if title == '' then --不能讓title變空值，否則url會返回nil title = tostring(mw.title.getCurrentTitle())...

style="display:none"></span>' -- prec = math.floor(prec) if sigfig ~= '' then if pct ~= 0 then return skey .. fmtout(rnd(pct, tonumber(sigfig)...

number } local function parameterParser(args) local keysParam = args.keys if not(keysParam) then return {} end local keys = mw.text.split(keysParam, "...

require('Module:Message box').main local getArgs local activeBox -- lazily initialized if we get an active request -----------------------------------------------...

ret[#ret + 1] = 'File:' .. args.file -- Format if args.format then checkArg('format', args.format) if args.formatfile then checkArg('formatfile'...

failure. local function quickPcall(func) local success, result = pcall(func) if success then return result end end -- Gets the rank for a Wikidata property...

---------------------------- local function makeWikilink(page, display) if display then return mw.ustring.format('[[%s|%s]]', page, display) else...

} return t[str] or 'masculine' end local function processnumber(str) if str == 'p' or str == 'plural' then return 'plural' else return 'singular'...

category; if not tally then if args.ignore then return ''; -- if ignore is true then no message, no category end if article_whitelist...

'#C96', '#f9f9f9'}, reuseStr = {}, saveStr = function(self, name, ...) if not self.reuseStr[name] then self.reuseStr[name] = table.concat{...} ...

taxoboxTable, target, headerText) local wikiText = "" -- return if we don't have value if not templateArgs[target] or templateArgs[target] == '' then return...

do if options[k] == nil then options[k] = v end end local s = options.space -- Format the list if requested if options.formatted then...

lower(tostring(args.tag)) -- Work out what html tag we should use. if not (tag == 'p' or tag == 'span' or tag == 'div') then tag = 'strong'...

create() local htable = html:tag('table') if class then htable:attr('class', class) end if style then htable:attr('style', style) end ...

(frag, frag_len) local nat = ''; if not nationality_list [frag[1]] then -- if not a one-word nationality if 2 <= frag_len - 2 then ...

"" then -- if using a newick string instead of a clade structure newickString = p.processNewickString(newickString,childNumber) if nodeLabel ==...

local template if args._template then template = args._template else local currentTitle = mw.title.getCurrentTitle() if currentTitle...

only time colspans[1] wouldn't be set is if no -- combatant has a field with the given prefix and suffix. if colspans[1] then -- Since each found argument...

ipairs(names) do if columnName == 'name' then name = row[pos] else newVal[columnName] = row[pos] end end if name then if ( (type(name)...

phrases' if sLabel == nil then sLabel = sSection end if (sLabel or '') == '' then sLabel = '' else sLabel = '|' .. sLabel end if (sSection...

'([^|}]+)'); if rvalue then -- if rvalue is something rvalue = mw.text.trim (rvalue); -- trim it end if not rvalue...

sopt) if sopt then sopt = mw.ustring.lower(sopt) if sopt == "tight" then sopt = "t" end if sopt == "tightx" then sopt = "tx" end if sopt...

fa_word_plur -- First convert to lower case if it is a string for_against_style = string.lower(for_against_style) if for_against_style=='g' or for_against_style=='goal'...

local s1 = "" -- if it's a list chop off and (store as s1) everything up to the first <li> local lipos = mw.ustring.find(s, "<li>" ) if lipos then s1...

libraryUtil.checkTypeMulti local function _check(funcName, expectType) if type(expectType) == "string" then return function(argIndex, arg, nilOk)...

year; if 19 ~= id:len() then err_type = 'length'; else year = id:match ("^(%d%d%d%d)[%a][%w&%.][%w&%.][%w&%.][%w.]+[%a%.]$") -- if not year...

-- Make the URL local url do local title if args.page then title = mw.title.new(args.page) if not title then error(string.format( "Hindi...

args = frame:getParent().args local s = args[1] local pattern = args[2] if not s or not pattern then -- TRUE_STRING is not the natural choice here...

categories end -- Validate a track length. If a track length is invalid, a warning is added. -- A type error is raised if the length is not of type string or...

reference) local cell = mw.html.create('th') -- Width local cell_width if width == 'auto' then cell_width = 'auto' elseif tonumber(width) ~= nil...

end local function addUtcToStringIfItDoesNotEndWithUtc(s) if s == "" or endswith(s, "~~~~") then return s end if not endswith(s, "(UTC)") then return...

--------------------------- local or require()d entry point return true if <code> is a mediawiki recognized code; false else <code> - language code...

ipairs(variableVals) do v = mw.text.trim(v) -- trim whitespace if #v > 0 or not yesno(args.skipBlanks) then if addSeparator then result = result .. sep end...

local p = {} function p._isIpV6(s) local dcolon, groups if type(s) ~= "string" or s:len() == 0 or s:find("[^:%x]") -- only colon and hex digits...

args local function valueFunc(key, val) if type(val) == 'string' then val = val:match('^%s*(.-)%s*$') if val == '' then return nil end end ...

local num = tonumber(args[1]) local success, result = pcall(p._main, num) if success then return result else return string.format('<strong class="error">Error:...

the entity ID of the item linked to the current page. function p.id(frame) if not mw.wikibase then return "no mw.wikibase" end return mw.wikibase...

local function trimArg(text) if type(text) == 'string' then text = text:match('(%S.-)%s*$') --trimmed text or nil if empty end return text end local...

it? Maybe not? cats = setmetatable({}, {__newindex = function(t, i, v) if not rawget(t, i) then rawset(t, i, v) table.insert(t, i) end end})...

-- Get the links table. local links = mFormatLink.formatPages({}, {...}) if not links[1] then local page = mw.title.getCurrentTitle().text links[1]...

loop through all of the bytes and calculate the checksum if v == string.byte( "X" ) then -- if checkdigit is X (compares the byte value of 'X' which is...

(passedTitle or currentTitle.text) .. ' graphical timeline') if targetPage.exists then if mw.isSubsting() then return '{{' .. (currentTitle.namespace...

main article or articles. It implements the -- template {{main}}. -- -- If the module is used in category or category talk space, it produces "The --...

'^.*(%w)(%w).*$', '%1' ) or '' local alt = colchar[col] .. row .. ' ' if colornames[color] and piecenames[piece] then alt = alt .. colornames[color]...

local p = {} function p._trim(s) if s then if s:match([[^(['"]).*%1$]]) then return p._trim(string.sub(s,2,-2)) else return s end else return ""...

in ipairs(blacklist) do local match = mw.ustring.match(page, pattern) if match then return true end end return false end function p...

function (key, value) if type(value) == 'string' then value = value:match('^%s*(.-)%s*$') -- Remove whitespace. if key == 'heading' or value...

local to = getNotNilValue(tonumber(args['to'])) if not from or not to or from == to then return ("<strong...

or '' local innersuffix = args['innersuffix'] or '' local cstr = '' if( isnotempty(args[3]) ) then cstr = coord_wrapper(frame, {args[1], args[2]...

index end end if not charcode_index then error("Character code field (name='key', type='string') not found in data schema.") end if not value_index...

wikiUrl, wikiTitle, wikiLink, trackingWikitext, kmlError if not (Args[L10n.para.from]) then if not qid then wikiUrl, wikiLink, siteindex, kmlError...

>------------------------------------------------------------------ Returns true if argument is set; false otherwise. Argument is 'set' when it exists (not nil)...

in ipairs(data.data) do if cols[1] and cols[2] and cols[3] and cols[4] then code_point=tonumber("0x"..cols[1]) if cols[2] == 1 then result[code_point]={}...

-- table of lat/long coords extracted from wikidata return if not is_set (args[1]) then -- in case wikidata returns nothing (happens...

{{collapsible list}}. local p = {} local function gettitlestyletracking( ts ) if not ts then return '' end ts = mw.ustring.gsub(mw.ustring.lower(ts), '%s'...

1, n do if (t[i] ~= delete) then -- Move i's kept value to j's position, if it's not already there. if (i ~= j) then ...

Set up a constant to hold the rank names and their English equivalents. If adding to this list, note that rank names containing spaces or - must be enclosed...

native_name_list(), etc if not (args_t[1] or args_t[2]) and yes_no (args_t.suppress_empty_list_error) then return ''; -- if empty list error...

local function formatChange(previous, current) if not previous or previous == 0 then return end if previous == current then return "=" end local...

functions local function concatstrings(s) local r = table.concat(s, '') if r:match('^%s*$') then r = nil end return r end local function concatstyles(s)...

original concept) p.genericIdCitation = function(frame, title, url) if not templateArgs['id'] then return "no id parameter detected" end templateArgs['url']=...

ISNI (and ORCID) and returns it as a 16 characters string or returns false if it's invalid. See http://support.orcid.org/knowledgebase/articles/116780-...

function rev_list_add (rev_list, name, tag) if rev_list[name] then -- if already in <rev_list> if 2 == tag:len() then -- is this...

entry for the article where this is placed. -- This message is only displayed if a local_parameter is not supplied -- i.e. when called from a template, it...

args['foot_montage'] or '' local lastnum = nil local rownum = nil local floatstyle = nil if( position == 'left' or position == 'right' or position == 'none') then floatstyle...

local toolbarItems = p.makeToolbarItems(args) if not toolbarItems then -- Return the blank string if no arguments were specified, rather than -- returning...

original concept) p.genericIdCitation = function(frame, title, url) if not templateArgs['id'] then return "no id parameter detected" end templateArgs['url']=...

gives conversion factors correct to 7 places. Factors in bold are exact. If exact factors have more than 7 places, they are rounded and no longer exact...

gives conversion factors correct to 7 places. Factors in bold are exact. If exact factors have more than 7 places, they are rounded and no longer exact...

('%x%s%s'):format(chr:byte(), safe, safe), ('%s%x'):format(safe, chr:byte()) ) if not self[self[1]] then self[self[1]] = { char = chr, text = ('%s(...

{} code = mw.text.unstripNoWiki(code) for i, value in ipairs(args) do if i > offset then argstosub["i"] = i - offset argstosub["1"] = value ...

get("Unicode/data/scripts/singles.tab") for index, cols in ipairs(data.data) do if cols[1] and cols[2] then result.singles[tonumber(cols[1], 16)]=cols[2]...

parentheses = mw.ustring.match(title.text, '^(.+) (%([^%(%)]+%))$') local result if prefix and parentheses and args.all ~= 'yes' then result = string.format("<i>%s</i>...

lua_main(frame) local s = frame.args[1] if frame.args[3] then local args = {} for i, v in ipairs(frame.args) do if i >= 2 then args[#args+1] = v...

if T1>8 then T1 = T1-1 end local T2 = nil if mw.ustring.len(lett)>1 then T2 = mw.ustring.byte(mw.ustring.sub(lett,2))-65 if T2>8...

various color cell2 templates {{#invoke:Sports color|check}} to check to see if a team has defined colors See: Module:Sports color/baseball Module:Sports...

if returnWord == nil then -- No hit so far. Search by words in the engvar entered, checking the list local useLang = engvarLang(args.engvar) if...

[[:template:period end]]. -- Those templates must be implemented on the wiki. If the names are changed, they need to be changed here: local periodColor = "period...

function p.name(title) if type(title) == 'string' then title = mw.title.new(title) if not title then error("invalid title in...

ipairs(statistics.schema.fields) do -- Assume "site" is first entry and skip it. if i > 1 then map[v.name] = i - 1 -- name is lowercase end end return...

get("Unicode/data/combining/singles.tab") for index, cols in ipairs(data.data) do if cols[1] and cols[2] then result.singles[tonumber(cols[1], 16)]=cols[2]...

getArgs(frame); local result = {}; local city; args.city = args.city:lower(); if 'nyc' == args.city then city = 'New York City bus'; elseif 'li' == args...

explicit true local boolean_value if type( boolean_str ) == 'string' then boolean_str = boolean_str:lower() if boolean_str == 'true' or boolean_str...

require('Module:Namespace detect/config') local function addKey(t, key, defaultKey) if key ~= defaultKey then t[#t + 1] = key end end -- Get a table of parameters...

_distinguish(args, text, selfref) checkType("_distinguish", 1, args, 'table') if #args == 0 and not text then return '' end local text = string.format( ...

{name="Giurgiu"}, ["HD"] = {name="Hunedoara"}, ["HR"] = {name="Harghita"}, ["IF"] = {name="Ilfov"}, ["IL"] = {name="Ialomița"}, ["IS"] = {name="Iași"}...

getArgs(frame) local p_data = data[args[1]] local config = frame.args if p_data then if config.link=='false' then return p_data.name else return...

emptyArgs = true for k, v in pairs(args) do if type(k) == 'number' then emptyArgs = false break end end if emptyArgs then args = { options.defaultPage...

local trimmedVal = val:match('^%s*(.-)%s*$') if trimmedVal == '' then trimmedVal = '$' end if cells[trimmedVal] then table.insert(cell_args...

{} for argName, value in pairs(parentArgs) do if value ~= '' then if type(argName) == 'string' then args[argName]...

([[Template:'); table.insert (msg, template); table.insert (msg, '|help]])</span>'); if 0 == mw.title.getCurrentTitle().namespace then table.insert (msg, '[[Category:Nihongo...

parameter. This skips the -- blacklist if set to the cfg.category2Yes value, and suppresses -- categorisation if present but equal to anything other than...

function p.usesProperty(frame) local args = frame.getParent(frame).args or nil if mw.text.trim(args[1] or '') == '' then args = frame.args end local result...

greater than or equal to zero. If so, -- returns it as a number. If not, returns a default value. val = tonumber(val) if val and val >= 0 then return...

the masterBanner table, which holds data for protection -- templates to use if no data has been found in the previous two tables. -- -- The values in the...

local function message(key, ...) local params = {...} local msg = cfg[key] if #params < 1 then return msg else return mw.message...

_-]?[bB]ar') or --5 redirects as of 2019/9 string.match(content, '%{%{ *[Tt]axonIds') if found then return true end return false end return p...

self[headerType] if headerTypeColor then return headerTypeColor end local success, country = pcall(self.country, self, countryArg) if not(success) then...

assigned value if k then if k:find ('^display') then -- if <k> is one of the |display-<namelist>= parameters if v:match ('%d+') then...

local iSite, iArticles for i, v in ipairs(statistics.schema.fields) do if v.name == 'site' then iSite = i elseif v.name == 'articles' then iArticles...

local iSite, iArticles for i, v in ipairs(statistics.schema.fields) do if v.name == 'site' then iSite = i elseif v.name == 'articles' then iArticles...

"^%1") root:tag('span'):wikitext(x) local tracking = '' if string.match(arg, "</?sup>") then tracking = '[[Category:Pages using Tone...

templatestyles element inserts a link element before hatnotes. * TODO: Remove link if/when WMF resolves T200206 */ .hatnote + link + .hatnote { margin-top: -0...

{CitationClass='web'} } setmetatable(newFrame, { __index = function(t, k) if type(frame[k]) == 'function' then return function(...) return frame[k](frame...

pairs(args) do if type(k) == 'number' then local display for i = 1, #prefixes do display = args[prefixes[i] .. k] if display then break...

list sectionString = 'section' } for k, v in pairs(defaultOptions) do if options[k] == nil then options[k] = v end end -- Set initial "about" string...

result={} local write_index=1 for index, cols in ipairs(data.data) do if cols[1] and cols[2] and cols[3] then result[write_index]={tonumber(cols[1]...

create_message(msg) end function create_message(msg) return require('Module:If preview')._warning({ mw.ustring.format("[[templatename]] used with %s."...

page]]</b>. If this is a demonstration of the template, please set the parameter %s to prevent this page being miscategorised.', on_template_page = 'If this...

hexadecimal color values. To use the same color for more than one team name (e.g., if the team goes by more than one name, but the colors are the same), use ["SECONDARY...

local cfg = mw.loadData ('Module:Citation/CS1/Configuration' .. sandbox) -- if cs1 config is set, return false, otherwise use supplied mode -- this prevents...

arguments is marked. If multiple commands are given, then the applicable set is the union of the individual sets. For instance, if the commands properties...

function BigNum(num) SD.wtos ('big='..num) end for i, num in ipairs(tab) do if num > 9 then BigNum(num) else LittleNum() end end error (SD.s) end returns:...

function(num) if tostring(num):sub(-2,-2) == '1' then return "th" -- 10th, 11th, 12th, 13th, ... 19th end num = tostring(num):sub(-1) if num == '1'...

['columns-header'] = 'Side by side comparison', -- The error message to use if a templaten option is missing. -- $1 - the number of the missing template...

categorise the following pages or their subpages. -- "%f[/\0]" matches if the next character is "/" or the end of the string. '^Wikipedia:Cascade%-protected...

FF=100% opacity, 80=50% opacity/transparency, etc. (The default color palette if n <= 10 is Category10:                                         else is Category20:...

['invalid_title'] = 'Invalid title ', ['classes'] = { -- set a line to nil if you don't want it ['navbar'] = 'navbar', ['plainlinks'] = 'plainlinks'...

-- German ['originalort'] = 'location', -- German (if 'ort' is specified at the same time, the latter should be put in 'publication-place')...

args = mArguments.getArgs(frame) local hatnote = mHatnote.hatnote(frame) if args.inline == nil or yesno(args.inline, true) then local subs = { ['<div']...

namespace we are in. -- -- Parameters: -- -- $1 is a link to the sandbox page. If the sandbox exists, it is in the following format: -- -- cfg['sandbox-link-display']...

{parentOnly = true}) local pages = mTableTools.compressSparseArray(args) if #pages < 1 then return mHatnote.makeWikitextError( 'no page names specified'...

date as provided. ]] if date:match('^%d%d%d%d$') then -- YYYY return date end if date:match('^%a+%s+%d%d%d%d$')...

{} for _, v in ipairs(statistics.data) do local project = v[iProject] if v[iStatus] == 'active' then nrActive[project] = (nrActive[project] or 0)...

local exchange = args.exchange -- By default the exchange will be NYSE if not exchange then exchange = 'NYSE' end -- Get corrected ticker ticker...

pairs(langslist) do for _, langname in pairs(langnames) do if not coalesced[langcode] then coalesced[langcode] = {}...

-- should cause little server overhead and should propagate quickly. -- -- If a unit is defined in the data module, any definition here is ignored, -- so...

local p = {} function p.luawidth(size) --For use within Lua local w if string.find(size,"^%d+x%d+px$") then -- width and height (eg. 20x10px) --...

takes a manual arguments table function p._For (args) local use = args[1] if (not use) then return mHatnote.makeWikitextError( 'no context parameter...

may be deleted. To use the same color for more than one team name (e.g., if the team goes by more than one name, but the colors are the same), use ["SECONDARY...

article that unit will be linked to when lk=on si = key for the SI base unit, if any The base unit for each SI unit here must have: symbol = symbol used...

local text = frame.args[1] return p._main(text) end function p._main(text) if not text then return end text = mw.text.killMarkers(text) :gsub('&nbsp;'...

optional and are used only if required and if the module exists: Module:Convert/extra – extra (temporary) unit definitions; used if a unit is not found in...

for use on another wiki. -- See [[:en:Template:Convert/Transwiki guide]] if copying to another wiki. -- Some units accept an SI prefix before the unit...

} -- This table holds the namespaces to be looked up from cfg.pagetypes if -- cfg.defaultnsExtended is set. cfg.extendedNamespaces = { [0] = true, ...

["ჶ"]="?", ["ჷ"]="?", ["?"]="ʾ" }; function p.tr(frame) text = frame.args[1] if text == nil or text == "" or mw.ustring.find(text, "[Ⴀ-ჼ]") == nil then ...

['help page label'] = 'tulong', -- Internal errors (should only occur if configuration is bad) ['undefined_error'] = 'Called with an undefined error...

string.upper(country) or countries[state] end function p.country(frame) if not getArgs then getArgs = require('Module:Arguments').getArgs end local...

function(s) return s and ' or ' .. s end, ['via-first'] = false, -- If the «via» text comes before termini, change to «true» ['via'] = function(s)...

listed as |team1=, |team2=, etc for however many teams you need in the table. If you set |showteam= to a team, then that team's results are highlighted as...

decYear(state,lang,case) --Declension of word "year" in several languages if state.precision == 9 then yearCase = { fi={xxx='vuosien', gen='vuoden'...

= "BC Luleå", ["Djurgårdens IF Basket"] = {"203763", "FFFFFF", "5EB7EB", "FFFFFF"}, ["Djurgårdens IF"] = "Djurgårdens IF Basket", ["Köping Stars"] =...

template = template:lower(); -- lowercase for table indexes if not cfg.known_templates_t[template] then -- do we recognize this template...

-- cite interview removed ['chapterlink'] = nil, -- if ever necessary to link to a chapter article, |chapter= can be wikilinked ...

-- German ['originaltitel'] = 'title', -- German (if 'originaltitel' is specified, any possible contents of 'title' should be put...

with cite ...) Because they 'look like' cs1 templates they are handled as if they were cs1 templates. These templates are NOT wrapper templates; names...

navbox_subgroup = 'navbox-subgroup', navbox_title = 'navbox-title', -- l10n only if you change pattern.navbox_title below navbox_odd_part = 'odd', -- do not...

empty string if not observed dst_ends = '', -- (required if dst_begins is set) daylight saving ends; e.g. 1st Sunday in November; ignored if dst_begins...

wrong_aliases = {} table.sort(alt_aliases) for k,v in pairs(alt_aliases) do if alt_map[v] then table.insert(alt_map[v].aliases,k) else table.insert(wrong_aliases...

table are lower case versions of the header display text without punctuation (if any) TODO: add support for transl transliteration standard parameter; akin...

--------------------------------------------------------------------- --| If propertyId is... | then... ...

chain. For example, "de-formal" would fallback to scheme for "de", and only if that does not exist would the "period-scheme" be used. ]] p.SchemeFromLang...

data from this module; require() avoids metatable trap for variant data if 'var_sup' == src_type then for k, v in pairs (source_t) do out[k:lower()]...

data from this module; require() avoids metatable trap for variant data if 'var_sup' == src_type then for k, v in pairs (source_t) do out[k:lower()]...

ANGLE pi/648000 ]=] -- If val has "|long scale=on" the following definitions are used -- (then, if not found here, the normal definitions...

[[Milliarcsecond|mas]] pi/648000000 ]=] -- If val has "|long scale=on" the following definitions are used -- (then, if not found here, the normal definitions...

["Category_see_also/Category_pair_check"] = 33000, ["Category_see_also_if_exists"] = 71000, ["Category_see_also_if_exists_2"] = 83000, ["Category_title"] = 2400, ["Catexp"]...

objectToWriteTo, objectToReadFrom) for k,v in pairs(objectToWriteTo) do if objectToReadFrom[k] ~= nil then v[nameOfField] = objectToReadFrom[k] end ...

ret= {} for code, iconData in pairs(data) do iconData.canonicalCode = code if iconData.aliases then for _, alias in ipairs(iconData.aliases) do ret[alias]...

= "𐍆", ["[Xx]"] = "𐍇", ["[Ƕƕ]"] = "𐍈", -- Not sure if "hw" and "hv" can safely be converted ["[OoŌō]"] = "𐍉", }, },...

= "𐍆", ["[Xx]"] = "𐍇", ["[Ƕƕ]"] = "𐍈", -- Not sure if "hw" and "hv" can safely be converted ["[OoŌō]"] = "𐍉", }, },...

case, and the "Portal:" namespace prefix -- should be omitted. For example, if you wanted "UK" to be an alias for "Portal:United Kingdom", then the -- alias...

follows regular language fallback chain and would default to German, and only if that does not exist then to English. ]] p.DateLang = { ['be'] = 'ru-form'...

table here is traversed by the function that expands glossing abbreviations. If the abbreviation isn't found in this list and it begins with an "N" then the...

}, ["Idle Toad"] = {abbrev = "", color = "#DC143C", shortname = "",}, ["If You Want It, Chile Changes"] = {abbrev = "", color = "lightblue", shortname...

limitation by calculating the end-date by adding 8 years to the start date, if this condition is encountered. Note 2: {{Calendar date}} requires dates...

wrapper_template_defaults table. article reader queries this table to see if template_name is a wrapper template ]] local wrapper_templates = { ...

source = '' - Describe the source, used in creating citations. } If datatype = 'localfile' then addition entries should be added: citeurl...

loaded only once per page. -- See [[:en:Template:Convert/Transwiki guide]] if copying to another wiki. -- -- These data tables follow: -- all_units ...