Модуль:Calendar — Версийн башхалла

-- 00) Блок многократно используемых списков

local bool_to_number={ [true]=1, [false]=0 }

local monthd = {31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}

local params = { {"г", "g"}, {"ю", "j"}}

local mnlang = {"ru_G", "ru_N", "en", "en_S", "de", "fr"}

local month_lang = {

["ru_N"] = {"январь","февраль","март","апрель","май","июнь",

"июль","август","сентябрь","октябрь","ноябрь","декабрь"},

----[[ УСТАРЕЛО ]]----

local numstr2date = function(numstr)

local iso_date = mwlang:formatDate(format,numstr)

local dateout = {["year"]=purif(y), ["month"]=purif(m), ["day"]=purif(d)}

return dateout

else numyear = 1 - numyear end

if wiki then

else

output = tCon({numyear, " ", yearmark, bcmark})

(y2 or "")

--mw.log(tCon({gd,gm,gy,jd,jm,jy}))

if (not gy) or (gy == "") then gm_sep = {"","",""} end

return tCon({comment[1],trim(trim(jd .. " " .. jm) .. " " .. jy ),

error("Нет входящей строки")

elseif str:byte(1) == 43 then

elseif str:byte(1) == 45 or string.sub(str,1,3) == "−" or string.sub(str,1,1)=="-" then d = -1

else

end

local timedate = os.time{year=date.year, month=date.month, day=date.day}

return date

end

function p.bxDate( txtDateIn , strFormat, params ) -- к отладке

local txtDateOut, date, status = "", {}, {brk = false, errorCat = "", errorText = ""}

-- заглушка - таблица параметров на будущее

params = params or {}

local mwlang = mw.getContentLanguage()

local datein = args[1]

if not string.match(datein, "%p") then return datein

elseif not args[2] then

if not wd then wm = false end

local sq_brts = is(args["sq_brts"])

if yesno(args["yearmark"]) then

elseif yesno(args["yearmark"]) == false then yearmark = ""

-- local infocard = is(args["infocard"])

-- local catName = args["catName"] or false

local jdate, gdate = recalc(datein,cal)

 

local ym = args["yearmark"] or ""

if yesno(ym) then

if not not ym:match("(%d+)") then

error("Цифры в обозначении года: " .. ym)

end

 

-- =p.Test(mw.getCurrentFrame():newChild{title="smth",args={"28 августа","nil","1916 года","15"}})

-- =p.Test(mw.getCurrentFrame():newChild{title="smth",args={"4","января","1915","22","декабря","1914 года"}})

 

function p.Test( frame )

local wd, wm, wy = true, true, true

local ym = args["yearmark"] or ((mw.ustring.match((args[3] or ""),"(%a+)") or mw.ustring.match((args[6] or ""),"(%a+)")) or "")

-- mw.log("ym " .. ym)

if not not ym:match("(%d+)") then

error("Цифры в обозначении года: " .. ym)

end

if isdate(ingdate) or isdate(injdate) then