צפונות ויקי

יחידה:תאריך עברי: הבדלים בין גרסאות בדף

→ העריכה הקודמת
אין תקציר עריכה
מ 197 גרסאות של הדף wikipedia:he:יחידה:תאריך_עברי יובאו
 
(137 גרסאות ביניים של 5 משתמשים אינן מוצגות)
שורה 1: שורה 1:
mtable = {"ינואר", "פברואר", "מרץ", "אפריל", "מאי", "יוני",
mtable = {"ינואר", "פברואר", "מרץ", "אפריל", "מאי", "יוני",
"יולי", "אוגוסט", "ספטמבר", "אוקטובר", "נובמבר", "דצמבר", }
"יולי", "אוגוסט", "ספטמבר", "אוקטובר", "נובמבר", "דצמבר", }
monthtable = {
monthtable = {
["תשרי"] = 7, ["חשוון"] = 8, ["כסלו"] = 9, ["טבת"] = 10,
["תשרי"] = 7, ["חשוון"] = 8, ["כסלו"] = 9, ["טבת"] = 10,
שורה 7: שורה 8:
["אב"] = 5, ["אלול"] = 6,
["אב"] = 5, ["אלול"] = 6,
}
}
typomonthtable = {["חשון"] = "חשוון", ["כסליו"] = "כסלו", ["אדר א"] = "אדר א'",
 
["אדר ב"] = "אדר ב'", ["חשון"] = "חשוון", ["סיון"] = "סיוון",
typomonthtable = {["חשון"] = "חשוון", ["כסליו"] = "כסלו",
["מרחשון"] = "חשוון", ["מרחשוון"] = "חשוון"}
["חשון"] = "חשוון", ["סיון"] = "סיוון",
["מרחשון"] = "חשוון", ["מרחשוון"] = "חשוון", ["מר-חשוון"] = "חשוון",
["מנחם אב"] = "אב", ["מנחם-אב"] = "אב",
["שבט (חודש)|שבט"] = "שבט", ["שבט (חודש)"] = "שבט"
}
 
lastletters = {["כ"] = "ך", ["מ"] = "ם", ["נ"] = "ן", ["פ"] = "ף", ["צ"] = "ץ"}
lastletters = {["כ"] = "ך", ["מ"] = "ם", ["נ"] = "ן", ["פ"] = "ף", ["צ"] = "ץ"}
abouttable = {"המאה", "שנות ה-90", "לא ידוע", "בערך", "לערך", "בקירוב", "או", "משוער", "כנראה", "ככל הנראה",
"עד", "לפני", "אחרי", "לאחר", "בין", "סביבות", "בסביבות", "חורף", "אביב", "קיץ", "סתיו",
"~", "?", "c.", "Ca.", "C.", "Circa", "circa"}


function sub1(str, from, to)
function sub1(str, from, to)
שורה 20: שורה 23:


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


שורה 51: שורה 51:
function mindate(fix)
function mindate(fix)
local indenttable = {176, 206, 235, 265, 294, 324, 0, 30, 59, 88, 117, 147, 147}
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
return same("28-08-" .. takeyear(fix[3]) .. " + " .. (indenttable[monthtable[sub1(fix[2], 2)]]
* hebnum(sub1((fix[3]), 1, 2)) - 3761, 4}) .. " + " .. (indenttable[monthtable[sub1(fix[2], 2)]]
+ hebnum(fix[1]) - 1) .. " days")
+ hebnum(fix[1]) - 1) .. " days")
end
function takeyear(year)
local new
if 0 < find1(year, "אלפים")
then new = hebnum(sub1(year, 1, 2)) * 1000
else new = hebnum(sub1(year, 3, len1(year))) + 1000
* hebnum(sub1((year), 1, 2)) end
return frame:callParserFunction("padleft", {new - 3761, 4})
end
end


שורה 62: שורה 70:
while (count < 82) do
while (count < 82) do
ans = mindate .. " + " .. count .. " days"
ans = mindate .. " + " .. count .. " days"
if (from(ans) == hdate) then
if (remove(from(ans)) == hdate) then
greg = same(ans)
greg = same(ans)
local diffs = diff(greg)
local diffs = diff(greg)
שורה 68: שורה 76:
greg = same(greg .. " - ".. diffs .. "days")
greg = same(greg .. " - ".. diffs .. "days")
checkcasp(greg)
checkcasp(greg)
if makeformat then
return frame:callParserFunction("#זמןמ:" .. makeformat, greg)
end
return format(greg) end
return format(greg) end
count = count + 1
count = count + 1
end
end
error("Date not found")
error("Date not found", 0)
end
end


