Module:ISO 3166/data - Revision history

SiBr4: Fixing global variable

2019-02-04T16:18:54Z

Fixing global variable

← Previous revision		Revision as of 16:18, 4 February 2019
Line 62:		Line 62:
	dnames[#dnames+1] = "*Unexpected non-string value in "..subpage(page).." ("..code..")"		dnames[#dnames+1] = "*Unexpected non-string value in "..subpage(page).." ("..code..")"
	else		else
	sname = strip(name)		local sname = strip(name)
	if not names[sname] then		if not names[sname] then
	inames[sname] = name		inames[sname] = name

SiBr4 at 14:13, 24 October 2017

2017-10-24T14:13:18Z

← Previous revision		Revision as of 14:13, 24 October 2017
Line 85:		Line 85:
	return names, inames, dnames		return names, inames, dnames
	end		end
	local fields = {name=1,isoname=1,isonames=1,displayname=1,isodisplayname=1,altnames=1,lang=1,defaultlang=1,alpha3=1,numeric=1,nocode=1}		local fields = {name=1,isoname=1,isonames=1,displayname=1,isodisplayname=1,isodisplaynames=1,altnames=1,lang=1,defaultlang=1,alpha3=1,numeric=1,nocode=1}
	local function testentry(names,dnames,page,code,edata)		local function testentry(names,dnames,page,code,edata)
	for k,_ in pairs(edata) do		for k,_ in pairs(edata) do

SiBr4: Add codes to testall output

2017-10-24T12:50:46Z

Add codes to testall output

← Previous revision		Revision as of 12:50, 24 October 2017
Line 57:		Line 57:
	return "[[Module:ISO 3166/data/"..p.."\|/"..p.."]]"		return "[[Module:ISO 3166/data/"..p.."\|/"..p.."]]"
	end		end
	local function testname(names,inames,dnames,page,name)		local function testname(names,inames,dnames,page,code,name)
	if name then		if name then
	if type(name)~="string" then		if type(name)~="string" then
	dnames[#dnames+1] = "*Unexpected non-string value in "..subpage(page)		dnames[#dnames+1] = "*Unexpected non-string value in "..subpage(page).." ("..code..")"
	else		else
	sname = strip(name)		sname = strip(name)
Line 67:		Line 67:
	else		else
	dnames[#dnames+1] = "*Duplicate name: \""..name.."\" in "..subpage(page)		dnames[#dnames+1] = "*Duplicate name: \""..name.."\" in "..subpage(page)
	..(names[sname]==name and " (exact)" or " (non-exact)")		..(names[sname]==name and " (exact)" or " (non-exact)").." ("..code..")"
	end		end
	end		end
Line 73:		Line 73:
	return names, inames, dnames		return names, inames, dnames
	end		end
	local function testnametable(names,inames,dnames,page,tab)		local function testnametable(names,inames,dnames,page,code,tab)
	if tab then		if tab then
	if type(tab)~="table" then		if type(tab)~="table" then
	dnames[#dnames+1] = "*Unexpected non-table value in "..subpage(page)		dnames[#dnames+1] = "*Unexpected non-table value in "..subpage(page).." ("..code..")"
	else		else
	for _,name in pairs(tab) do		for _,name in pairs(tab) do
	names, inames, dnames = testname(names,inames,dnames,page,name)		names, inames, dnames = testname(names,inames,dnames,page,code,name)
	end		end
	end		end
Line 89:		Line 89:
	for k,_ in pairs(edata) do		for k,_ in pairs(edata) do
	if not fields[k] then		if not fields[k] then
	dnames[#dnames+1] = "*Unknown field \""..k.."\" in "..subpage(page)		dnames[#dnames+1] = "*Unknown field \""..k.."\" in "..subpage(page).." ("..code..")"
	end		end
	end		end
	local inames = {}		local inames = {}
	names, inames, dnames = testname(names,inames,dnames,page,edata.name)		names, inames, dnames = testname(names,inames,dnames,page,code,edata.name)
	names, inames, dnames = testname(names,inames,dnames,page,edata.isoname)		names, inames, dnames = testname(names,inames,dnames,page,code,edata.isoname)
	names, inames, dnames = testnametable(names,inames,dnames,page,edata.isonames)		names, inames, dnames = testnametable(names,inames,dnames,page,code,edata.isonames)
	names, inames, dnames = testnametable(names,inames,dnames,page,edata.altnames)		names, inames, dnames = testnametable(names,inames,dnames,page,code,edata.altnames)
	if not edata.nocode then		if not edata.nocode then
	names, inames, dnames = testname(names,inames,dnames,page,code)		names, inames, dnames = testname(names,inames,dnames,page,code,code)
	end		end
	if page=="National" then		if page=="National" then
	names, inames, dnames = testname(names,inames,dnames,page,edata.alpha3)		names, inames, dnames = testname(names,inames,dnames,page,code,edata.alpha3)
	names, inames, dnames = testname(names,inames,dnames,page,edata.numeric)		names, inames, dnames = testname(names,inames,dnames,page,code,edata.numeric)
	end		end
	for k,v in pairs(inames) do names[k]=v end		for k,v in pairs(inames) do names[k]=v end

SiBr4 at 12:34, 24 October 2017

2017-10-24T12:34:14Z

← Previous revision		Revision as of 12:34, 24 October 2017
Line 13:		Line 13:
	local out = {"* [[Module:ISO 3166/data/National\|National]]"}		local out = {"* [[Module:ISO 3166/data/National\|National]]"}
	for _,cdata in ipairs(codes) do		for _,cdata in ipairs(codes) do
	out[#out+1] = "* [[Module:ISO 3166/data/"..cdata[1].."\|"..cdata[1].."("..cdata[2]..")]]"		out[#out+1] = "* [[Module:ISO 3166/data/"..cdata[1].."\|"..cdata[1].." ("..cdata[2]..")]]"
	end		end
	return table.concat(out,"\n")		return table.concat(out,"\n")

SiBr4 at 12:34, 24 October 2017

2017-10-24T12:34:00Z

← Previous revision		Revision as of 12:34, 24 October 2017
Line 13:		Line 13:
	local out = {"* [[Module:ISO 3166/data/National\|National]]"}		local out = {"* [[Module:ISO 3166/data/National\|National]]"}
	for _,cdata in ipairs(codes) do		for _,cdata in ipairs(codes) do
	out[#out+1] = "* [[Module:ISO 3166/data/"..cdata[1].."\|"..cdata[1].."]] ("..cdata[2]..")"		out[#out+1] = "* [[Module:ISO 3166/data/"..cdata[1].."\|"..cdata[1].."("..cdata[2]..")]]"
	end		end
	return table.concat(out,"\n")		return table.concat(out,"\n")

SiBr4 at 12:51, 16 March 2016

2016-03-16T12:51:05Z

← Previous revision		Revision as of 12:51, 16 March 2016
Line 85:		Line 85:
	return names, inames, dnames		return names, inames, dnames
	end		end
	local fields = {name=1,isoname=1,isonames=1,displayname=1,isodisplayname=1,altnames=1,lang=1,defaultlang=1,alpha3=1,numeric=1}		local fields = {name=1,isoname=1,isonames=1,displayname=1,isodisplayname=1,altnames=1,lang=1,defaultlang=1,alpha3=1,numeric=1,nocode=1}
	local function testentry(names,dnames,page,code,edata)		local function testentry(names,dnames,page,code,edata)
	for k,_ in pairs(edata) do		for k,_ in pairs(edata) do
Line 97:		Line 97:
	names, inames, dnames = testnametable(names,inames,dnames,page,edata.isonames)		names, inames, dnames = testnametable(names,inames,dnames,page,edata.isonames)
	names, inames, dnames = testnametable(names,inames,dnames,page,edata.altnames)		names, inames, dnames = testnametable(names,inames,dnames,page,edata.altnames)
			if not edata.nocode then
	names, inames, dnames = testname(names,inames,dnames,page,code)		names, inames, dnames = testname(names,inames,dnames,page,code)
			end
	if page=="National" then		if page=="National" then
	names, inames, dnames = testname(names,inames,dnames,page,edata.alpha3)		names, inames, dnames = testname(names,inames,dnames,page,edata.alpha3)

SiBr4 at 16:23, 10 March 2016

2016-03-10T16:23:23Z

← Previous revision		Revision as of 16:23, 10 March 2016
Line 1:		Line 1:
	local p = {}		local p = {}

		⚫	local data = mw.loadData("Module:ISO 3166/data/National")

	function p.list(frame)		function p.list(frame)
	--Returns a list of subpages and associated countries		--Returns a list of subpages and associated countries
⚫	local data = mw.loadData("Module:ISO 3166/data/National")
	local codes = {}		local codes = {}
	for alpha2,cdata in pairs(data) do		for alpha2,cdata in pairs(data) do
Line 19:		Line 20:

	function p.subpagetest(frame)		function p.subpagetest(frame)
	--Returns a table ~~cell~~ indicating the existence of a data ~~page~~ (see [[User:SiBr4/sandbox#Data subpage test]])		--Returns a table row indicating the existence of data pages (see [[User:SiBr4/sandbox#Data subpage test]])

⚫	local ~~data~~ = ~~mw.loadData(~~"Module:ISO 3166/data/~~National~~")
	local code ~~= frame.args[1]~~		local function cell(code,d)
	local sdata		local sdata
	if not data[code] then		if not data[code] then
	return "" --Unassigned or reserved 3166-1 code		return "" --Unassigned or reserved 3166-1 code
⚫	else
	local sname = "Module:ISO 3166/data/"..code
⚫	if not (~~frame.args[2]=="1"~~ or mw.title.new(sname).exists) then
⚫	return "title=\""..data[code].name.."\" style=\"background:#fee;\"\|[["..sname.."\|-]]" --Data subpage doesn't exist
	else		else
		⚫	local sname = "Module:ISO 3166/data/"..code
⚫	sdata = mw.loadData(sname)
		⚫	if not (d or mw.title.new(sname).exists) then
		⚫	return "title=\""..data[code].name.."\" style=\"background:#fee;\"\|[["..sname.."\|-]]" --Data subpage doesn't exist
		⚫	else
		⚫	sdata = mw.loadData(sname)
			end
			end
		⚫	for _,_ in pairs(sdata) do
		⚫	return "title=\""..data[code].name.."\" style=\"background:#efe;\"\|n" --Non-empty 3166-2 entry
	end		end
		⚫	return "title=\""..data[code].name.."\" style=\"background:#eef;\"\|e" --Empty 3166-2 entry
	end		end

⚫	for _,_ in pairs(sdata) do
			local letter = frame.args[1]
⚫	return "title=\""..data[code].name.."\" style=\"background:#efe;\"\|n" --Non-empty 3166-2 entry
			local out = "\|-\n!"..letter.."*"
			for i = 65, 90 do
			out = out.."\n\|"..cell(letter..string.char(i),frame.args[2])
	end		end
			return out
⚫	return "title=\""..data[code].name.."\" style=\"background:#eef;\"\|e" --Empty 3166-2 entry

	end		end
Line 100:		Line 109:

	--ISO 3166-1		--ISO 3166-1
	local data = mw.loadData("Module:ISO 3166/data/National")
	local names = {}		local names = {}
	for code,cdata in pairs(data) do		for code,cdata in pairs(data) do

SiBr4 at 16:03, 10 March 2016

2016-03-10T16:03:42Z

← Previous revision		Revision as of 16:03, 10 March 2016
Line 76:		Line 76:
	return names, inames, dnames		return names, inames, dnames
	end		end
			local fields = {name=1,isoname=1,isonames=1,displayname=1,isodisplayname=1,altnames=1,lang=1,defaultlang=1,alpha3=1,numeric=1}
	local function testentry(names,dnames,page,code,edata)		local function testentry(names,dnames,page,code,edata)
			for k,_ in pairs(edata) do
			if not fields[k] then
			dnames[#dnames+1] = "*Unknown field \""..k.."\" in "..subpage(page)
			end
			end
	local inames = {}		local inames = {}
	names, inames, dnames = testname(names,inames,dnames,page,edata.name)		names, inames, dnames = testname(names,inames,dnames,page,edata.name)

SiBr4 at 15:56, 10 March 2016

2016-03-10T15:56:28Z

← Previous revision		Revision as of 15:56, 10 March 2016
Line 45:		Line 45:
	local strip = require("Module:ISO 3166").strip		local strip = require("Module:ISO 3166").strip

			local function subpage(p)
			return "[[Module:ISO 3166/data/"..p.."\|/"..p.."]]"
			end
	local function testname(names,inames,dnames,page,name)		local function testname(names,inames,dnames,page,name)
	if name then		if name then
	if type(name)~="string" then		if type(name)~="string" then
	dnames[#dnames+1] = "*Unexpected non-string value in ~~[[/~~"..page~~.."]]"~~		dnames[#dnames+1] = "*Unexpected non-string value in "..subpage(page)
	else		else
	sname = strip(name)		sname = strip(name)
Line 54:		Line 57:
	inames[sname] = name		inames[sname] = name
	else		else
	dnames[#dnames+1] = "*Duplicate name: \""..name.."\" in ~~[[/~~"..page~~.."]] "~~		dnames[#dnames+1] = "*Duplicate name: \""..name.."\" in "..subpage(page)
	..(names[sname]==name and "(exact)" or "(non-exact)")		..(names[sname]==name and " (exact)" or " (non-exact)")
	end		end
	end		end
Line 64:		Line 67:
	if tab then		if tab then
	if type(tab)~="table" then		if type(tab)~="table" then
	dnames[#dnames+1] = "*Unexpected non-table value in ~~[[/~~"..page~~.."]]"~~		dnames[#dnames+1] = "*Unexpected non-table value in "..subpage(page)
	else		else
	for _,name in pairs(tab) do		for _,name in pairs(tab) do

SiBr4 at 14:55, 10 March 2016

2016-03-10T14:55:27Z

← Previous revision		Revision as of 14:55, 10 March 2016
Line 104:		Line 104:
	local sdata = mw.loadData(spage)		local sdata = mw.loadData(spage)
	for scode,cdata in pairs(sdata) do		for scode,cdata in pairs(sdata) do
	names, dnames = testentry(names,dnames,code,scode,cdata)		if type(cdata)=="table" then
			names, dnames = testentry(names,dnames,code,scode,cdata)
			end
	end		end
	end		end