Difference between revisions of "Module:ISO 3166/sandbox"

From blackwiki
Jump to navigation Jump to search
blackwiki>BrandonXLF
m (236 revisions imported)
 
(One intermediate revision by one other user not shown)
Line 1: Line 1:
 +
-- to enable us to replicate the current functioning of Country extract, we need to deal with:
 +
-- 2 {{<name>}} DONE!
 +
-- 3 [[<name>]] DONE!
 +
-- 4 [[<name>|<junk>]] DONE!
 +
-- 5 [[image:flag of <country>.[svg|gif|png|jpg]|\d+px]] DONE!
 +
 
local p = {}
 
local p = {}
 +
local getArgs = require("Module:Arguments").getArgs
 
local data = mw.loadData("Module:ISO 3166/data/National")
 
local data = mw.loadData("Module:ISO 3166/data/National")
local catnocountry = '[[Category:Wikipedia page with obscure country]]'
+
 
local catnosubdivision = '[[Category:Wikipedia page with obscure subdivision]]'
+
--[[----------F I N D N A M E----------]]-- -- Finds the name in the database
--[[----------S T R I P----------]]--
+
 
-- Remove unnecessary text
+
local function findname(code,cdata,qry)
local function strip(text)
+
local sqry = p.strip(qry)
local accents = {
+
if cdata["name"] and sqry==p.strip(cdata["name"])
["À"]="A", ["Á"]="A", ["Â"]="A", ["Ã"]="A", ["Ä"]="A", ["Å"]="A",
+
or cdata["isoname"] and sqry==p.strip(cdata["isoname"])
["Ç"]="C",
+
or not cdata["nocode"] and sqry==code
["È"]="E", ["É"]="E", ["Ê"]="E", ["Ë"]="E",
+
or sqry==cdata["alpha3"] or sqry==cdata["numeric"]
["Ì"]="I", ["Í"]="I", ["Î"]="I", ["Ï"]="I",
+
then
["Ñ"]="N",
 
["Ò"]="O", ["Ó"]="O", ["Ô"]="O", ["Õ"]="O", ["Ö"]="O", ["Ø"]="O",
 
["Ù"]="U", ["Ú"]="U", ["Û"]="U", ["Ü"]="U",
 
["Ý"]="Y"
 
}
 
local patterns = {
 
["%_"]=" ",
 
["%-"]=" "
 
}
 
local remove = {
 
"%d+PX",
 
"<.*>",
 
".+:",
 
"|.+",
 
"%(.-%)",
 
"%..*",
 
"^THE",
 
",.*$",
 
"%W",
 
"^[0]+",
 
"KINGDOMOF",
 
"OF",
 
"^STATE",
 
"STATE$",
 
"REPUBLIC$",
 
"NATION",
 
"COUNTRY",
 
"TERRITORY",
 
"FLAG",
 
"PROVINCE"
 
}
 
text = mw.ustring.upper(text)
 
if mw.ustring.match(text,"[À-Ý]") then
 
text = mw.ustring.gsub(text,"[À-Ý]",accents)
 
end
 
text = mw.text.unstrip(text)
 
for find, replace in pairs(patterns) do
 
text = mw.ustring.gsub(text,find,replace)
 
end
 
for _, find in ipairs(remove) do
 
text = mw.ustring.gsub(text,find,"")
 
end
 
return text
 
end
 
--[[----------F I N D C O D E----------]]--
 
-- Check to find the code or name
 
local function findcode(code,cdata,qry)
 
local sqry = strip(qry)
 
if     sqry == code
 
or sqry == cdata["alpha3"]
 
or cdata["numeric"] and sqry == mw.ustring.gsub(cdata["numeric"], '^[0]+','')
 
or sqry == strip(cdata["isoname"] or '')
 
or sqry == strip(cdata["name"] or '')
 
then
 
 
return true
 
return true
 
end
 
end
 
for _,tname in pairs(cdata["isonames"] or {}) do
 
for _,tname in pairs(cdata["isonames"] or {}) do
if sqry == strip(tname) then
+
if sqry==p.strip(tname) then
 
return true
 
return true
 
end
 
end
 
end
 
end
 
for _,tname in pairs(cdata["altnames"] or {}) do
 
for _,tname in pairs(cdata["altnames"] or {}) do
if sqry == strip(tname) then
+
if sqry==p.strip(tname) then
 
return true
 
return true
 
end
 
end
Line 79: Line 32:
 
return false
 
return false
 
end
 
end
--[[----------N A M E O R C O D E---------]]--
+
 
