Module:String2/sandbox - Revision history

Gonnym at 12:23, 19 February 2025

2025-02-19T12:23:52Z

← Previous revision		Revision as of 12:23, 19 February 2025
Line 398:		Line 398:

	for _, value in ipairs(values) do		for _, value in ipairs(values) do
			-- Trim spaces
			value = value and value:gsub("^%s(.-)%s$", "%1")
	if value == "" or value == nil then		if value == "" or value == nil then
	if not allow_empty then		if not allow_empty then

Gonnym at 10:55, 19 February 2025

2025-02-19T10:55:05Z

← Previous revision		Revision as of 10:55, 19 February 2025
Line 393:		Line 393:
	-- Checks if a value in a group of numbers is not an interger.		-- Checks if a value in a group of numbers is not an interger.
	-- Allows usage of an \|empty= parameter to allow empty values to be skipped.		-- Allows usage of an \|empty= parameter to allow empty values to be skipped.
	function p.~~is_integer~~(frame)		function p.isInteger(frame)
	local values = frame.args or frame:getParent().args		local values = frame.args or frame:getParent().args
	local allow_empty = frame.args.empty or frame:getParent().args.empty		local allow_empty = frame.args.empty or frame:getParent().args.empty

Gonnym at 10:45, 19 February 2025

2025-02-19T10:45:28Z

@@ Line 389: / Line 389: @@
 	end
 	return boolean and 0 or ''
 end
@@ Line 394: / Line 416: @@
 function p.getError(frame)
 	local text = frame.args[1] or frame:getParent().args[1]
 	local error_message = text:match('(<strong class="error">.-</strong>)')
 	return error_message or nil

Gonnym at 09:31, 19 February 2025

2025-02-19T09:31:03Z

← Previous revision		Revision as of 09:31, 19 February 2025
Line 395:		Line 395:
	local text = frame.args[1] or frame:getParent().args[1]		local text = frame.args[1] or frame:getParent().args[1]
	mw.log(text)		mw.log(text)
	local error_message = text:match('<strong class="error">(.-)</strong>')		local error_message = text:match('(<strong class="error">.-</strong>)')
	return error_message or nil		return error_message or nil
	end		end

Gonnym at 09:27, 19 February 2025

2025-02-19T09:27:13Z

← Previous revision		Revision as of 09:27, 19 February 2025
Line 396:		Line 396:
	mw.log(text)		mw.log(text)
	local error_message = text:match('<strong class="error">(.-)</strong>')		local error_message = text:match('<strong class="error">(.-)</strong>')
	return error_message		return error_message or nil
	end		end

Gonnym at 09:25, 19 February 2025

2025-02-19T09:25:22Z

← Previous revision		Revision as of 09:25, 19 February 2025
Line 394:		Line 394:
	function p.getError(frame)		function p.getError(frame)
	local text = frame.args[1] or frame:getParent().args[1]		local text = frame.args[1] or frame:getParent().args[1]
			mw.log(text)
	local error_message = text:match('<strong class="error">(.-)</strong>')		local error_message = text:match('<strong class="error">(.-)</strong>')
	return error_message		return error_message

Gonnym at 09:15, 19 February 2025

2025-02-19T09:15:34Z

← Previous revision		Revision as of 09:15, 19 February 2025
Line 12:		Line 12:
	end		end

	p.ucfirst = function (frame )		p.ucfirst = function (frame)
	local s = frame.args[1];		local s = frame.args[1];
	if not s or '' == s or s:match ('^%s+$') then -- when <s> is nil, empty, or only whitespace		if not s or '' == s or s:match ('^%s+$') then -- when <s> is nil, empty, or only whitespace
Line 87:		Line 87:


	p.title = function (frame )		p.title = function (frame)
	-- http://grammar.yourdictionary.com/capitalization/rules-for-capitalization-in-titles.html		-- http://grammar.yourdictionary.com/capitalization/rules-for-capitalization-in-titles.html
	-- recommended by The U.S. Government Printing Office Style Manual:		-- recommended by The U.S. Government Printing Office Style Manual:
Line 389:		Line 389:
	end		end
	return boolean and 0 or ''		return boolean and 0 or ''
			end

			-- Returns an error found in a string.
			function p.getError(frame)
			local text = frame.args[1] or frame:getParent().args[1]
			local error_message = text:match('<strong class="error">(.-)</strong>')
			return error_message
	end		end

