מ. רובין: גרסה אחת יובאה

2025-09-07T08:02:30Z

גרסה אחת יובאה

→ הגרסה הקודמת	גרסה מ־11:02, 7 בספטמבר 2025
(אין הבדלים)

ויקיטקסט>Erel Segal ב־23:50, 23 במרץ 2016

2016-03-23T23:50:17Z

דף חדש

local gimatria = require('יחידה:גימטריה');
local haqodem = gimatria.haqodem;
local haba = gimatria.haba;
local otiot2mispar = gimatria.gimatria;
local mispar2otiot = gimatria.mispar_lotiot;

local p = {}

local letter = "[א-ת]"
local letterspace = "[א-ת ]"
local letterspaceparen = "[א-ת ()]"

local letters = letter .. '+'
local letterspaces = letterspace .. '+'
local letterspaceparens = letterspaceparen .. '+'

local PATTERN_PARENTHESES = '%('..letterspaces..'%)'

-- חלוקה לשלושה חלקים: ספר (מילה אחת בלי רווחים), מסכת (עם או בלי רווחים), ופרק.
local PATTERN_PEREQ = '^('..letters..')([/ ])('..letterspaces..')([/ ])('..letters..')$';

-- חלוקה לשלושה חלקים: ספר (ומילה אחת בלי רווחים ועוד גירסה בסוגריים), מסכת (עם או בלי רווחים), ופרק.
local PATTERN_PEREQ_GIRSA = '^('..letters..' %('..letterspaces..'%))([/ ])('..letterspaces..')([/ ])('..letters..')$';

-- חלוקה לארבעה חלקים: ספר (מילה אחת בלי רווחים), מסכת (עם או בלי רווחים), פרק, וסעיף.
local PATTERN_SEIF = '^('..letters..')%s+('..letterspaces..')%s+('..letters..')%s+('..letters..')$';

-- חלוקה לשלושה חלקים: ספר (עם או בלי רווחים), פרק, וסעיף.
local PATTERN_SEIF_BSEFER = '^([ א-ת]+)%s+([א-ת]+)%s+([א-ת]+)$';

-- חלוקה לשלושה חלקים: ספר (עם או בלי רווחים), פרק (בלי רווחים) ופסוק (בלי רווחים)
local PATTERN_BEUR_pasuq = '^ביאור:('..letterspaces..')%s+('..letters..')%s+('..letters..')$';

-- הפוקנציה מקבלת שם של דף, מפרקת אותו לשלושה חלקים (ספר, מסכת ופרק), ומכניסה את החלקים האלה לתבנית הנתונה.
-- למשל: אם שם הדף הוא "ירושלמי בבא קמא א",
-- והתבנית היא: "אאא <ספר> בבב <מסכת> גגג <פרק<"
-- אז הפונקציה תחזיר: "אאא ירושלמי בבב בבא קמא גגג א"
p["כותרת לפרק"] = function (frame)
local title = frame.args[1]
local template = frame.args[2]
return p.koteret_lpereq_bsefer(title, template)
end

p.koteret_lpereq_bsefer = function (title, template)
-- title = title:gsub(PATTERN_PARENTHESES,'')
local sefer, mafrid, maseket, mafrid1, pereq = string.match(title, PATTERN_PEREQ)
if (sefer==nil) then
sefer, mafrid, maseket, mafrid1, pereq = string.match(title, PATTERN_PEREQ_GIRSA)
end
local pereq_qodem = haqodem(pereq);
local pereq_haba = haba(pereq);
template = template:gsub('<ספר>', sefer);
template = template:gsub("<מסכת>", maseket);
template = template:gsub("<פרק>", pereq);
template = template:gsub("<פרק קודם>", pereq_qodem);
template = template:gsub("<פרק הבא>", pereq_haba);
template = template:gsub("<מפריד>", mafrid);
return template
end

