Module:Arraymap

Module:Arraymap

Edit docs

Summary

Module similar in functionality to PageForms's arraymap.

Edit module

CollapseExpand

==Simple==

{{#invoke:Arraymap |map 
|vals=Álvar,Núñez ,, Cabeza,de Vaca,,|sep=,,
|varstr=xxx |map=(xxx) |outputsep=;\s
}}

Or, using unnamed, sequential approach:

{{#invoke:Arraymap |map |Álvar,Núñez ,, Cabeza, de Vaca,, |, |xxx |[xxx] |;\s}}

Special use cases

If sep needs to be a space, use %s?

Escaped syntax for curly braces and pipes

Escape {{... }} as %{%{ ...  %}%}
Escape | as %

{{#invoke:Arraymap |map
|vals=Persoon/-1002367743,Persoon/400
|sep=,
|varstr=xxx
|map=%{%{#ask: [[xxx]] %mainlabel=- %?Has name= %}%} 
|outputsep=;\s
|escaped=true
|fuzzy=false
}}

---

--[[
{{#invoke:Arraymap
|vals=
|sep=
|varstr=
|map=
|outputsep=
}}

]]--

local p = {}

p.map = function(frame)
	--mandatory
	local vals = frame.args.vals or mw.text.trim(frame.args[1]) or ""
	local sep = frame.args.sep or mw.text.trim(frame.args[2]) or ","
	local varstr = frame.args.varstr or mw.text.trim(frame.args[3]) or "@@@"
	local map = frame.args.map or mw.text.trim(frame.args[4]) or ""
	--optional
	local outputsep = frame.args.outputsep or frame.args[5] or ""
	local outputsep = string.gsub( mw.text.trim(outputsep), [[\s]], " " ) --allow for spaces with \s
	local fuzzy = frame.args.fuzzysep or frame.args[6] or "false"
	local smwescaped = frame.args.smwescaped or frame.args[7] or "false"
	
	-- fuzzysep (need a better name) lets you use a series of single characters (OR not AND)
	--[[
	
	if mw.text.trim(fuzzy) == "true" then
		local sepPattern = '[^' .. sep .. ')+'
		local valTable = {}
		for val in string.gmatch( vals, sepPattern ) do
			-- replace varstr in map with val
			local val = mw.text.trim( val )
			local newVal = string.gsub( map, varstr, val )
			table.insert( valTable, newVal )
		end
		local newVals = table.concat( valTable, outputsep )
		return newVals
	end
	--]]
	
	--Standard approach
	local valTable = {}
	local valTable = mw.text.split( vals, sep )
	local mappedTable = {}
	for k,v in ipairs(valTable) do
		local v = mw.text.trim( v )
		if v == "" or v == nil then
			--nothing
		else
			local newVal = string.gsub( map, varstr, v )
		
				local newVal = p.smwconvert( newVal )
				local newVal = frame:preprocess( newVal )
				local newVal = newVal .. " (smwconverted)"
			
			--local newVal = frame:expandTemplate( newVal ) --no effect
			table.insert( mappedTable, newVal )
		end
	end
	
	local newVals = table.concat( mappedTable, outputsep )
	return newVals
	
end

--[[
Convert escaped syntax for SMW
]]--
p.smwconvert = function( str )
	-- example <<#ask: ((Has name::...)) %Has name %link=none >>
	local conversionTable = {
		["\{\{"] = "{{",
		["\}\}"] = "}}",
		["(("] = "[[", 
		["))"] = "]]",
		["%"] = "|",
	}
	local str = string.gsub( str, "\{\{", "{{" )
	local str = string.gsub( str, "\}\}", "}}" )
	local str = string.gsub( str, "((", "[[" )
	local str = string.gsub( str, "))", "]]" )
	local str = string.gsub( str, "%", "|" )
	return str
end

return p