Module:Template input parse: Difference between revisions

← Older edit

@@ Line 8: / Line 8: @@
 function p.parse_entries(unparsed, delimiter)
 	local parsed = {}
-	local delimiter = delimiter or ';'
+	local delimiter = delimiter or ";"
-	local expr = '([^' .. delimiter .. ']+)'
+	local expr = "([^" .. delimiter .. "]+)"
 	for entry in string.gmatch(unparsed, expr) do
 		local trimmed = entry:gsub("^%s*(.-)%s*$", "%1")
 		table.insert(parsed, trimmed)		-- Add to array
+	end
+	return parsed
+end
+-- Helper function
+-- Parses entries from a delimited string and returns them in an array
+-- Values entered are convereted into numbers rather than strings.
+-- Default delimiter is semicolon (;)
+function p.parse_numeric_entries(unparsed, delimiter)
+	local parsed = {}
+	local delimiter = delimiter or ";"
+	local expr = "([^" .. delimiter .. "]+)"
+	for entry in string.gmatch(unparsed, expr) do
+		local trimmed = entry:gsub("^%s*(.-)%s*$", "%1")
+		local numeric = tonumber(trimmed)
+		table.insert(parsed, numeric)		-- Add to array
 	end
 	return parsed
@@ Line 21: / Line 37: @@
 function p.parse_pair(unparsed, delimiter)
 	local parsed = {}
-	local delimiter = delimiter or ':'
+	local delimiter = delimiter or ":"
-	local expr = '([^' .. delimiter .. ']+)'
+	local expr = "([^" .. delimiter .. "]+)"
 	for entry in string.gmatch(unparsed, expr) do
 		local trimmed = entry:gsub("^%s*(.-)%s*$", "%1")
@@ Line 32: / Line 48: @@
 		return nil
 	end
+end
+-- Helper function
+-- Parses a pair of numeric values
+-- Passing in TRUE for is_fuzzy allows singular values to be parsed as ratios
+-- whose denominator is 1; default is FALSE
+function p.parse_numeric_pair(unparsed, delimiter, is_fuzzy)
+	local parsed = {}
+	local delimiter = delimiter or ":"
+	local is_fuzzy = is_fuzzy or false
+	local expr = "([^" .. delimiter .. "]+)"
+	for entry in string.gmatch(unparsed, expr) do
+		local trimmed = entry:gsub("^%s*(.-)%s*$", "%1")
+		local numeric = tonumber(trimmed)
+		table.insert(parsed, numeric)		-- Add to array
+	end
+	if #parsed == 2 then
+		return parsed
+	elseif #parsed == 1 and is_fuzzy then
+		return { parsed[1], 1 }
+	else
+		return nil
+	end
+end
+-- Helper function
+-- Parses a list of numeric pairs
+-- Delimiter between each entry can be anything; default is semicolon; this
+-- allows for entry of subgroup entries
+-- Delimiter between the pair's two values can be anything; default is slash
+-- as the intended use is parsing ratios a/b, so input must be formatted as such
+-- "a/b; c/d; e/f"
+-- Passing in TRUE for is_fuzzy allows singular values to be parsed as ratios
+-- whose denominator is 1; defualt is FALSE.
+function p.parse_numeric_pairs(unparsed, delimiter1, delimiter2, is_fuzzy)
+	local delimiter1 = delimiter1 or ";"
+	local delimiter2 = delimiter2 or "/"
+	local is_fuzzy = is_fuzzy or false
+	-- Split the string of unparsed pairs
+	local parsed = p.parse_entries(unparsed, delimiter1)
+	-- Then tokenize the tokens into numeric pairs
+	local pairs_ = {}
+	for i = 1, #parsed do
+		local pair = p.parse_numeric_pair(parsed[i], delimiter2, is_fuzzy)
+		if pair ~= nil and #pair == 2 then
+			table.insert(pairs_, pair)
+		end
+	end
+	return pairs_
 end
@@ Line 42: / Line 107: @@
 	-- Then tokenize the tokens into key-value pairs
 	local pairs_ = {}
+	--local num_pairs = 0
 	for i = 1, #parsed do
 		local pair = p.parse_pair(parsed[i])
 		if pair ~= nil and #pair == 2 then
 			pairs_[pair[1]] = pair[2]
+			--num_pairs = num_pairs + 1
 		end
 	end
 	return pairs_
+end
+function p.tester()
+	local parse_me = "15625/15552; 325/324, 625/624"
+	local parsed_me = p.parse_entries(parse_me, ";")
+	local parsed_me_2 = {}
+	for i = 1, #parsed_me do
+		local parsed = p.parse_numeric_pairs(parsed_me[i], ",", false)
+		table.insert(parsed_me_2, parsed)
+	end
+	return parsed_me_2
 end
 return p