Module:Sandbox/Sameboat/m1

local getArgs = require('Module:Arguments').getArgs
 
local p = {}
 
local function makeInvokeFunction(funcName)
	-- makes a function that can be returned from #invoke, using
	-- [[Module:Arguments]].
	return function (frame)
		local args = getArgs(frame, {parentOnly = true})
		return p[funcName](args)
	end
end
 
p.link = makeInvokeFunction('_link')
 
function p._link(args)
	local result='{|class="wikitable"\n|-'
	local t = {
	{['h']='a', ['d']='1a'},
	{['h']='b', ['d']='2b'},
	{['h']='c', ['d']='3c'},
	{['h']='d', ['d']='4d'},
	}
	--t[5].h = 'e'
	--t[5].d = '5e'
	for k,v in ipairs(t) do
		result=result..'\n!'..v.h
	end
	result=result..'\n|-'
	for k,v in ipairs(t) do
		result=result..'\n|'..v.d
	end
	result=result..'\n|-'
	local t = {
	{h='aa', d='1aa'},
	{h='bb', d='2bb'},
	{h='cc', d='3cc'},
	{h='dd', d='4dd'},
	}
	for k,v in ipairs(t) do
		result=result..'\n!'..v.h
	end
	result=result..'\n|-'
	for k,v in ipairs(t) do
		result=result..'\n|'..v.d
	end
	return result .. '\n|}'
end
 
p.row = makeInvokeFunction('_row')
function p._row(args)
	local somelist = args[1]
	local result
	result = ''
	for k1, v1 in ipairs(mw.text.split(somelist, '\n')) do
		for k2, v2 in ipairs(mw.text.split(v1 .. '\\', '\\')) do
			if k2 > 2 then break
				elseif (k2 % 2 == 1) then
					if (k1 % 2 == 0) then
						result = result .. '\n|-style="background:#888"\n!' .. k1 .. '\n|' .. v2
					else result = result .. '\n|-\n!' .. k1 .. '\n|' .. v2
					end
				elseif (k2 % 2 == 0) then result = result .. '||' .. v2
			end
		end
	end
	result = '{|class="wikitable"' .. result .. '\n|}'
	return result
end
 
return p