Module:Book appearances

Documentation for this module may be created at Module:Book appearances/doc

-- local string = require("Module:String")

local p = {}

local abbrs = {
	["TDP"] = "The Dragonet Prophecy",
	["TLH"] = "The Lost Heir",
	["THK"] = "The Hidden Kingdom",
	["TDS"] = "The Dark Secret",
	["TBN"] = "The Brightest Night",
}

-- str: String to parse
-- delim: String to use to join the book names (default '\n')
function p._appearancesList(str, delim)
	if not str then 
		return '{{error|Please specify the <code>str</code> or first unnamed param.}}'
	end
	delim = delim or '\n'
	local res = '';
	-- iterate over substrings
	for abbr in mw.text.gsplit(str, ' ', true) do
		local full = abbrs[abbr]
		if full then
			res = res .. full .. delim -- concat to result string
		else
			return '{{error|Unrecognized abbreviation <code>' .. abbr .. '</code>}}'
		end
	end
	return res
end

-- for debugging -- https://stackoverflow.com/a/27028488
function p._dump(o)
   if type(o) == 'table' then
      local s = '{ '
      for k,v in pairs(o) do
         if type(k) ~= 'number' then k = '"'..k..'"' end
         s = s .. '['..k..'] = ' .. p._dump(v) .. ','
      end
      return s .. '} '
   else
      return tostring(o)
   end
end


-- wrapper for _appearancesList, untested
function p.appearancesList(frame)
	local args
	if next(frame.args) == nil then
		args = frame:getParent().args
	else
		args = frame.args
	end
	local str = args.str or args[1]
	local delim = args.delim or args[2]
	return p._dump(frame) .. '<br>\n' .. p._dump(frame:getParent()) .. '<br>\n' .. frame:preprocess(p._appearancesList(str, delim))
end

return p