יחידה:תאריך עברי

---

mtable = {"ינואר", "פברואר", "מרץ", "אפריל", "מאי", "יוני",
	"יולי", "אוגוסט", "ספטמבר", "אוקטובר", "נובמבר", "דצמבר", }

monthtable = {
	["תשרי"] = 7, ["חשוון"] = 8, ["כסלו"] = 9, ["טבת"] = 10,
	["שבט"] = 11, ["אדר א'"] = 12, ["אדר ב'"] = 13, ["אדר"] = 13,
	["ניסן"] = 1, ["אייר"] = 2, ["סיוון"] = 3, ["תמוז"] = 4,
	["אב"] = 5, ["אלול"] = 6,
	}

typomonthtable = {["חשון"] = "חשוון", ["כסליו"] = "כסלו", ["אדר א"] = "אדר א'",
	["אדר ב"] = "אדר ב'", ["חשון"] = "חשוון", ["סיון"] = "סיוון",
	["מרחשון"] = "חשוון", ["מרחשוון"] = "חשוון", ["מר-חשוון"] = "חשוון",
	["מנחם אב"] = "אב", ["מנחם-אב"] = "אב",
	["שבט (חודש)|שבט"] = "שבט", ["שבט (חודש)"] = "שבט"}

lastletters = {["כ"] = "ך", ["מ"] = "ם", ["נ"] = "ן", ["פ"] = "ף", ["צ"] = "ץ"}

function sub1(str, from, to)
	return mw.ustring.sub(str, from, to)
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

function hebnum(s)
	numberstable = {
	["א"] = 1, ["ב"] = 2, ["ג"] = 3, ["ד"] = 4, ["ה"] = 5,
	["ו"] = 6, ["ז"] = 7, ["ח"] = 8, ["ט"] = 9, ["י"] = 10, 
	["כ"] = 20, ["ך"] = 20, ["ל"] = 30, ["מ"] = 40, ["ם"] = 40, 
	["נ"] = 50, ["ן"] = 50, ["ס"] = 60, ["ע"] = 70, ["פ"] = 80, 
	["ף"] = 80, ["צ"] = 90, ["ץ"] = 90, ["ק"] = 100, ["ר"] = 200, 
	["ש"] = 300, ["ת"] = 400, ["'"] = 0, ["\""] = 0,}
	local ans = 0
	local str = s
	while len1(str) > 0 do
		ans = ans + numberstable[sub1(str, 1, 1)]
		str = sub1(str, 2, len1(str))
	end
	return ans
end

function mindate(fix)
	local indenttable = {176, 206, 235, 265, 294, 324, 0, 30, 59, 88, 117, 147, 147}
	return same("28-08-" .. frame:callParserFunction("padleft", {hebnum(sub1(fix[3], 3, len1(fix[3]))) + 1000
		* hebnum(sub1((fix[3]), 1, 2)) - 3761, 4}) .. " + " .. (indenttable[monthtable[sub1(fix[2], 2)]]
		+ hebnum(fix[1]) - 1) .. " days")
end

function exacttdate(hdate, mindate, format)
	local count = 0
	local ans
	local greg
	while (count < 82) do
		ans = mindate .. " + " .. count .. " days"
		if (from(ans) == hdate) then
			greg = same(ans)
			local diffs = diff(greg)
			if diffs < 0 then diffs = 0 end
			greg = same(greg .. " - ".. diffs .. "days")
			checkcasp(greg)
			return format(greg) end
		count = count + 1
	end
	error("Date not found")
end

function exacttdate1(hyear)
	local wyear = frame:callParserFunction("padleft", {hebnum(sub1(hyear, 3, len1(hyear))) + 1000
		* hebnum(sub1(hyear, 1, 2)) - 3761, 4})
	checkcasp("01-01-" .. wyear)
	return wyear .. "-" .. frame:callParserFunction("padleft", {wyear + 1, 4})
end

function from(gdate)
	return frame:callParserFunction("#זמןמ:xhxjj xjx xhxjY", gdate)
end

function frommonth(gdate)
	return frame:callParserFunction("#זמןמ:xjF xhxjY", gdate)
end

function fromonlymonth(gdate)
	return frame:callParserFunction("#זמןמ:xjF", gdate)
end

function fromyear(gdate)
	return frame:callParserFunction("#זמןמ:xhxjY", gdate)
