INFOSEKOLAH.NET

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

local str = {} -- Cannot include null byte. local UTF8_char = "[\1-\127\194-\244][\128-\191]*" --[[ ulen Counts UTF-8 characters. Faster than mw.ustring...

format("%q", str), which does not use C-like simple -- escapes and does not escape bytes that are not used in UTF-8. escape = function (str) return (str...

characters. ]] local function is_valid_isxn (isxn_str, len) local temp = 0; isxn_str = { isxn_str:byte(1, len) }; -- make a table of byte values '0'...

"(" str = mw.ustring.sub(str,2,mw.ustring.len(str)) elseif mw.ustring.sub(str,1,1) == '"' then isQuoted = true result = '"' str = mw.ustring...

gsub end local str = tostring(value) if type(value) == 'table' and str ~= 'table' then return '{' .. str .. '}' end return str end local function...

local str = frame.args[1] local strToFind = frame.args[2] local strToreplaceWith = frame.args[3] local r = string.gsub(str, p.escape_pattern(strToFind)...

local function removeFalsePositives(str) if not str then return '' end return mw.ustring.gsub(mw.ustring.gsub(str, "<!--.--->", ""), "<nowiki>.-</nowiki>"...

["op"] = "{", ["cl"] = "}", } function export.format(str, tbl) return (string.gsub(str, "{(\\?)((\\?)[^{}]*)}", function (p1, name, p2) ...

<str> is wholly wrapped in accept-as-written markup, return <str> without markup and true; return <str> and false else with allow_empty = false, <str>...

find_common(str_1, str_2) if not str_1 or not str_2 then return 1 end for pos = 1, #str_1 do local char_1 = str_1:sub(pos, pos) local char_2 = str_2:sub(pos...

local val, str, precision if type(v) == 'string' then if v == 'trace' then val, str, precision = 0, 'trace', 0 else val, str = math_mod...

function formatStrInTable(formatStr) if type(formatStr) ~= "table" then return formatStr end formatTable = formatStr local hook = formatStr.hook local...

["Str_endswith"] = 175000, ["Str_find"] = 104000, ["Str_index"] = 12000, ["Str_left"] = 1240000, ["Str_len"] = 18000, ["Str_letter"] = 173000, ["Str_letter/trim"]...

end function p.is_Latin(str) require "libraryUtil".checkType("get_best_script", 1, str, "string") str = mw.text.decode(str, true) -- Search for the...

(args['c'] == '')) ) then outStr = outStr..',' end if i == maxArg then outStr = outStr..' '..(args['c'] or 'and') end outStr = string.format( ...

local dateStr = langSwitch(i18n.Translations[operation], lang) if type(dateStr)=='table' then dateStr = dateStr[1] end if type(dateStr)=='function'...

underscore_to_camel_case(str) if type(str) ~= "string" then return str end str = str:gsub("_(.)", string.upper) return str end local m_table, m_fun...

local outStr = '' for i = 1, maxArg do if args[i] then outStr = outStr..'[[:User:'..args[i]..'|&#x200B;]]' end end return outStr end end return...

function p.ia_url_encode(str) if (str) then str = mw.ustring.gsub (str, "\n", "\r\n") str = mw.ustring.gsub (str, "([^%w %-%_%.%~])", ...

unmodified. str may be a comma- or semicolon-separated list ]] local function hyphen_to_dash( str ) if not utilities.is_set (str) then return str; end...

canonicalName = lang:getCanonicalName() str = mw.uri.encode(str, "WIKI") local id = canonicalName .. "-" .. str if invoked then return '<li class="senseid"...

true else strOut = strOut .. replaceSpecialChar(chr) end else strOut = strOut .. chr esc = false end end return strOut end local...

find(L10n.str.affirmedWords, ' '..val..' ', 1, true ) and true or false end --[[ Check if a value is declined (one of the values in L10n.str.declinedWords)...

forSeeStr = string.format(options.forSeeForm, useStr, pagesStr) forSeeStr = punctuationCollapse(forSeeStr) table.insert(strList, forSeeStr) end...

convert_dms2dec(direction, degrees_str, minutes_str, seconds_str) local degrees = tonumber(degrees_str) local minutes = tonumber(minutes_str) or 0 local seconds...

language use. In this module, num_str is limited by calling functions to the integer values 1-99. The argument num_str must be known to be set before this...

split( String, '"', true )) do if i%2==1 then str = str:gsub(old, new) end table.insert(T, str) end return table.concat(T,'"') else return...

-- begin with the bytes 240 to 244. local function contains_non_BMP(str) return str:find '[\240-\244]' end do local byte, min = string.byte, math.min...

lang") end end function containsRange(str, first, last) for codepoint in mw.ustring.gcodepoint(str) do if codepoint >= first and codepoint...

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

local str_number = tostring(number) local highest_numeric_position = #str_number local i = 0 local index = '' for digit in str_number:gmatch"...

v and v or (v[1] and Buffer(v[1]) or attention):_in(v.k):_(v.t):_str(2, nil, nil, '|') )] = true end end return cat.done and table.concat(p...

function p._error( error_str ) return '[[Category:Duration with input error]]<strong class="error">Error in Module:Hms: ' .. error_str .. '</strong>' end...

end local unicode_range_str = table.concat(unicode_ranges, "") local notes_re = "[%*%~%@%#%$%%%^%&%+0-9_ " .. unicode_range_str .. "]*" local function...

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

local str = tostring(v)--functions not filtered since unlikely passed by accident (Scribunto does not have userdata/thread types) if str~=v and str=='table'...

=============================]] function p.append(str, c, length) while str:len() < length do str = c .. str end return str end --Returns the ISNI check digit...