--Determine what name or alpha2 code to return
+
--[[----------I S O N A M E----------]]-- -- Find the ISO name of a country/region
local function nameorcode(args,data,ldata,alpha2,dash2)
+
 
if args.type == "name" then
+
local function isoname(data,code,lang)
if args.isoname or args.lang then
+
if data[code]["isonames"] then
local lang = args.lang or ldata["defaultlang"] or data["defaultlang"] or "en"
+
local name = data[code]["isodisplaynames"] and data[code]["isodisplaynames"][lang]
return ldata["isonames"] and ldata["isonames"][lang] or ldata["isoname"] or ''
+
or data[code]["isonames"][lang]
end
+
or data[code]["isodisplaynames"] and data[code]["isodisplaynames"][data[code]["defaultlang"] or data["defaultlang"]]
return ldata["name"]
+
or data[code]["isonames"][data[code]["defaultlang"] or data["defaultlang"]]
elseif dash2 then
+
or data[code]["isodisplaynames"] and data[code]["isodisplaynames"]["en"]
return alpha2.."-"..dash2
+
or data[code]["isonames"]["en"]
 +
if name then return name end
 +
for _,iname in pairs(data[code]["isonames"]) do return iname end
 +
return data[code]["isodisplayname"] or data[code]["isoname"]
 
else
 
else
return alpha2
+
return data[code]["isodisplayname"] or data[code]["isoname"]
 
end
 
end
 
end
 
end
--[[----------G E T C O D E---------]]--
+
 
-- Return the code or name
+
--[[----------S T R I P----------]]-- -- Removes junk from the input
local function getcode(args)
+
 
catnocountry = args.nocat == 'true' and '' or catnocountry
+
function p.strip(text)
catnosubdivision = args.nocat == 'true' and '' or catnosubdivision
+
local accents = {["À"]="A",["Á"]="A",["Â"]="A",["Ã"]="A", -- accent list
if not args[1] then return catnocountry end
+
["Ä"]="A",["Å"]="A",["Ç"]="C",["È"]="E",["É"]="E",
if string.find(args[1], "^%s*(%w%w?%w?)%-(%w%w?%w?)") then
+
["Ê"]="E",["Ë"]="E",["Ì"]="I",["Í"]="I",["Î"]="I",
args[1], args[2] = string.match(args[1],"^%s*(%w%w?%w?)%-(%w%w?%w?)")
+
["Ï"]="I",["Ñ"]="N",["Ò"]="O",["Ó"]="O",["Ô"]="O",
 +
["Õ"]="O",["Ö"]="O",["Ø"]="O",["Ù"]="U",["Ú"]="U",
 +
["Û"]="U",["Ü"]="U",["Ý"]="Y"
 +
}
 +
local remove = {"NATION OF","COUNTRY OF","TERRITORY OF", -- text to be removed list
 +
"FLAG OF","FLAG","KINGDOM OF","STATE OF"," STATE ",
 +
"PROVINCE OF","PROVINCE","TERRITORY"
 +
}
 +
local patterns = {[".+:"]="",["|.+"]="",["%(.-%)"]="", -- patterns to follow (order may matter)
 +
["%..*"]="",["^THE "]="",["%_"]=" ",["%-"]=" ",
 +
["%d%d?%d?PX"]="",
 +
}
 +
 +
text = mw.ustring.upper(text) -- Case insensitivity
 +
text = mw.ustring.gsub(text,"[À-Ý]",accents) -- Deaccent
 +
 +
for pattern,value in pairs(patterns) do -- Follow patterns
 +
text = mw.ustring.gsub(text,pattern,value)
 +
end
 +
 +
for _,words in pairs(remove) do -- Remove unneeded words
 +
text = mw.ustring.gsub(text,words,"")
 +
end
 +
 +
text = mw.ustring.gsub(text,"%W","") -- Remove non alpha-numeric
 +
 +
return text
 +
 +
end
 +
 
 +
--[[----------P . C A L L S T R I P ---------]]-- -- Calls P.strip but using Module:Arguments
 +
 
 +
function p.callstrip(frame)
 +
 +
local args = getArgs(frame)
 +
 +
return p.strip(args[1]) or ""
 +
 
 +
end
 +
 
 +
--[[----------P . L U A C O D E---------]]-- -- Makes the ISO code of a country
 +
 
 +
function p.luacode(args)
 +
 
 +
if string.find(args[1] or '',"%-") then
 +
args[1], args[2] = string.match(args[1] or '',"^([^%-]*)%-(.*)$")
 +