-- בטבלה זו, בכל כניסה בטבלה, צריכה להיות רשימה של מספרי המשניות בכל פרק במסכת.
-- למשל, במסכת פאה, בפרק א, יש 5 משניות, וכן הלאה.
local mispar_mishnayot_bepereq = {
['משנה'] = {
['פאה'] =
{5, 5, 7, 7, 7, 8, 7, 8},
['ברכות'] =
{6, 9, 6, 6, 5, 8, 5, 8,5},
['שקלים'] =
{7, 5, 3, 5, 4, 4, 3, 4},
},
['ירושלמי'] = {
['ברכות'] =
{6, 9, 6, 6, 5, 8, 5, 8,5},
['פאה'] =
{5, 5, 7, 7, 7, 8, 7, 8},
['דמאי'] =
{4, 5, 6, 5, 8, 8, 8},
['כלאים'] =
{9, 8, 6, 6, 7, 4, 6, 4, 6},
['שביעית'] =
{6, 7, 7, 8, 4, 4, 2, 8, 6, 4},
['תרומות'] =
{5, 3, 5, 8, 3, 3, 3, 4, 3, 6, 5},
['מעשרות'] =
{5, 4, 4, 4, 3},
['מעשר שני'] =
{3, 4, 6, 6, 5},
['חלה'] =
{6, 3, 5, 5},
['ערלה'] =
{5, 9, 7},
['בכורים'] =
{9, 6, 6},

['שבת'] =
{11, 7, 8, 3, 4, 9, 4, 7, 7, 6, 6, 6, 7, 4, 3, 9, 7, 3, 6, 5},
['ערובין'] =
{10,8,10,10,8,10,10,9,5,14},
['פסחים'] =
{8,7,8,9,10,6,13,8,10,7},
['שקלים'] =
{7, 5, 3, 5, 4, 4, 3, 4},
['יומא'] =
{8,4,9,6,7,7,3,7},
['סוכה']=
{12,10,12,7,8},
['ביצה']=
{12,10,9,7,8},
['ראש השנה']=
{8,8,10,10},
['תענית']=
{8,14,11,7},
['מגילה']=
{12,7,7,12},
['מועד קטן']=
{10,5,9},
['חגיגה']=
{8,7,8},
--נשים
['יבמות'] =
{6,12,12,16,8,6,8,6,8,8,7,6,14,7,10,9},
['כתובות'] =
{10,10,10,14,11,7,9,11,10,6,7,5,11},
['נדרים'] =
{4,5,9,10,6,11,11,9,9,8,12},
['נזיר'] =
{5,10,7,6,4,11,4,2,6},
['סוטה'] =
{10,6,8,5,6,4,8,10,16},
['גיטין'] =
{5,7,8,9,10,7,8,10,11},
['קידושין'] =
{9,9,13,12},
--נזיקין
['בבא קמא'] =
{5,8,11,9,8,8,7,8,10,11},
['בבא מציעא'] =
{8,11,9,7,8,6,7,9,13,6},
['בבא בתרא'] =
{5,11,11,8,5,4,4,9,9,10},
['סנהדרין'] =
{4,6,12,9,5,10,13,9,7,8,6},
['מכות'] =
{8,7},
['שבועות'] =
{7,5,10,10,6,8,8,4},
},
['בבלי'] = {
['פאה'] =
{0, 0, 0, 0, 0, 0, 0, 0},
['דמאי'] =
{0,0,0,0,0,0,0},
['ברכות'] =
{6, 9, 6, 6, 5, 8, 5, 8,5},
['שקלים'] =
{7, 5, 3, 5, 4, 4, 3, 4},
},
}

p.koteret_lseif = function (title, template)
local sefer, maseket, pereq, seif = string.match(title, PATTERN_SEIF)
local pereq_mispar = otiot2mispar(pereq)
local seif_mispar = otiot2mispar(seif)
local pereq_qodem = mispar2otiot(pereq_mispar-1)
local pereq_haba = mispar2otiot(pereq_mispar+1)
local seif_qodem = mispar2otiot(seif_mispar-1)
local seif_haba = mispar2otiot(seif_mispar+1)

local mispar_mishanyot = mispar_mishnayot_bepereq[sefer]
if (mispar_mishanyot~=nil) then
mispar_mishanyot = mispar_mishanyot[maseket]
end

-- חישוב פרק וסעיף קודם
local pereq_wseif_qodem = pereq.." "..seif_qodem
if seif_mispar==1 then
if pereq_mispar==1 then -- תחילת מסכת
pereq_wseif_qodem = ""
elseif mispar_mishanyot~=nil and mispar_mishanyot[pereq_mispar-1]~=nil then
pereq_wseif_qodem = pereq_qodem.." "..mispar2otiot(mispar_mishanyot[pereq_mispar-1])
end
end

-- חישוב פרק וסעיף הבא
local pereq_wseif_haba = pereq.." "..seif_haba
if mispar_mishanyot~=nil and seif_mispar==mispar_mishanyot[pereq_mispar] and mispar_mishanyot[pereq_mispar]~=nil then
if mispar_mishanyot[pereq_mispar+1]==nil then -- סוף מסכת
pereq_wseif_haba = ""
else
pereq_wseif_haba = pereq_haba.." ".."א"
end
end