if data.special_display then local function add_language_name(str) if str == "canonical_name" then return canonical_name else return...

UTF-8-encoded codepoints in string. local function iterString(str) local iter = string.gmatch(str, "[%z\1-\127\194-\244][\128-\191]*") local i = 0 local...

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

name=hth_id, Args['hth_'..hth_loc]} } end end end end return {str=hth_string, list=hth_id_list, notes_exist=notes_exist} end return ppp...

escape a string for use in regexes function Excerpt.escapeString( str ) return str:gsub( '[%^%$%(%)%.%[%]%*%+%-%?%%]', '%%%0' ) end -- Helper method...

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

replace that header by empty string local t_str = tostring(table.concat(t)) t_str = mw.ustring.gsub( t_str, results_header_txt, '' ) N_cols = N_cols-1...

characters. ]] local function is_valid_isxn (isxn_str, len) local temp = 0; isxn_str = { isxn_str:byte(1, len) }; -- make a table of byte values...

datevec[3]~=nil) then local str = mw.getCurrentFrame():callParserFunction( "#time", { 'Y-m-d', datestr} ) local vec = {str:match( "^(%d%d?%d?%d?)-(%d%d...

escape a string for use in regexes local function escapeString(str) return string.gsub(str, '[%^%$%(%)%.%[%]%*%+%-%?%%]', '%%%0') end -- Helper function...

end local roadStr = '' local road = args.road if road then if args.toroad then roadStr = ' to ' .. road else roadStr = ' / ' .. road ...

nonempty(str) if not str or str == "" then return nil else return str end end -- Generate a table contains true for each space-separated word in str local...

digits? date_str = mw.ustring.gsub (date_str, '%d', digits); -- convert this wiki's non-western digits to western digits end if date_str:match...

a 3D array local SeasonEntries = {} for k,v in pairs(args) do local str, num, str2 = string.match(k, '([^%d]*)(%d*)(%a*)') if num ~= '' then ...

escape a string for use in regexes local function escapeString( str ) return string.gsub( str, '[%^%$%(%)%.%[%]%*%+%-%?%%]', '%%%0' ) end -- Get the lead...

local outStr = '*<span style="white-space:nowrap;">' .. label .. ' <span' if withUid then outStr = outStr..' class="uid"' end return outStr..'>' .....

t={} local i=1 for str in string.gmatch(inputstr, "([^"..sep.."]+)") do t[i] = str i = i + 1 end...

taxonomy table with anomalous ranks marked local errorStr = '' if not orderOk then errorStr = 'yes' end local link = l.getTaxonLink(frame, taxon...

tags["strong"] = { tag_type = "state", glossary = "indefinite", shortcuts = {"str"}, wikidata = "Q53997857", -- Indefinite } tags["weak"] = { tag_type =...

"fl", "fr", "sp", "st", "sk", "skʷ", "sl", "sm", "sn", "sw", "spr", "str", "skr", "spl", "skl", } local codas = { "b", "p", "pʰ", "d", "t", "tʰ"...

"gd_def_sg_f", "gd_def_pl_m", "gd_def_pl_f", } local consonants = { i = { str = 'ștr'; st = 'șt'; sc = 'șt'; d = 'z'; s = 'ș'; t = 'ț'; x =...

team_list,team_code_ii,ii_start,ii_end,rand_val) hth_string = tt_return.str hth_id_list = tt_return.list notes_exist = tt_return.notes_exist --...

'[' .. AC .. GR .. ']' local perm_syl_onset = ut.list_to_set({ 'spr', 'str', 'skr', 'spl', 'skl', -- FIXME, do we want sc? 'sp', 'st', 'sk', 'sf'...

local str_overall_results = table.concat(overall_results, sep) return str_overall_results end --[[ local results_split = mw.text.split(str_overall_results...

East F; see [[WT:T:ASTQ]] scripts = {"Latn"}, family = "gmw-fri", } m["str"] = { canonicalName = "Saanich", scripts = {"Latn"}, family = "sal", }...

local str = 'lata '..(date1 % 100)..'. ' if (date1 % 100 == 0) then str = 'pierwsza dekada ' elseif (date1 % 100 == 10) then str = 'druga...

["stp"] = {"Southeastern Tepehuan"}, ["stq"] = {"Saterfriesisch"}, ["str"] = {"Straits Salish"}, ["sts"] = {"Shumashti"}, ["stt"] = {"Budeh Stieng"}...

["stp"] = {"Southeastern Tepehuan"}, ["stq"] = {"Saterfriesisch"}, ["str"] = {"Straits Salish"}, ["sts"] = {"Shumashti"}, ["stt"] = {"Budeh Stieng"}...

seems to use genus and species before taxon name -- "| binomial = ''{{Str letter/trim|{{{genus|{{{taxon|<includeonly>{{PAGENAME}}</includeonly><no...

bar) return retval end local function cfind(str, text) -- Constant version of :find() return str:find(text, nil, true) end local function form_is_empty(form)...

_RGBbyCode(args) return RGBbyCode(args[1]) end local function properties(str) --str is a combination of properties with following syntax: --property name=value...