שורה 79: שורה 90:
checkcasp("01-01-" .. wyear)
checkcasp("01-01-" .. wyear)
return wyear .. "-" .. frame:callParserFunction("padleft", {wyear + 1, 4})
return wyear .. "-" .. frame:callParserFunction("padleft", {wyear + 1, 4})
end
function opposite(gdate, format)
if samesame == true
then samesame = false
return format(gdate) end
end
end


function from(gdate)
function from(gdate)
local ans = opposite(gdate, to)
if ans ~= nil
then return ans end
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:xhxjj xjx", gdate) .. "]] [["
.. frame:callParserFunction("#זמןמ:xhxjY", gdate) .. "]]" end
return frame:callParserFunction("#זמןמ:xhxjj xjx xhxjY", gdate)
return frame:callParserFunction("#זמןמ:xhxjj xjx xhxjY", gdate)
end
end


function frommonth(gdate)
function frommonth(gdate)
local ans = opposite(gdate, tomonth)
if ans ~= nil
then return ans end
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:xjF", gdate) .. "]] [["
.. frame:callParserFunction("#זמןמ:xhxjY", gdate) .. "]]" end
return frame:callParserFunction("#זמןמ:xjF xhxjY", gdate)
return frame:callParserFunction("#זמןמ:xjF xhxjY", gdate)
end
function fromonlymonth(gdate)
local ans = opposite(gdate, toonlymonth)
if ans ~= nil
then return ans end
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:xjF", gdate) .. "]]" end
return frame:callParserFunction("#זמןמ:xjF", gdate)
end
end


function fromyear(gdate)
function fromyear(gdate)
local ans = opposite(gdate, toyear)
if ans ~= nil
then return ans end
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:xhxjY", gdate) .. "]]" end
return frame:callParserFunction("#זמןמ:xhxjY", gdate)
return frame:callParserFunction("#זמןמ:xhxjY", gdate)
end
end
שורה 95: שורה 138:
function same(gdate)
function same(gdate)
return frame:callParserFunction("#זמןמ:d-m-Y", gdate)
return frame:callParserFunction("#זמןמ:d-m-Y", gdate)
end
function makeyear(gdate)
local year = frame:callParserFunction("#זמןמ:Y", gdate)
if tonumber(year) < 1000 and which
then year = sub1(year, 2)
end
return year
end
end


