INFOSEKOLAH.NET

depending on whether it is being previewed. Usage: {{#invoke:If preview|main|value_if_preview|value_if_not_preview}} ]] function p.main(frame) local result...

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

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 local p = {} local function trim(s) return...

====================]] function p.getCatForId( id ) local catName = '' if namespace == 0 then catName = 'Wikipaedia airticles wi '..id..' identifiers'...

-- if first is initials with or without suffix if 3 > mw.ustring.len (name) then -- if one or two initials if suffix 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...

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

not return nil if encoding is invalid. Does not count the bytes 192, 193, and 245-255. They are not used in UTF-8 and will not occur if the string is...

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

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

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

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

local g1 = args[1]; if g1 == "" then g1 = nil end local g2 = args["g2"]; if g2 == "" then g2 = nil end g1 = g1 or "?" if g1 == "morf" or g1 ==...

markup, if any; ignore single quote seg[3] = source:match ('.+(%f[\']\'\'+)$') or ''; -- get trailing markup, if any; ignore single quote if '' ~=...

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

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

args["head"]; if head == "" then head = nil end -- See if a function exists for the particular part-of-speech type, and call it if there is one. if pos_functions[poscat]...

args = frame:getParent().args local lang = args["lang"]; if lang == "" then lang = nil end if not lang then lang = "en" end lang = require("Module:languages")...

function wrap(tag, class, text, lang) if lang then lang = ' lang="' .. lang .. '"' else lang = "" end if text and class then return table.concat{'<'...

newCategoryLinker(options) local formatString if options.project then if options.showPrefix then if options.boldLink then formatString = '<b>[[:'...

2); if (suf3 == "ção" or suf3 == "são") then return pre2 .. "ões" end if (suf3 == "çaõ") then return pre3 .. "çoens" end if (suf2 ==...

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

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

if (suf1 == "z") then return pre1 .. "ces" end if (suf1 == "r") then return lemma .. "es" end if (suf1 == "x") then return lemma end if (is_vowel(suf1)...

json, combined, json_combined} end function strip_accents(form) if form then if mw.ustring.match(form, ',') then local result_t = {} for term...

PAGENAME:gsub("e$", "") local root_sg = nil local root_pl = nil if classType ~= 'multi' then if args[1] and args[1] ~= '' and not args[2] then root_sg...

end if (defective_t[69]) then forms["d69"] = defective_t[69] end if (defective_t[70]) then forms["d70"] = defective_t[70] end if (defective_t[71])...

true end if param.list then local key = name if type(name) == "string" then key = string.gsub(name, "=", "") end if param.default...

local p = {} function p.link(word, form) if word == form then link = word else link = "[[" .. form .. "#Norwegian Nynorsk|" ....

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

local function is_equal(a1, a2) if a1 == a2 then return true end if #a1 == #a2 then for i = 1, #a1 do if a1[i] ~= a2[i] then return false...

":" .. cat) if script then table.insert(categories, lang_code .. ":" .. cat .. " in " .. script .. " script") end if script2 then table...

head2=, head3= etc. local head = args[1]; if head == "" then head = nil end local i = 2 while head do if m_common.needs_accents(head) then table...

for accents local check_accents = true -- If the first headword given is "-", then skip the check. if data.heads[1] == "-" then data.heads[1] = ""...

= {}, inflections = {}, categories = {}} if args["suff"] then data.pos_category = "suffixes" if suffix_categories[poscat] then local singular_poscat...

string -- Magic characters: ^$()%.[]*+-? function export.pattern_escape(text) if type(text) == "table" then text = text.args[1] end text = mw.ustring.gsub(text...

= {}, inflections = {}, categories = {}} if args["suff"] then data.pos_category = "suffixes" if poscat == "adjectives" then table.insert(data...

'<abbr title="plural number">pl</abbr>'}, } } function splitter(s, c) if (s == nil or c == nil) then return nil end local t = {} local cpos =...

unsupported_titles if unsupported_titles[target] then return "Unsupported titles/" .. unsupported_titles[target] end -- If the link contains unexpanded...

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

"boolean"}, ["sort"] = {}, } local pos_data = pos_functions[poscat] if pos_data then for key, val in pairs(pos_data.params) do params[key] =...

module invocation.") lang = require("Module:languages").getByCode(lang) if lang then return "1" else return "" end end -- Used by the following...

dash if empty. function export.link_form(form, tag) if not PAGENAME then PAGENAME = mw.title.getCurrentTitle().text end if type(form)...

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

%-%^]' local is_suru_verb = false local function detect_kana_script(kana) if find(kana, katakana_pattern) then return 'kata' elseif find(kana, hiragana_pattern)...