end
 +
 +
if args[1] then args[1] = p.strip(args[1]) end
 +
if args[2] then args[2] = p.strip(args[2]) end
 +
 +
if args["codetype"]=="3" then
 +
args["codetype"]="alpha3"
 
end
 
end
if args[1] then args[1] = strip(args[1]) end
+
if args[2] then args[2] = strip(args[2]) end
+
local eot = args.error or ""
if args["codetype"] == "3" then args["codetype"] = "alpha3" end
+
for alpha2,cdata in pairs(data) do
+
local catnocountry = (args.nocat and args.nocat == 'true') and ''
if findcode(alpha2,cdata,args[1]) then
+
or '[[Category:Wikipedia page with obscure country]]'
if args.type == "numeric" or args.type == "alpha3" then
+
local catnosubdivision = (args.nocat and args.nocat == 'true') and ''
return cdata[args.type]
+
or '[[Category:Wikipedia page with obscure subdivision]]'
else  
+
local scode = nil
+
if not args[1] then
if args[2] then
+
if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry = '' end
local scdata = mw.loadData("Module:ISO 3166/data/"..alpha2)
+
return catnocountry, '<span style="font-size:100%" class="error">"No parameter for the country given"</span>'
for scode,sdata in pairs(scdata) do
+
end
if findcode(scode,sdata,args[2]) then
+
return nameorcode(args,scdata,sdata,alpha2,scode)
+
if not args[2] then --3166-1 code
 +
for alpha2,cdata in pairs(data) do
 +
if findname(alpha2,cdata,args[1]) then
 +
if args["codetype"]=="numeric" or args["codetype"]=="alpha3" then
 +
return cdata[args["codetype"]]
 +
else
 +
return alpha2
 +
end
 +
end
 +
end
 +
if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry = '' end
 +
return catnocountry
 +
else --3166-2 code
 +
for alpha2,cdata in pairs(data) do                                     
 +
if findname(alpha2,cdata,args[1]) then
 +
if mw.ustring.match(alpha2,"GB") then -- For England, Wales etc.
 +
alpha2 = "GB"
 +
end
 +
local sdata = mw.loadData("Module:ISO 3166/data/"..alpha2)
 +
local empty = true
 +
for scode,scdata in pairs(sdata) do
 +
if type(scdata)=="table" then
 +
empty = false
 +
if findname(scode,scdata,args[2]) then
 +
return alpha2.."-"..scode
 
end
 
end
 
end
 
end
return catnosubdivision
 
else
 
return nameorcode(args,data,cdata,alpha2)
 
 
end
 
end
 +
if mw.title.getCurrentTitle().namespace ~= 0 then catnosubdivision = '' end
 +
return catnosubdivision
 
end
 
end
 
end
 
end
 +
if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry = '' end
 +
return catnocountry
 
end
 
end
return catnocountry
+
 
 
end
 
end
--[[----------M A K E F U N C---------]]--
+
 
-- Make a function for the p table
+
--[[----------P . C O D E---------]]-- -- Calls P.Luacode but using Module:Arguments
local function makefunc(params)
+
 
params = params or {}
+
function p.code(frame)
return function(frame)
+
 
local args = {}
+
return p.luacode(getArgs(frame)) or ""
if type(frame.args) == 'table' then
+
 
args = frame.args
+
end
elseif type(frame) == 'table' then
+
 
args = frame
+
--[[----------P . N U M E R I C---------]]-- -- Calls P.Luacode but using Module:Arguments and setting it to output a numeric value
end
+
 
if params.type then
+
function p.numeric(frame)
args.type = params.type
+
 
end
+
local args = getArgs(frame)
if params.func == 'strip' then
+
return strip(args[1] or args.text) or ''
+
args["codetype"]="numeric"
else
+
return getcode(args) or ''
+
return p.luacode(args) or ""
 +
 +
end
 +
 +
--[[----------P . L U A N A M E---------]]-- -- Makes the ISO/common name of a country
 +
 +
function p.luaname(args)
 +
 
 +
local code1 = p.luacode(args)
 +
local code2 = ''
 +
 +
if string.find(code1,"%-") then
 +
code1, code2 = string.match(code1,"^([^%-]*)%-(.*)$")
 +
end
 +
 +
if string.find(code1,"^%u%u$") then
 +
if code2=="" then --3166-1 alpha-2 code
 +
if data[code1] then
 +
return (args.isoname or args.lang) and isoname(data,code1,args.lang)
 +