end

function same(gdate)
	return frame:callParserFunction("#זמןמ:d-m-Y", gdate)
end

function to(gdate)
	return frame:callParserFunction("#זמןמ:j בF Y", gdate)
end

function tomonth(gdate)
	return frame:callParserFunction("#זמןמ:F Y", gdate)
end

function toonlymonth(gdate)
	return frame:callParserFunction("#זמןמ:F", gdate)
end

function toyear(gdate)
	return frame:callParserFunction("#זמןמ:Y", gdate)
end

function fixdate(hdate)
	if 1 == find1(hdate, "ראש חודש")
		then hdate = "א' ב" .. sub1(hdate, 10) end
	local s1 = find1(hdate, " ")
	local s2 = find1(hdate, " ", s1 + 1)
	local s3 = find1(hdate, " ", s2 + 1)
	if (s3 > 0) then
		s2 = s3 end
	h1 = sub1(hdate, 1, s1 - 1)
	h2 = sub1(hdate, s1 + 1, s2 - 1)
	h3 = sub1(hdate, s2 + 1, len1(hdate))
	if (len1(h3) > 1 and sub1(h3, 2, 2) ~= "'") then
		h3 = "ה'" .. h3 end
	for m, mm in pairs(typomonthtable) do
		if h2 == "ב" .. m
		then h2 = "ב" .. mm end
	end
	for y, yy in pairs(lastletters) do
		if sub1(h3, len1(h3)) == y
		then h3 = sub1(h3, 1, len1(h3) - 1) .. yy end
	end
	return {h1, h2, h3, h1 .. " " .. h2 .. " " .. h3}
end

function fixerror(message)
	if message == "---"
		then return "" end
	return frame:preprocess(message)
end

function aserror(message)
	error(message .. "[[קטגוריה:דפים עם שגיאות בתאריך]]")
end

function takenumbers(wdate)
	local s1 = find1(wdate, " ")
	local s2 = find1(wdate, " ", s1 + 1)
	local h1 = sub1(wdate, 1, s1 - 1)
	local h2 = sub1(wdate, s1 + 1, s2 - 1)
	local h3 = sub1(wdate, s2 + 1, len1(wdate))
	for f, ff in pairs(mtable) do
		if "ב" .. ff == h2 then
			return h1 .. "-" .. frame:callParserFunction("padleft", {f, 2})
				.. "-" .. frame:callParserFunction("padleft", {h3, 4}) end
	end
end

function numtonums(wdate)
	local s1 = find1(wdate, "-")
	local s2 = find1(wdate, "-", s1 + 1)
	return {tonumber(sub1(wdate, 1, s1 - 1)),
			tonumber(sub1(wdate, s1 + 1, s2 - 1)),
		    tonumber(sub1(wdate, s2 + 1, len1(wdate)))}
end

function diff(gdate)
	local ans
	local wdate = numtonums(gdate)
	local wday = wdate[1]
	local wmonth = wdate[2]
	local wyear = wdate[3]
	if wyear > 1582 or (wyear == 1582 and (wmonth > 10 or (wmonth == 10 and wday > 14)))
		then ans = 0
		else local ytable = {200, 300, 500, 600, 700, 900, 1000, 1100, 1300, 1400, 1500}
			ans = 10
			if wmonth < 3
				then wyear = wyear - 1 end
			for y, yy in pairs(ytable) do
				if yy > wyear
					then ans = ans - 1 end
			end end
	return ans
end

function remove(dateStr) -- Thanks to Eran
	dateStr = mw.ustring.gsub( dateStr, "[%[%]]", "" )
	dateStr = mw.ustring.gsub(dateStr, "(\127UNIQ[^\127]+QINU\127)", "")
	dateStr = mw.ustring.gsub(dateStr, "&rlm;","")
	dateStr = mw.ustring.gsub(dateStr, "&lrm;","")
	return dateStr
end

function checkcasp(wdate)
	local wnumbers = numtonums(wdate)
	if wnumbers[3] < 360 or wnumbers[3] > 4357 or
			(wnumbers[3] == 1582 and wnumbers[2] == 10 and wnumbers[1] > 4 and wnumbers[1] < 15)
		then error("The date is not in the allowed casp") end
end