template = template:gsub('<ספר>', sefer);
template = template:gsub("<מסכת>", maseket);
template = template:gsub("<פרק>", pereq);
template = template:gsub("<פרק קודם>", pereq_qodem);
template = template:gsub("<פרק הבא>", pereq_haba);
template = template:gsub("<סעיף>", seif);
template = template:gsub("<סעיף קודם>", seif_qodem);
template = template:gsub("<סעיף הבא>", seif_haba);
template = template:gsub("<פרק וסעיף קודם>", pereq_wseif_qodem);
template = template:gsub("<פרק וסעיף הבא>", pereq_wseif_haba);

return template
end

-- הפוקנציה מקבלת שם של דף, מפרקת אותו לארבעה חלקים (ספר, מסכת, פרק, וסעיף/הלכה/משנה), ומכניסה את החלקים האלה לתבנית הנתונה.
-- למשל: אם שם הדף הוא "ירושלמי בבא קמא א ב",
-- והתבנית היא: "אאא <ספר> בבב <מסכת> גגג <פרק<"
-- אז הפונקציה תחזיר: "אאא ירושלמי בבב בבא קמא גגג א"
p["כותרת לסעיף"] = function (frame)
local title = frame.args[1]
local template = frame.args[2]
return p.koteret_lseif(title, template)
end

p.koteret_lseif_bsefer = function (title, template)
local sefer, pereq, seif = string.match(title, PATTERN_SEIF_BSEFER)
local seif_qodem = haqodem(seif);
local seif_haba = haba(seif);
template = template:gsub('<ספר>', sefer);
template = template:gsub("<פרק>", pereq);
template = template:gsub("<סעיף>", seif);
template = template:gsub("<סעיף קודם>", seif_qodem);
template = template:gsub("<סעיף הבא>", seif_haba);
return template
end

-- הפוקנציה מקבלת שם של דף, מפרקת אותו לשלושה
-- חלקים (ספר, פרק וסעיף), ומכניסה
-- את החלקים האלה לתבנית הנתונה.
p["כותרת לסעיף בספר"] = function (frame)
local title = frame.args[1]
local template = frame.args[2]
return p.koteret_lseif_bsefer(title, template)
end

-- קלט: כותרת של דף של סעיף, למשל "ירושלמי בבא קמא א ב". וכן ספר אחר, לדוגמה "בבלי".
-- פלט: התבנית הנתונה בקלט, עם הנתונים של סעיף זה בספר המקביל, לדוגמה: "בבלי בבא קמא א ב".
-- אבל רק אם הסעיף המקביל אכן נמצא בספר השני. אם הסעיף לא נמצא - תוחזר מחרוזת ריקה.
p.seif_maqbil = function(title, template, sefer)
local _, maseket, pereq, seif = string.match(title, PATTERN_SEIF)
local pereq_mispar = otiot2mispar(pereq)
local seif_mispar = otiot2mispar(seif)

local mispar_mishanyot = mispar_mishnayot_bepereq[sefer]
if (mispar_mishanyot~=nil) then
mispar_mishanyot = mispar_mishanyot[maseket]
end
if (mispar_mishanyot~=nil) then
mispar_mishnayot = mispar_mishanyot[pereq_mispar]
end

if (mispar_mishnayot~=nil and seif_mispar > mispar_mishnayot) then
return "" -- הסעיף לא קיים בספר השני
else
template = template:gsub('<ספר>', sefer)
template = template:gsub("<מסכת>", maseket)
template = template:gsub("<פרק>", pereq)
template = template:gsub("<סעיף>", seif)
return template
end
end

p["סעיף מקביל"] = function (frame)
return p.seif_maqbil(frame.args[1], frame.args[2], frame.args[3])
end

