INFOSEKOLAH.NET

the target string. Usage: {{#invoke:string|len|target_string|}} OR {{#invoke:string|len|s=target_string}} Parameters s: The string whose length...

local module_name = "string_utilities" local export = {} local rfind = mw.ustring.find local format_escapes = { ["op"] = "{", ["cl"] = "}", }...

replace operations on strings. local p = {} -- Takes one string parameter, and returns the string with all characters with special meaning for Lua patterns...

-- create the list of known args, regular expressions, and the return string for k, v in pairs(args) do if type(k) == 'number' then v = trim(v)...

-- This module implements {{str endswith}}. local TRUE_STRING = 'yes' local FALSE_STRING = '' local p = {} local function trim(s) return s:match('^%s*(...

-- This function makes an effort to convert an arbitrary Lua value to a string -- containing a JSON representation of it. It's not intended to be very...

cladeString = cladeString .. '\n|-' cladeString = cladeString .. barLabelCellString cladeString = cladeString .. leafCellString cladeString...

require('Module:Hatnote') local p = {} local function makeWikitextError(msg) return string.format( '<strong class="error">Error: %s ([[Template:Category relatit]])</strong>'...

-- Private helper method to escape a string for use in regexes local function escapeString( str ) return string.gsub( str, '[%^%$%(%)%.%[%]%*%+%-%?%%]'...

Lua local w if string.find(size,"^%d+x%d+px$") then -- width and height (eg. 20x10px) -- use specified width w = tonumber(string.match(size,"(%d+)x%d+px"))...

equals/pipe signs s = string.gsub(s,"|([^|=]-)=","\1\1%1\2") s = string.gsub(s,"}}%s*$","\1") --Loop over string and add params to table ...

tostring(number_string) elseif type(number_string) ~= 'string' or not number_string:find('%S') then -- We were passed a non-string or a blank string, so exit...

column headers local head_string if width=='auto' then head_string = '! scope="col" |'..text..'\n' else head_string = '! scope="col" width='..width...

then status_string = status_string..stack_string end if t_status.position == 'before' then status_string = status_string..'<span style="font-weight:bold">'...

string if no arguments were specified, rather than -- returning empty brackets. return '' elseif yesno(args.span) == false then return string.format(...

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

Returns string. local function italicize(s) assert(type(s) == 'string', 's was not a string') assert(s ~= '', 's was the empty string') return...

message string in content language -- Precondition: -- say -- string; message ID -- Postcondition: -- Return some message string ...

mw.title object. -- Description: This function detects whether a string or a mw.title -- object has been passed in, and uses that...

SeriesOverview.series_sort(op1, op2) local n1,s1 = string.match(op1,"(%d+)(%a*)") local n2,s2 = string.match(op2,"(%d+)(%a*)") local n1N,n2N = tonumber(n1)...

otherwise return an empty string. If the parameter is missing, empty, or does not fit the required format, an empty string is returned" ]] local p...

error("Unexpected function type") end return e1 < e2 end local arrayToStringAux arrayToStringAux = function(arr, indent) if type(arr) ~= "table" then error("arr...

match = string.match(text, '%[%[%s*' .. v .. '%s*:.*%]%]') if match then break end end return match end -- Helper function to escape a string for use...

new(pagename):getContent() or '' local found = string.match(content, '%{%{ *[Tt]axon?[ -]?[bB]ar') or string.match(content, '%{%{ *[Tt]axonIds') if found...

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

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

function to escape magic characters in a string -- Magic characters: ^$()%.[]*+-? local plain = require("Module:string").pattern_escape -- A helper function...

outputString = outputString .. frame:expandTemplate{ title = 'decrease' } if move ~= -1000 then outputString = outputString .. ' ' .. math...

= string.gsub(mw.text.trim(name), "</?i>", italMarker) name = string.gsub(string.gsub(name, "&#215;", "×"), "&times;", "×") name = string.gsub(name...

end local function quote(value) if type(value) == 'string' then return (string.gsub(string.format('%q', value), '\\\n', '\\n')) -- Outer parentheses...

id) if not (type(id) == "string" or type(id) == "number") then error("The second argument to senseid should be a string or a number.") end return...

ticker = string.upper(ticker) -- NYSE.com formats for preferred shares / when issued -- Example: Input: PRE.PRD, Output: PREpD ticker = string.gsub(ticker...

type(section) == 'string' then section = string.gsub(section, "{", "&#x7B;") section = string.gsub(section, "}", "&#x7D;") end return string.format('[[%s#%s|%s]]'...

space2emp(x) if string.find(x,"^%s*$") then return "" else return x end end function nopx(x) if x~=nil and (string.find(x,"^%d+$") or string.find(x,"^%d+px$"))...

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

-- String replacement that ignores part of the string in "..." local function strReplace(String, old, new) if String:find('"') then local...

part of date string. Usage: {{#invoke:ISOdate|ISOyear|target_string}} Parameters 1: The date string Error Handling: If the string does not look...

{text, 'noreplace'}} end function p.category (cattype) local category = string.format('[[Category:Pages uisin infobox settlement wi bad %s]]', cattype)...

args['label ' .. k] or args['l' .. k] local page = display and string.format('%s|%s', string.gsub(v, '|.*$', ''), display) or v pages[#pages + 1] = page...

args['label ' .. k] or args['l' .. k] local page = display and string.format('%s|%s', string.gsub(v, '|.*$', ''), display) or v pages[#pages + 1] = page...

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

local fulltitle = frame:getParent():getTitle() local templatetitle = string.sub(fulltitle, 10) local title = mw.title.getCurrentTitle() if mw.title...

format "n BC" to their corresponding -- numerical values. if type( s ) ~= 'string' then return nil end s = mw.ustring.match( mw.ustring.upper( s ), '^([1-9]%d*)%s*BC$'...

amount return string.format ('%s%s', symbol, amount); elseif 'bs' == position then -- spaced before the amount return string.format ('%s&nbsp;%s'...

tempsort#; appended after k (or in its place if omitted). Required if v is not a string Basically the same as v = (v[1] or attention) .. ' | ' .. (v.k or '')...

for tracking categories local categories = {} -- Trims whitespace from a string local function trim(s) return s:match('^%s*(.-)%s*$') end -- This implements...

for tracking categories local categories = {} -- Trims whitespace from a string local function trim(s) return s:match('^%s*(.-)%s*$') end -- This implements...

getTargetFromText(text) local target = string.match( text, "^%s*#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*:?%s*%[%[([^%[%]|]-)%]%]" ) or string.match( text, ...

'-colspan-2\n----') res = string.gsub(res, '&lt;', '<') res = string.gsub(res, '&gt;', '>') if string.find(res, '!replace') or string.find(res, '|%s*bg%s*=')...

Convert a value to a string function export.dump(value, prefix, tsort) local t = type(value) prefix = prefix or "" if t == "string" then return '"'...

options.removeLocation then message = string.gsub(message, '^Module:[^:]+:%d+: ', '', 1) end return string.format(options.errFormat, message) end...

AltTitle:find('%S') then title_string = title_string..'<br>"'..args.AltTitle..'"' end if args.RAltTitle then title_string = title_string..args.RAltTitle ...

i2 == 1 then args[i2] = (string.find((v2 or ''), '^%s*$') and default or v2) else args[i2] = (string.find((v2 or ''), '^%s*$') and nil...

local pr1, m1, d1, y1, su1 = string.match(args['1'], '(.-)(%u%a+)%s(%d+),%s(%d+)(.*)'); local pr2, m2, d2, y2, su2 = string.match(args['2'], '(.-)(%u%a+)%s(%d+)...

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

= tonumber(string.sub(d1,2,5)) local year2 = tonumber(string.sub(d2,2,5)) local k = 0 for i = 1,10,1 do if string.sub(d1,1,i)==string.sub(d2,1,i)...

colorthing = p.color(status, false) local cols = {} cols[1] = string.format("[[:%s|%s]]", title, short) cols[2] = size if display_notes...

spaces for underscores for k,v in pairs(parents.args) do if type (k) == 'string' then -- no positional parameters --v = v:match('^%s*(.-)%s*$')...

style="display:inline-block;">' -- create and start the output string for v, x in ipairs(args) do -- process params...

Olympiad creates autolink to same page, therefore eliminated here return string.format( '%s [[Olympiad]] ([[%s|victor]][[Winner of the Stadion race|)¹]]'...

moduleLinks = {} for i, module in ipairs(modules) do moduleLinks[i] = string.format('[[:%s]]', module) local maybeSandbox = mw.title.new(module ....

switcherSeparate(s) if s == nil then return {} end local retval = {} for i in string.gmatch(s .. '#', '([^#]*)#') do i = mw.text.trim(i) retval[#retval +...

Args['ranking_style'] or 'pts' local show_points, show_perc = false ranking_style = string.lower(ranking_style) if ranking_style=='w' or ranking_style=='win' or...

return table.concat(b, sep) end, function(text) buffer[#buffer + 1] = text end, function(...) buffer[#buffer + 1] = string.format(...) end end...

parameter names (unnumbered versions only) -- Specify each as either a single string, or a table of strings (aliases) -- Aliases are checked left-to-right...

display text only local function searchDisp(t, f) return string.find(string.sub(t, (string.find(t, '|') or 0) + 1), f) end for k, v in pairs(list)...

:tag( 'span' ) :css( 'margin', 'auto 0.5em' ) :wikitext( string.format( '[[File:%s|24x21px]]', getImageName{ portal } ) ) :done() ...

checkType('formatInLanguage', 1, lang, 'string') checkType('formatInLanguage', 2, dataset, 'string') checkType('formatInLanguage', 3, key, 'string') return formatMessage(dataset...

args['label ' .. k] or args['l' .. k] local page = display and string.format('%s|%s', string.gsub(v, '|.*$', ''), display) or v pages[#pages + 1] = page...

== '' then return nil end local dec = string.match(decade, '^[-%+]?(%d?%d?%d?0)$') or string.match(decade, '^[-%+]?(%d?%d?%d?0)%D') if dec...

display = formatDisplay(display) return string.format('[[%s|%s]]', formattedPage, display) else return string.format('[[%s]]', formattedPage) end end...

type(tostring(text)) == "string" then local count = countCharacters(text, "Latn") if count < (length(text) / 4) then -- Only 25% of characters in string are Latin...

[[Template:Purge]]. local p = {} local function makeUrlLink(url, display) return string.format('[%s %s]', url, display) end function p._main(args) -- Make the...

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

end end if usernames > (tonumber(frame.args.max) or 50) then return string.format( '<strong class="error">Error in [[Template:Reply to]]: More than...

level) if type(val) ~= 'string' then error(string.format( "type error in '%s' parameter of '_main' (expected string, got %s)", key, type(val)...

newRawMessage(msg, ...):plain() end local function makeCategoryLink(cat) return string.format('[[%s:%s]]', mw.site.namespaces[14].name, cat) end function p._main(shortcuts...

2,#taxonName) dagger = '†' else if string.sub(taxonName,1,8) == '&dagger;' then taxonName = string.sub(taxonName,9,#taxonName) dagger = '†'...

local lastfirstTable local nauthors if vauthors then if string.find(vauthors, ';') or string.find(vauthors, '%.') then verror = true -- Vancouver author...

route local paddedLength = parameters.paddedLength args.paddedRoute = string.format("%0" .. tostring(paddedLength) .. "d", route) return parameters...

a string from a text -- @param text Text from where to remove the string -- @param str String to remove -- @return The given text with the string removed...

else result = frame.args[1] or ''; -- no value (nil or empty string) so this is a preview end return result end --[[ pmain This function...

error(string.format( 'years cannot be less than %s', lang:formatNum(-MAX_YEAR) ), 0) elseif self.year > MAX_YEAR then error(string.format(...

phrase list, and returned to the caller. When no match is found, an empty string is returned. Approximately 78% of the words in Meissner and Auden's phrase...

if mw.ustring.find(v, '%u') and v == mw.ustring.upper(v) then v = string.format("'''%s'''", v) end if i ~= 1 and not hasUnsc[i - 1] and v...

error message to display when a shortcut is invalid (is not a string, or -- is the blank string). It accepts the following parameter: -- $1 - the number of...

return nil end if sort then cat = string.format('[[Category:%s|%s]]', cat, sort) else cat = string.format('[[Category:%s]]', cat) end self...

makeWikilink(link, display) if display then return string.format('[[%s|%s]]', link, display) else return string.format('[[%s]]', link) end end function p...

team) local argname = string.format('RD%d-%s' .. padding, round, type, team) local value = args[argname] if not value or string.len(value) == 0 then...

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

length is not of type string or nil. function Validation:validateLength(length) checkType('validateLength', 1, length, 'string', true) if length ==...

braces. local val = args[key] if val then return val else return string.format('{{{%s}}}', key) end end local function getPages(args) local pages...

"mw.ustring.lower(val)" in the -- following line. val = type(val) == 'string' and val:lower() or val if val == nil then return nil elseif val ==...

'[[Category:Airticles wi redirect hatnotes needin review]]' end elseif not string.match(args[1], 'REDIRECT%d+') and not args[1] == 'TERM' then args[1] =...

plain(code, text, options) checkType("plain", 1, code, "string") checkType("plain", 2, text, "string") checkType("plain", 3, options, "table", true) options...

ret:wikitext(args.lhs .. ' = ') end local gap = string.lower(args.gap or '') local gapSize, gapUnit = string.match(gap,'([%d%.]+)%s*([ep][mnx])') local...

test passes year = year_string:match ('(%d%d%d%d?)'); if date_string:match ('%d%d%d%d%-%d%d%-%d%d') and year_string:match ('%d%d%d%d%a') then --special...

'erir-defective' then group = 'ir' else group, _ = string.gsub(ending, "%d+$", "") group = string.sub(group, #group-1) end if group == "" then...

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

ipairs(data.data) do if cols[1] and cols[2] then result.aliases[cols[1]]=string.gsub(cols[2], "_", " ") end end result.rtl = {} for _, script in...

s = type( s ) == 'number' and tostring( s ) or s if type( s ) ~= 'string' then return end return ( mw.ustring.gsub( s, '.', getFull ) ) end ...

function takes up to two unnamed positional parameters: 1 = coordinate string typically from a call to Wikidata like this: {{#property:P625|from=Q...}}...

neededhassubpage -- A helper function to escape magic characters in a string -- Magic characters: ^$()%.[]*+-? function export.pattern_escape(text) ...

local page = getArg(2) local options = { title = ofWhat, otherText = string.format('uses of "%s"', ofWhat) } arg = page and {page} or {} return mOtheruses...

"") .. '])([ंँ]?[' .. vowel .. vowel_sign .. '])' local function rev_string(text) local result, length = '', mw.ustring.len(text) for i = 1, length...

then sandboxLink = string.format(' ([[:%s|sandbox]])', tsSandboxTitle.prefixedText) end end tStylesLinks[i] = string.format('[[:%s]]%s', ts...

function roman_to_numeral(roman) if type(roman) ~= "string" then return -1, "roman numeral not a string" end local rev = roman:reverse() local raising...

require('Module:Yesno') -- Trim a string local function trim(s) return s:match('^%s*(.-)%s*$') end -- Test whether a string is blank local function isBlank(s)...

display then break end end local page = display and string.format('%s|%s', string.gsub(v, '|.*$', ''), display) or v pages[#pages + 1] = page...

byte ASCII characters use the string library functions f.gsub = string.gsub f.match = string.match f.sub = string.sub else --...

0–9]' } for _, v in ipairs(azupper) do table.insert(header_content,string.format(' [%s?from=%s %s]',pageurl,v,v)) end header:wikitext(table...

getCurrentTitle() local namespace = title.namespace local testcases = (string.sub(title.subpageText,1,9) == 'testcases') --[[=======================...

format_perseus_wikilink end local function lower_dashed(w) return string.gsub(string.lower(w), " ", "-") end local function remove_diacritics(x) return...

_main(args) local ret = {} local fullUrl = mw.uri.fullUrl local format = string.format for i, username in ipairs(args) do local url = fullUrl(mw.site...

= "MT" elseif string.find(string_to_trim, 'chromosome') then out = string.match(string_to_trim, "%d+")--extract number from string if out == nil...

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

= args.type local subtype = args.subtype subtype = subtype and string.lower(subtype) or '' local colorFunc = self[type] return colorFunc...

precision, width, default, prefix, suffix) n = '' .. n -- convert to a string -- strip off any leading '0x' (unless x is a valid digit in the...

reading the cached table, and gives the current value. local localSite = string.match(mw.site.server, '.*//(.*)%.org$') -- examples: 'af.wikipedia', 'commons...

western digits local prefixes = {}; -- service provider tail string prefixes local services = {}; -- archive service provider...

type(greek_number) ~= 'string' then return 'Error: value ' .. greek_number .. ' is ' .. type(greek_number) .. ' instead of expected string' end -- iterate...

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

args[BODY_PARAM] ~= nil then return frame.args[BODY_PARAM] else error(string.format( "no template content specified (use parameter '%s' from #invoke)"...

"number" then return error(string.format(...), level + 1) else -- level is actually the format string. return error(string.format(level, ...), 2) end...

args[1]) end else count = _fetch(frame) end end -- Build output string local return_value = "" if count == nil then if frame.args[1] == "risk"...

local lower = ustring.lower local upper = ustring.upper local str_gmatch = string.gmatch local macron = U(0x304) local breve = U(0x306) local rough = U(0x314)...

data[code] end if not iconData then iconData = data._DEFAULT end return string.format( '[[File:%s%s|%s|link=]]', iconData.image, iconData.tooltip...

subpages. -- "%f[/\0]" matches if the next character is "/" or the end of the string. '^Wikipedia:Cascade%-protected items%f[/\0]', '^User:UBX%f[/\0]', --...

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

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

majority of cases. local nsTable = mw.site.namespaces[ns] -- Try using string matching to get the namespace from page names. -- Do a quick and dirty...

1, args, 'table') if #args == 0 then return '' end local text = string.format( 'Nae tae be confused wi %s.', mHatlist.orList(args, true) )...

['</div>$'] = '</span>' } for k, v in pairs(subs) do hatnote = string.gsub(hatnote, k, v) end end return hatnote end p.hatnote = p.hatnoteInline...

-- Argument is 'set' when it exists (not nil) or when it is not an empty string. local function isSet(var) return not (var == nil or var == '') end --...

valid_genders[spec] then -- local valid_string = {} -- for i, g in ipairs(langinfo.genders) do valid_string[i] = g end -- error("The gender specification...

local code2 = '' if string.find(code1,"%-") then code1, code2 = string.match(code1,"^([^%-]*)%-(.*)$") end if string.find(code1,"^%u%u$") then...

for other input. local ret = yesno(val, val) if ret and type(ret) ~= 'string' then ret = cfg.pagetypes[namespace] end return ret end local function...

'</small>' -- \n' end contentString = bold .. templateArgs[target] .. bold .. authorityString .. '\n' --contentString = '\n' .. bold .. templateArgs[target]...

result = pcall(p._main, num) if success then return result else return string.format('<strong class="error">Error: %s</strong>', result) -- "result" is...

not type(s) == "string" then error("Attempt to de-link non-string input.", 2) end if not ( type(pattern) == "string" and mw.ustring.sub(pattern...

commented = commented .. string.format('|current%i=%s', i, (numargs[i]['current'] or '')) commented = commented .. string.format('|new%i=%s', i, (numargs[i]['new']...

svg|middle|4px|link=]] <b><i>[[d:Property talk:" .. p_num .. "|" .. label .. " (" .. string.upper(p_num) .. ")]]</i></b> (see <span class='plainlinks'>[https://query...

mHatnote._formatLink(page) topic = topic or 'this topic' local text = string.format('For mair details on %s, see %s.', topic, page) options = options...

string.sub(genus1,1,1) .. "." -- shorten generic names for intrageneric hybrids genus2 = string.sub(genus2,1,1) .. "." genus3 = string.sub(genus3...

string causes 'yes' return; {{lang}} will handle the missing code error local text = frame.args[2] or frame.args['text'] or ''; -- empty string...

pluralize(PAGENAME) -- Insert PART, either a string or array, into TAB. If PART is a string, -- split on commas. local function insert_part(tab...

"string" }, sort_key = { type = "string" }, id = { type = "string" }, } local function test_script(text, script_code) if type(text) == "string" and...

then link = string.format('[%s %s]', data.link, display) else link = string.format('[[%s|%s]]', data.link, display) end return string.format('<span...

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

parameter. local function getSeparator( sep ) if sep and type(sep) == 'string' then if sep == 'dot' or sep =='pipe' or...

parameter names will always work. The cfg table -- values can be added as a string, or as an array of strings. local defaultKeys = { 'main', 'talk', 'other'...

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

then frac_part = frac_part .. string.rep('0', offset) end -- Allow groups of 3 or 2 (3 first) for v in string.gmatch(frac_part,'%d%d%d?') do ...

text = export.reorderDiacritics(text) if type(text) ~= "string" then error("Text is not a string", 2) end local tokens = {} -- token tracks our position...

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

end function onlyinprint(content) return "" end -- This returns a string with HTML character entities for wikitext markup characters. function wikiescape(text)...

is a -- string 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...

frame:preprocess(mTemplateInvocation.invocation(name, invArgs)) return string.format('<code>%s</code> %s %s', invocation, gives, result) end function...

tostring(param)) .. ", but it should be a number or a string." .. template_tag, 2) end -- Can use string.find because language codes only contain ASCII....

of this to directly call [[Module:string utilities]]. function export.ucfirst(text) return require("Module:string utilities").ucfirst(text) end function...

-- Gets the Roman numerals for a given numeral table. Returns both the string of -- numerals and the value of the number after it is finished being processed...

information' local outString = txCatMore..txWPCat..'\n'.. '[[Category:'..pagesCat..'|'..id..']]'..redCatCheck(pagesCat) return outString end end return...

function add_forms(wikitable, forms) if type(wikitable) ~= 'string' then error('Expected string, got ' .. type(wikitable)) end wikitable =...

for i,x in pairs(xs) do ys[i]=f(x) end return ys end function map_string(f, s) local ys = {} for i = 1,#s do ys[i]=f(s:sub(i,i)) end return...

'banner') if not shield or shield == '' then return nil else return string.format('[[File:%s|%s|alt=%s]]', shield, bannerSize, alt) end end local...

{}, {} for k in pairs(args) do if string.match(k, '^rev%d+$') then table.insert(reviewers, k) elseif string.match(k, '^agg%d+$') then table.insert(aggregators...

and (init < 1 or init ~= floor(init) or init == math.huge) then error(string.format( "invalid init value '%s' detected in argument #2 to " .. "'Exponential...

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

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

'px' } ) local nocat = args.nocat and string.lower(args.nocat) == 'yes' if args.shadow and string.lower(args.shadow) == 'yes' then ret:css({...

formatDate, lang, 'U', dateString) if success then result = tonumber(result) if result then return result end end error(string.format( 'invalid...

mw.ustring.lower local upper = mw.ustring.upper local function checkForString(variable) return variable ~= "" and variable ~= nil end local function...

else title=''; -- if not set, make sure title is an empty string end if is_set (script) then script = script:gsub ('^%l%l%s*:%s*', '');...

instead. for id in pairs(pronunciation) do if phonemes[id] then error(string.format( "duplicate ID '%s' found in %s and %s", id, PRONUNCIATION_MODULE...

function return p._id(id,alt) end function p._id(id,alt) if type(id) == 'string' then id = mw.ustring.upper(mw.ustring.sub(id,1,1))..mw.ustring.sub(id...

instead. for id in pairs(pronunciation) do if phonemes[id] then error(string.format( "duplicate ID '%s' found in %s and %s", id, PRONUNCIATION_MODULE...

"") then df = string.lower(iDf); end; end; function p.setSystemFormat(iSf) if(iSf ~= nil and iSf ~= "") then systemFormat = string.lower(iSf); end;...

header_type == nil then header = args.header_type else header = string.lower(args.header_type) end local deleted = args.decommissioned or...

'table') checkType('affixNums', 2, prefix, 'string', true) checkType('affixNums', 3, suffix, 'string', true) local function cleanPattern(s) --...

byabout .. " " .. dname .. "] " .. tagline end -- Determine media string media = p.mediaTypes(args.media) if media == "" then mediaopen =...

local p = {} local format = string.format local gsub = mw.ustring.gsub local trim = mw.text.trim local upper = mw.ustring.upper local prepattern = "%[(%w+)%|(...

options.encode == true or options.encode == nil then url_string = mw.uri.encode( url_string ); end if options.auto_link and is_set (options.access)...

the state of boolean list argument; kv pair for template execution; k=v string for template listing. ]] local function add_parameter (k, v, args, list)...

outString = outString .. mw.text.nowiki(table.concat(categories)) .. '<br />' elseif currentTitle.namespace == 0 then outString = outString .. table...

otherargs) local args = otherargs or getArgs(frame) local tableprefix = string.format('| style="%stext-align:%s" |', args.total and...

val .. "; " end end if (body > "") then -- check for empty string return string.sub(body, 1, -3) -- chop off final semicolon and space else --no...

substing -- Combine passed args with passed defaults local args = {} if string.find( ','..(frame.args['$flags'] or '')..',', ',%s*override%s*,' ) then...

local terms = {} -- because args is unmodifiable --make the term empty string if only the alternate text exists for name, parameter in pairs(args) do...

return string.format('RD%d-%s' .. padding, round, type, team) end function getRoundName(round) local name = args['RD' .. round] if name and string.len(name)...

insert(suffix, ' ' .. string.lower(dir)) end end return prefix .. name .. concat(suffix) end local function banners(routes) local format = string.format local...

local function dmsTest(first, second) if type(first) ~= 'string' or type(second) ~= 'string' then return nil end local s = (first .. second):upper()...

from_en_table -- to translate an output string of en digits to local language local to_en_table -- to translate an input string of digits in local language to...

'^(%d%d%d%d)(%d%d)(%d%d)(%d%d)(%d%d)(%d%d)$' ) if year then return string.format( '%s-%s-%sT%s:%s:%s', year, month, day, hour, minute, second...

are defined local popnum = tonumber(pop) if not popnum then error(string.format('Unable to convert population "%s" to a number', pop), 2) end ...

currTaxon) -- note that colour is global to this function; default is empty string local i = 1 -- count levels processed local searching = currTaxon ~= ''...

if type(ret) == "string" then return ret else error("The function \"" .. itemname .. "\" did not return a string value.") end else ...

mapping = countries function p._country(state, country) return country and string.upper(country) or countries[state] end function p.country(frame) if not...

subjectTitle end local stringToFormat if title.exists then stringToFormat = '%s an edit be made to %s%s %s%s.' else stringToFormat = '%s %s%s %s%s...

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

local dateval = string.match( datetime, "[%w ]+") local dateformat = string.lower(dateformat or "dmy") -- default to dmy local bc = string.upper(bc or...

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

[[Module:utilities]] [[Module:string]] [[Module:debug]] ]=] -- These are prefixed with u to avoid confusion with the default string methods -- of the same...

fmt) if item then self.n = self.n + 1 self[self.n] = fmt and string.format(fmt, item) or item end end, join = function (self, sep) ...

end return table.concat (out) -- concat into one big string; empty string if table is empty end --[[--------------------------< isValidDate...

new('Module:Location map/data/' .. map) if not moduletitle then error(string.format('%q is not a valid name for a location map definition', map), 2)...

['text-align'] = 'center' } for _, v in ipairs(cell_args) do if type(v) == 'string' then top:wikitext(cells[v].t) bottom:wikitext(cells[v].b) else...

values. if commonsName ~= nil and string.find( commonsName, "File:", 1 ) == 1 then commonsName = string.sub( commonsName, 6) flagOf...

title = mw.title.new(frame.args[1]) if title.isRedirect then return string.match(title:getContent(), "^#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*:?%s*%[%[([^%[%]]-)%]%]")...

Argument is 'set' when it exists (not nil) or when it is not an empty string. ]] local function is_set( var ) return not (var == nil or var == '');...

primeLink then return '[['..'prime'..']]' end result = string.sub(result,1,-4) return format(result) end function format(num) ...

All methods were developed independently and any resemblance to other string buffer libraries would be coincidental. Furthermore, many methods will not...

table; set to nil if not used [6]=postfix; text string to be appended at the end of the tail string - see webarchive.loc.gov in the table ]=] local...

function(self, chr, args) args = args or {} local safe = args.safeChr or string.char(13) chr = tostring(chr or '\\') self[1] = ('%s0%%s%s'):format(...

pairs(parentArgs) do if value ~= '' then if type(argName) == 'string' then if argName == 'title' then value...

-- Returns a singular’s plural if it can be safely guessed, and an empty string -- otherwise. function export.get_plural(lemma) if (has_space_or_hyphen(lemma))...

aspects of the components of the url s_chap = string.format( '%x', s_chap/10 ) .. string.sub(string.format('%02d', s_chap), -1) elseif (site == 'oremus')...

insert(pages, v) end return mHatnote._hatnote( mHatlist.forSeeTableToString({{use = use, pages = pages}}), {selfref = args.selfref} ) .. category...

require("Module:utilities") local ut = require("Module:utils") local m_string_utilities = require("Module:string utilities") local m_para = require("Module:parameters")...

if data.glossary then local glossary_entry = type(data.glossary) == "string" and data.glossary or label label = "[[Appendix:Glossary#" .. glossary_entry...

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

provided from -- another module which may pass a string, a number, or another type). if type(text) == 'string' then text = text:match('(%S.-)%s*$') end...

Wikidata]]' end return result end local ret = {} ret[#ret + 1] = string.format( '<span class="official-website">%s</span>', makeUrl(options...

possible fields, a "prefix" string and a "depend" table. The function always parses -- parameters containing the "prefix" string, but only parses parameters...

formatEasterError(message, ...) if select('#', ... ) > 0 then message = string.format(message, ...) end return "<span class=\"error\">" .. message...

year 776 BC). This is why all values need to be corrected by 1. return string.format( '[[%s]], %d', t.ruler, inputYear - t.rulerstart ) end...

local p = {} function p.main(frame) local map = mw.loadData(string.gsub(mw.title.getCurrentTitle().prefixedText,'/doc$','')) local retval = [=[{| class="wikitable"...

year 776 BC). This is why all values need to be corrected by 1. return string.format( '[[%s|%s]] [[List of ancient Egyptian dynasties|dynasty]], %d'...

-- Returns a singular’s plural if it can be safely guessed, and an empty string -- otherwise. function export.get_plural(lemma) if (has_space_or_hyphen(lemma))...

current page end return mw.wikibase.getSitelink(qid or '') -- requires one string arg end -- Return the data type of a property given its entity ID. function...

[[Module:utilities]] [[Module:string]] [[Module:debug]] ]=] -- These are prefixed with u to avoid confusion with the default string methods -- of the same...

Argument is 'set' when it exists (not nil) or when it is not an empty string. ]] local function is_set( var ) return not (var == nil or var == '');...

by a string.gsub() replacement table operating only on these separate elements. In the string.gsub() matching pattern, '.*' matches empty string as well...

['r'] = true, } function export.IPA(frame) local args = type(frame) == 'string' and { frame } or frame:getParent().args local result = {} if args['phon']...

symbols at the end of RU1 and move -- them to the end of the concatenated string, before any footnote symbols -- for RU2; same thing goes for TR1 and TR2...

-- because without a dab, the string.match returns nil dab = ''; -- empty string for concatenation end fragments = mw...

loadData('Module:Transclusion count/data/' .. ((i == 91) and 'other' or string.char(i))) for name, count in pairs(data) do table.insert(list, {mw...

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

>-------------------------------------------------- render a numerical text string in ordinal form suitable for English language use. In this module, num_str...

end -- Find the best script to use, based on the characters of a string. function export.findBestScript(text, lang) if not text or not lang or...

imp = "; ''imperative'' " .. imperative end text = string.format("'''%s''' (''present tense'' %s; ''past tense'' %s; ''past participle''...

end --Generate and return hatnote local text = mHatlist.forSeeTableToString({{ use = options.otherText and "other " .. options.otherText or nil, ...

Species'); local patterns = { -- tables of string.match patterns [1] and string.gsub patterns [2] {'(.-)%sssp%.%s+(.-)%s(%b())$', "''%1''...

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

loadData(data_module) colors = all_colors[team] if ( colors and type(colors) == 'string' ) then colors = all_colors[colors] end end return colors or unknown...

contains_non_BMP(str) return str:find '[\240-\244]' end do local byte, min = string.byte, math.min function export.laborious_comp(item1, item2) local l1...

function p.renderList(data) -- Renders the list HTML. -- Return the blank string if there are no list items. if type(data.items) ~= 'table' or #data.items...

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

type(sep) == 'string' then -- If the separator is a recognised MediaWiki separator, use that. Otherwise use the value of sep if it is a string. local mwseparators...

mw.ustring.upper(k),"']='",mw.ustring.upper(v),"',\n"})) end ]] -- One-string data: local tt="а=a\nА=A\nб=b\nБ=B\nв=v\nВ=V\n"...etc. function M.tr(f)--translit...

do syllable_ends[v] = v .. " " end -- remove spaces from the end of a string function rtrim(s) local n = #s while n > 0 and s:find("^%s", n) do n =...

loadData(data_module) colors = all_colors[team] if ( colors and type(colors) == 'string' ) then colors = all_colors[colors] end end return colors or unknown...

console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include the...

console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include the...

possible fields, a "prefix" string and a "depend" table. The function always parses -- parameters containing the "prefix" string, but only parses parameters...

Default of old template for long is 'Archive ' if type(prefix) == 'string' then if prefix == 'none' then -- 'none' overrides to empty prefix...

it -- is different. -- -- The "display hyphen" is the string (which might be an empty string) that -- is added onto a term as displayed (and linked)...

is not -- of the type expectType. The default type for expectType is 'string'. -- If the table valArray is present, strings such as $1, $2 etc. in the...

user_specified = true else val = data.forms[key] end if type(val) == "string" then val = mw.text.split(val,"/") end if data.num == "pl" and...

"th" end end p.addDelimiters = function(n) local left, num, right = string.match(n, "^([^%d]*%d)(%d*)(.-)$") if left and num and right then return...

a {"multi", ...} clause; see below.) A specification is one of: (1) A string: Always apply that category. (2) A list {"has", TAG, SPEC} or {"has"...

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

~= "-" and (#args[4] > 0 or type(singular_classes[args[2]] ~= true) == "string") then if not plural_classes[args[3]] then args[3] = nil end ...

module was malformed. This means it was either -- not a string value or it was the blank string. cfg['error-malformedlinkcode'] = 'malformed link code...

loadData(data_module) colors = all_colors[team] if ( colors and type(colors) == 'string' ) then colors = all_colors[colors] end end return colors or unknown...

cat ~= '' then -- Add by index to avoid duplicates categoryTable[string.format('[[Category:%s]]', cat)] = true end end --Generate tracking categories...

local getArgs = require('Module:Arguments').getArgs local p = {} -- Is a string non-empty? local function _ne(s) return s ~= nil and s ~= "" end local...

end for k, v in ipairs( params ) do ret = ret .. '\n | ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (args[v] or '')...

local getArgs = require('Module:Arguments').getArgs local p = {} -- Is a string non-empty? local function _ne(s) return s ~= nil and s ~= "" end local...

not keepdot then -- if input had spaces, keep them -- if the input string had periods, then remove them now text = mw.ustring.gsub(text, '%.', '')...

:css('border-collapse', 'collapse') :tag('tr') end local image = string.format( '[[File:%s|%dpx]]', args['photo' .. num .. c], (size -...

to targs for k,v in pairs(frame:getParent().args) do if type(k) == 'string' and k:match('^list[0-9][0-9]*$') then if isnotempty(v) then listcount...

end return w or 200 end local function getPerRow(pstr, ic) -- split string into array using any non-digit as a dilimiter local pr = mw.text.split(pstr...

(type(k) == 'string' and (tonumber(k) or 0) > 0)) then if tonumber(k) > maxnum then maxnum = k end else if (k and type(k) == 'string') then ...

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

function(s) return mw.uri.encode(s, 'PATH') end) -- If there is an empty query string or fragment id, remove it as it will cause mw.uri.new to throw an error...

"PATH" ) -- handle spaces within id argument string prefix = "Warks bi " italic = "" url = "[" .. urlhead...

gregorianYear = tonumber( init.year ) local initText = type( init.era ) == 'string' and init.era or nil local initIndex = tonumber( init.index ) if...

table for a number (empty if there was no specified number); or -- * a string for range text -- Input like 1e3 is regarded as invalid for all except...

Argument is 'set' when it exists (not nil) or when it is not an empty string. ]] local function is_set( var ) return not (var == nil or var == '');...

hitotsu$") -- ② at the end of the string and not preceded by a-z or a period ("^are wa$") -- ③ at the beginning of the string and not followed by a-z or a...

process(args, params) for i, v in ipairs(rows) do local name = string.lower(string.sub(v,1,3)) if at['no'..name] then forms[2*i] = {} forms[2*i-1]...

-- protection object and the template arguments, and they must output a string. -- -- For example: -- -- text = function (protectionObj, args) -- if...

them in it: -- string in quotes [=[ ... builtin_units ... ]=]. -- string in quotes [=[ ... builtin_units_long_scale ... ]=]. -- First string, builtin_units...

Argument is 'set' when it exists (not nil) or when it is not an empty string. ]] local function is_set( var ) return not (var == nil or var == '');...

------------------------------- -- noWrap -- Add span tags to prevent a string from wrapping. --------------------------------------------------------...

-- readings if provided, if we have neither then -- default to empty string and don't sort local userprovided_sortkey = args["sort"] or "" if userprovided_sortkey...

colors = color_data[team] end if ( colors and type(colors) == 'string') then if team == colors then year = nil end -- follow alias recursively...

outString = outString .. mw.getCurrentFrame():extensionTag("ref", valuesArray[i][1], {name = valuesArray[i].refHash}) end else outString = outString...

names. local function checkValue(value, default) if type(value) == 'string' then return value else return default end end local nsHeader...

:addClass('wikiepisodetable') :css('width', args.total_width and string.gsub(args.total_width,'%%','') .. '%' or '100%') -- Caption if args...

end if name == 'CAN' or name == 'GBR' then local module = require(string.format("Module:Infobox road/color/%s", name)) return module.colors ...

scriptObject:getCharacters() .. "]", "") if text ~= "" then if type(result) == "string" then error(result) else error('The text "' .. originalText .. '"...

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

{m="masc", f="fem", n="neut"} -- Insert the category CAT (a string) into list CATEGORIES. String will -- have "Russian " prepended and ~ substituted for the...

genders are provided, but there are no qualifier for either, the -- string (in variation) is added after the second, per [[WT:T:APT]]. function get_genders(g1...

local nom = require("Module:ru-nominal") local strutils = require("Module:string utilities") local m_table_tools = require("Module:table tools") local m_debug...

displayed if a problem occurs. local all_messages = { -- Message format string: $1=title, $2=text, $3=category, $4=anchor. -- Each displayed message starts...

toNFD(x),'[^%w]+',"") end function cleanup(x) return noaccents(string.gsub(string.gsub(string.gsub(x, '%[', ''), '%]', ''), ' ', '+')) end local tbl =...

self.combatants) :cssText(infoboxStyle.image_box_raw) :wikitext(string.format('%s%s%s', require('Module:InfoboxImage').InfoboxImage{args =...

math_mod = require('Module:Math') local function hex( value ) return string.format("%02X", value) end local function format_line( background, text_color...

end local contentArgs = {} for k, v in pairs(args) do local num = string.match(k, '^list(%d+)$') if num then local expand = args.expanded and...

letters2phones else l2ptab = value end elseif type(value) == "string" then table.insert(phones, value) l2ptab = letters2phones else ...

local getArgs -- lazily initialized local args local format = string.format local function striped(wikitext, border) -- Return wikitext with...

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

return table.concat(examples, ', ') end local module = string.sub(verb_data.suffix, #verb_data.suffix-1) local edit_link = "[".. tostring(mw...

i = i + 1 end for key, value in pairs(args) do if type(key) == "string" then table.insert(output, "&#124;" .. key .. "=" .. value) end end...

exports the function for use in other modules. -- The colour is passed as a string. function p._lum(color) return color2lum(color) end function p._greatercontrast(args)...

require("Module:languages").getByCode("ru") local strutils = require("Module:string utilities") local m_ru_translit = require("Module:ru-translit") local m_table_tools...

setmetatable(copy, deepcopy(getmetatable(orig))) else -- number, string, boolean, etc copy = orig end return copy end function...

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

= 5000, ["Module:Storm_categories/icons"] = 5000, ["Module:String"] = 11200000, ["Module:String2"] = 1780000, ["Module:Su"] = 10000, ["Module:Subject_bar"]...

then return "m-an" elseif string.match(pattern, "^m-pr") or pattern == "adj-m-pr" then return "m-pr" elseif string.match(pattern, "^f") or pattern...

m_ru_translit = require("Module:ru-translit") local strutils = require("Module:string utilities") local export = {} local u = mw.ustring.char local rfind = mw...

self.pattern = nil if args[step] then self.pattern, self.nonFunc = string.match(esc.bs:text(args[step]), '^node_function{(.-)}(.*)') end if self...

but if the invocation argument -- linktext= is given, it will be a string consisting of that text, and if -- the invocation argument nolink= is...

string with key words "$date1" and "$date2" which will be replaced later by the date strings 2) function which can be used to create output string ...

end end local function addSuffix(num, suffix) -- Turns a number into a string and adds a suffix. if num then return tostring(num) .. suffix else ...

o $2$3$1', -- $1 is year, $2 is month-name or empty string, $3 is space or empty string hidden = true, }, maint_extra_punct = { message =...

your language. Unless specified otherwise, values given here -- should be string values. ---------------------------------------------------------------...

page name "pn" includes a validCountyName -- so now we need to split the string debugLog(2, "split pagename around [" .. validCountyName .. "]") local...

["Improve_categories"] = 3800, ["In_class"] = 3900, ["In_lang"] = 328000, ["In_string"] = 45000, ["In_title"] = 12000, ["Inactive_WikiProject_banner"] = 166000...

time, and the "article" and "kanji" values -- may be set to "" (the blank string) if it is a period between era names. -- See [[List of Japanese era names]]...

Short description of the holiday days = '' - Number of days (string) df = '' - Default date format (mdy,dmy,iso) - can be overridden...