or (data[code1]["displayname"] or data[code1]["name"])
 +
else
 +
return '[[Category:Wikipedia page with obscure country]]'
 +
end
 +
else --3166-2 code
 +
local sdata
 +
if data[code1] then
 +
sdata = mw.loadData("Module:ISO 3166/data/"..code1)
 +
else
 +
return '[[Category:Wikipedia page with obscure country]]'
 +
end
 +
if sdata[code2] then
 +
return (args.isoname or args.lang) and isoname(sdata,code2,args.lang)
 +
or (sdata[code2]["displayname"] or sdata[code2]["name"])
 +
else
 +
return '[[Category:Wikipedia page with obscure country]]'
 +
end
 
end
 
end
 
end
 
end
 +
 +
end
 +
 +
--[[----------P . N A M E---------]]-- -- Calls P.Luaname but using Module:Arguments
 +
 +
function p.name(frame)
 +
 +
return p.luaname(getArgs(frame)) or ""
 +
 
end
 
end
--[[----------E X P O R T E D  F U N C T I O N S---------]]--
+
-- Functions in the p table
+
--[[----------P . G E O C O O R D I N S E R T---------]]-- -- Wrapper for Module:Coordinates.coordinsert
p.strip = makefunc({func='strip'})
 
p.code = makefunc()
 
p['alpha2'] = makefunc()
 
p['alpha3'] = makefunc({type='alpha3'})
 
p.numeric = makefunc({type='numeric'})
 
p.name = makefunc({type='name'})
 
--[[----------P . G E O C O O R D I N S E R T---------]]--
 
-- Wrapper for Module:Coordinates.coordinsert
 
 
function p.geocoordinsert(frame)
 
function p.geocoordinsert(frame)
 