function to(gdate)
function to(gdate)
return frame:callParserFunction("#זמןמ:j בF Y", gdate)
local year = makeyear(gdate)
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:j בF", gdate) .. "]] [["
.. year .. "]]" end
return frame:callParserFunction("#זמןמ:j בF", gdate) .. " " .. year
end
end


function tomonth(gdate)
function tomonth(gdate)
return frame:callParserFunction("#זמןמ:F Y", gdate)
local year = makeyear(gdate)
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:F", gdate) .. "]] [["
.. year .. "]]" end
return frame:callParserFunction("#זמןמ:F", gdate) .. " " .. year
end
 
function toonlymonth(gdate)
if frame.args["links"] == "yes"
then return "[[" .. frame:callParserFunction("#זמןמ:F", gdate) .. "]]" end
return frame:callParserFunction("#זמןמ:F", gdate)
end
end


function toyear(gdate)
function toyear(gdate)
return frame:callParserFunction("#זמןמ:Y", gdate)
local year = makeyear(gdate)
if frame.args["links"] == "yes"
then return "[[" .. year .. "]]" end
return year
end
end


function fixdate(hdate)
function fixmonth(hdate)
local point
local max = 0
local place = 0
for m, mm in pairs(typomonthtable) do
point = find1(hdate, m)
if point > 0 and max < len1(m)
then max = len1(m)
place = m end
end
if max > 0
then point = find1(hdate, place)
return sub1(hdate, 1, point - 1) .. typomonthtable[place] .. sub1(hdate, point + len1(place)) end
return hdate
end
 
function fixdate(hdate1)
local hdate = fixmonth(hdate1)
if 1 == find1(hdate, "ראש חודש")
then hdate = "א' ב" .. sub1(hdate, 10) end
local h1, h2, h3 = parts(hdate)
--[=[
local s1 = find1(hdate, " ")
local s1 = find1(hdate, " ")
local s2 = find1(hdate, " ", s1 + 1)
local s2 = find1(hdate, " ", s1 + 1)
שורה 118: שורה 207:
h2 = sub1(hdate, s1 + 1, s2 - 1)
h2 = sub1(hdate, s1 + 1, s2 - 1)
h3 = sub1(hdate, s2 + 1, len1(hdate))
h3 = sub1(hdate, s2 + 1, len1(hdate))
]=]
if (len1(h3) > 1 and sub1(h3, 2, 2) ~= "'") then
if (len1(h3) > 1 and sub1(h3, 2, 2) ~= "'") then
h3 = "ה'" .. h3 end
h3 = "ה'" .. h3 end
--[=[
for m, mm in pairs(typomonthtable) do
for m, mm in pairs(typomonthtable) do
if h2 == "ב" .. m
if h2 == "ב" .. m
then h2 = "ב" .. mm end
then h2 = "ב" .. mm end
end
end
]=]
for y, yy in pairs(lastletters) do
for y, yy in pairs(lastletters) do
if sub1(h3, len1(h3)) == y
if sub1(h3, len1(h3)) == y
שורה 134: שורה 226:
if message == "---"
if message == "---"
then return "" end
then return "" end
return message
return frame:preprocess(message)
end
end


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


שורה 149: שורה 241:
for f, ff in pairs(mtable) do
for f, ff in pairs(mtable) do
if "ב" .. ff == h2 then
if "ב" .. ff == h2 then
return h1 .. "-" .. f .. "-" .. frame:callParserFunction("padleft", {h3, 4}) end
return h1 .. "-" .. frame:callParserFunction("padleft", {f, 2})
.. "-" .. frame:callParserFunction("padleft", {h3, 4}) end
end
end
end
end
שורה 192: שורה 285:
if wnumbers[3] < 360 or wnumbers[3] > 4357 or
if wnumbers[3] < 360 or wnumbers[3] > 4357 or
(wnumbers[3] == 1582 and wnumbers[2] == 10 and wnumbers[1] > 4 and wnumbers[1] < 15)
(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
then error("The date is not in the allowed casp", 0) end
end
end


שורה 204: שורה 297:


function fromhebrewmonth(hdate)
function fromhebrewmonth(hdate)
ans = fromhebrewdate('ט"ו ב' .. hdate, tomonth)
if frame.args["exact"] == "כן"
if frame.args["exact"] ~= "כן"
then return fromhebrewdate('ט"ו ב' .. hdate, tomonth) end
then ans = ans .. " בערך"
local date1 = fromhebrewdate("א' ב" .. hdate, same)
end
local month1 = toonlymonth(date1)
return ans
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
end


שורה 216: שורה 320:
end
end


function fromhebrew1()
function fromhebrew1(hdate)
local rem = mw.text.trim(remove(frame.args[1]))
local ht, rem = findhdatetype(fixmonth(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, 0) end
end
 
function findhdatetype(hdate)
local rem = mw.text.trim(remove(hdate))
local day, month, year = parts(hdate)
if day ~= nil
then return "dmy", rem end
if month ~= nil
then return "my", rem end
return "y", rem
--[=[
for m, mm in pairs(monthtable) do
for m, mm in pairs(monthtable) do
if find1(rem, m) == 1 then
if find1(rem, m) == 1 then
return fromhebrewmonth(rem) end
return "my", rem end
end
end
if find1(rem, " ") == 0 then
if find1(rem, " ") == 0 then
return fromhebrewyear(rem) end
return "y", rem end
return fromhebrewdate(rem, to)
return "dmy", rem
]=]
end
end


function fromhebrew(f)
function fromhebrew(f)
which = true
return fromhebrewandverify(f)
end
function fromhebrewformat(f)
which = true
makeformat = f.args["format"]
return fromhebrewandverify(f)
end
function verify(f)
frame = f
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
frame = f
for e, ee in pairs(abouttable) do
local success, res = pcall(fromhebrew1, frame.args[1])
if find1(frame.args[1], ee) > 0 then
return "[[קטגוריה:משהו]]" end
end
local success, res = pcall(fromhebrew1)
if success
if success
then return res
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
elseif frame.args["error"] == nil
then return aserror(res) end
then return aserror(res) end
שורה 246: שורה 393:
then ans = ans .. "-" .. tohebrewnum("01-12-" .. gyear, fromyear)
then ans = ans .. "-" .. tohebrewnum("01-12-" .. gyear, fromyear)
end
end
return ans
return ifwhich(ans)
end
end


function tohebrewmonth(wdate)
function tohebrewmonth(wdate)
ans = tohebrewdate("15 ב" .. wdate, frommonth)
if frame.args["exact"] == "כן"
if frame.args["exact"] ~= "כן"
then return tohebrewdate("15 ב" .. wdate, frommonth) end
then ans = ans .. " בערך"
local date1 = tohebrewdate("1 ב" .. wdate, same)
end
local month1 = fromonlymonth(date1)
return ans
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
end


function tohebrewdate(rem, format)
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)
local take = takenumbers(rem)
if to(take) ~= rem
if remove(to(take)) ~= rem
then error("wrong date") end
then error("wrong date", 0) end
checkcasp(take)
checkcasp(take)
take = same(take .. " + " .. diff(take) .. " days")
take = same(take .. " + " .. diff(take) .. " days")
return format(take)
return ifwhich(format(take))
end
end


function tohebrewnum(wdate, format)
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
if same(wdate) ~= wdate
then error("wrong date") end
then error("wrong date", 0) end
checkcasp(wdate)
checkcasp(wdate)
wdate = same(wdate .. " + " .. diff(wdate) .. " days")
wdate = same(wdate .. " + " .. diff(wdate) .. " days")
return format(wdate)
return ifwhich(format(wdate))
end
end


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


function tohebrew(f)
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, 0) 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 ht == "dmy" and wt ~= "dmy"
then return "[[קטגוריה:חוסר מתאם בתאריכים - תאריך "
.. frame.args["type"] .. " עברי מדויק]]" end
if ht ~= "dmy" and wt == "dmy"
then return "[[קטגוריה:חוסר מתאם בתאריכים - תאריך "
.. frame.args["type"] .. " לועזי מדויק]]" end
-- if ht == "dmy" or ht == "my" or ht == "y"
-- then return "[[קטגוריה:חוסר מתאם בתאריכים - תאריך "
-- .. frame.args["type"] .. " לועזי מדויק]]" end
return "" end
if wsuccess and hsuccess
then if wt == "dmy" then return wdate
elseif ht == "dmy" then return hdw
elseif wt == "my" then return wdate
elseif ht == "my" then return hdw
elseif wt == "y" then return wdate
else return hdw end
elseif wsuccess then return wdate
elseif hsuccess then return hdw
elseif wt == "about" then return wdate
else return hdate end
end
 
function checkcat(adate, cat)
if cat == nil
then return adate end
return cat
end
 
function pick(f)
frame = f
frame = f
local success, res = pcall(tohebrew1, frame.args[1])
local hebrew = frame.args["hebrew"]
local world = frame.args["world"]
local habout = false
local wabout = false
if frame:expandTemplate({title = "גיל לערכי אישים/מקורב", args = {str = hebrew}}) ~= ""
then hebrew = ""
habout = true end
if frame:expandTemplate({title = "גיל לערכי אישים/מקורב", args = {str = world}}) ~= ""
then world = ""
wabout = true end
local success, res = pcall(pick1, hebrew, world)
if success
then if habout and world == ""
then return frame.args["hebrew"] end
if wabout and hebrew == ""
then return frame.args["world"] end
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
if success
then return res
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
elseif frame.args["error"] == nil
then return aserror(res) end
then return aserror(res) end
שורה 297: שורה 550:
end
end


return {fromhebrew = fromhebrew, tohebrew = tohebrew}
function tohebrew(f)
frame = f
which = true
return tohebrew0(frame.args[1])
end
 
function samedate(f)
frame = f
which = true
samesame = 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 parts(hdate)
local funcs = {
{function() return w[1] end},
{function() return w[2], w[1] end,
function() return c(w[2], w[1]) end},
{function() return w[3], w[2], w[1] end,
function() return c(w[3], w[2]), w[1] end,
function() return w[3], c(w[2], w[1]) end},
{function() return w[4], c(w[3], w[2]), w[1] end,
function() return c(w[4], w[3]), w[2], w[1] end,
nil,
function() return c(w[4], w[3]), c(w[2], w[1]) end},
{nil,
function() return c(w[5], w[4]), c(w[3], w[2]), w[1] end}}
function c(x, y) return y .. " " .. x end
w = takewords(hdate)
local code = 1
if 0 < find1(hdate, "אלפים")
then code = code + 1 end
if 1 == find1(hdate, "אדר א")
then code = code + 2 end
if 1 == find1(hdate, "אדר ב")
then code = code + 2 end
local year, month, day = funcs[#w][code]()
return day, month, year
end
 
function takewords(str)
local count = 1
local ans = {}
local cur = str
while find1(cur, " ") > 0 do
ans[count] = sub1(cur, 1, find1(cur, " ") - 1)
count = count + 1
cur = sub1(cur, find1(cur, " ") + 1)
end
ans[count] = cur
return ans
end
 
return {fromhebrew = fromhebrew, tohebrew = tohebrew, verify = verify, pick = pick, samedate = samedate,
fromhebrewformat = fromhebrewformat}
אוחזר מתוך "https://tzefunotwiki.com/index.php/יחידה:תאריך_עברי"