-- בטבלה זו, בכל כניסה בטבלה, צריכה להיות רשימה של מספרי הפסוקים בכל פרק בספר.
---- select concat("['",sf.kotrt,"'] =<br/> {",group_concat(count order by mspr),"},")
---- from
---- tnk.mspry_psuqim ms
---- inner join tnk.prqim pr on (ms.prq0=pr.kotrt)
---- inner join tnk.sfrim sf on (ms.sfr=sf.qod)
---- group by ms.sfr
local mispar_psuqim_bepereq = {
['איוב'] =
{22,13,26,21,27,30,21,22,35,22,20,25,28,22,35,22,16,21,29,29,34,30,17,25,6,14,23,28,25,31,40,22,33,37,16,33,24,41,30,32,26,17},
['איכה'] =
{22,22,66,22,22},
['במדבר'] =
{54,34,51,49,31,27,89,26,23,36,35,16,33,45,41,35,28,32,22,29,35,41,30,25,18,65,23,31,39,17,54,42,56,29,34,13},
['בראשית'] =
{31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,54,33,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26},
['דברים'] =
{46,37,29,49,29,25,26,20,29,22,32,31,19,29,23,22,20,22,21,20,23,29,26,22,19,19,26,69,28,20,30,52,29,12},
['דברי הימים א'] =
{54,55,24,43,41,66,40,40,44,14,47,41,14,17,29,43,27,17,19,8,30,19,32,31,31,32,34,21,30},
['דברי הימים ב'] =
{18,17,17,22,14,42,22,18,31,19,23,16,23,14,19,14,19,34,11,37,20,12,21,27,28,23,9,27,36,27,21,33,25,33,27,23},
['דניאל'] =
{21,49,33,34,30,29,28,27,27,21,45,13},
['הושע'] =
{9,25,5,19,15,11,16,14,17,15,11,15,15,10},
['ויקרא'] =
{17,16,17,35,26,23,38,36,24,20,47,8,59,57,33,34,16,30,37,27,24,33,44,23,55,46,34},
['זכריה'] =
{17,17,10,14,11,15,14,23,17,12,17,14,9,21},
['חבקוק'] =
{17,20,19},
['חגי'] =
{15,23},
['יואל'] =
{20,27,5,21},
['יהושע'] =
{18,24,17,24,15,27,26,35,27,43,23,24,33,15,63,10,18,28,51,9,43,34,16,33},
['יחזקאל'] =
{28,10,27,17,17,14,27,18,11,22,25,28,23,23,8,63,24,32,14,44,37,31,49,27,17,21,36,26,21,26,18,32,33,31,15,38,28,23,29,49,26,20,27,31,25,24,23,35},
['יונה'] =
{16,11,10,11},
['ירמיהו'] =
{19,37,25,31,31,30,34,23,25,25,23,17,27,22,21,21,27,23,15,18,14,30,40,10,38,24,22,17,32,25,39,44,26,22,19,32,21,28,18,16,18,22,13,30,5,28,7,47,39,46,64,34},
['ישעיהו'] =
{31,22,26,6,30,13,25,23,20,34,16,6,22,32,9,14,14,7,25,6,17,25,18,23,12,21,13,29,24,33,9,20,24,17,10,22,38,22,8,31,29,25,28,28,25,13,15,22,26,11,23,15,12,17,13,12,21,14,21,22,11,12,19,11,25,24},
['מיכה'] =
{16,13,12,14,14,16,20},
['מלכים א'] =
{53,46,28,20,32,38,51,66,28,29,43,33,34,31,34,34,24,46,21,43,29,54},
['מלכים ב'] =
{18,25,27,44,27,33,20,29,37,36,20,22,25,29,38,20,41,37,37,21,26,20,37,20,30},
['מלאכי'] =
{14,17,24},
['משלי'] =
{33,22,35,27,23,35,27,36,18,32,31,28,25,35,33,33,28,24,29,30,31,29,35,34,28,28,27,28,27,33,31},
['נחום'] =
{14,14,19},
['נחמיה'] =
{11,20,38,17,19,19,72,18,37,40,36,47,31},
['אסתר'] =
{22,23,15,17,14,14,10,17,32,3},
['עובדיה'] =
{21},
['עזרא'] =
{11,70,13,24,17,22,28,36,15,44},
['עמוס'] =
{15,16,15,13,27,14,17,14,15},
['צפניה'] =
{18,15,20},
['קהלת'] =
{18,26,22,17,19,12,29,17,18,20,10,14},
['רות'] =
{22,23,18,22},
['שופטים'] =
{36,23,31,24,31,40,25,35,57,18,40,15,25,20,20,31,13,31,30,48,25},
['שיר השירים'] =
{17,17,11,16,16,12,14,14},
['שמואל א'] =
{28,36,21,22,12,21,17,22,27,27,15,25,23,52,35,23,58,30,24,42,16,23,29,22,44,25,12,25,11,31,13},
['שמואל ב'] =
{27,32,39,12,25,23,29,18,13,19,27,31,39,33,37,23,29,32,44,26,22,51,39,25},
['שמות'] =
{22,25,22,31,23,30,29,28,35,29,10,51,22,31,27,36,16,27,25,22,37,30,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38},
['תהלים'] =
{6,12,9,9,13,11,18,10,21,18,7,9,6,7,5,11,15,51,15,10,14,32,6,10,22,12,14,9,11,13,25,11,22,23,28,13,40,23,14,18,14,12,5,27,18,12,10,15,21,23,21,11,7,9,24,14,12,12,18,14,9,13,12,11,14,20,8,36,37,6,24,20,28,23,11,13,21,72,13,20,17,8,19,13,14,17,7,19,53,17,16,16,5,23,11,13,12,9,9,5,8,29,22,35,45,48,43,14,31,7,10,10,9,8,18,19,2,29,176,7,8,9,4,8,5,6,5,6,8,8,3,18,3,3,21,26,9,8,24,14,10,8,12,15,21,10,20,14,9,6},
}

