Module:frp-IPA/ref

---

This module lacks a documentation subpage. Please create it.

Useful links: root page • root page’s subpages • links • transclusions • testcases • sandbox

local export = {}

local references = { "AIS", "ALF", "ALLy", "ALP", "ALV", "APV", "DFF", "DGL", "DLG", 
	"DPB", "DSV", "LPT", "MHN", "PVA", "SSV", "TPh", "VFC", "VIV" }
export.references = references

local VIV_code = {
	["A"] = "Abruzzo",
	["B"] = "Basilicata",
	["K"] = "Calabria",
	["C"] = "Campania",
	["E"] = "Emilia-Romagna",
	["F"] = "Friuli-Venezia Giulia",
	["R"] = "Lazio",
	["3"] = "Liguria",
	["L"] = "Lombardy",
	["8"] = "Molise",
	["P"] = "Piedmont",
	["7"] = "Apulia",
	["2"] = "Sardinia",
	["1"] = "Sicily",
	["9"] = "Tuscany",
	["6"] = "Trentino-South Tyrol",
	["5"] = "Umbria",
	["4"] = "Aosta",
	["V"] = "Veneto",
}
export.VIV_code = VIV_code

export.ref_data = {
AIS = {
	wikilink = "WT:AFRP#AIS",
	map = 1,
},
ALF = {
	wikilink = "WT:AFRP#ALF_2",
	map = 1,
},
ALLy = {
	wikilink = "WT:AFRP#ALLy_2",
	map = 1,
},
ALP = {
	wikilink = "WT:AFRP#ALP",
},
ALV = {
	wikilink = "WT:AFRP#ALV",
	url_format = "https://alaval.unine.ch/atlas?carte={2}&statement_id={3}"
},
APV = {
	wikilink = "WT:AFRP#APV",
	map = 1,
},
DFF = {
	wikilink = "WT:AFRP#DFF",
	url_format = "https://dicofranpro.llm.umontreal.ca/?chercher={1}",
	quotes = 1,
},
DGL = {
	wikilink = "WT:AFRP#DGL",
	quotes = 1,
},
DLG = {
	wikilink = "WT:AFRP#DLG",
	url_format = "https://www.rose.uzh.ch/docling/charte.php?c={2}&o=Ordre&t={3}"
},
DPB = {
	wikilink = "WT:AFRP#DPB",
	quotes = 1,
},
DSV = {
	wikilink = "WT:AFRP#DSV",
	quotes = 1,
},
LPT = {
	wikilink = "WT:AFRP#LPT",
	quotes = 1,
},
MHN = {
	wikilink = "WT:AFRP#MHN",
},
PhL = {
	wikilink = "WT:AFRP#PhL",
},
PVA = {
	wikilink = "WT:AFRP#PVA",
	url_format = "https://www.patoisvda.org/moteur-de-recherche/{1}_{2}",
	quotes = 1,
},
SSV = {
	wikilink = "WT:AFRP#SSV",
},
TPh = {
	wikilink = "WT:AFRP#TPh_2",
},
VFC = {
	wikilink = "WT:AFRP#VFC",
	quotes = 1,
},
VIV = {
	wikilink = "WT:AFRP#VIV",
	text_format = "{0} ({2})",
	quotes = 1,
	preprocess = function(args)
		args[2] = args[2]:gsub("=","/"):gsub("m%w%d%d%d", function(code)
			return "[https://www2.hu-berlin.de/vivaldi/index.php?id=" .. code
				.. "&lang=it " .. VIV_code[code:sub(2,2)] .. "]"
		end)
	end
},
}

function export.format(text, args, field, mode)
	local used = {}
	text = text:gsub("{(%d)}", function(idx)
		idx = tonumber(idx)
		used[idx] = true
		if not args[idx] then
			error("Missing positional argument number " .. idx .. " for source " .. field)
		end
		return mode == "url" and mw.uri.encode(args[idx], "PATH") or args[idx]
	end)
	
	for i=2,#args do
		if not used[i] then
			error("Unused positional argument number " .. i .. " for source " .. field)
		end
	end
	
	return text
end

-- process each source according to the format specified in export.ref_data
-- within <content>, each item is separated by ","
-- in each item, the arguments are separated by "/"
-- in each argument, each sub-item is seprated by "="
function export.process(name, content)
	local data = export.ref_data[name]
	if not data then error("Unrecognised source: " .. name) end
	
	-- process the name according to data.link and data.wikilink
	if data.link then
		name = "[" .. data.link .. " " .. name .. "]"
	elseif data.wikilink then
		name = "[[" .. data.wikilink .. "|" .. name .. "]]"
	end
	
	-- prepend "map" if data.map is specified
	local items = mw.text.split(content, ",", true)
	local prepend = ""
	if data.map then
		prepend = "map" .. (#items > 1 and "s " or " ")
	end
	
	for i=1,#items do
		if data.url_format or data.quotes or data.text_format then
			local args = mw.text.split(items[i], "/", true)
			
			args[0] = data.quotes and ('“' .. args[1] .. '”') or args[1]
			
			if data.preprocess then
				data.preprocess(args)
			end
			
			if data.url_format then
				items[i] = "[" .. export.format(data.url_format, args, name, "url") .. " " .. args[0] .. "]"
			elseif data.text_format then
				items[i] = export.format(data.text_format, args, name)
			else
				if args[2] then
					error("Source " .. name .. " should not have more than one argument.")
				end
				items[i] = args[0]
			end
		end
	end
	
	return name .. ": " .. prepend .. table.concat(items, ", ")
end

-- each source is denoted as "<name>:<content>" and separated by ";"
function export.format_ref(text, filter)
	if not text then return nil end
	local result = ""
	local seen = {}
	for source in mw.text.gsplit(text, ";", true) do
		name, content = source:match("^([%l%u]+):(.+)$")
		if not name then error("Wrong format: " .. source) end
		if seen[name] then error("Duplicated source: " .. name) end
		seen[name] = 1
		if (not filter) or filter[name] then
			result = result .. "* " .. export.process(name, content) .. "\n"
		end
	end
	if filter then
		for _, ref in ipairs(references) do
			if filter[ref] and not seen[ref] then
				error("Reference used but not specified: " .. ref)
			end
		end
	end
	return result
end

function export.make_ref(sources, cf, note, filter)
	local formatted_sources = export.format_ref(sources, filter)
	return (sources and "\nSources:\n" .. formatted_sources or "")
		.. (cf and "\nCf. also:\n" .. export.format_ref(cf) or "")
		.. (note and mw.getCurrentFrame():preprocess(note) or "")
end

return export