function fromhebrewyear(hyear)
	ans = fromhebrewdate("א' בניסן " .. hyear, toyear)
	if frame.args["exact"] ~= "כן"
		then ans = ans .. "-" .. fromhebrewdate("א' בתשרי " .. hyear, toyear)
	end
	return ans
end

function fromhebrewmonth(hdate)
	if frame.args["exact"] == "כן"
		then return fromhebrewdate('ט"ו ב' .. hdate, tomonth) end
	local date1 = fromhebrewdate("א' ב" .. hdate, same)
	local month1 = toonlymonth(date1)
	local year1 = toyear(date1)
	local date2 = same(date1 .. " + 30 days")
	date2 = frommonth(date2)
	date2 = fromhebrewdate("א' ב" .. date2, same)
	date2 = same(date2 .. " - 1 days")
	local month2 = toonlymonth(date2)
	local year2 = toyear(date2)
	if year1 ~= year2
		then return month1 .. " " .. year1 .. " - " .. month2 .. " " .. year2
		elseif month1 ~= month2
			then return month1 .. "-" .. month2 .. " " .. year1
			else return month1 .. " " .. year1 end
end

function fromhebrewdate(rem, format)
	local fix = fixdate(remove(rem))
	return exacttdate(fix[4], mindate(fix), format)
end

function fromhebrew1(hdate)
	local ht, rem = findhdatetype(hdate)
	if ht == "dmy"
		then return ifwhich(fromhebrewdate(rem, to))
		elseif ht == "my"
			then return ifwhich(fromhebrewmonth(rem))
			elseif ht == "y"
				then return ifwhich(fromhebrewyear(rem))
					else error("Wrong type: " .. ht) end
end

function findhdatetype(hdate)
	local rem = mw.text.trim(remove(hdate))
	for m, mm in pairs(monthtable) do
		if find1(rem, m) == 1 then
			return "my", rem end
	end
	if find1(rem, " ") == 0 then
		return "y", rem end
	return "dmy", rem
end

function fromhebrew(f)
	if noth(f.args[1]) then return "" end
	which = true
	return fromhebrewandverify(f)
end

function verify(f)
	frame = f
	if noth(frame.args[1]) then return "" end
	which = false
	local success, res = pcall(pick1, frame.args[1], frame.args[2], "[[קטגוריה:משהו]]")
	if not success
		then res = "" end
	local ans = ""
	if f.args[2] ~= ""
		then ans = tohebrew0(f.args[2]) end
	if f.args[1] ~= ""
		then ans = ans .. fromhebrewandverify(f) end
	return res .. ans
end

function fromhebrewandverify(f)
	frame = f
	local success, res = pcall(fromhebrew1, frame.args[1])
	if success
		then return ifwhich(res)
		elseif frame.args["about"] == "כן" and
				frame:expandTemplate({title = "גיל לערכי אישים/מקורב", args = {str = frame.args[1]}}) ~= ""
			then return ifwhich(frame.args[1], "[[קטגוריה:דפים עם תאריך עברי מקורב]]")
		elseif frame.args["error"] == nil
			then return aserror(res) end
	return fixerror(frame.args["error"])
end

function tohebrewyear(gyear)
	ans = tohebrewnum("01-01-" .. gyear, fromyear)
	if frame.args["exact"] ~= "כן"
		then ans = ans .. "-" .. tohebrewnum("01-12-" .. gyear, fromyear)
	end
	return ifwhich(ans)
end

function tohebrewmonth(wdate)
	if frame.args["exact"] == "כן"
		then return tohebrewdate("15 ב" .. wdate, frommonth) end
	local date1 = tohebrewdate("1 ב" .. wdate, same)
	local month1 = fromonlymonth(date1)
	local year1 = fromyear(date1)
	local date2 = same(date1 .. " + 31 days")
	date2 = tomonth(date2)
	date2 = tohebrewdate("1 ב" .. date2, same)
	date2 = same(date2 .. " - 1 days")
	local month2 = fromonlymonth(date2)
	local year2 = fromyear(date2)
	if year1 ~= year2
		then return ifwhich(month1 .. " " .. year1 .. " - " .. month2 .. " " .. year2)
		elseif month1 ~= month2
			then return ifwhich(month1 .. "-" .. month2 .. " " .. year1)
			else return ifwhich(month1 .. " " .. year1) end
end