getByCode(script_code) local characters if sc then characters = sc:getCharacters() end local out if characters then text = mw.ustring.gsub(text...

mw.title.getCurrentTitle().nsText if err then err_text = '<span class="error">' .. err .. '</span>' else if hasKey[lang:getCode()] then IPA_key...

append to list if element not already present function export.insert_if_not(tab, item, pos) if not export.contains(tab, item) then if pos then ...

local U = mw.ustring.char if lang and text then -- [[Special:WhatLinksHere/Template:tracking/script/ang/acute]] if lang:getCode() == "ang" then...

local exports = {} local function verbData(ending) local group if ending == 'pôr' or ending == 'por' then group = 'er' elseif ending ==...

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

format(array, concatenater) if #array == 0 then return "" else local concatenated = table.concat(array, concatenater) if concatenated == "" then ...

newlist = {} for _, item in ipairs(list) do local form if suffix == "s" then if rfind(item, "[sx]$") then form = item elseif rfind(item...

gsub = mw.ustring.gsub function export.i(text) if text == "" or text == nil then return nil end if type(text) == "table" and text.args then text...

with serial "and" and serial comma local function serial_comma_join(seq) if #seq == 0 then return "" elseif #seq == 1 then return seq[1] -- nothing...

indefinite form if it's --not the lemma. Many of these situations will never happen. local ret = lemma if only.def then if only.pl then if only.f then...

if head == "" then head = nil end local op = args["op"] or args[2]; if op == "" then op = nil end local ns = args["ns"] or args[3]; if ns...

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

function export.needs_accents(word) if mw.ustring.find(word, "\204\129") then return false -- A word needs accents if it contains more than one vowel ...

ustring.gsub(word,'%([一丁-龯㐀-䶵]+%)','') word = mw.ustring.gsub(word,'—','-') if mw.ustring.gsub(word,'[ㅂㅈㄷㄱㅅㅁㄴㅇㄹㅎㅋㅌㅊㅍㄸㅃㅉㄲㅆㅛㅕㅑㅐㅔㅗㅓㅏㅣㅠㅜㅡㅖㅒ%-]','') == '' then...

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

{}} -- Call POS-specific function if pos_functions[poscat] then pos_functions[poscat](args, data) end if #data.heads == 0 then data.heads =...

root_pl = args[2] if args[1] and args[1] ~= '' then root_sg = args[1] end end local gen_dsg = args['gen_dsg']; if gen_dsg == "" then gen_dsg...

local args = frame:getParent().args if args["base"] then require("Module:debug").track("sv-nouns/base") end if args["betydelser"] then require("Module:debug")...

word, hpro = word} local word_l = mw.ustring.lower(word) if tag ~= "nolen" then if mw.ustring.find(word_l, "^[bcdfgmpt]") then ret.len = mw.ustring...

local count = 0 if args['Campuses'] then table.insert(unknown_parameters, 'Campuses = use campuses instead') end if args['Classes offered']...

local function if_not_empty(val) if val == "" then return nil else return val end end local function to_boolean(val) if not val or val ==...

if m_common.needs_accents(head) then if not args.notrcat then table.insert(data.categories, "Russian terms needing accents") end end if...

Language-specific substitutions -- Ignore entire scripts (e.g. romaji in Japanese) if langdata.ignore then sc_name = sc and sc:getCode() or require("Module:scripts")...

if e == 'е' then e = 'ye' end if e == 'Е' then e = 'Ye' end if e == 'и' then e = 'yi' end if e ==...

