Module:Shop usage

Documentation for this module may be created at Module:Shop usage/doc

local p = {}
local Parse = require('Module:Parser').getTemplateArgs
local Slib = require('Module:Shop')
local lib = require('Module:Feature')
local Icon = require('Module:Icon')._main
local Icon_list = require('Module:Icon list')._main

local Pages = {}
local display = {}

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {
		parentFirst=true,
		wrappers = {'Template:Shop usage'}
	})
	if lib.isNotEmpty(frame.args.pages) then
		local item = args[1] or mw.title.getCurrentTitle().rootText
		for page in string.gmatch(frame.args.pages, '(.-)%$%$%$') do
			local data = Parse(page, { only='Shop' } )
			local Pdata
			if type(data[1]) == 'table' then
				for num, call in pairs(data) do
					Pdata = p.ParseCall(call, item)
					if Pdata then
						break
					end
				end
			else
				Pdata = p.ParseCall(data, item)
			end
			if Pdata then
				Pdata.PAGENAME = page
				table.insert(Pages, Pdata)
			end
		end
		mw.logObject(Pages)
		return p._main(args, frame)
	else
		return 'No shop asks for this item as currency.'
	end
end

function p._main(args, frame)
	local temp_cols = { 'Price range', 'Season', 'Town rank', 'Requirement' }
	local cols = {}
	local _table = mw.html.create('table'):addClass('fandom-table article-table sortable')
	
	-- header row
	local tr = _table:tag('tr')
	tr:tag('th'):wikitext('Location')
	tr:tag('th'):wikitext('Item')
	tr:tag('th'):wikitext('Price')
	for _, col in ipairs(temp_cols) do
		if display[col] then
			table.insert(cols, col)
			tr:tag('th'):wikitext(col)
		end
	end
	
	-- rest of table
	for _, page in ipairs(Pages) do
		local tr = _table:tag('tr')
		tr:tag('td'):attr('rowspan', #page):wikitext('[[', page.PAGENAME, ']]')
		for i, call in pairs(page) do
			if tonumber(i) ~= nil then
				 mw.logObject(call) --debug
				if i>1 then tr = _table:tag('tr') end
				tr:tag('td'):node(Icon_list{call.ITEM_NAME})
				local td = tr:tag('td')
				if call.Price and tonumber(call.Price) ~= nil then
					td
						:node(Icon{
								'Coin',
								call.Price,
								size = '16',
								notext = 1,
								nolink = 1
							})
						:attr('data-sort-value', call.Price)
				elseif call.Price and call.Price:find('%*%d') then
					local items = lib.split(call.Price, ',')
					list = td:tag('span'):addClass('icon-list')
					for _, item in ipairs(items) do
						local name, amount = string.match(item, '^(.-)*(.-)$')
						if name == 'Coin' then td:attr('data-sort-value', amount) end
						list:node(Icon{
							name,
							amount,
							size = (name=='Coin' and '16' or '20'),
							notext = (name=='Coin' and '1' or nil),
							nolink = (name=='Coin' and '1' or nil)
						})
					end
				end
				for _, col in ipairs(cols) do
					local td = tr:tag('td')
					if call[col] then
						td:wikitext(call[col])
					end
				end
			end
		end
	end
	-- mw.logObject(_table) --debug
	return frame:preprocess(tostring(_table))
end


function p.ParseCall(call_data, items)
	local delim = call_data.delim or ';'
	local default = {}
	table.insert(default, (call_data.firstcol or 'Item'))
	table.insert(default, (call_data.secondcol or 'Price'))
	local types = Slib.HashTypes(nil, call_data.cols, default)
	local ret = {}
	local targets = {}
	for item in lib.gsplit(items, ';') do
		targets[string.lower(item)] = true
	end
	local function inString(data)
		for str in lib.gsplit(data, ',') do
			for item in lib.gsplit(str, '//') do
				local pre1 = lib.split(item, '/')
				local quality = pre1[2]
				
				local pre2 = lib.split(pre1[1], '*')
				local name = pre2[1]
				local amount = pre2[2] or '1'
				-- mw.logObject(string.lower(name), 'name')
				-- mw.logObject(mustHave, 'mustHave')
				
				if targets[string.lower(name)] then
					return true
				end
			end
		end
		return false
	end
	
	for row_num, row in lib.spairs(call_data, function(tVal, a, b) return tostring(a)<tostring(b) end) do
		if tonumber(row_num) ~= nil then
			local cols_data = lib.split(row, delim)
			if inString(cols_data[2]) then
				local params = {['ITEM_NAME'] = cols_data[1]}
				for col_num, col_value in ipairs(cols_data) do
					if col_num > 1 and types[col_num] and lib.isNotEmpty(col_value) then
						display[types[col_num]] = true
						params[types[col_num]] = col_value
					end
				end
				
				table.insert(ret, params)
			end
		end
	end
	if next(ret) then
		return ret
	end
end

return p