-- Load dependencies.加载依赖项。
local getArgs = require('Module:Arguments').getArgs
local numToRoman = require( 'Module:Roman' ).main
local getOlympiad = require( 'Module:Ancient Olympiads' )._main
local getDynasty = require( 'Module:Ancient Egypt era' )._main
local getPharaoh = require( 'Module:Ancient Egypt kings' )._main
local numToArmenian = require( 'Module:Armenian' ).main
local getRegnal = require( 'Module:British regnal year' ).main
local japaneseEra = require( 'Module:Japanese calendar' ).era()
local ilh = require('Module:Ilh').main
-- Define constants.定义常量。
local lang = mw.language.getContentLanguage()
local currentYear = tonumber( lang:formatDate( 'Y' ) )
--------------------------------------------------------------------
-- Helper functions辅助函数
--------------------------------------------------------------------
local function isInteger( num )
-- Checks if a value is an integer. If so, returns the value converted to a number. 检查值是否为整数数值类型。如果是，则返回转换为数字的值。
-- If not, returns false.
num = tonumber( num )
if num and math.floor( num ) == num and num ~= math.huge then
return num
else
return false
end
end
local function BCToNum( s )
-- Converts strings of the format "n BC" to their corresponding
-- numerical values.
--将“某自然数公元前”格式的字符串转换为其对应的数值。
if type( s ) ~= 'string' then
return nil
end
s = mw.ustring.match( mw.ustring.upper( s ), '^([1-9]%d*)%s*BC$' )
if not s then
return nil
end
local num = tonumber( s )
num = ( num - 1 ) * -1
return num
end
local function numToBC( num )
-- For BC years, returns a string with the year name appended with " BC".对于公元前的年份，返回年份名称附加“公元前”的字符串。
-- Otherwise returns nil.
num = isInteger( num )
if not num then return end
if num <= 0 then
return string.format( '%d BC', 1 - num )
end
end
local function ADToNum( s )
-- Converts strings of the format "AD n"
-- 转换格式为“公元自然数”的字符串-- 对应的数值。
-- to their corresponding numerical values.
if type( s ) ~= 'string' then
return nil
end
s = mw.ustring.match( mw.ustring.upper( s ), '^AD%s*([1-9]%d*)$' )
if not s then
return nil
end
local num = tonumber( s )
return num
end
local function numToAD( num )
-- For AD years up to 100, returns a string with the year name prepended with "AD ".
-- 对于 100 以内的公元年，返回年份名称前面带有“公元”的字符串。
-- Otherwise returns nil.
num = isInteger( num )
if not num then return end
if (num <= 100) then
return string.format( 'AD %d', num )
end
end
local function formatNegative(s)
-- Replaces hyphens in a string with minus signs if the hyphen comes before a number.如果连字符位于数字之前，则用减号替换字符串中的连字符。
s = mw.ustring.gsub( s, '%-(%d)', '−%1' )
return s
end
--------------------------------------------------------------------
-- Calendar box class definition日历框类定义
--------------------------------------------------------------------
local calendarBox = {}
calendarBox.__index = calendarBox
function calendarBox:new( init )
init = type( init ) == 'table' and init or {}
local obj = {}
local pagename = mw.title.getCurrentTitle().text
-- Set the year. If the year is specified as an argument, use that.设定年份。 如果年份被指定为参数，请使用它。
-- Otherwise, use the page name if it is valid. If the pagename isn't 否则，请使用有效的页面名称。
-- valid, use the current year. 如果页面名称无效，请使用当前年份。
local yearNum = isInteger( init.year )
local yearBC = BCToNum( init.year )
local yearAD = ADToNum( init.year )
local pageNum = isInteger( pagename )
local pageBC = BCToNum( pagename )
local pageAD = ADToNum( pagename )
if yearNum then -- First, see if the year parameter is a number.首先，查看年份参数是否为数字。
self.year = yearNum
elseif yearBC then -- Second, see if the year parameter is a "yyyy BC" string.其次，查看年份参数是否为“自然数公元前”字符串。
self.year = yearBC
elseif yearAD then -- Third, see if the year parameter is an AD/CE/year string.第三，查看年份参数是否为 公元/年 字符串。
self.year = yearAD
elseif pageNum then -- Fourth, see if the pagename is an integer.第四，查看页面名称是否为整数。
self.year = pageNum
elseif pageBC then -- Fifth, see if the pagename is a "yyyy BC" string.第五，查看页面名称是否为“自然数公元前”字符串。
self.year = pageBC
elseif pageAD then -- Sixth, see if the pagename is an AD/CE/year string.第六，查看年份参数是否为 公元/年 字符串。
self.year = pageAD
else
self.year = currentYear -- If none of the above apply, use the current year.如果以上都不适用，则使用当前年份。
end
-- Set year text values.设置年份文本值。
self.BCYearName = numToBC( self.year )
self.ADYearName = numToAD( self.year )
if self.BCYearName then
self.yearText = self.BCYearName
elseif self.ADYearName then
self.yearText = self.ADYearName
else
self.yearText = tostring( self.year )
end
-- Set other fields.设置其他字段。
self.caption = self.yearText
self.footnotes = init.footnotes
self.navbar = init.navbar
return setmetatable( obj, {
__index = self
})
end
function calendarBox:setCaption( s )
-- Sets the calendar box caption.设置日历框标题。
if type( s ) ~= 'string' or s == '' then return end
self.caption = s
end
function calendarBox:addCalendar( obj )
-- Adds a calendar or a calendar group.添加日历或日历组。
if type( obj ) ~= 'table' and type( obj.new ) ~= 'function' then return end -- Exit if the object is invalid. 如果对象无效则退出。
self.calendars = self.calendars or {}
table.insert( self.calendars, obj )
end
-- Add an alias for adding calendar groups. The function is the same, but it might be confusing for users 添加用于添加日历组的别名。 功能相同，但可能会让用户感到困惑
-- to have to use the name "addCalendar" for a calendar group. 必须对日历组使用名称“添加日历”。
calendarBox.addCalendarGroup = calendarBox.addCalendar
function calendarBox:export()
-- Outputs the calendar box wikitext.输出日历框维基文本。
local root = mw.html.create( 'table' )
-- Export the calendar box headers.
root
:addClass( 'infobox vevent' )
:css( 'width', '16em' )
:css( 'font-size', '90%' )
:tag( 'caption' )
:css( 'font-size', '110%' )
:css( 'font-weight', 'bold' ) -- 中文维基不会自动加粗
:tag( 'span' )
:addClass( 'summary dtstart' )
:wikitext( self.caption )
-- Export the calendars and calendar groups. "calendar:export()" works for both kinds
-- 导出日历和日历组。 “日历:导出()”alendar:export()
-- 适用于两种类型的物体。 某些导出函数可能返回 空nil，因此我们需要检查这一点。
-- of objects. Some export functions can return nil, so we need to check for that.
if type( self.calendars ) == 'table' then
for _, calendar in ipairs( self.calendars ) do
local calendarText = calendar:export()
if type( calendarText ) == 'string' then
root
:css( 'white-space', 'nowrap' )
:wikitext( calendarText )
end
end
end
-- Add footnotes.添加脚注。
if type( self.footnotes ) == 'string' and self.footnotes ~= '' then
root
:tag( 'tr' )
:tag( 'td' )
:attr( 'colspan', '2' )
:wikitext( string.format( '<small>%s</small>', self.footnotes ) )
end
-- Add navbar.添加导航栏。
if type( self.navbar ) == 'string' and self.navbar ~= '' then
root
:tag( 'tr' )
:tag( 'td' )
:attr( 'colspan', '2' )
:css( 'text-align', 'center' )
:wikitext( require('Module:Navbar')._navbar{ self.navbar } )
end
return tostring( root )
end
--------------------------------------------------------------------
-- Calendar group class definition日历组类定义
--------------------------------------------------------------------
-- Calendar groups are used to group different calendars together. 日历组用于将不同的日历分组在一起。
-- Previously, the template did this by including a table row with 以前，模板通过包含没有年份值的表行来实现此目的。
-- no year value. By using objects we can do the same thing more 通过使用对象，我们可以更语义地完成同样的事情。
-- semantically.
local calendarGroup = {}
calendarGroup.__index = calendarGroup
function calendarGroup:new( init )
init = type( init ) == 'table' and init or {}
local obj = {}
-- Get the heading and throw an error if it is invalid.获取标题，如果无效则抛出错误。
obj.heading = init.heading
if type( obj.heading ) ~= 'string' then
error( 'calendarGroup: no heading detected' )
end
-- Set the metatable and return the object. 设置元表并返回对象。
self.__index = self
return setmetatable( obj, {
__index = self
})
end
function calendarGroup:addCalendar( calendar )
-- Adds a calendar object to the calendar group. 将日历对象添加到日历组。
self.calendars = self.calendars or {}
if type( calendar ) == 'table' and type( calendar.getLink ) == 'function' then
table.insert( self.calendars, calendar )
end
end
function calendarGroup:export()
-- Exports the calendar group's wikitext. 导出日历组的维基文本。
-- Indent and italicise each calendar's link if it exists. 每个日历的链接（如果存在）缩进并斜体。
for i, calendar in ipairs( self.calendars ) do
local link = calendar:getLink()
if type( link ) == 'string' then
self.calendars[ i ]:setRawLink( string.format( " - ''%s''", link ) )
end
end
-- Create the heading row html and export the calendar objects. 创建标题行 超文本标记语言 并导出日历对象。
local ret = mw.html.create()
ret
:tag( 'tr' )
:tag( 'td' )
:wikitext( self.heading )
:done()
:tag( 'td' ) -- Use a blank tag to make the html look nice. 使用空白标签使 超文本标记语言 看起来更漂亮。
:allDone()
for _, calendar in ipairs( self.calendars ) do
ret:wikitext( calendar:export() )
end
return tostring( ret )
end
--------------------------------------------------------------------
-- Calendar class definition 日历类定义
--------------------------------------------------------------------
local calendar = {}
calendar.__index = calendar
calendar.type = 'calendar'
function calendar:new()
local obj = {}
return setmetatable( obj, {
__index = self
})
end
function calendar:setLink( link, display )
-- Sets the calendar's wikilink, with optional display text and italics. 设置日历的维基链接，带有可选的显示文本和斜体。
if type( link ) ~= 'string' or link == '' then return end
display = type( display ) == 'string' and display ~= '' and display
if display then
self.link = string.format( '[[%s|%s]]', link, display )
else
self.link = string.format( '[[%s]]', link )
end
end
function calendar:setRawLink( s )
-- Sets the calendar's wikilink as raw wikitext.将日历的维基链接设置为原始维基文本。
if type( s ) ~= 'string' or s == '' then return end
self.link = s
end
function calendar:getLink()
-- Returns the calendar's link value.返回日历的链接值。
return self.link
end
function calendar:setYear( year )
-- Sets a single year. Can be passed either a string or a number.设置单一年份。 可以传递字符串或数字。
-- If passed as a number, it is formatted with minus signs instead of hyphens.如果作为数字传递，则其格式为减号而不是连字符。
-- If passed as a string, no minus-sign formatting occurs; this should be done in the individual calendar definitions.如果作为字符串传递，则不会出现减号格式； 这应该在单独的日历定义中完成。
if type( year ) == 'number' then
year = tostring( year )
self.year = formatNegative( year )
elseif type( year ) == 'string' then
self.year = year
end
end
function calendar:setYearRange( year1, year2 )
-- Sets a year range. Must be passed two numbers.设置年份范围。 必须传递两个数字。
if type( year1 ) == 'number' and type( year2 ) == 'number' then
local year
if year1 < 0 or year2 < 0 then -- Leave a gap for negative years to avoid having a minus sign and a dash right next to each other. 为负数年份留出一个间隙，以避免减号和破折号紧挨着。
year = string.format( '%d年－ %d年', year1, year2 )
year = formatNegative( year )
else
year = string.format( '%d年－%d年', year1, year2 )
end
self.year = year
end
end
function calendar:setYearCouple( year1, year2 )
-- Same as setYearRange, only with a slash (/) in the middle. Must be passed two numbers. 与 设置年份范围（setYearRange）相同，只是中间有一个斜线（/）。 必须传递两个数字。
-- Additional text possible, must be defined as follows: addtext = string.format( 'additional text or link')可能存在附加文本，必须定义如下：添加文本=字符串.格式() addtext = string.format( '附加文本或链接')
-- See example in Seleucid era calendar 参见塞琉古时代日历中的示例
if type( year1 ) == 'number' and type( year2 ) == 'number' then
local year
if year1 < 0 or year2 < 0 then -- Leave no gap for negative years. 负数年份不留间隙。
year = string.format( '%d/%d %s', year1, year2, addtext )
year = formatNegative( year )
else
year = string.format( '%d/%d %s', year1, year2, addtext )
end
self.year = year
end
end
function calendar:export()
-- Outputs the calendar wikitext.输出日历维基文本。
-- Exit if no link has been specified.如果未指定链接则退出。
local link = self.link
if type( link ) ~= 'string' or link == '' then return end
-- If no year has been specified, set the year value to N/A. 如果未指定年份，请将年份值设置为 不适用N/A。
local year = self.year
if type( year ) ~= 'string' or year == '' then
year = "''N/A''"
end
-- Build the table row. 构建表行。
local ret = mw.html.create()
ret
:tag( 'tr' )
:tag( 'td' )
:wikitext( link )
:done()
:tag( 'td' )
:wikitext( year )
:allDone()
return tostring( ret )
end
--------------------------------------------------------------------
-- Build the box 建造盒子
--------------------------------------------------------------------
local function makeCalendarBox( args )
-- Initiate the box and get the year values. 启动该框并获取年份值。
local init = args
init.navbar = 'Year in various calendars'
local box = calendarBox:new( init )
local year = box.year
local yearText = box.yearText
-- Set the caption. 设置标题。
box:setCaption( box.caption .. '年在多个[[纪年|历法]]中的表示' )
----------------------------------------------------------------------
-- Gregorian calendar 公历
----------------------------------------------------------------------
local gregorian = calendar:new()
gregorian:setLink( '公历' )
-- Get the year link. 获取年份链接。
local gregcal = args.gregcal
if type( gregcal ) == 'string' and gregcal ~= '' then
gregorian.yearLink = string.format( '[[%s|%s]]', gregcal, yearText )
else
gregorian.yearLink = yearText
end
-- Set the year. 设定年份。
gregorian.romanYear = numToRoman{ math.abs(year) } .. (year < 0 and ' BC' or '')
if gregorian.romanYear then
gregorian:setYear( string.format(
[[%s<br /><span style="font-family: serif;">''%s''</span>]],
gregorian.yearLink, gregorian.romanYear
) )
else
gregorian:setYear( gregorian.yearLink )
end
box:addCalendar( gregorian )
----------------------------------------------------------------------
-- French Republican calendar
-- displays only in years 1793 - 1805 and 1871
-- This calendar was in use and had defined years only for the short period on display.
-- Its importance during these few years is also the reason why it should stay out of the alphabetic order.
-- See discussion on talk page.
-- 法国共和历
-- 仅在 1793 - 1805 和 1871 年显示
-- 此日历正在使用中，并且仅在显示的短时间内定义了年份。
-- 这几年它的重要性也是它不应该按字母顺序排列的原因。
-- 请参阅讨论页面上的讨论。
----------------------------------------------------------------------
if year >= 1793 and year < 1806 or year == 1871 then
local republican = calendar:new()
republican:setLink('法國共和曆')
if year <= 1870 then
republican:setYearRange( year - 1792, year - 1791 )
elseif year == 1871 then
republican:setYear( year - 1792 ) -- Paris Commune, May 巴黎公社，五月
end
box:addCalendar( republican )
end
----------------------------------------------------------------------
-- Ab urbe condita
-- Varro's correlation, from 1 AUC
-- 罗马建城纪年
-- 馬庫斯·特倫提烏斯·瓦羅
----------------------------------------------------------------------
if year >= -752 then
local abUrbe = calendar:new()
abUrbe:setLink( '罗马建城纪年' )
abUrbe:setYear( year + 753 )
box:addCalendar( abUrbe )
end
----------------------------------------------------------------------
-- Ancient Egypt era 古埃及历史年表
-- Displays dynasty between 1549 BC and 30 BC
-- Displays pharaoh or king between 752 BC and 30 BC
----------------------------------------------------------------------
if year > -1549 and year <= -29 then
local ancEgypt = calendar:new()
ancEgypt:setLink(
'古埃及历史年表',
'Ancient Egypt era'
)
ancEgypt:setYear( getDynasty( year ) )
box:addCalendar( ancEgypt )
end
if year > - 752 and year <= -29 then
local ancPharaoh = calendar:new()
ancPharaoh:setLink(
'埃及法老列表',
'<i>- 法老</i>'
)
ancPharaoh:setYear( getPharaoh( year ) )
box:addCalendar( ancPharaoh )
end
----------------------------------------------------------------------
-- Ancient Olympiads 古代奥林匹克运动会
-- Currently only the first 194 Olympiads
-- May be expanded until 394 AD when data available 阿提卡曆 试着绿链 Module:Ilh
----------------------------------------------------------------------
if year >= -1300 and year < 1 then
local ancOlympiads = calendar:new()
ancOlympiads:setLink(
'Ancient Greek calendar',
'Ancient Greek era'
)
ancOlympiads:setYear( getOlympiad( year ) )
box:addCalendar( ancOlympiads )
ilh{en,'阿提卡曆','Attic calendar'}
end
----------------------------------------------------------------------
-- Armenian calendar
----------------------------------------------------------------------
if year > 551 then
local armenian = calendar:new()
armenian:setLink( '亚美尼亚历法' )
local armenianYear = year - 551
armenian:setYear( string.format( '%s<br />ԹՎ %s', armenianYear, numToArmenian( armenianYear ) ) )
box:addCalendar( armenian )
end
----------------------------------------------------------------------
-- Assyrian calendar
----------------------------------------------------------------------
local assyrian = calendar:new()
assyrian:setLink( '亞述曆' )
assyrian:setYear( year + 4750 )
box:addCalendar( assyrian )
----------------------------------------------------------------------
-- Bahá'í calendar
-- displays only after 1843
----------------------------------------------------------------------
if year >= 1844 then
local bahai = calendar:new()
bahai:setLink( "巴哈伊历法" )
bahai:setYearRange( year - 1844, year - 1843 )
box:addCalendar( bahai )
end
----------------------------------------------------------------------
-- Balinese saka calendar
----------------------------------------------------------------------
local balinese = calendar:new()
balinese:setLink( '巴厘島薩卡曆' )
if year - 76 > 0 then
balinese:setYearRange( year - 79, year - 78 )
end
box:addCalendar( balinese )
----------------------------------------------------------------------
-- Bengali calendar
----------------------------------------------------------------------
local bengali = calendar:new()
bengali:setLink( '孟加拉曆' )
bengali:setYear( year - 593 )
box:addCalendar( bengali )
----------------------------------------------------------------------
-- Berber calendar
----------------------------------------------------------------------
local berber = calendar:new()
berber:setLink( '柏柏爾曆' )
berber:setYear( year + 950 )
box:addCalendar( berber )
----------------------------------------------------------------------
-- Regnal year
----------------------------------------------------------------------
if year >= 1000 then
local regnal = calendar:new()
local regnalName
if year > 1706 then
regnalName = '英王' -- British
else
regnalName = 'English'
end
regnal:setLink( '英王在位纪年', regnalName .. '在位纪年' )
regnal:setYear( getRegnal( year ) )
box:addCalendar( regnal )
end
----------------------------------------------------------------------
-- Buddhist calendar
----------------------------------------------------------------------
local buddhist = calendar:new()
buddhist:setLink( '佛曆' )
buddhist:setYear( year + 544 )
box:addCalendar( buddhist )
----------------------------------------------------------------------
-- Burmese calendar
----------------------------------------------------------------------
local burmese = calendar:new()
burmese:setLink( '緬曆' )
burmese:setYear( year - 638 )
box:addCalendar( burmese )
----------------------------------------------------------------------
-- Byzantine calendar
----------------------------------------------------------------------
local byzantine = calendar:new()
byzantine:setLink( '拜占庭曆' )
byzantine:setYearRange( year + 5508, year + 5509 )
box:addCalendar( byzantine )
----------------------------------------------------------------------
-- Chinese calendar
----------------------------------------------------------------------
local chinese = calendar:new()
chinese:setLink( '農曆' )
-- Define the information for the "heavenly stems" and "earthly branches" year cycles.
-- See [[農曆#定年]] for information.
local heavenlyStems = {
{ '甲', '木' }, -- 1
{ '乙', '木' }, -- 2
{ '丙', '火' }, -- 3
{ '丁', '火' }, -- 4
{ '戊', '土' }, -- 5
{ '己', '土' }, -- 6
{ '庚', '金' }, -- 7
{ '辛', '金' }, -- 8
{ '壬', '水' }, -- 9
{ '癸', '水' } -- 10
}
local earthlyBranches = {
{ '子', '[[子 (地支)|子]]' }, -- 1
{ '丑', '[[丑 (地支)|丑]]' }, -- 2
{ '寅', '[[寅]]' }, -- 3
{ '卯', '[[卯]]' }, -- 4
{ '辰', '[[辰]]' }, -- 5
{ '巳', '[[巳]]' }, -- 6
{ '午', '[[午]]' }, -- 7
{ '未', '[[未]]' }, -- 8
{ '申', '[[申 (地支)|申]]' }, -- 9
{ '酉', '[[酉]]' }, -- 10
{ '戌', '[[戌]]' }, -- 11
{ '亥', '[[亥]]' } -- 12
}
-- Calculate the cycle numbers from the year. The first sexagenary year corresponds to the ''previous'' year's entry
-- in [[Chinese calendar correspondence table]], as the Chinese New Year doesn't happen until Jan/Feb in
-- Gregorian years.
local sexagenaryYear1 = ( year - 4 ) % 60
local sexagenaryYear2 = ( year - 3 ) % 60
local heavenlyNum1 = (sexagenaryYear1 - 1) % 10 + 1 -- amod, since lua arrays are 1-indexed
local heavenlyNum2 = (sexagenaryYear2 - 1) % 10 + 1
local earthlyNum1 = (sexagenaryYear1 - 1) % 12 + 1
local earthlyNum2 = (sexagenaryYear2 - 1) % 12 + 1
-- Get the data tables for each permutation.
local heavenlyTable1 = heavenlyStems[ heavenlyNum1 ]
local heavenlyTable2 = heavenlyStems[ heavenlyNum2 ]
local earthlyTable1 = earthlyBranches[ earthlyNum1 ]
local earthlyTable2 = earthlyBranches[ earthlyNum2 ]
-- Work out the continously-numbered year. (See [[:en:Chinese calendar#Continuous numbering]].)
local year1 = year + 2696
local year2 = year + 2697
local year1Alt = year1 - 60
local year2Alt = year2 - 60
-- Format any negative numbers.
year1 = formatNegative( tostring( year1 ) )
year2 = formatNegative( tostring( year2 ) )
year1Alt = formatNegative( tostring( year1Alt ) )
year2Alt = formatNegative( tostring( year2Alt ) )
-- Return all of that data in a (hopefully) reader-friendly format.
chinese:setYear( string.format(
[=[[[干支|%s%s]]年 <small>(%s %s)</small><br />%s / %s<br /> — 至 —<br />%s%s年 <small>(%s %s)</small><br />%s / %s]=],
heavenlyTable1[ 1 ],
earthlyTable1[ 1 ],
heavenlyTable1[ 2 ],
earthlyTable1[ 2 ],
year1,
year1Alt,
heavenlyTable2[ 1 ],
earthlyTable2[ 1 ],
heavenlyTable2[ 2 ],
earthlyTable2[ 2 ],
year2,
year2Alt
) )
box:addCalendar( chinese )
----------------------------------------------------------------------
-- Coptic calendar
----------------------------------------------------------------------
local coptic = calendar:new()
coptic:setLink( '科普特曆' )
coptic:setYearRange( year - 284, year - 283 )
box:addCalendar( coptic )
----------------------------------------------------------------------
-- Discordian calendar
----------------------------------------------------------------------
local discordian = calendar:new()
discordian:setLink( '不調和教曆' )
discordian:setYear( year + 1166 )
box:addCalendar( discordian )
----------------------------------------------------------------------
-- Ethiopian calendar
----------------------------------------------------------------------
local ethiopian = calendar:new()
ethiopian:setLink( '埃塞俄比亞曆' )
ethiopian:setYearRange( year - 8, year - 7 )
box:addCalendar( ethiopian )
----------------------------------------------------------------------
-- Hebrew calendar
----------------------------------------------------------------------
local hebrew = calendar:new()
hebrew:setLink( '希伯來曆' )
hebrew:setYearRange( year + 3760, year + 3761 )
box:addCalendar( hebrew )
----------------------------------------------------------------------
-- Hindu calendars
----------------------------------------------------------------------
local hindu = calendarGroup:new{ heading = '[[印度國定曆|印度曆]]' }
-- Vikram Samvat
local vikramSamvat = calendar:new()
vikramSamvat:setLink( '维克拉姆历' )
vikramSamvat:setYearRange( year + 56, year + 57 )
hindu:addCalendar( vikramSamvat )
-- Shaka Samvat
local shakaSamvat = calendar:new()
shakaSamvat:setLink( '印度國定曆', '薩卡曆' )
if year >= 78 then
shakaSamvat:setYearRange( year - 79, year - 78 )
end
hindu:addCalendar( shakaSamvat )
-- Kali Yuga
local kaliYuga = calendar:new()
kaliYuga:setLink( '争斗时' ) -- use italics
kaliYuga:setYearRange( year + 3100, year + 3101 )
hindu:addCalendar( kaliYuga )
box:addCalendarGroup( hindu )
----------------------------------------------------------------------
-- Holocene calendar
----------------------------------------------------------------------
local holocene = calendar:new()
holocene:setLink( '全新世紀年' )
holocene:setYear( year + 10000 )
box:addCalendar( holocene )
----------------------------------------------------------------------
-- Igbo calendar
----------------------------------------------------------------------
-- In the old template this was a calendar group with just one calendar; intentionally adding this as a single
-- calendar here, as the previous behaviour looked like a mistake.
if year >= 1000 then
local igbo = calendar:new()
igbo:setLink( '伊博曆' )
igbo:setYearRange( year - 1000, year - 999 )
box:addCalendar( igbo )
end
----------------------------------------------------------------------
-- Iranian calendar
----------------------------------------------------------------------
local iranian = calendar:new()
iranian:setLink( '伊朗曆' )
if year - 621 > 0 then
iranian:setYearRange( year - 622, year - 621 )
else
iranian:setYear( string.format( '%d BP – %d BP', 622 - year, 621 - year ) )
end
box:addCalendar( iranian )
----------------------------------------------------------------------
-- Islamic calendar
----------------------------------------------------------------------
local islamic = calendar:new()
islamic:setLink( '伊斯兰历' )
local islamicMult = 1.030684 -- the factor to multiply by
local islamicSub = 621.5643 -- the factor to subtract by
if year - 621 > 0 then
local year1 = math.floor( islamicMult * ( year - islamicSub ) )
local year2 = math.floor( islamicMult * ( year - islamicSub + 1 ) )
islamic:setYearRange( year1, year2 )
else
local year1 = math.ceil( -islamicMult * ( year - islamicSub ) )
local year2 = math.ceil( -islamicMult * ( year - islamicSub + 1 ) )
islamic:setYear( string.format( '%d BH – %d BH', year1, year2 ) )
end
box:addCalendar( islamic )
----------------------------------------------------------------------
-- Japanese calendar
-- starting 600
----------------------------------------------------------------------
if year >= 600 then
local japanese = calendar:new()
japanese:setLink( '和曆' )
japanese.thisEra = japaneseEra:new{ year = year }
if japanese.thisEra then
local japaneseYearText = {}
japanese.oldEra = japanese.thisEra:getOldEra()
if japanese.oldEra and japanese.oldEra.eraYear and japanese.thisEra.article ~= japanese.oldEra.article then
japanese.oldText = string.format( '%s%s年', japanese.oldEra.kanji, japanese.oldEra.eraYearKanji )
table.insert( japaneseYearText, japanese.oldText )
table.insert( japaneseYearText, ' / ' )
end
if japanese.thisEra.eraYear then
table.insert( japaneseYearText, string.format( '%s%s年', japanese.thisEra.kanji, japanese.thisEra.eraYearKanji ) )
-- 英文表述 table.insert( japaneseYearText, string.format( '%s %d', japanese.thisEra.link, japanese.thisEra.eraYear ) )
end
japanese:setYear( table.concat( japaneseYearText ) )
end
box:addCalendar( japanese )
end
----------------------------------------------------------------------
-- Javanese calendar
----------------------------------------------------------------------
local javanese = calendar:new()
javanese:setLink( '爪哇曆' )
local javaneseMult = 1.030684 -- the factor to multiply by
local javaneseSub = 124.9 -- the factor to subtract by
if year - 124 > 0 then
local year1 = math.floor( javaneseMult * ( year - javaneseSub ) )
local year2 = math.floor( javaneseMult * ( year - javaneseSub + 1 ) )
javanese:setYearRange( year1, year2 )
else
local year1 = math.ceil( -javaneseMult * ( year - javaneseSub ) )
local year2 = math.ceil( -javaneseMult * ( year - javaneseSub + 1 ) )
end
box:addCalendar( javanese )
----------------------------------------------------------------------
-- Juche calendar
-- displays only after 1910
----------------------------------------------------------------------
if year >= 1910 then
local juche = calendar:new()
juche:setLink( '主體曆' )
if year > 1911 then
juche:setYear( year - 1911 )
end
box:addCalendar( juche )
end
----------------------------------------------------------------------
-- Julian calendar
----------------------------------------------------------------------
local julian = calendar:new()
julian:setLink( '儒略曆' )
if year >= -45 and year < 1582 then
julian:setYear(gregorian.year)
elseif year >= 1582 then
local diff = math.floor(year/100-2) - math.floor(year/400)
if year % 100 == 0 and year % 400 ~= 0 then
julian:setYear('格里曆减' .. diff-1 .. ' or ' .. diff .. '天')
else
julian:setYear('格里曆减' .. diff .. '天')
end
end
box:addCalendar( julian )
----------------------------------------------------------------------
-- Korean calendar
----------------------------------------------------------------------
local korean = calendar:new()
korean:setLink( '檀君紀年' )
korean:setYear( year + 2333 )
box:addCalendar( korean )
----------------------------------------------------------------------
-- Minguo calendar
----------------------------------------------------------------------
local minguo = calendar:new()
minguo:setLink( '民國紀年' )
if year > 1949 then
local minguoYear = year - 1911
minguo:setYear( string.format( '[[中華民國|民國]]%d年', minguoYear ) )
elseif year > 1911 then
local minguoYear = year - 1911
minguo:setYear( string.format( '[[中華民國大陸時期]]|民國]]%d年', minguoYear ) )
else
local minguoYear = 1911 - year + 1
minguo:setYear( string.format( '民前%d年', minguoYear ) )
end
box:addCalendar( minguo )
----------------------------------------------------------------------
-- Nanakshahi calendar
----------------------------------------------------------------------
--local nanakshahi = calendar:new()
--nanakshahi:setLink( 'Nanakshahi calendar' ) -- 不会翻译＞﹏＜
--nanakshahi:setYear( year - 1468 )
--box:addCalendar( nanakshahi )
----------------------------------------------------------------------
-- Seleucid era
-- displays from 312 BC until 1200 AD
----------------------------------------------------------------------
if year >= -311 and year < 1200 then
local seleucid = calendar:new()
seleucid:setLink( '塞琉古紀年' )
addtext = string.format( '[[塞琉古紀年|AG]]') -- 英文 Anno Graecorum
seleucid:setYearCouple( year + 311, year + 312, addtext )
box:addCalendar( seleucid )
end
----------------------------------------------------------------------
-- Thai solar calendar
----------------------------------------------------------------------
local thai = calendar:new()
thai:setLink( '泰國曆' )
if year >= 1941 then
thai:setYear( year + 543 )
else -- if year >= 1912 or year <= 1887 -- year started in March/April
thai:setYearRange( year + 542, year + 543 )
-- else -- Rattanakosin Era, 1888?-1912
-- thai:setYear( string.format( '%d – %d <small>([[拉達那哥欣王國|Rattanakosin Era]])</small>', year - 1782 , year - 1781 ) )
end
box:addCalendar( thai )
----------------------------------------------------------------------
-- Tibetan calendar
----------------------------------------------------------------------
local tibetan = calendar:new()
tibetan:setLink( '藏曆' )
-- Define the information for the "heavenly stems" and "earthly branches" year cycles.
-- See [[Tibetan calendar#Years]] for information.
local heavenlyStems = {
{ '阳木', '阳木' }, -- 1
{ '阴木', '阴木' }, -- 2
{ '阳火', '阳火' }, -- 3
{ '阴火', '阴火' }, -- 4
{ '阳土', '阳土' }, -- 5
{ '阴土', '阴土' }, -- 6
{ '阳金', '阳金' }, -- 7
{ '阴金', '阴金' }, -- 8
{ '阳水', '阳水' }, -- 9
{ '阴水', '阴水' } -- 10
}
local earthlyBranches = {
{ '鼠', '鼠' }, -- 1
{ '牛', '牛' }, -- 2
{ '虎', '虎' }, -- 3
{ '兔', '兔' }, -- 4
{ '龙', '龙' }, -- 5
{ '蛇', '蛇' }, -- 6
{ '马', '马' }, -- 7
{ '羊', '羊' }, -- 8
{ '猴', '猴' }, -- 9
{ '鸡', '鸡' }, -- 10
{ '狗', '狗' }, -- 11
{ '猪', '猪' } -- 12
}
-- Calculate the cycle numbers from the year. The first sexagenary year corresponds to the ''previous'' year's entry
-- in [[Tibetan calendar correspondence table]], as the Tibetan New Year doesn't happen until Feb/Mar in
-- Gregorian years.
local sexagenaryYear1 = ( year - 4 ) % 60
local sexagenaryYear2 = ( year - 3 ) % 60
local heavenlyNum1 = (sexagenaryYear1 - 1) % 10 + 1 -- amod, since lua arrays are 1-indexed
local heavenlyNum2 = (sexagenaryYear2 - 1) % 10 + 1
local earthlyNum1 = (sexagenaryYear1 - 1) % 12 + 1
local earthlyNum2 = (sexagenaryYear2 - 1) % 12 + 1
-- Get the data tables for each permutation.
local heavenlyTable1 = heavenlyStems[ heavenlyNum1 ]
local heavenlyTable2 = heavenlyStems[ heavenlyNum2 ]
local earthlyTable1 = earthlyBranches[ earthlyNum1 ]
local earthlyTable2 = earthlyBranches[ earthlyNum2 ]
-- Work out the continously-numbered year. (See [[藏曆#纪年法]].)
local year1 = year + 126
local year2 = year + 127
local year1Alt1 = year1 - 381
local year1Alt2 = year1 - 1153
local year2Alt1 = year2 - 381
local year2Alt2 = year2 - 1153
-- Format any negative numbers.
year1 = formatNegative( tostring( year1 ) )
year2 = formatNegative( tostring( year2 ) )
year1Alt1 = formatNegative( tostring( year1Alt1 ) )
year1Alt2 = formatNegative( tostring( year1Alt2 ) )
year2Alt1 = formatNegative( tostring( year2Alt1 ) )
year2Alt2 = formatNegative( tostring( year2Alt2 ) )
-- Return all of that data in a (hopefully) reader-friendly format.
tibetan:setYear( string.format(
[=[%s[[生肖|%s]]年<br />%s / %s / %s<br /> — 至 —<br />%s%s年<br />%s / %s / %s]=],
heavenlyTable1[ 1 ],
earthlyTable1[ 1 ],
year1,
year1Alt1,
year1Alt2,
heavenlyTable2[ 1 ],
earthlyTable2[ 1 ],
year2,
year2Alt1,
year2Alt2
) )
box:addCalendar( tibetan )
----------------------------------------------------------------------
-- Unix time
----------------------------------------------------------------------
local unix = calendar:new()
local function getUnixTime( year )
if year < 1970 then return end
if year > 2039 then return end
if year == 2039 then
-- Y2K38 bug
return "[[2038年问题|-2117492897]]"
end
local noError, unixTime = pcall( lang.formatDate, lang, 'U', '1 Jan ' .. tostring( year ) )
if not noError or noError and not unixTime then return end
unixTime = tonumber( unixTime )
if unixTime and unixTime >= 0 then
return unixTime - 1
end
end
unix.thisYear = getUnixTime( year )
unix.nextYear = getUnixTime( year + 1 )
if unix.thisYear and unix.nextYear then
unix:setLink( 'UNIX时间' )
unix:setYear( string.format( '%s－<br />%s', unix.thisYear + 1, unix.nextYear ) )
end
box:addCalendar( unix )
return box:export()
end
--------------------------------------------------------------------
-- Process arguments from #invoke
--------------------------------------------------------------------
local p = {}
function p.main( frame )
-- Process the arguments and pass them to the box-building function.
local args = getArgs( frame )
-- Pass year argument with 'year' parameter or without any name but first argument
args.year = args.year or args[1]
return makeCalendarBox( args )
end
return p
