Module:CoorCheck

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

local p = {}
function p.extract(frame)
	stringy = frame.args[1]
	elem = frame.args[2]
	dosubelem = frame.args[3]
	tab =  p.rec(stringy, { subvalues = {} }, 1)
	if dosubelem then return tab.subvalues[elem] else return tab[elem] end
end

function p.check(frame)
	stringy = frame.args[1]
	return p.innercheck(stringy)
end

function p.innercheck(haystack)
	if not haystack then return "Error" end
	somecolon = string.find(haystack, ":")
	if not somecolon then return "Error" end
	allowed = { globe = 1, region = 1, scale = 1, subvalues = 1}
	allowed["type"] = 1
	tab = p.rec(haystack, { subvalues = {} }, 1)
	for key,value in pairs(tab) do
		found = allowed[key]
		if not found or
		   not value or
		   value == "" or
		   (type(value) == "string" and string.find(value, ":"))
		then return "Error" end
	end
	return
end

function p.rec(haystack, accum, pos)
	poscol = string.find(haystack, ":", pos)
	if not poscol then
		return accum
	end
	key = string.sub(haystack, pos, poscol - 1)
	posunder = string.find(haystack, "_", pos)
	if posunder then
		posbracket = string.find(haystack, "%(", pos)
		if posbracket and posbracket < posunder then
			value = string.sub(haystack, poscol + 1, posbracket - 1)
			subvalue = string.sub(haystack, posbracket + 1, posunder - 2)
			accum[key] = value
			accum.subvalues[key] = subvalue
		else 
			value = string.sub(haystack, poscol + 1, posunder - 1)
			accum[key] = value
		end
		return p.rec(haystack, accum, posunder + 1)
	else
		value = string.sub(haystack, poscol + 1)
		accum[key] = value
		return accum
	end
end

return p