ARTIKELDIGITAL.COM

getArgs local yn = require("Module:Yesno") local cfg = mw.loadData('Module:If preview/configuration') --[[ main This function returns either the first...

loadData('Module:If preview/configuration') p.pvwc = p.pvwc or package.loaded["Module:If preview/preview warning counter"] or require("Module:If preview/preview...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

always specified, using an empty string "", if there is no value. shield determines the shield that is displayed, if any name specifies the name of the route...

if not additional and id.prefix then --show prefix on primary value link:wikitext(id.prefix .. ': ') end local valid_value = false if id.customlink...

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

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

stacked bottom bars local function bottomBars(cols) local n = #cols if n == 0 then return "" end local total = n * 6 + 1 local images =...

text-align:center; padding: 0.45em; white-space: nowrap; margin: 0.25em;" if not styleText or styleText == "" then return default end local cols =...

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

string if present; TODO: this can be string.match()? local upcased; if first_text then if first_text:match ('^%[%[[^|]+|[^%]]+%]%]') then -- if <first_text>...

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

'' local bsection = frame.args['section'] or '' if( tsection ~= '' and bsection ~= '' ) then if( tsection ~= bsection ) then return '' end end...

function cats(cat, args) if not (args.nocat and args.nocat == 'true') and mw.title.getCurrentTitle().namespace == 0 then if cat == 'nocountry' then ...

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

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

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

version of MRT-7 logo local mrt7logo = mw.getCurrentFrame():preprocess( "{{If dark|[[File:Manila Line 7 logo white.png|20px|link=MRT Line 7 (Metro Manila)]]|[[File:Manila...

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

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

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

'''bold text''' if requested if is(options.nobold) then text = mw.ustring.gsub(text, "'''", "") end -- Keep only tables if requested if is(options.tablesOnly)...

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

split(parameters, args) local route = tonumber(string.match(args.route, "%d+")) or 0 if route < parameters.split then return parameters.below else return parameters...

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

parameter) if args[parameter] then return args[parameter] end local aliases = parameterAliases[parameter] if not aliases then return nil end if type(aliases)...

message and tracking category -- Arguments: -- errMsg: string, or nil/false if no error -- trackingCat: string for tracking category (or empty string)...

below = "Interstate %route% in Arkansas"}} for k, v in pairs(AR) do if k:find ("^I") then v.link = AR.I.link end end AR.US.name = "U.S. Highway...

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

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

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

Portal namespace if (mw.title.getCurrentTitle().nsText ~= "Portal") then return "" end -- no tracking if this is a subpage if ((mw.ustring.match(thispagetitle...

pairs(WA) do if k:find ("^I") then v.link = WA.I.link end end WA.BL.link = "Interstate %route% Business" .. suffix for k, v in pairs(WA) do if k:find ("^BL")...

York)" NY.I.link = "Interstate %route% (New York)" for k, v in pairs(NY) do if k:find ("^I") then v.link = NY.I.link end end NY.BL.link = "Interstate...

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

Route -- add new types above this line if you want them to have browse and maint for k, v in pairs(HKG) do if k:find ("^%a") then v.maint = "[[Highways...

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

images = {} local subpages = {} for key, value in pairs(args) do if value then if type(key) == "number" then -- positional parameters correspond...

below = "Interstate %route% in New Jersey"}} for k, v in pairs(NJ) do if k:find ("^I") then v.link = NJ.I.link end end NJ["I-Alt"].banner = "Alt...

getArgs(frame, {wrappers = 'Template:If empty', removeBlanks = false}) for k,v in ipairs(args) do if v ~= '' then return v end end end...

Limit to the DYK section if present local sectionstart = mw.ustring.find(text, "\n==''Did you know?'' articles==", 1, true) if sectionstart then local...

local spec = TX[" aux "][auxType] for k, v in pairs(TX) do if k:find (auxType) then if k:find ("^I-") then v.link = "Interstate %route% " .. spec...

add new types above this line if you want it to have the provincial highway browse and maint for k, v in pairs(MEX) do if k:find ("^%a") then v.browse...

if def.shield then regionalShields[division] = def.shield end if def.shieldmain then regionalShieldmains[division] = def.shieldmain end if def...

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

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

getCurrentTitle() if thisPage.isTalkPage then return false end local ns = thisPage.nsText:lower() for _, v in ipairs(badNamespaces) do if ns == v then...

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

QuoteLang["en"] if suite then local quotes = QuoteType[ suite ] if quotes then local space if quotes[ 3 ] then...

attachGroups(state, config, Helpers, StateChecks) -- (Harmless guard if user passed odd ranges) if (tonumber(config.c) or 1) < (tonumber(config.minc) or 1) then...

attachGroups(state, config, Helpers, StateChecks) -- (Harmless guard if user passed odd ranges) if (tonumber(config.c) or 1) < (tonumber(config.minc) or 1) then...

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

setmetatable({}, { __index = function(t, k) local what = mw.ustring[k] if type(what) ~= "function" then return what end return function(frame)...

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

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

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

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

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

number.' if the above condition is met. The string concatenation operator is denoted by 2 dots. else -- If no conditions are met, i.e. if b is anything...

abbr, width = "expand", bannersuffix = "1971" } for k, v in pairs(USA) do if k:find ("US 19%d%d") then v.color = { arg = "route", ["66"] = "hist"...

'^[\'%s]*([%d%.]*).-$', '%1') if s1 ~= '' and s2 ~= '' then s1 = tonumber(s1) s2 = tonumber(s2) if s1 and s2 then if (s1 == s2) then ps1 = tonumber(ps1)...

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

local colors = unknown if (not use_default[team:lower()]) then if mw.ustring.find(team, "%d?%d?%d%dthru%d?%d?%d%d$") then if (not year or year <= 0)...

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

= args['p'..i] or pargs['p'..i] end if not id and not mw.ustring.match( page, '%S' ) then page = nil end if id then title = callAssert(mw.title...

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

45, image = 'Australia Capital Territory location map.svg', -- image1 = 'should only be defined if there is a relief image with same coordinates' }...

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

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

'^[\'%s]*([%d%.]*).-$', '%1') if s1 ~= '' and s2 ~= '' then s1 = tonumber(s1) s2 = tonumber(s2) if s1 and s2 then if (s1 == s2) then ps1 = tonumber(ps1)...

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

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

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

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

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

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

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

do if (v ~= nil) then local thisArg = mw.text.trim(v) if (thisArg ~= "") then local title = mw.title.new(thisArg, namespace) if title...

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

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

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

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

stacked bottom bars local function bottomBars(cols) local n = #cols if n == 0 then return "" end local total = n * 6 + 1 local images =...

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

getArgs local Args = getArgs(frame, {parentFirst = true}) -- Exit early if we are using section transclusion for a different section local tsection...

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

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

sources &/or status description (if available, the cursor will show as [[File:Pointing hand cursor vector.svg|25px]]; if not, it will show as [[File:Cursor...

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

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

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

local hour=tonumber(os.date("%k")) if hour >= 22 or hour < 6 then ambox_globe = "Ambox globe Asia Australia.svg" else if hour >= 14 and hour < 22 then ...

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

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

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

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

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

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

ipairs(Article.viewSpans) do Article["getViews" .. span] = function(self) if self.data.views then return self.data.views[string.format("d%03d", span)]...

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

and that it is not the blank string. Returns the code if -- the check passes, and nil if not. if type(code) == 'string' and code ~= '' then return...

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

---------------------------------------------------- -- Set this to true if your wiki has a traffic rate of less than one edit every two minutes or so...

numerator, if any (default = 1 if a denominator is given) -- denominator (string or nil): denominator, if any -- sp_us (boolean): true if sp=us -- negative_word...

if 'dump' == args_t[1] then -- args_t[1] = 'dump' to dump <month_names_t> table; return mw.dumpObject (data.month_names_t); end if not...

function removeInitialColon(s) -- Removes the initial colon from a string, if present. return s:match('^:?(.*)') end function p.defaultClasses(inline)...

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

parenthetical disambiguators if any name = name:gsub ('([^,]-), +(.+)', '%2 %1'); -- if inverted, uninvert end if link then --...

(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 <=...

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

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

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

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

options. ['10'] = '%d', dec = '%d' })[frame.args['base']] or '%04X' if codepoint <= 0xFFFF then -- NB this also returns lone surrogate characters...

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

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

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

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

end if v then -- if the parameter has a non-nil translation (not a special, not a parameter without cs1|2 equivalent) if (k:find...

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

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

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

searchStrings = {} for i, s in ipairs(searchTerms) do searchStrings[i] = s end if transformFunc then for i, s in ipairs(searchStrings) do searchStrings[i]...

values before the starting parameter. local start = tonumber(args.start) if start then for i = 1, start - 1 do args[i] = nil end end -- Discard named...

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

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

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

ustring pattern, 2 - value if present, 3 - value if absent, -- page - page to test if not this page function p._main(args) if not args["page"] then...

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

(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 <=...

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

party. If a name value is not stored for a party, the module will attempt to return the other "short" name variant before returning the input. Thus, if abbrev...

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

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

from -- #invoke. -- Return the template body if we aren't substing. if not mw.isSubsting() then if body ~= nil then return body elseif frame...

getArgs(frame, {wrappers = 'Template:If empty', removeBlanks = false}) for k,v in ipairs(args) do if v ~= '' then return v end end end...

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

\"Category:series-name content-type redirects to lists\"" --[[ Local function which checks if the category exists. --]] local function doesCategoryExist(category) return...

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

uncategorized_conversion_titles) do if title.text:match(pattern) then return '' end end for key, _ in pairs(args) do if mw.ustring.find(key, cfg.i18n...

_(xAxisFormat_=) -- linewidths - doesnt work for two values (eg 0, 1) but work if added third value of both are zeros? Same for marksStroke - probably bug in...

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

making iupac and oxford not be added to the id if it doesn't exist --Generate the text if it isn't specified if not n.text then p.modify_text () p.base_text...

style="text-align:center;"\n') -- Open table -- Table title if Args['title'] or Args['table_header'] then table.insert(t,'|+ ' .. (Args['title']...

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

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

msg == 'false' -- boolean: true if msg is "false" or starts with n or N if url == '' then if text == '' then if nomsg then return nil else...

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

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

:attr('id', 'testH') :css('font-size', '150%') :wikitext( tChar.uChar ) if tChar.uIsWhitespace == true then h:css('background', WS_BLUE) end --:newline()...

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

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

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

which validates parameter usage through Module:Check for unknown parameters. If calling module has additional valid args that are not part of this module...

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

making iupac and oxford not be added to the id if it doesn't exist --Generate the text if it isn't specified if not n.text then p.modify_text () p.base_text...

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

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

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

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

do if (v ~= nil) then local thisArg = mw.text.trim(v) if (thisArg ~= "") then local title = mw.title.new(thisArg, namespace) if title...

function which creates a season category, checks if it exists and returns it if it does or an empty string if it doesn't. --]] local function getSeasonCategory(seriesName...

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

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

string if present; TODO: this can be string.match()? local upcased; if first_text then if first_text:match ('^%[%[[^|]+|[^%]]+%]%]') then -- if <first_text>...

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

values before the starting parameter. local start = tonumber(args.start) if start then for i = 1, start - 1 do args[i] = nil end end -- Discard named...

end if formatting.bold then style = style.."font-weight:bold; " end if formatting.nowrap then style = style.."white-space:nowrap; " end if style...

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

and that it is not the blank string. Returns the code if -- the check passes, and nil if not. if type(code) == 'string' and code ~= '' then return...

redirectTemplateHandler.setFictionalObjectRedirect(args, objectType, validArgs) if (unknownParametersErrors) then return redirectCategoryShell .. unknownParametersErrors...

getCurrentTitle() if not messageBox then messageBox = require('Module:Message box') end local discussionPage = args[1] and mw.text.trim(args[1]) if discussionPage...

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

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

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

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

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

success, data = pcall(mw.loadData, k) if not success then success, data = pcall(mw.loadJsonData, k) if not success then error("'" .. k .. "'...

If no media format is passed, the function returns the default top level category. --]] function RedirectType:getTopLevelCategory(mediaList) if (mediaList...

tvSeriesNameList[i] -- Check if the user-input parameter matches one on the list; -- If it matches, add the series name to the list. if (templateArgs[tvSeries...

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

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

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

s2 = tostring(s1), tostring(s2) if s1 == s2 then return '' end local max = math.min(#s1, #s2) for i = 1, max do if s1:sub(i, i) ~= s2:sub(i, i) then...

series-specific category: "(series) (object) redirects to lists". -- F: If the redirect does not use one of the following correct disambiguation — ...

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

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

data = mw.text.jsonDecode(data_content) local function format_num(number) if not number then return '' end local _, _, minus, int, _ = tostring(number):find('([-]...

local templatePath, prefix if templateMode then -- Namespace detection local titleObj = mw.title.new(shortcut, 10) if titleObj.namespace == 10...

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]*$')...

ustring pattern, 2 - value if present, 3 - value if absent, -- page - page to test if not this page function p._main(args) if not args["page"] then...

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

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

do if (v ~= nil) then local thisArg = mw.text.trim(v) if (thisArg ~= "") then local title = mw.title.new(thisArg, namespace) if title...

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

getLine(data, lineN) if lineN then if data['aliases'] then lineN = data['aliases'][mw.ustring.lower(lineN)] or lineN end if data['lines'][lineN]...

end if formatting.bold then style = style.."font-weight:bold; " end if formatting.nowrap then style = style.."white-space:nowrap; " end if style...

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

sources &/or status description (if available, the cursor will show as [[File:Pointing hand cursor vector.svg|25px]]; if not, it will show as [[File:Cursor...

do if (v ~= nil) then local thisArg = mw.text.trim(v) if (thisArg ~= "") then local title = mw.title.new(thisArg, namespace) if title...

-)%)") if not (disambiguation and tvSeriesName) then return false end -- Search for the TV series name in the article name disambiguation. if (string...

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

encode) return p._main(text, encode) end function p._main(text, encode) if not text then return end text = mw.text.killMarkers(text) :gsub('&nbsp;'...

function p._normalizeId(category, fallback) -- Normalize if normalizable, fall back to default if not. return (category ~= nil and string.len(category)...

This module supports Template:If empty. See here for test cases....

if len ~= 10 and len ~= 13 then return return_result (false, err_msg_supl_t.length); -- fail if incorrect length end if len == 10 then if id:match...

---------------------------------------------------- -- Set this to true if your wiki has a traffic rate of less than one edit every two minutes or so...

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

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

the key up in. local function checkKey(name, argId, key, lookupTable) if not lookupTable[key] then error(string.format( "bad argument #%d...

content if v and v ~= "" then templateArgs[k]=v --parents.args[k] end end for k,v in pairs(frame.args) do --check content if v and v ~=...

pairs(haystack) do if v == needle then return true end end return false end local function _getTopicData(topicAlias) if data[topicAlias] then...

get_year(colors, year) if colors and colors[6] and type(colors[6] == 'table') then for team, year_colors in pairs(colors[6]) do if mw.ustring.find(team...

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

local function checkId(id) if id and mw.wikibase.entityExists(id) then local sitelink = mw.wikibase.getSitelink(id) if sitelink then return mw...

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

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

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

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

local rawDisp for k, v in pairs(origArgs) do if tonumber(k) == nil then -- Named argment if k == 'disp' then rawDisp = v -- Keep raw disp...

local p = {} local localSeparatorStr = "," -- **lclz** Correct it if your wiki has different setting, like zhwiki uses "、" for now local localNotApplicableStr...

parenthetical disambiguators if any name = name:gsub ('([^,]-), +(.+)', '%2 %1'); -- if inverted, uninvert end if link then --...

tracking category if the template invocation has been -- copied directly from the docs, or if we aren't in main- or category-space. if not v:find('^REDIRECT%d*$')...

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

title.new[[Module:CountryData]] if titleSelf.isSubpage then local sandbox = titleSelf.subpageText:match[[^sandbox]] if sandbox then titleCountryData...

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

return a {{Redirect category shell}} and a boolean value if the redirect is the primary redirect. If an unknown parameter is used, the module also returns...

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

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

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

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

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

/* {{pp|small=yes}} */ .preview-warning { font-style: italic; /* @noflip */ padding-left: 1.6em; margin-bottom: 0.5em; color: var(--color-error, red);...

-)%s*$' ) ~= '' end local function zeropad(n) if n>=0 and n < 10 then return '00' .. n end if n>=0 and n < 100 then return '0' .. n end return...

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

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

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

getCurrentTitle() if thisPage.isTalkPage then return false end local ns = thisPage.nsText:lower() for _, v in ipairs(badNamespaces) do if ns == v then...

function p.R(frame) local template = mw.ustring.gsub(frame.args[1], ' ', '_') if conf.templates[template] then return p._main(frame, 'R_' .. template, conf...

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

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

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

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

This module implements {{If preview}} and {{Preview warning}}. It helps templates/modules determine if they are being previewed. Prefer implementing the...

data = mw.text.jsonDecode(data_content) local function format_num(number) if not number then return '' end local _, _, minus, int, _ = tostring(number):find('([-]...

numerator, if any (default = 1 if a denominator is given) -- denominator (string or nil): denominator, if any -- sp_us (boolean): true if sp=us -- negative_word...

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

taxon name with any † before it removed and either '†' if it was present or the empty string if not. =================================================...

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

function p.headerStyle(frame) local args = getArgs(frame) local header if args.header_type == nil then header = args.header_type else header...

getUnixDate(date) local success, unixDate = pcall(lang.formatDate, lang, 'U', date) if success then return tonumber(unixDate) end end local function unixDateError(date)...

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

if ( numbers_lt ) then width = width + 18 end if ( numbers_rt ) then width = width + 18 end local b = '' local caption = '' if ( letters_tp...

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

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

'''bold text''' if requested if is(options.nobold) then text = mw.ustring.gsub(text, "'''", "") end -- Keep only tables if requested if is(options.tablesOnly)...

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

or tcol local piece = args[ncols * ( nrows - row ) + col + 2] or '' if piece:match( pattern ) then local img = cfg.image_square(piece:match(pattern)...

pairs(haystack) do if v == needle then return true end end return false end local function _getTopicData(topicAlias) if data[topicAlias] then...

This module implements {{If in page}}, please see its documentation for more information. {{#invoke:If in page|main}} Module:String2 § findpagetext...

paramNum) -- Validates a page name, and if it is valid, returns true and the title -- object for that page. If it is not valid, returns false and the...

whether val is a function, and if so calls it with the specified -- arguments. Otherwise val is returned as-is. if type(val) == 'function' then return...

if len ~= 10 and len ~= 13 then return return_result (false, err_msg_supl_t.length); -- fail if incorrect length end if len == 10 then if id:match...

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

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

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

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

formatting[index][2][3], formatting[index][2][4]) or nil; if extra2 then -- always just attached to the end (if there is an end) so not part of formatting{}...

qualid][1]) end end local ids = {} if qid then for _, statement in ipairs(mw.wikibase.getBestStatements(qid, 'P'..pid)) do if statement.mainsnak.datavalue...

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

content if v and v ~= "" then templateArgs[k]=v --parents.args[k] end end for k,v in pairs(frame.args) do --check content if v and v ~=...

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

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

num ) if num then num = tonumber( num ) if type( num ) == 'number' then num = math.floor( num ) if num >= 0...

adminship' ) if not noError or ( noError and not rfa ) then return nil end local rfaText = rfa:getContent() if not rfaText then...

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

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

<PROJECT>". If this is not the case, then define the full link to the project page in this parameter. Eg: Wikipedia:WikiProject Tulips PROJECT_NAME – if your...

columnName = names[pos] if columnName == 'name' then name = val else newVal[columnName] = val end end if name then params[name]...

testChar if (args["first"]) then for testChar in mw.ustring.gmatch(args["first"], "%a+") do if (testChar == "t") then t1 = true end if (testChar...

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

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

thumbtimestr = '' if isnotempty( alt ) then altstr = '|alt=' .. alt end if widthstr == '|-nanpx' then widthstr = '' end if isnotempty( thumbtime...

success, data = pcall(mw.loadData, k) if not success then success, data = pcall(mw.loadJsonData, k) if not success then error("'" .. k .. "'...

function removeInitialColon(s) -- Removes the initial colon from a string, if present. return s:match('^:?(.*)') end function p.findNamespaceId(link,...

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

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

label if label and mark.label_size then label = mw.text.trim(label, '%[%]') label = mw.text.split(label, '[,|]')[1] m.marks[label] = mark if mark...

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

function make_wikilink (link, display, no_link) if nil == no_link then if link and ('' ~= link) then if display and ('' ~= display) then return table...

Collection -- a table to hold items Collection = { add = function (self, item) if item ~= nil then self.n = self.n + 1 self[self.n] = item end end...

mw.loadData(data_module) end local function get_key_by_code(code, data) if (data[code] ~= nil and type(data[code]) == 'string') then p.isalias = true...

index parameter specified" end if not(currentpage) then local pp=mw.title.getCurrentTitle() if not pp then if noerr then return "","","" ...

uncategorized_conversion_titles) do if title.text:match(pattern) then return '' end end for key, _ in pairs(args) do if mw.ustring.find(key, cfg.i18n...

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

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

if field.name == outputColumnName then outputColumnIdxs[outputColumnName] = i numOutputColumnIdxs = numOutputColumnIdxs + 1 end end if...

local p = {} local function removeFalsePositives(str) if not str then return '' end str = mw.ustring.gsub(str, "<!--.--->", "") str = mw.ustring...

for key, default in pairs({border=true,redlinks=false,tracking=true}) do if args[key] == nil then args[key] = default end args[key] = yesno(args[key]...

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

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

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

passthrough) local symbol; local position = properties[code].position; if linked then symbol = string.format ('[[%s|%s]]', properties[code].page,...

enctype = frame.args[2] local ret = nil; if (frame.args[2] ~= nil) then enctype = mw.ustring.upper(enctype) if ((enctype == "QUERY") or (enctype == "PATH")...

function(frame) local switchtime = tonumber(frame.args.switchsecs) or 43200 if switchtime < 1 then switchtime = 43200 end local imgs = { "Pelicans 11...

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

stripToNil(text) -- If text is a non-empty string, return its trimmed content, -- otherwise return nothing (empty string or not a string). if type(text) ==...

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

Return text, if not empty, after trimming leading/trailing whitespace. -- Otherwise return default which is nil unless set by caller. if text then ...

given page name. Return nil if the title is -- invalid. local function makeTitle(page) local title = mw.title.new(page) if title and title.text ~= ""...

thenval if args[n] then if args[n+1] then ifval, thenval = args[n], args[n+1] n = n + 2 else return args[n] end elseif args['if' .....

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

shared among different characters so that they can be checked -- for equality if needed, and to use less space. local vowel = { vowel = true, diacritic_seat...

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

removeFromArray(t, delete) local j = 1 local n = #t for i = 1, n do if t[i] ~= delete then if i ~= j then t[j] = t[i] t[i] = nil end j = j +...

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

abandon end local first, unit, unit2, unit3 -- if nmi ~= '0' and mi == '' and km == '' then if tonumber (nmi) then first = nmi unit = "nmi" ...

template, '#Error messages|help]])'})); table.insert (out, '</span>'); if (0 == namespace or 10 == namespace) and not nocat then -- categorize in...

Used by Template:see also if exists and Template:Category see also if exists. {{#invoke:See also if exists| main}}...

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

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

function getTitle(title) local success, titleObj = pcall(mw.title.new, title) if success then return titleObj else return nil end end -- Finds all templates...

class. local function addMixin(class, mixin) for k, v in pairs(mixin) do if k ~= 'init' then class[k] = v end end end ------------------------...

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

pairs(table) do if first then first = false else concatted = concatted .. separator end if k == i and unnamedArguments...

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

--Normalizes strings, particularly class codes if type(val) == 'string' then val = trim(val):lower() end if val == '' then val = nil end return val end...

be inserted automatically if they are called; see XXX and YYY). The update date is set by |update=, see below for details. If no source is given a citation-needed...

pagetitle) local label = (pagetitle and pagetitle ~= '') and pagetitle or nil if not label and not entity then label = mw.title.getCurrentTitle().text elseif...

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

-- x = nil if s is canonicalized, otherwise has trimmed s -- y = canonical form of s (true if "yes" or other, false if "no", nil if blank) local...

msg == 'false' -- boolean: true if msg is "false" or starts with n or N if url == '' then if text == '' then if nomsg then return nil else...

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

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

mHatnote.hatnote(frame:newChild{title="Module:Hatnote inline", args = args}) if args.inline == nil or yesno(args.inline, true) then local subs = { ['<div']...

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

frame:getParent().args local args = {} for k, v in pairs(origArgs) do if v ~= '' then args[k] = v end end -- Define the variables to pass to...

_(xAxisFormat_=) -- linewidths - doesnt work for two values (eg 0, 1) but work if added third value of both are zeros? Same for marksStroke - probably bug in...

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

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

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

'IF SWALLOWED:', ['P302'] = 'IF ON SKIN:', ['P303'] = 'IF ON SKIN (or hair):', ['P304'] = 'IF INHALED:', ['P305'] = 'IF IN EYES:', ['P306'] = 'IF...

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

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

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

-- Checks if a value is an integer. If so, returns the value converted to a number. -- If not, returns false. num = tonumber( num ) if num and math...

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

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

local templatePath, prefix if templateMode then -- Namespace detection local titleObj = mw.title.new(shortcut, 10) if titleObj.namespace == 10...

local found = teams[t].res[r].rank == 1 or raw == 'T1' or raw == 'GC' if found or (t == 1) then return found else return findchamp(teams, t -...

[[Module:Good article topics]]. local function getGoodArticleTopic(key) if not key then return nil end return require('Module:Good article topics')...

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

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

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

ad to display. local imageData, isRandom if args.ad then imageData = getSomeImageData(args.ad, 'ad') if not imageData then return nil end isRandom...

sources &/or status description (if available, the cursor will show as [[File:Pointing hand cursor vector.svg|25px]]; if not, it will show as [[File:Cursor...

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

function p.headerStyle(frame) local args = getArgs(frame) local header if args.header_type == nil then header = args.header_type else header...

getUnixDate(date) local success, unixDate = pcall(lang.formatDate, lang, 'U', date) if success then return tonumber(unixDate) end end local function unixDateError(date)...

played, won, drawn, lost, category) if played == '-' or played == '—' then return '—' elseif not played then if not won and not drawn and not lost...

[[Square degree|μas²]] ]=] -- If val has "|long scale=on" the following definitions are used -- (then, if not found here, the normal definitions...

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

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

table local private_t = {} for tag, lang in pairs (override_t) do if tag:find ('%-x%-') then table.insert (private_t, table.concat ({'\n|-\n|'...

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

pairs(frame.args) do if type(n)=='number' and v:lower()==value:lower() then return true end end end local match = false if frame.args.value and...

12th, etc. if tonumber(i) then local s = tostring(i) local tens = string.match(s, '1%d$') local ones = string.match(s, '%d$') if tens ...

title.new('File:' .. fileName) if not titleObj or not titleObj.file.exists then return '' -- Return nothing if no existing file was found end ...

frame:getParent().args[1] if not topic then return '' end topic = topic:match('^%s*(.-)%s*$') -- Trim whitespace local ret if topic ~= '' then ret...

beyond nTime +-nTol if no match was found. local tRet = nil if bAll then tRet = {} end for nRowNum = #tRows, 1 ,-1 do if tRows[nRowNum] and tRows[nRowNum]...

content if v and v ~= "" then g.args[k]=mw.text.trim(v) --parents.args[k] end end for k,v in pairs(frame.args) do --check content if v and v...

args[2]) or os.date("!*t").year --<span style="color:red">red writing</span> if (year < 2015) or (year > 2050) or ((year == 2050) and (signNumber == 10))...

author" -- name of calling template. Change if template is renamed. local id = nil ...

passed to the parent -- with a list of arguments, returning a specified result if an argument is -- on the list local p = {} local MAX_PARAMS = 9 -- Limit to...

checks if the array had a value added by checking the counter, -- and returns the relevant result. local function getFormattedEntry(args, counter) if (counter...

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

disambiguation (disambiguation is extended). if (not isDisambiguationExtended) then -- Check if the article name has extended disambiguation...

the key up in. local function checkKey(name, argId, key, lookupTable) if not lookupTable[key] then error(string.format( "bad argument #%d...

played, won, drawn, lost, category) if played == '-' or played == '—' then return '—' elseif not played then if not won and not drawn and not lost...

searchStrings = {} for i, s in ipairs(searchTerms) do searchStrings[i] = s end if transformFunc then for i, s in ipairs(searchStrings) do searchStrings[i]...

abandon end local first, unit, unit2, unit3 -- if nmi ~= '0' and mi == '' and km == '' then if tonumber (nmi) then first = nmi unit = "nmi" ...

local p = {} local function removeFalsePositives(str) if not str then return '' end str = mw.ustring.gsub(str, "<!--.--->", "") str = mw.ustring...

r1, r2, r3, r4 if s == "table" then local values = elements.values if type(values) == "table" then r1 = values if type(elements.scroll)...

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

local master = mw.loadData("Module:Flags/MasterData") -- check if name is an original name in translation.fullname and -- return its value,...

frame.args.id_str if type(id_str) ~= "string" then error("bad argument #1 (expected string, got " .. type(id_str) .. ")", 2) end if type(format) ~= "string"...

getTitleObject(title) local success, titleObject = pcall(newTitle, title) if success and titleObject then return titleObject else return nil end...

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

isValidLinkCfg(linkCfg) if type(linkCfg) ~= 'table' then return false end for _, s in ipairs{'url', 'display'} do if type(linkCfg[s]) ~= 'string'...

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

initialise an empty URL, check if there is one then populate with the actual value (if not it stays as an empty string) if claim.references[b].snaks[RefURL_P]...

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

pv = require('Module:If preview') local preview, tracking = '', '' if #badargs > 0 then for k, v in pairs(badargs) do if v == '' then v = ' ' end...

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

local function checkId(id) if id and mw.wikibase.entityExists(id) then local sitelink = mw.wikibase.getSitelink(id) if sitelink then return mw...

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

function p.R(frame) local template = mw.ustring.gsub(frame.args[1], ' ', '_') if conf.templates[template] then return p._main(frame, 'R_' .. template, conf...

otherPage = mw.title.new(args[1] or "") if not otherPage then return formatError("No other page was specified."); end if mw.title.equals(thisPage, otherPage)...

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

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

Used by Template:Category more if exists {{#invoke:Category more if exists| main}} This is a crude fork of Module:See also if exists. It may be possible to...

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

_main(args) -- If category wasn't set, return error. if (not args.category) then return error end local categories = "" for i = 1, 10 do if (args[i])...

parent:newChild{} orphan.getParent = parent.getParent --returns nil orphan.args = {} if onlyTheseKeys then local family = {parent, frame} for f = 1, 2 do for...

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

and fixing it to use the --- "Space+single" and "Single+space" templates if a leading or trailing apostrophe or quotation mark is used. --- --- Note:...

args[1] args[1] = delink({args[1]}) if args[1] == "" then args[1] = nil end if not args[1] and not args.url then if args[2] then p.nolink = true...

plural (default false) -- origArgs.parse_number: if true, parse number in argument: if 1, singular; if >1, plural (default false) -- Returns: -- singular...

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

on the "edit" tab at the top of the page to edit this module. -- STEP 2: if you want to increment by a number other than 1, put that number below, after...

defaultOutputForInput: table mapping from input format to default output format -- (if the output format is not specified in the template arguments) -- local defaultOutputForInput...

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

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

local tracking, preview local function checkarg(k,v) if k and type(k) == 'string' then if k == 'id' or k == 'team1' or k == 'team2' or k == 'class'...

local function errors(errType, args, code, alpha2) if not (args.nocat and args.nocat == 'true') then if code then local warningText = code .. ' ("%s")...

-- Check if the extension is in the valid list if ext then for _, valid_ext in ipairs(valid_extensions) do if ext == valid_ext...

origArgs[1] or '' for k, v in pairs(origArgs) do if tonumber(k) == nil then -- Named argument if k == 'docsortlabel' then -- not in TG args[k]...

if tonumber(args.count) then -- check if function has already been used return tonumber(args.count) -- early exit if so end local count if...

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

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] =...

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

getPropOfProp if the value(s) of prop1 are of type "wikibase-item" then it returns the value(s) of prop2 of each of those wikibase-items getAwardCat if the item...

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

suffix, srv_craft) local category = ''; -- for concatenation if 0 == mw.title.getCurrentTitle().namespace then -- article namespace...

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

Implements {{If elseif}}. Tests a series of expressions, which are evaluated either as blank/noblank or, if |yesno= is set, using {{Yesno}}. Functionally...

if ( numbers_lt ) then width = width + 18 end if ( numbers_rt ) then width = width + 18 end local b = '' local caption = '' if ( letters_tp...

makeFullUrl(page, query, display) local url = mw.uri.fullUrl(page, query) if not url then url = makeWikitextError(string.format( '"%s" is not a valid...

fetch_wikidata(entity, property) if entity and property then local value = entity:getBestStatements(property)[1] if value then return...

formatting[index][2][3], formatting[index][2][4]) or nil; if extra2 then -- always just attached to the end (if there is an end) so not part of formatting{}...

"%(([%w%s]+) (series %d+)%)", "(%1 TV series) %2" } for i=1, #matches, 2 do if content:match(matches[i]) then content = content:gsub(matches[i], matches[i+1])...

{{Category series navigation}} on both sides, or in the middle, of the gap. Even if {{Category series navigation}} is isolated, it has the benefit of confirming...

for _, v in pairs (tregex) do local found = string.match(content, v) if found then local v_cmt_before = '%<%!%-%-%s*'..v local v_cmt_after ...

language; if more than one, separate ' .. 'using {{Plainlist}} use {{lang}}, and omit native_name_lang -->', dlist = 'name in local language; if more...

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

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

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

taxon name with any † before it removed and either '†' if it was present or the empty string if not. =================================================...

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

local function addflags(frame, names, key) for k,v in ipairs(names) do if v[key] then names[k][key] = '<span data-sort-value="' .. v[key] .. '">'...

if (p or '') == '' then p = 'Coaches\'' end -- if p is linked then just return p if (p or ''):find('[%[%]]') then return p end -- else if y...

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

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

routeStates table corresponding to the status of the route. ]]-- if decommissioned == 'yes' then --If the decommissioned property just says "yes", then mark it...

checks if the array had a value added by checking the counter, -- and returns the relevant result. local function getFormattedEntry(args, counter) if (counter...

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

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

local is_userspace = string.sub(frame.args.t, 1, 4) == "User" if is_userspace or display_notes then cols[3] = string.format("<td>%s</td>"...

initialise local mArguments -- lazily initialise local p = {} -- Helper: true if the page is in Template: or Module: namespace local function isTemplateOrModule(title)...

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

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

person/height]] local p = {} local function splitsuffix(s) local suffix = '' if mw.ustring.match(s,'^(.-)(<sup.*)$') then local a = mw.ustring.gsub(s, '^(...

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

local p = {} local function getListItem( data ) if not type( data ) == 'string' then return '' end return mw.ustring.format( '<li style="line-height:...

label = string.match(line, "(.-):") if not label and string.find (line, '^ .+') and not in_comments then -- if a continuation line but not a comments...

"Unclassified signs" } function clc(gardiner) local cat = gardiner_cat[gardiner] if cat then return ("[[:Category:%s]]&nbsp;(%d)"):format(cat, mw.site.stats...

http(snippets) -- To see if an IP is serving a web page local host = snippets.username if not host:match('^%d+%.%d+%.%d+%.%d+$') then if host:match('^[%x:]+$')...

inputs if type(prefix) ~= 'string' or not prefix:find('%S') then error('No prefix supplied to [[Module:Highest archive number]]', 2) end if start ~=...

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

local target = nil if redlinks then if override[y] then target = override[y] elseif y == "Georgia" then if mw.title.new(prefix..country[y][1]...

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

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

local svaras = svaraResolve[type] for key, value in pairs(input) do if svaras[value] then input[key] = svaras[value]; end end return input...

check if the word is an article. Returns true if it is, false if it isn't. --]] local function isFirstWordAnArticle(word) word = string.lower(word) if (word...

frame:getParent().args local templateArgs = { } for key, value in pairs(args) do if type(key) == "number" then templateArgs[2 * key - 1] = value templateArgs[2...

display name; click to go to location row in the "table of cities and towns" (if available).'''<br/> *[[File:Location dot red.svg|11px]] Under the control...

-- 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( "'%s'...

tname = 'Webarchive', -- name of calling template. Change if template rename. verifydates = true, -- See documentation....

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

formatLink{link = nextTitle.fullText} local note = '' if prevTitle and nextTitle then -- if both note = mw.ustring.format('See also the preceding...

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

thenval if args[n] then if args[n+1] then ifval, thenval = args[n], args[n+1] n = n + 2 else return args[n] end elseif args['if' .....

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

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

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

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

ssts_registry = pcall(require, 'Module:SST/registry') if success and type(ssts_registry) == 'table' then if ssts_registry.defaults then for t_name...

local rawDisp for k, v in pairs(origArgs) do if tonumber(k) == nil then -- Named argment if k == 'disp' then rawDisp = v -- Keep raw disp...

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