Ahecht: isnumeric

2024-09-20T15:32:50Z

isnumeric

@@ Line 379: / Line 379: @@
 function p.startswith(frame)
 	return (frame.args[1]:sub(1, frame.args[2]:len()) == frame.args[2]) and 'yes' or ''
 end

Trappist the monk at 18:45, 10 March 2024

2024-03-10T18:45:02Z

← Previous revision		Revision as of 18:45, 10 March 2024
Line 22:		Line 22:

	local prefix_patterns_t = { -- sequence of prefix patterns		local prefix_patterns_t = { -- sequence of prefix patterns
	'\127[^\127]UNIQ%-%-%a+%-%x+%-QINU[^\127]\127', -- stripmarker		'^\127[^\127]UNIQ%-%-%a+%-%x+%-QINU[^\127]\127', -- stripmarker
	'^([%*;:#]+)', -- various list markup		'^([%*;:#]+)', -- various list markup
	'^(\'\'\'*)', -- bold / italic markup		'^(\'\'\'*)', -- bold / italic markup
Line 35:		Line 35:
	local prefixes_t = {}; -- list, bold/italic, and html-like markup, & whitespace saved here		local prefixes_t = {}; -- list, bold/italic, and html-like markup, & whitespace saved here

	-- local function prefix_strip (s~~, prefixes_t~~) -- local function to strip prefixes from <s>		local function prefix_strip (s) -- local function to strip prefixes from <s>
	local function prefix_strip (s) -- local function to strip prefixes from <s>
	for _, pattern in ipairs (prefix_patterns_t) do -- spin through <prefix_patterns_t>		for _, pattern in ipairs (prefix_patterns_t) do -- spin through <prefix_patterns_t>
	if s:match (pattern) then -- when there is a match		if s:match (pattern) then -- when there is a match
Line 48:		Line 47:
	end		end

	-- local prefixes_t = {}; -- list, bold/italic, and html-like markup, & whitespace saved here
	local prefix_removed; -- flag; boolean true as long as prefix_strip() finds and removes a prefix		local prefix_removed; -- flag; boolean true as long as prefix_strip() finds and removes a prefix

	repeat -- one by one remove list, bold/italic, html-like markup, whitespace, etc from start of <s>		repeat -- one by one remove list, bold/italic, html-like markup, whitespace, etc from start of <s>
	-- s, prefix_removed = prefix_strip (s, prefixes_t);
	s, prefix_removed = prefix_strip (s);		s, prefix_removed = prefix_strip (s);
	until (not prefix_removed); -- until <prefix_removed> is nil		until (not prefix_removed); -- until <prefix_removed> is nil

	s1 = table.concat (prefixes_t); -- recreate the prefix string for later reattachment		s1 = table.concat (prefixes_t); -- recreate the prefix string for later reattachment

	-- if it's a list chop off and (store as s1) everything up to the first <li>
	-- why just list markup? Could be any sort of html markup:
	-- <span title="Spanish-language text"><i lang="es">casa</i></span> (this from {{lang\|es\|casa}})
	-- what about wikitext italic or bold markup? (''italic text'', '''bold text''') – both may be legitimate
	-- local lipos = mw.ustring.find(s, "<li>" ) -- why not constrained to start of string?
	-- if lipos then
	-- s1 = mw.ustring.sub(s, 1, lipos + 3) -- get <li> tag (assumes that the tag is the first text in the string <s> – it may not be)
	-- s = mw.ustring.sub(s, lipos + 4) -- get everything after the <li> tag
	-- end
	-- -- s1 is either "" or the first part of the list markup, so we can continue
	-- -- and prepend s1 to the returned string
	-- local letterpos

	local first_text = mw.ustring.match (s, '^%[%[[^%]]+%]%]'); -- extract wikilink at start of string if present; TODO: this can be string.match()?		local first_text = mw.ustring.match (s, '^%[%[[^%]]+%]%]'); -- extract wikilink at start of string if present; TODO: this can be string.match()?
Line 100:		Line 84:

	return s1 .. s; -- reattach prefix string (if present) and done		return s1 .. s; -- reattach prefix string (if present) and done

	-- if mw.ustring.find(s, "^%[%[[^\|]+\|[^%]]+%]%]") then
	-- -- this is a piped wikilink, so we capitalise the text, not the pipe
	-- local _
	-- _, letterpos = mw.ustring.find(s, "\|%W*%w") -- find the first letter after the pipe
	-- else
	-- letterpos = mw.ustring.find(s, '%w')
	-- end
	-- if letterpos then
	-- local first = mw.ustring.sub(s, 1, letterpos - 1)
	-- local letter = mw.ustring.sub(s, letterpos, letterpos)
	-- local rest = mw.ustring.sub(s, letterpos + 1)
	-- return s1 .. first .. mw.ustring.upper(letter) .. rest
	-- else
	-- return s1 .. s
	-- end
	end		end


	p.title = function (frame )		p.title = function (frame )

Trappist the monk at 14:47, 3 March 2024

2024-03-03T14:47:55Z

← Previous revision		Revision as of 14:47, 3 March 2024
Line 22:		Line 22:

	local prefix_patterns_t = { -- sequence of prefix patterns		local prefix_patterns_t = { -- sequence of prefix patterns
			'\127[^\127]UNIQ%-%-%a+%-%x+%-QINU[^\127]\127', -- stripmarker
	'^([%*;:#]+)', -- various list markup		'^([%*;:#]+)', -- various list markup
	'^(\'\'\'*)', -- bold / italic markup		'^(\'\'\'*)', -- bold / italic markup
Line 29:		Line 30:
	'^(&#x%x+;)', -- html numeric (hexadecimal) entities because some templates render these		'^(&#x%x+;)', -- html numeric (hexadecimal) entities because some templates render these
	'^(%s+)', -- any whitespace characters		'^(%s+)', -- any whitespace characters
	'^([%(%)%-%+%?%.%%!~!@%$%^&_={}/`,‘’„“”ʻ\|\"\'\\]+)', -- miscellaneous punctuation?		'^([%(%)%-%+%?%.%%!~!@%$%^&_={}/`,‘’„“”ʻ\|\"\'\\]+)', -- miscellaneous punctuation
	}		}

	local ~~function~~ ~~prefix_strip~~ ~~(s, prefixes_t)~~ -- ~~local~~ ~~function~~ to ~~strip~~ ~~prefixes~~ ~~from~~ ~~<s>~~		local prefixes_t = {}; -- list, bold/italic, and html-like markup, & whitespace saved here

	local prefix_removed; -- flag; nil when no prefix removed
			-- local function prefix_strip (s, prefixes_t) -- local function to strip prefixes from <s>
			local function prefix_strip (s) -- local function to strip prefixes from <s>
	for _, pattern in ipairs (prefix_patterns_t) do -- spin through <prefix_patterns_t>		for _, pattern in ipairs (prefix_patterns_t) do -- spin through <prefix_patterns_t>
	if s:match (pattern) then -- when there is a match		if s:match (pattern) then -- when there is a match
Line 39:		Line 42:
	table.insert (prefixes_t, prefix); -- save it		table.insert (prefixes_t, prefix); -- save it
	s = s:sub (prefix:len() + 1); -- remove the prefix from <s>		s = s:sub (prefix:len() + 1); -- remove the prefix from <s>
			return s, true; -- return <s> without prefix and flag; force restart at top of sequence because misc punct removal can break stripmarker
	prefix_removed = true; -- set the flag
	end		end
	end		end
	return s~~, prefix_removed~~; -- return <s> ~~without~~ ~~prefixes and~~ flag		return s; -- no prefix found; return <s> with nil flag
	end		end

	local prefixes_t = {}; -- list, bold/italic, and html-like markup, & whitespace saved here		-- local prefixes_t = {}; -- list, bold/italic, and html-like markup, & whitespace saved here
	local prefix_removed; -- flag; boolean true as long as prefix_strip() finds and removes a prefix		local prefix_removed; -- flag; boolean true as long as prefix_strip() finds and removes a prefix

	repeat -- one by one remove list, bold/italic, html-like markup, whitespace, etc from start of <s>		repeat -- one by one remove list, bold/italic, html-like markup, whitespace, etc from start of <s>
	s, prefix_removed = prefix_strip (s, prefixes_t);		-- s, prefix_removed = prefix_strip (s, prefixes_t);
			s, prefix_removed = prefix_strip (s);
	until (not prefix_removed); -- until <prefix_removed> is nil		until (not prefix_removed); -- until <prefix_removed> is nil