-- יוצר סרגל ניווט עם כל הפסוקים בפרק הנתון.
-- לדוגמה ראו:
-- [[תבנית:מצודות]]
p.niwut_psuqim_bpereq = function(sefer, pereq, template_for_pasuq)
local pereq_mispar = otiot2mispar(pereq)
local mispar_psuqim = mispar_psuqim_bepereq[sefer][pereq_mispar]
local result = ''
for pasuq_mispar = 1,mispar_psuqim do
local pasuq = mispar2otiot(pasuq_mispar)
local template = template_for_pasuq
template = template:gsub('<ספר>', sefer);
template = template:gsub("<פרק>", pereq);
template = template:gsub("<פסוק>", pasuq);
result = result .. template
end
return result
end

p["ניווט פסוקים בפרק"] = function (frame)
local sefer = frame.args[1]
local pereq = frame.args[2]
local template_for_pasuq = frame.args[3]
return p.niwut_psuqim_bpereq(sefer, pereq, template_for_pasuq)
end

-- פונקציות הקשורות לביאורי פסוקים
p.koteret_lbeur_pasuq = function (title, template)
local sefer, pereq, pasuq = string.match(title, PATTERN_BEUR_pasuq)
local pereq_mispar = otiot2mispar(pereq)
local pasuq_mispar = otiot2mispar(pasuq)
local pereq_qodem = mispar2otiot(pereq_mispar-1)
local pereq_haba = mispar2otiot(pereq_mispar+1)
local pasuq_qodem = mispar2otiot(pasuq_mispar-1)
local pasuq_haba = mispar2otiot(pasuq_mispar+1)

local mispar_psuqim = mispar_psuqim_bepereq[sefer]

-- חישוב פרק ופסוק קודם
local pereq_wpasuq_qodem = pereq.." "..pasuq_qodem
if pasuq_mispar==1 then
if pereq_mispar==1 then -- תחילת ספר
pereq_wpasuq_qodem = ""
elseif mispar_psuqim~=nil and mispar_psuqim[pereq_mispar-1]~=nil then
pereq_wpasuq_qodem = pereq_qodem.." "..mispar2otiot(mispar_psuqim[pereq_mispar-1])
end
end

-- חישוב פרק וסעיף הבא
local pereq_wpasuq_haba = pereq.." "..pasuq_haba
if mispar_psuqim~=nil and mispar_psuqim[pereq_mispar]~=nil and pasuq_mispar==mispar_psuqim[pereq_mispar] then
if mispar_psuqim[pereq_mispar+1]==nil then -- סוף ספר
pereq_wpasuq_haba = ""
else
pereq_wpasuq_haba = pereq_haba.." ".."א"
end
end

template = template:gsub('<ספר>', sefer);
template = template:gsub("<פרק>", pereq);
template = template:gsub("<פסוק>", pasuq);
template = template:gsub("<פרק קודם>", pereq_qodem);
template = template:gsub("<פרק הבא>", pereq_haba);
template = template:gsub("<פסוק קודם>", pasuq_qodem);
template = template:gsub("<פסוק הבא>", pasuq_haba);
template = template:gsub("<פרק ופסוק קודם>", pereq_wpasuq_qodem);
template = template:gsub("<פרק ופסוק הבא", pereq_wpasuq_haba);

return template
end

-- הפוקנציה מקבלת שם של דף שהוא ביאור על פסוק,
-- מפרקת אותו לשלושה חלקים (ספר, פרק ופסוק), ומכניסה
-- את החלקים האלה לתבנית הנתונה.
p["כותרת לביאור פסוק"] = function (frame)
local title = frame.args[1]
local template = frame.args[2]
return p.koteret_lbeur_pasuq(title, template)
end

return p

יחידה:כותרת - היסטוריית גרסאות

מ. רובין: גרסה אחת יובאה

ויקיטקסט>Erel Segal ב־23:50, 23 במרץ 2016