-- {{#invoke:ISO 3166|geocoordinsert|{{coord|...}}
 
-- {{#invoke:ISO 3166|geocoordinsert|{{coord|...}}
Line 166: Line 235:
 
local args = frame.args
 
local args = frame.args
 
local subdivisionqueried = false
 
local subdivisionqueried = false
catnocountry = args.nocat == 'true' and '' or catnocountry
+
local catnocountry = (args.nocat and args.nocat == 'true') and ''  
catnosubdivision = args.nocat == 'true' and '' or catnosubdivision
+
or '[[Category:Wikipedia page with obscure country]]'
 +
local catnosubdivision = (args.nocat and args.nocat == 'true') and ''
 +
or '[[Category:Wikipedia page with obscure subdivision]]' or ''
 
local tracking = ''
 
local tracking = ''
 
local targs = {}
 
local targs = {}
Line 187: Line 258:
 
if region == '' then
 
if region == '' then
 
region = p.luacode({country, nocat = 'true'})
 
region = p.luacode({country, nocat = 'true'})
 +
if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry, catnosubdivision = '', '' end
 
if region == '' then
 
if region == '' then
 
tracking = tracking .. catnocountry
 
tracking = tracking .. catnocountry
Line 210: Line 282:
 
return targs[1] .. tracking
 
return targs[1] .. tracking
 
end
 
end
 +
 
return p
 
return p

Latest revision as of 05:05, 27 September 2020

Documentation for this module may be created at Module:ISO 3166/sandbox/doc

-- to enable us to replicate the current functioning of Country extract, we need to deal with:
-- 2 {{<name>}} DONE!
-- 3 [[<name>]] DONE!
-- 4 [[<name>|<junk>]] DONE!
-- 5 [[image:flag of <country>.[svg|gif|png|jpg]|\d+px]] DONE!

local p = {}
local getArgs = require("Module:Arguments").getArgs
local data = mw.loadData("Module:ISO 3166/data/National")

--[[----------F I N D N A M E----------]]--										-- Finds the name in the database

local function findname(code,cdata,qry)
	local sqry = p.strip(qry)
	if cdata["name"] and sqry==p.strip(cdata["name"])
		or cdata["isoname"] and sqry==p.strip(cdata["isoname"])
		or not cdata["nocode"] and sqry==code
		or sqry==cdata["alpha3"] or sqry==cdata["numeric"]
		then
		return true
	end
	for _,tname in pairs(cdata["isonames"] or {}) do
		if sqry==p.strip(tname) then
			return true
		end
	end
	for _,tname in pairs(cdata["altnames"] or {}) do
		if sqry==p.strip(tname) then
			return true
		end
	end
	return false
end

--[[----------I S O N A M E----------]]--										-- Find the ISO name of a country/region

local function isoname(data,code,lang)
	if data[code]["isonames"] then
		local name = data[code]["isodisplaynames"] and data[code]["isodisplaynames"][lang]
			 or data[code]["isonames"][lang]
			 or data[code]["isodisplaynames"] and data[code]["isodisplaynames"][data[code]["defaultlang"] or data["defaultlang"]]
			 or data[code]["isonames"][data[code]["defaultlang"] or data["defaultlang"]]
			 or data[code]["isodisplaynames"] and data[code]["isodisplaynames"]["en"]
			 or data[code]["isonames"]["en"]
		if name then return name end
		for _,iname in pairs(data[code]["isonames"]) do return iname end
		return data[code]["isodisplayname"] or data[code]["isoname"]
	else
		return data[code]["isodisplayname"] or data[code]["isoname"]
	end
end

--[[----------S T R I P----------]]--											-- Removes junk from the input

function p.strip(text)
	local accents = {["À"]="A",["Á"]="A",["Â"]="A",["Ã"]="A",					-- accent list
		["Ä"]="A",["Å"]="A",["Ç"]="C",["È"]="E",["É"]="E",
		["Ê"]="E",["Ë"]="E",["Ì"]="I",["Í"]="I",["Î"]="I",
		["Ï"]="I",["Ñ"]="N",["Ò"]="O",["Ó"]="O",["Ô"]="O",
		["Õ"]="O",["Ö"]="O",["Ø"]="O",["Ù"]="U",["Ú"]="U",
		["Û"]="U",["Ü"]="U",["Ý"]="Y"
	}
	local remove = {"NATION OF","COUNTRY OF","TERRITORY OF",					-- text to be removed list
		"FLAG OF","FLAG","KINGDOM OF","STATE OF"," STATE ",
		"PROVINCE OF","PROVINCE","TERRITORY"
	}
	local patterns = {[".+:"]="",["|.+"]="",["%(.-%)"]="",						-- patterns to follow (order may matter)
		["%..*"]="",["^THE "]="",["%_"]=" ",["%-"]=" ",
		["%d%d?%d?PX"]="",
	}
	
	text = mw.ustring.upper(text)												-- Case insensitivity
	text = mw.ustring.gsub(text,"[À-Ý]",accents)								-- Deaccent
	
	for pattern,value in pairs(patterns) do										-- Follow patterns
	text = mw.ustring.gsub(text,pattern,value) 
	end
	
	for _,words in pairs(remove) do												-- Remove unneeded words
	text = mw.ustring.gsub(text,words,"") 
	end
	
	text = mw.ustring.gsub(text,"%W","")										-- Remove non alpha-numeric
	
	return text
	
end

--[[----------P . C A L L S T R I P ---------]]--								-- Calls P.strip but using Module:Arguments

function p.callstrip(frame)
	
	local args = getArgs(frame)
	
	return p.strip(args[1]) or ""

end

--[[----------P . L U A C O D E---------]]--									-- Makes the ISO code of a country

function p.luacode(args)

	if string.find(args[1] or '',"%-") then
		args[1], args[2] = string.match(args[1] or '',"^([^%-]*)%-(.*)$")
	end
	
	if args[1] then args[1] = p.strip(args[1]) end
	if args[2] then args[2] = p.strip(args[2]) end
	
	if args["codetype"]=="3" then
		args["codetype"]="alpha3"
	end
	
	local eot = args.error or ""
	
	local catnocountry = (args.nocat and args.nocat == 'true') and '' 
		or '[[Category:Wikipedia page with obscure country]]'
	local catnosubdivision = (args.nocat and args.nocat == 'true') and '' 
		or '[[Category:Wikipedia page with obscure subdivision]]'
	
	if not args[1] then
		if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry = '' end
		return catnocountry, '<span style="font-size:100%" class="error">"No parameter for the country given"</span>'
	end
	
	if not args[2] then															--3166-1 code
		for alpha2,cdata in pairs(data) do
			if findname(alpha2,cdata,args[1]) then
				if args["codetype"]=="numeric" or args["codetype"]=="alpha3" then
					return cdata[args["codetype"]]
				else
					return alpha2
				end
			end
		end
		if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry = '' end
		return catnocountry
	else																		--3166-2 code
		for alpha2,cdata in pairs(data) do                                       
			if findname(alpha2,cdata,args[1]) then
				if mw.ustring.match(alpha2,"GB") then							-- For England, Wales etc.
					alpha2 = "GB"
				end
				local sdata = mw.loadData("Module:ISO 3166/data/"..alpha2)
				local empty = true
				for scode,scdata in pairs(sdata) do
					if type(scdata)=="table" then
						empty = false
						if findname(scode,scdata,args[2]) then
							return alpha2.."-"..scode
						end
					end
				end
				if mw.title.getCurrentTitle().namespace ~= 0 then catnosubdivision = '' end
				return catnosubdivision
			end
		end
		if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry = '' end
		return catnocountry
	end

end

--[[----------P . C O D E---------]]--											-- Calls P.Luacode but using Module:Arguments

function p.code(frame)

	return p.luacode(getArgs(frame)) or ""

end

--[[----------P . N U M E R I C---------]]--									-- Calls P.Luacode but using Module:Arguments and setting it to output a numeric value

function p.numeric(frame)

	local args = getArgs(frame)
	
	args["codetype"]="numeric"
	
	return p.luacode(args) or ""
	
end
	
--[[----------P . L U A N A M E---------]]--									-- Makes the ISO/common name of a country
	
function p.luaname(args)

	local code1 = p.luacode(args)
	local code2 = ''
	
	if string.find(code1,"%-") then
		code1, code2 = string.match(code1,"^([^%-]*)%-(.*)$")
	end
	
	if string.find(code1,"^%u%u$") then
		if code2=="" then														--3166-1 alpha-2 code
			if data[code1] then
				return (args.isoname or args.lang) and isoname(data,code1,args.lang)
					or (data[code1]["displayname"] or data[code1]["name"])
			else
				return '[[Category:Wikipedia page with obscure country]]'
			end
		else																	--3166-2 code
			local sdata
			if data[code1] then
				sdata = mw.loadData("Module:ISO 3166/data/"..code1)
			else
				return '[[Category:Wikipedia page with obscure country]]'
			end
			if sdata[code2] then
				return (args.isoname or args.lang) and isoname(sdata,code2,args.lang)
					or (sdata[code2]["displayname"] or sdata[code2]["name"])
			else
				return '[[Category:Wikipedia page with obscure country]]'
			end
		end
	end
	
end

--[[----------P . N A M E---------]]--											-- Calls P.Luaname but using Module:Arguments

function p.name(frame)

	return p.luaname(getArgs(frame)) or ""

end
	
--[[----------P . G E O C O O R D I N S E R T---------]]--						-- Wrapper for Module:Coordinates.coordinsert
function p.geocoordinsert(frame)
	-- {{#invoke:ISO 3166|geocoordinsert|{{coord|...}}
	-- |country=..|subdivision1=...|subdivision2=...
	-- |type=...|scale=...|dim=...|source=...|globe=...
	-- }}
	local args = frame.args
	local subdivisionqueried = false
	local catnocountry = (args.nocat and args.nocat == 'true') and '' 
		or '[[Category:Wikipedia page with obscure country]]'
	local catnosubdivision = (args.nocat and args.nocat == 'true') and ''
		or '[[Category:Wikipedia page with obscure subdivision]]' or ''
	local tracking = ''
	local targs = {}
	targs[1] = args[1] or ''
	for i, v in pairs(args) do
		if i == 'country' and not mw.ustring.find(targs[1], 'region:') then
			local country = v
			local k, region = 1, ''
			-- look for a valid subdivision
			while region == '' and k < 3 do
				local subdivision = args['subdivision' .. k] or ''
				if subdivision ~= '' then
					region = p.luacode({country, subdivision, nocat = 'true'})
					subdivisionqueried = true
				end
				k = k + 1
			end
			-- subdivision lookup failed or never attempted, try country only
			if region == '' then
				region = p.luacode({country, nocat = 'true'})
				if mw.title.getCurrentTitle().namespace ~= 0 then catnocountry, catnosubdivision = '', '' end
				if region == '' then
					tracking = tracking .. catnocountry
				elseif subdivisionqueried == true then
					tracking = tracking .. catnosubdivision
				end
			end
			-- something worked, add it to the targs
			if region ~= '' then
				targs[#targs + 1] = 'region:' .. region
			end
		elseif i == 'type' or i == 'scale' or i == 'dim' 
				or i == 'source' or i == 'globe' then
			targs[#targs + 1] = i .. ':' .. v
		end
	end
	-- call Module:Coordinates.coordinsert if there is something to insert
	if #targs > 1 then
		local coordinsert = require('Module:Coordinates').coordinsert
		return coordinsert({args = targs}) .. tracking
	end
	-- otherwise, just return the coordinates
	return targs[1] .. tracking
end

return p