יחידה:פרמטרים

---

function foo(frame)
	ans = ""
	namespace = "תבנית:"
	local pframe = frame:getParent()
	local template = pframe:getTitle()
	local templatename = template
	if find1(templatename, namespace) == 1 then templatename = mw.ustring.sub(templatename, len1(namespace) + 1) end
	local data = mw.loadData('יחידה:פרמטרים/' .. templatename)
	local numbered = 0
	local mustnum = data[1]
	parameters = data[2]
	must = data[3]
	suggestions = data[4]
	for tt, t in ipairs(must) do
		checkmust(t, pframe.args)
	end
	for k, v in pairs(pframe.args) do
		if type(k) == 'string' then checknamed(k) elseif not isempty(v) then numbered = k end
	end
	if mustnum < numbered then out ("צריך מקסימום " .. mustnum .. " פרמטרים, ישנם " .. numbered) end
	if (ans == "") then return ans end
	return "<div class=error> '''שגיאת פרמטרים ב[[" .. template .. "]]:<br/>" .. ans .. "''' </div>[[קטגוריה:שגיאות פרמטריות]]" 
end

function checknamed(k)
	local answer = "פרמטר לא ידוע: ''" .. k .. "''"
	for p1, p in ipairs(parameters) do
		if p == k then return end
	end
	if suggestions[k] ~= nil then answer = answer .. ', <span style = "color:green">מומלץ ' .. "''" .. suggestions[k] .. "''</span>" end
	out(answer)
end

function checkmust(must, args)
	for g, h in pairs(args) do
		if must == g .. "" then if isempty(h) then out("פרמטר חובה ריק: ''" .. g .. "''") end return end
	end
	out("פרמטר חובה חסר: ''" .. must .. "''")
end
function isempty(v)
	local i = 1
	local b
	while (i <= len1(v)) do
		b = mw.ustring.byte(v, i, i)
		if (b > 32) then return false end
		i = i + 1
	end
	return true
end

function out(new)
	ans = ans .. new .. "</br>"
end

function find1(str, what, where)
	local ans = mw.ustring.find(str, what, where, true)
	if ans == nil then ans = 0 end
	return ans
end

function len1(s)
	if s == nil then return 0 end
	return mw.ustring.len(s)
end

return {['main'] = foo}