translits = args["tr"] data.genders = args["g"] -- Script local cat_sc if args["cat sc"] then data.sc = (args["cat sc"] and (require("Module:scripts")...

(string.gsub(str, "{(\\?)((\\?)[^{}]*)}", function (p1, name, p2) if #p1 + #p2 == 1 then return format_escapes[name] or error(module_name...

local language_data = data[lang] if language_data then script_data = language_data[sc] if script_data then if script_data.module then local...

also be 'ຢ', but seemingly -- not if a Buddhist Institute consonant is used. if scriptCode == 'Laoo' then if not mw.ustring.find(t2, '[ຆຌຏຐຑຒຓຘຠຨຩ]')...

Script:getParent() return self._rawData.parent end function Script:getSystems() if not self._systemObjects then local m_systems = require("Module:Writing systems")...

if linked_variant > max_linked_variant then linked_variant = 1 num = num + 1 if num > #nums then num = 1 case = case + 1 if case...

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

frame:getParent().args local pagename = mw.title.getCurrentTitle().text if (args[1] == nil and mw.title.getCurrentTitle().nsText == "Template") then...

toTraditionalTones(text) if type(text) == "table" then text = text.args[1] end return (mw.ustring.gsub(text, "%a+", function (word) if mw.ustring.match(word...

= {}, inflections = {}} local stem = args[1] local end1 = args[2] if not stem then -- all specified data.heads = args[2] data.inflections =...

two or three groups of three lowercase letters with hyphens between them. If such a pattern is not found, it is likely the editor simply forgot to enter...

jsonValueFromValue(val, opts) opts = opts or {} function converter(val) if type(val) == 'nil' then return 'null' elseif type(val) == 'boolean' then...

export = {} --[[ If language is an etymology language, iterates through parent languages until it finds a non-etymology language. | If language is an...

list/data/" .. lang:getCode()) local cur_data = m_data.numbers[cur_num] if not cur_data then error('The number "' .. cur_num .. '" is not found in...

show_terminfo(terminfo) -- Translations must be for mainspace languages if terminfo.lang:getType() == "reconstructed" or terminfo.lang:getType() ==...

confusing... if not lang then lang = "sco" elseif lang == "-" then lang = nil end if lang then lang = fetch_lang(lang, 2) end if lang and (lang:getCode()...

branch_term, root_lang, root_term) if not branch_term then branch_term = mw.title.getCurrentTitle().subpageText if branch_lang:getType() == "reconstructed"...

invocation.") local params = { ["head"] = {list = true, default = ""}, } if pos_functions[poscat] then for key, val in pairs(pos_functions[poscat].params)...

return "Wikimedia" end function WikimediaLanguage:getWiktionaryLanguage() if not self._wiktionaryLanguageObject then self._wiktionaryLanguageObject =...

split_russian_tr(term, dopair) local ru, tr if not rfind(term, "//") then ru = term else splitvals = rsplit(term, "//") if #splitvals ~= 2 then error("Must...

langCode, symbols, category) if langObject and langObject:getCode() == langCode then if type(symbols) == "string" then if mw.ustring.find(IPA, symbols)...

b' d' f' f''). Multiple values can be specified, separated by commas. If omitted, defaults to a or b depending on the position of stress on the...

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

-)$") if not w then return nil end if string.find(" всей всём всех мне ",' '..ulower(w)..' ',1,true) then return 'обо' end local ws=usub(w,1,2) if ws==uupper(ws)...

maybe_mw_load(x) local success, val = pcall(function() return mw.loadData(x) end) if success then return val else return nil end end local unsharded, i = {},...

shortcuts[tag] end if not expansion then return tag end -- Maybe track the expansion if it's not the same as the raw tag. if do_track and expansion...

pairs(endings.two) do if wordEnd == key then return key end for _, val in ipairs(arr) do if wordEnd == val then if key == 'ent' then ...

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

early version by Wikitiki89 Arguments: 1: lemma; nom sg, or just the stem if an explicit declension type is given in arg 2 2: declension type (usually...

if #possible_scripts == 1 then -- 2. If the language has only one possible script, use it. scode = possible_scripts[1] else -- 3. Check if...

two-kanji compounds if yomi == "on" or yomi == "o" then yomi = "on" end if yomi == "kun" or yomi == "k" then yomi = "kun" end if yomi == "irr" or yomi...

local cats = '' local args = frame:getParent().args if (isblank(args['image']) and isblank(args['image_lake']) and isblank(args['image_ocean'])...

for _, key in ipairs(case_order) do if args[key] or data.forms[key] then local user_specified = false if args[key] then val = args[key] ...

function export.make_weak(before, strong, after, check) local weak = strong if strong == "pp" then weak = "p" elseif strong == "tt" then weak = "t"...

qualifier/data") if type(qualifiers) ~= "table" then qualifiers = { qualifiers } end local accents = {} for _, accent in ipairs(qualifiers) do if data[accent]...

phonemes[i] = "t͡s" end if phonemes[i] == "kʰ" then phonemes[i] = "k" end if phonemes[i] == "tʰ" then phonemes[i] = "t" end if phonemes[i+1] and phonemes[i]...

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

iterableTypes = { "table", "string" } local function _check(funcName, expectType) if type(expectType) == "string" then return function(argIndex, arg, nilOk)...

frame:getParent().args["pos"] or frame.args["poscat"] or getPOS(PAGENAME) if not poscat then if mw.title.getCurrentTitle().nsText == "Template" then poscat...

parameter 1 to the module invocation") local args = frame:getParent().args if not inflections[infl_type] then error("Unknown inflection type '" .. infl_type...

export.show_list(frame) local args = frame.args local lang = args["lang"]; if lang == "" then lang = nil end local list = {} local i = 1 while args[i]...

= true if vowel[pcurr] then if had_vowl then same_syl = false end had_vowl = true elseif had_vowl then if vowel[pnext] then...

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

second) if not self:isValid() then return nil end local display = self.string if display == 'trace' then if second then -- If a cell displays...

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

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

export.make_links(text, splitchars, title) if not title then title = mw.title.getCurrentTitle().fullText end if empty_item(text) then return "—" elseif...

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

["ts"] = {}, ["sc"] = {}, } -- Compatibility mode for {{term}}. -- If given a nonempty value, the function uses lang= to specify the -- language...

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

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

floor(index) if index < 0 then index = #self + index + 1 end return index end -- string.sub-style slicing. function array_methods:slice(i, j) if i == nil...

= plural_classes[args[1]]}, request = true} -- If no plural was provided, generate one if not args[2] then local singular = args["head"] and...

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

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

local num = args["n"]; if num == "" then num = nil end local data = {forms = {}, title = nil, categories = {}, num = num} if inflections[infl_type]...

add(list, index, chars, text) if not chars then error("The function add cannot act on a nil character.") end if list[index] then list[index] =...

PAGENAME = mw.title.getCurrentTitle().text local head = args["head"]; if head == "" then head = nil end local poscat = frame.args[1] or error("Part...

) if not data then if alias_of then data = dialect_data[alias_of] or ( dialect_data.labels and dialect_data.labels[alias_of] ) end end if data...

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

or any abbreviation; if that tag is present among the user-supplied tags, SPEC is applied, otherwise ELSESPEC is applied if present. SPEC and ELSESPEC...

-- 4. (DONE) Add 4++ that has alternative perfects -īvī/-iī. -- 5. (DONE) If sup but no perf, allow passive perfect forms unless no-pasv-perf. -- 6. (DONE)...

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

local sort_key = args["sort"] local sort_key2 = args["sort2"] if not lang then if mw.title.getCurrentTitle().nsText == "Template" then lang = "und"...

code search if #territory.args[1] == 2 then for flagParameter,commonsFile in pairs(master.twoLetter) do if flagParameter ==...

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

usernames = 0 for k, v in pairs(origArgs) do if type(k) == 'number' then if mw.ustring.match(v,'%S') then if k > maxArg then maxArg = k end usernames...

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

dump(value, prefix, tsort) local t = type(value) prefix = prefix or "" if t == "string" then return '"' .. escape(value) .. '"' elseif t == "table"...

If we are being called from #invoke, then the number is the first positional -- argument. If not, it is the frame parameter. local num if...

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

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

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

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

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

local export = {} -- if not empty local function ine(val) if val == "" then return nil end return val end local function parse_form(args, i, default)...

frame:getParent().args local namespace = mw.title.getCurrentTitle().nsText if namespace ~= "Appendix" then return export.letters2(frame) end -- The...

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

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

= frame:getParent().args if args['lang'] then lang = args['lang'] else lang = 'no' end if lang == 'nb' then specifier...

data.grade5, grade6 = data.grade6 } function export.hira_to_kata(text) if type(text) == "table" then text = text.args[1] end return (gsub(text, '[ぁ-ゖ]'...

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

prefixes[k] local maxindex = maxindices[k] if (isnotblank(args[prefix .. 'years']) ) then hasyears[k] = 1 end if (isnotblank(args[prefix .. 'years']) and...

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

",")) do local param = rmatch(ignore, "^(.*):list$") if param then if rfind(param, "^[0-9]+$") then table.insert(numbered_list_params_to_ignore...

an integer if possible. Return "N/A" if the input could -- not be converted, or if the converted input is too big or too small. if type( inputYear...

function Family:getType() return "family" end function Family:getFamily() if self._rawData.family and not self._familyObject then self._familyObject...

export = {} function export.handle_languages(labels) if type(labels) ~= "table" then error('The function "handle_languages" requires a table as argument...

dash if empty. function export.link_form(form, tag) if not PAGENAME then PAGENAME = mw.title.getCurrentTitle().text end if type(form)...

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

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

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

unsupported_titles if unsupported_titles[target] then return "Unsupported titles/" .. unsupported_titles[target] end -- If the link contains unexpanded...

']]}} should be a Greek word.') end if args[1] then if is_polytonic(args[1]) then if not word then word = args[1] else ...

primeLink = frame.args['prime'] and true number = math.floor(number) if number < 2 or number > 1000000 then return '<strong class="error">number...

format_list_items(items, lang) local result = {} for i, item in ipairs(items) do if lang and not string.find(item, "<span") then item = m_links.full_link({lang...

local function remove_prefix(word, class) if not class or not prefixes[class] then return nil end -- If there is a capital letter in the word, --...

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

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

-- Allophones of r if i == 1 then current.onset = mw.ustring.gsub(current.onset, "^ɾ", "r") end if i > 1 then if mw.ustring.find(previous...

navbar = require('Module:Navbar')._navbar function p.sidebar(frame, args) if not args then args = getArgs(frame) end local root = mw.html.create()...

parser(formatStr, args, form) local function ifexists(name) if name == '' then return false end local title if form == 'shield' then title = mw.title.new(name...

---------------------- local function prepareArgs(frame) local origArgs if frame == mw.getCurrentFrame() then origArgs = frame:getParent().args for...

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

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

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

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

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

require('Module:Navbox') local function bordercss(t) c = '#CC0000' local s = '' if t == 'a' then s = 'inset 1px 1px 0 ' .. c .. ', inset -1px -1px 0 ' .. c...

local export = {} function export.has_accents(word) if mw.ustring.find(mw.ustring.lower(word), "[áéíóúŕàèìòùêô]") then return true else return false...

args = {} for k, v in pairs(origArgs) do v = v:match('%s*(.-)%s*$') if v ~= '' then args[k] = v end end return p._main(args) end function...

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

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

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

ret_lang, ret_icon = '', '' if icon then if lang and lang ~= uselang then ret_lang = " ^{(" .. lang .. ")}" end if label_id and (lang == nil...

function export.main(frame) if(frame.args[1] == 'strip_macrons') then return lang:makeEntryName(frame.args[2]) end if type(p[frame.args[1]]) == 'function'...

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

prevalenceValue = prevalenceClaim.mainsnak.datavalue.value if prevalenceValue then if string.len( pRange ) > 0 then -- Split multiple claims...

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" end local function check_lang_object(funcName, argIdx, lang) if not is_lang_object(lang) then error("bad argument #" .. argIdx .. " to "...

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

load the module s. If it succeeds, returns the module; -- otherwise, returns false. local success, mdl = pcall(require, s) if success then return...

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

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

the page -- specified, or nil if there are errors in the title, if the -- expensive function count has been exceeded, or if the page was not -- specified...

param) if param ~= false then -- No check if specifically disallowed. for _, alias in ipairs(aliasTable) do if class == alias then if type(param)...

{} local function makeError(msg, frame) -- Show error only in preview if (frame:preprocess( "{{REVISIONID}}" ) ~= "") then return '' end msg ='<strong>Error...

require("Module:scripts").findBestScript(title.subpageText, lang) local other_sc if sc:getCode() == "Latn" then other_sc = "Cyrl" elseif sc:getCode() == "Cyrl"...

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

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

end -- add table classes if isnotempty(args['class']) then root:addClass(args['class']) end -- add table style if isnotempty(args['style']) 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 )...

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

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

MediaWiki doesn't allow these in `page`, so only need to do for `section` if type(section) == 'string' then section = string.gsub(section, "{", "&#x7B;")...

year = tonumber( year ) if type( year ) ~= 'number' then return end for i, t in ipairs( eras ) do if year > t.startYear then ...

pairs(frame.args) do if val ~= "" then args[key] = val end end local i = 1 for _, val in ipairs(frame:getParent().args) do if val and val ~= ""...

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

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

getEntityObject(f.args.id) if not data then return end local i = 1 while true do local index = f.args[i] if not index then return...

nil if ( team and use_default[team:lower()] ) then colors = unknown else if mw.ustring.find(team, "%d?%d?%d%dthru%d?%d?%d%d$") then if (not year...

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

list(frame) return main(frame,false) end function main(frame, sublist) if not getArgs then getArgs = require('Module:Arguments').getArgs end local...

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

templ:match("^(.-):(.*)") if marker then local lcmarker = marker:lower() if parser_functions[lcmarker] then if parser_function_hooks[lcmarker]...

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

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

''):match('^(.*)[Pp][Xx]%s*$') or s end local function getdimensions(s, w, h) if tonumber(w) and tonumber(h) then nonautoscaledimages = true return tonumber(w)...

= -1,-1 -- tracking local tcats = '' local function checkparameters(k) if (k == 'align' or k == 'collapsed' or k == 'collapsible' or k == 'title'...

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

1) if (first == "ʰ") then ipa = "h"..mw.ustring.sub(ipa,2) end if (first == "ʲ") then ipa = "j"..mw.ustring.sub(ipa,2) end if (first...

function allows templates to access this data. -- Returns an empty string if the item does not exist. function export.lookup_language(frame) local...

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

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

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

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

module invocation.") fam = require("Module:families").getByCode(fam) if fam then return "1" else return "" end end function export.getByCode(frame)...

etymlang = require("Module:etymology languages").getByCode(etymlang) if etymlang then return "1" else return "" end end function export.getByCode(frame)...

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

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

myArgs[1] if (myPageName == nil) or (myPageName == "") then return "" end local mypageTitle = mw.title.makeTitle("", myPageName) if mypageTitle...

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

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

= frame:getParent().args if args['lang'] then lang = args['lang'] else lang = 'no' end if lang == 'nb' then specifier...

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

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

dates(frame) local returnval; local args = getArgs(frame); if table.getn(args) < 2 then if args['1'] == nil and args['2'] == nil then return ''; ...

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

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

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

if entity and entity.claims then claims = entity.claims[propertyID] end if claims then -- if wiki-linked value output as link if possible if (claims[1]...

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

Postprocess postprocess(args, data) if args["nocheck"] then table.insert(data.categories, "fi-decl with nocheck") end if args["nosg"] then table.insert(data...

loadData("Module:ja/data") function export.kana_to_romaji(text, nodiacr, keepdot) if type(text) == "table" then -- assume a frame. text, nodiacr = text.args[1]...

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

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

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

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

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

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

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

local max = math.pow(2, r) for i = 1, count do local pos = i * 2 if before then pos = pos - 1 end table.insert(seeds, pos, max - seeds[i *...

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

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

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

if pred_pos == "-" then pred_pos = nil else pred_pos = pred_pos or base end infl_pos = infl_pos or export.make_inflected(base) if...

== 1) and pargs or fargs for k,v in pairs(targs) do if type(k) == 'string' then if k:find('^[R3][Dr][d1-9]b?%-[a-z][a-z]*00*') then k =...

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

bar}}. function p._main( portals, args ) if #portals < 1 then return '' end -- Don't display a blank navbox if no portals were specified. local list =...

= 1 for item in mw.text.gsplit(frame.args[1], frame.args[2], true) do if count == wanted_index then return item end count = count + 1 end...

["Ώ"] = "Ó" } -- transliterates any words or phrases function M.tr(text) if type(text) == 'table' then text = text.args[1] end local gsub = mw.ustring...

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

function getListItem( data, style, itemStyle ) if not data then return nil end if style or itemStyle then style = style or ''...

PAGENAME = mw.title.getCurrentTitle().text local head = args["head"]; if head == "" then head = nil end -- The part of speech. This is also...

args.province or '' local type = args.type if rdt then return 'x17' elseif state == 'FL' then if type == 'Toll' or type == 'FLTP' or type == 'HEFT'...

char_type[c[i]] end for i = 1, #c + 1 do local next_types = {} if i == #c + 1 or chartype[i] == 'ZWS' then progress = 'none' table.insert(syl...

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

) -- Convert the input to an integer if possible. Return "N/A" if the input could -- not be converted, or if the converted input is too big or too small...

[[Portal:Current events]]. local p = {} local function makeWikilink(link, display) if display then return string.format('[[%s|%s]]', link, display) else return...

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

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

qid = frame.args.qid if qid and (#qid == 0) then qid = nil end local entity = mw.wikibase.getEntityObject(qid) local props if entity and entity.claims...

if v and v ~= '' and v ~= "'" then hasUnsc[i] = mw.ustring.find(v, '_') if hasUnsc[i] then v = mw.ustring.gsub(v, '_', ' ') else if mw...

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

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

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

]] local function has_accept_as_written (str, allow_empty) local count; if true == allow_empty then str, count = str:gsub ('^%(%((.*)%)%)$', '%1');...

return mw.ustring.match(id, "Q%d+") end function export.anchor(lang, id) if not (type(id) == "string" or type(id) == "number") then error("The second...

passed to p.renderList. local data = {} -- Classes data.classes = {} if listType == 'horizontal' or listType == 'horizontal_ordered' then table...

blueLinkCount = blueLinkCount - 1 if greyLinkCount == 0 then return "[[Category:" .. templateName .. " wi nae gray airtins]]" end if blueLinkCount == 0 then...

args = {} for k, v in pairs(origArgs) do v = v:match('^%s*(.-)%s*$') if v ~= '' then args[k] = v end end return p._main(args) end function...

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

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

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

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

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

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

Postprocess postprocess(args, data) if args["nosg"] then table.insert(data.categories, "et-decl with nosg") end if args["nopl"] then table.insert(data...

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

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

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

either a year (e.g. "1879", "1123") or a decade (e.g. "1940s", "790s"). If a portal is found, return its name without the namespace prefix (e.g. for...

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

title, short) cols[2] = size if display_notes then cols[3] = p.notes(frame) else cols[3] = "" end if special_id then cols[4] = p...

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

require('Module:Navbox') 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...

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

local sort_text = '' local sort_table_val = Args['sortable_table'] or 'no' if yesno(sort_table_val) then sort_text = 'sortable' end local rounds_won =...

KeepCheckingForArgs = false if a > 1 then IsEmpty = false end end a = a + 1 end if IsEmpty == false then return...

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

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

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

--local u= table.upack(args) local exist, val = pcall(f, unpack(args)) if exist and val ~= nil then return(val) else -- Leaking some debugging...

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

local suffix = ""; local team = frame.args["team"] or ""; if mw.ustring.sub(team,1,3) ~= "'''" and mw.ustring.sub(team,-3) ~= "'''" then...

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

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

exported function `phrasebook' retrieves the calling template's argument or, if none exists, the calling page's name, and passes this into the table found...

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

of the arguments that exist -- for the specified prefix. For example, if the prefix was 'data', and -- 'data1', 'data2', and 'data5' exist, it...

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

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

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

) -- Convert the input to an integer if possible. Return "N/A" if the input could -- not be converted, or if the converted input is too big or too small...

) -- Convert the input to an integer if possible. Return "N/A" if the input could -- not be converted, or if the converted input is too big or too small...

args[1] if not name then error('no template name passed to xpsoc', 2) end local invArgs = {} for k, v in pairs(args) do if k ~= 1 then if type(k)...

this also in VCʲj and V‿Cʲj and VCj and V‿Cj sequences; ask Cinemantique if this makes sense. 4. (DONE, CINEMANTIQUE OK WITH FIXES) Fix non-palatal е...

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

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

language code. If no name can be -- found, returns nil. if not code then return nil end local name = mLanguageName.fuzzy{code = code} if name and name...

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

local labels = {} for key, val in pairs(m_subvarieties.labels) do if val.languages then labels[key] = val end end return labels...

= {} local function tag_rhyme(rhyme, lang) local formatted_rhyme, cat if lang:getCode() == "te" then formatted_rhyme = require("Module:script utilities")...

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

of the arguments that exist -- for the specified prefix. For example, if the prefix were to be 'data', and -- 'data1', 'data2', and 'data5' were...

associated qid of the current article if omitted) and the local short description passed as |sd= It returns a category if there is an associated Wikidata entity...

[[User:MewBot]] uses this module to automatically create entries for adjective forms. If you change how this module works, please notify the bot owner so the bot...

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

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

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

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

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

v ) if mw.ustring.match( v, '%S' ) then table.insert( t, sep ) lastsep = #t end end if lastsep then ...

100 end local function aspect_ratio(s) local f = mw.title.new(s).file if f ~= nil and f ~= false then return f['width'] / f['height'] else return...

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

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

function p._main(ns, frame) -- Get the current namespace if we were not passed one. if not ns then ns = mw.title.getCurrentTitle().namespace end...

vauthors local authorTable local lastfirstTable local nauthors if vauthors then if string.find(vauthors, ';') or string.find(vauthors, '%.') then ...

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

"s"} data.forms["dat_sg"] = {args.pal or (args[2] or (args[1] .. "e"))} if not args.nopl then data.forms["nom_pl"] = {a2 .. "ar", a2 .. "a"} data...

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

end if loc == "hcmc" then if initial == "-" then nucleus = gsub(nucleus, "^u", "w") end if hcmc_opt_w[initial]...

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

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

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

optional. -- The first parameter represents the simplified form of an entry. If the characters are the same in both scripts, then only the first parameter...

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

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

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

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

{} function export.show(word,alternative,do_debug) local debug = {} if type(word) == 'table' then do_debug = word.args[4] word = word.args[1]...

gsub(word, "\'\'", "") if data == nil then return word else local replacements = data and data["replacements"] if replacements == nil then...

"") ~= "" local template_inline = (frame.args["inline"] or "") ~= "" if compat then params["lang"] = {required = true} params["t"].alias_of =...

parser local function banner(args, style) if args.marker_image then return nil end local bannerSize if style == 'small' then bannerSize = "40px"...

k, v in pairs(old) do if k ~= 'aliases' and k ~= 'code' then new[k] = v end end newData[old.code] = new if old.aliases then for i...

k, v in pairs(old) do if k ~= 'aliases' and k ~= 'code' then new[k] = v end end newData[old.code] = new if old.aliases then for i...

class. local function addMixin(class, mixin) for k, v in pairs(mixin) do if k ~= 'init' then class[k] = v end 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:...

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

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

= {} function export.format_qualifier(list) if type(list) ~= "table" then list = { list } end if #list == 0 then return '' end return '<span...

n = args["n"]; if data.n == "" then data.n = nil end -- Generate the forms inflections[infl_type](args, data) -- Postprocess if infl_type ~= "ppron"...

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 p = {} function p.main(frame) if frame.args[1] == 'html_encode' then return p.html_encode(frame.args[2]) else error('Unrecognized command')...

forms["abl_pl"] = stem .. "īs" data.forms["voc_pl"] = stem .. "ae" -- abus if data.types.abus then table.insert(data.subtitles, {"dative/ablative plural...

result[i] = func(array[i]) end return result end local function quote(value) if type(value) == 'string' then return (string.gsub(string.format('%q', value)...

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

p._redirectDistinguish(args) end function p._redirectDistinguish(args) if not args[1] then return mHatnote.makeWikitextError( 'no redirect supplied'...

numbers of the arguments that exist for the specified prefix. For example, if the -- prefix was 'data', and 'data1', 'data2', and 'data5' exist, it...

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

associated qid of the current article if omitted) and the local short description passed as |sd= It returns a category if there is an associated Wikidata entity...

a Lua table --If not a valid data template, return empty table local bool, s = pcall(getcontents,frame,country,params or {}) if bool and string...

always be preceded by fatḥa, alif, alif madda or -- dagger alif; infer fatḥa if not {"([^" .. fatHa .. alif .. alif_madda .. dagger_alif .. "])" .. taa_marbuuTa...

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

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

function export.show(word,LatinAmerica,phonetic,do_debug) local debug = {} if type(word) == 'table' then do_debug = word.args[4] word = word.args[1]...

insert(result, 'ending='..ending) if form_param_table.mood then table.insert(result, 'mood='..form_param_table.mood) end if form_param_table.tense then...

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

addBlank(rows[index]):css('border-color', 'black') if left and round == 1 then return nil else if left or round < rounds and not left then cell:css(prop...

. "ᵻ" .. "ᵿ" local U = mw.ustring.char --[[ Add diphthongs to the list if they do not contain semivowel symbols: /j w ɰ ɥ/. Do not include non-syllabic...

local function yesno(val, default) if type(val) == 'boolean' then return val elseif type(val) == 'number' then if val==1 then return true elseif...

P2 = "", P3 = "", P4 = "", P5 = "" } }; function trim( str ) if str == nil then return nil; end return str:match( "^%s*(.-)%s*$"); end...

end function p.isLatn(text) if type(tostring(text)) == "string" then local count = countCharacters(text, "Latn") if count < (length(text) / 4) then...

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

syntaxhighlight = true, timeline = true, } } function trim( str ) if str == nil then return nil; end return str:match( "^%s*(.-)%s*$"...

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

+)([os])n)[yae]$"] = function (pargs, stem, substem, extra) local mpl_suffix if stem:match("zielon$") or stem:match("czerwon$") or stem:match("słon$") then...

local t = {} for k,v in pairs(args) do if type(k) == 'string' and k:match('^list[0-9][0-9]*$') then if( v and v ~= '') then listcount = listcount...

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

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

gcodepoint(mw.ustring.toNFC(text)) do if (num == 0x0415) or (num == 0x0435) then -- CYRILLIC CAPITAL/SMALL LETTER IE if gives_e[last] then result = result...

script code \"" .. sc .. "\" is not valid.")) or nil local linkdata = {} if args["cat"] then table.insert(linkdata, {term = "Category:" .. args["cat"]...

blank arguments -- are treated as nil. if not arg then return nil end arg = arg:match('^%s*(.-)%s*$') if arg ~= '' then return arg else return...

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

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

a,b) if (s and s ~= '') then return a else return bs end end local function ifexist(page) if not page then return false end if mw.title...

split( s, '_') for i, s in ipairs(words) do s = string.lower(s) if i > 1 then if not alwayslower[s] then s = mw.getContentLanguage():ucfirst(s)...

= '' if nocat then maybeNocat = '|nocat=yes' end return frame:preprocess('{{Uiser '..v..maybeNocat..'}}') end function p.main(frame) if not getArgs...

local export = {} --[=[ FIXME: 1. (DONE) If you write '''Б'''ез, it transliterates to '''B'''jez instead of '''B'''ez. 2. (DONE) Convert ъ to nothing...

table.maxn aren't friends local maxArg = 0 for k, v in pairs(args) do if type(k) == 'number' and k > maxArg then maxArg = k end end --Get number...

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

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

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

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

colors[i][j] if col==0 or row==0 then return "" end local entry = data.finish_show_form(data, slots[i][j]) if col==1 then if row==1 then ...

"}}}" end }) end local wikicode = {} if parent_args.decl == "st" then -- do nothing yet else if parent_args[1] ~= "" then insert_all(wikicode...

template parameters appear in wikitext. If the -- specified argument exists, its value is returned, and if not the argument -- name is returned inside...

----------------------------------------------- function p.isInteger(v) if type(v) == 'number' and floor(v) == v then return true else return false...

pairs(frame:getParent().args) do args[k] = v end if not args[1] then return nil end local idx = tonumber(args.idx) or 1 if idx < 0 then idx = #args + idx + 1 end...

:css('width',width ~= '' and width .. '%' or nil) :wikitext(text) -- Reference if reference then cell:wikitext("&#8202;" .. EpisodeTable.reference(reference...

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

Array = require 'Module:array' local function add_forms(wikitable, forms) if type(wikitable) ~= 'string' then error('Expected string, got ' .. type(wikitable))...

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

pages; -- only one; prefer |page= if is_set (page_or_pages) then if 'pages' == args.param then if page_or_pages:match ('[,%-–]') then ...

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

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

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

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

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

local function getHalf( s ) for half, full in pairs( data ) do if s == full then return half end end return s end...

>------------------------------------------------------------------ return true if code is one of the listed Chinese, Japanese, Korean ISO 639 codes, false else...

local term = (args[1] or "") .. (args[2] or "") if not lang or lang == "" then if title.nsText == "Template" then return...

= args[1] or mw.ustring.gsub(title,'[äöüÄÖÜß-]',chart) local link = "" if termURLCode == '' then link = "''Duden'' online" else link = "[http://www...

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

args.output or 'wikipage' if not args[1] or args[1] == "" then return args[3] or "" end id = data.symbols[args[1]] if not id then return html_error('"'...

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

ustring.sub(radical,2,-1) first_two = initial .. mw.ustring.sub(final,1,1) if first_two=='ll' or first_two=='rh' or first_two=='ch' then initial = first_two...

"ltr", }, ["default"] = {}, } for key, value in pairs(data.translit) do if not value.tag then value.tag = "span" end end data.faces = { ["term"]...

tr(word) if type(word) == 'table' then -- called directly from a template word = word.args[1] end -- Ё needs converting if is decomposed...

local function makePronunciationText(id) id = id and string.lower(trim(id)) if id and id ~= '' and data.pronunciation[id] then return data.pronunciation[id]...

local function makePronunciationText(id) id = id and string.lower(trim(id)) if id and id ~= '' and data.pronunciation[id] then return data.pronunciation[id]...

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

tr(word) if type(word) == 'table' then -- called directly from a template word = word.args[1] end -- Ё needs converting if is decomposed...

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

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

tr(word) if type(word) == 'table' then -- called directly from a template word = word.args[1] end -- Ё needs converting if is decomposed...

isValidPageName(frame) local success, res = pcall(mw.title.new, frame.args[1]) if success and res then return "valid" else return "" end end return export...

if string.find(v, '=', 1, true) then break end ipairsArgs[k] = true printf('|%s', v) end for k,v in pairs(frame.args) do if not...

more plurals by changing FROM to TO1, TO2, TO3, etc.; -- return true if plurals were added local function addpl(from, to1, to2, to3, to4, to5...

options) if type(text) == "table" then options = {} options.impl = text.args["impl"] text, script = text.args[1], text.args[2] end if script ==...

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

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

for good measure. -- In most other cases we need to remove only the -s. if plural:find("xes$") or plural:find("[cs]hes$") then return plural:gsub("es$"...

[[Template:London ward populations]]. local p = {} function p._main(args, frame) if not args[1] then return nil elseif args[1] == 'year' then return 2011...

)', function(penul, prev, succ) if prev == '' and penul ~= '' then prev, penul = penul, '' end if succ == '' or match(succ, '[bcdfghjklmnprstvwxyz]')...

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

either return the formatted display text or nil to check the next handler. If no handlers apply, there is a default handler that appropriately formats most...

body_wrapper local body = toc_frame:tag('div') :css('text-align', 'center') if toc_type == 'collapsible' then toc_frame:addClass('NavFrame') header:addClass('NavHead')...

Configuration/sandbox" ); for k, v in pairs( cfg.aliases ) do if type( v ) == 'table' then for k2, v2 in pairs( v ) do ...

match(content, '%{%{ *[Tt]axon?[ -]?[bB]ar') or string.match(content, '%{%{ *[Tt]axonIds') if found then return true end return false end return p...

lang_render(frame) local lang = frame.args[1] lang = lang and mw.text.trim(lang) if lang and lang ~= '' then return mw.message.newRawMessage(cfg.messages['leid']...

frame.args[1] -- Trim whitespace and convert to number. Default to 5 if not present, -- as per the template title. indent = tonumber( mw.text...

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

return self._rawData.parent end function EtymologyLanguage:getAncestors() if not self._ancestorObjects then self._ancestorObjects = {} for _, ancestor...

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

frame ) --local pageCount = mw.site.stats.pagesInCategory(title, 'pages') --if pageCount > 1200 then -- return frame:expandTemplate{ title = 'Large category...

= rsub(term, foo, bar) if new_term == term then return term end term = new_term end end local function ine(x) if x == "" then return nil else...

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

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

export.dataset(dataset_name) local dataset = mw.ext.data.get(dataset_name) if not dataset then return nil end local data = dataset.data local result...

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

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

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

"𐍉", ["ū"] = "𐌿", ["y"] = "𐍅", } for g, l in pairs(Goth_Latn) do if l ~= "?" then Latn_Goth[l] = g end end function export.tr(text, lang,...

{ ["Ⱏ[ⰉⰊⰹⰺ]"]="Y", ["ⱏ[ⰹⰺ]"]="y", } function export.tr(text, lang, sc) if not sc then sc = require("Module:scripts").findBestScript(text, require("Module:languages")...

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

["ᛚ"]="l", ["ᛦ"]="ʀ", ["ᛧ"]="ʀ", } function export.tr(text, lang, sc) if letters[lang] then return (mw.ustring.gsub(text, ".", letters[lang])) end...

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

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

databox(frame) local args = frame:getParent().args local itemId = nil if args.item then itemId = args.item end local lang = mw.language...

function verbDescription() local description = "This is " if verb_data.irregular then description = description .. "an irregular...

= table.concat(args[1 + offset], "‧"), tr = "-"}) local category = "" if categorise_syllables[lang:getCode()] then category = require("Module:utilities")...

["Я"]="Ja", ['я']='ja' }; function M.tr(text)--translit any words or phrases if type(text) == "table" then text = text.args[1] end return (mw.ustring...

getByCode("ga") local export = {} local function repl(forms, param) if param ~= "normal" and forms[param] == forms["normal"] then return "''not...

= isnotempty(b) and '|border' or '' local cell = mw.html.create('') if( img ) then cell:tag('div') :css('display', 'table-cell') :css('vertical-align'...

inflection tag. May be missing. If glossary_type is unspecified or is "app", this is an anchor in [[Appendix:Glossary]]. If glossary_type is "wikt", ...

local beta = '' local title = args['w'] or mw.title.getCurrentTitle().text if args[1] then beta = args[1] else local length = mw.ustring.len(title)...

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

["Ө"]="Ö",['ө']='ö' }; function M.tr(text)--translit any words or phrases if type(text) == "table" then text = text.args[1] end text = mw.ustring...

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

function p._distinguish(args) checkType("_distinguish", 1, args, 'table') if #args == 0 then return '' end local text = string.format( 'Nae tae be confused...

"RO-HR", ["Harghita Coonty"] = "RO-HR", ["Ilfov"] = "RO-IF", ["Ilfov Coonty"] = "RO-IF", ["Ialomița"] = "RO-IL", ["Ialomița Coonty"] = "RO-IL",...

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

["ң"]="ñ",['Ң']='Ñ' }; function M.tr(text)--translit any words or phrases if type(text) == "table" then text = text.args[1] end text = mw.ustring...

'([कखगघङचछजझञटठडढणतथदधनपफबभमयरलळवशषसह])'.. '([ािीुूृॄॢॣेैोौ्]?)', function(c, d) if d == "" then return consonants[c] .. 'a' else return consonants[c]...

== "Template" and "o") or ""; if infl_type == "" then error("Parameter 2 (inflection type) may not be empty.") end if not inflections[infl_type] then...

do -- process params, ignoring any names if (x ~= '') then -- check for null/empty names body = body .....

for _,eachElement in ipairs(argElements) do if eachElement.name then local namePlainList = '' if eachElement.nickname or eachElement.native then...

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

["If"] = 119000, ["If_between"] = 3500, ["If_both"] = 45000, ["If_either"] = 4700, ["If_empty"] = 2290000, ["If_first_display_both"] = 56000, ["If_in_page"]...

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