function tohebrewdate(rem, format)
	local s1 = find1(rem, " ")
	local s2 = find1(rem, " ", s1 + 1)
	if len1(rem) - s2 == 3
		then rem = sub1(rem, 1, s2) .. "0" .. sub1(rem, s2 + 1) end
	local take = takenumbers(rem)
	if to(take) ~= rem
		then error("wrong date") end
	checkcasp(take)
	take = same(take .. " + " .. diff(take) .. " days")
	return ifwhich(format(take))
end

function tohebrewnum(wdate, format)
	if find1(wdate, "-", 3) == 3 and find1(wdate, "-", 6) == 6 and len1(wdate) == 9
		then wdate = sub1(wdate, 1, 6) .. "0" .. sub1(wdate, 7, 9) end
	if same(wdate) ~= wdate
		then error("wrong date") end
	checkcasp(wdate)
	wdate = same(wdate .. " + " .. diff(wdate) .. " days")
	return ifwhich(format(wdate))
end

function findwdatetype(wdate)
	local rem = mw.text.trim(remove(wdate))
	if find1(rem, "-") ~= 0 then
		return "num", rem end
	for m, mm in pairs(mtable) do
		if find1(rem, mm) == 1 then
			return "my", rem end
	end
	if tonumber(rem) ~= nil and tonumber(rem) .. "" == rem then
		return "y", rem end
	return "dmy", rem
end

function tohebrew1(wdate)
	local w, rem = findwdatetype(wdate)
	if w == "num"
		then return tohebrewnum(rem, from)
		elseif w == "dmy"
			then return tohebrewdate(rem, from)
			elseif w == "my"
				then return tohebrewmonth(rem)
				elseif w == "y"
					then return tohebrewyear(rem)
					else error("Wrong type: " .. ht) end
end

function pick1(hdate, wdate, cat)
	local ht, wt, hrem, wrem, hdw, wdh, hsuccess, wsuccess, thsuccess, twsuccess
	if cat == nil
		then which = true
			ht, hrem = findhdatetype(hdate)
			wt, wrem = findwdatetype(wdate)
		else thsuccess, ht, hrem = pcall(findhdatetype, hdate)
			twsuccess, wt, wrem = pcall(findwdatetype, wdate)
			hsuccess = false
			wsuccess = false end
	if hrem == ""
		then ht = "empty"
		else hsuccess, hdw = pcall(fromhebrew1, hrem)
			if not hsuccess
				then ht = "about" end end
	if wrem == ""
		then wt = "empty"
		else wsuccess, wdh = pcall(tohebrew1, wrem)
			if not wsuccess
				then wt = "about" end end
	if cat ~= nil
		then if thsuccess and twsuccess and hsuccess and wsuccess
			then return cat
			else return "" end end
	if hsuccess and wsuccess
		then if ht == "dmy" then return hdw
			elseif wt == "dmy" then return wdate
			elseif ht == "my" then return hdw
			elseif wt == "my" then return wdate
			elseif ht == "y" then return hdw
			else return wdate end
		elseif hsuccess then return hdw
		elseif wsuccess then return wdate
		elseif ht == "about" then return hdate
		else return wdate end
end

function checkcat(adate, cat)
	if cat == nil
		then return adate end
	return cat
end

function pick(f)
	frame = f
	if noth(frame.args["hebrew"]) then return "" end
	local success, res = pcall(pick1, frame.args["hebrew"], frame.args["world"])
	if success
		then return res
		elseif frame.args["error"] == nil
			then return aserror(res) end
	return fixerror(frame.args["error"])
end

function tohebrew0(wdate)
	local success, res = pcall(tohebrew1, wdate)
	if success
		then return res
		elseif frame.args["about"] == "כן" and
				frame:expandTemplate({title = "גיל לערכי אישים/מקורב", args = {str = wdate}}) ~= ""
			then return ifwhich(frame.args[1], "[[קטגוריה:דפים עם תאריך מקורב]]")
		elseif frame.args["error"] == nil
			then return aserror(res) end
	return fixerror(frame.args["error"])
end

function tohebrew(f)
	frame = f
	which = true
	return tohebrew0(frame.args[1])
end

function ifwhich(ans, noans)
	if noans == nil
		then noans = "" end
	if which
		then return ans
		else return noans end
end

function noth(hdate)
	return 0 < find1(hdate, "אלפים")
end

return {fromhebrew = fromhebrew, tohebrew = tohebrew, verify = verify, pick = pick}