3 887
contributi
Nessun oggetto della modifica |
m (una versione importata) |
||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 1: | Riga 1: | ||
--[[ | --[[ | ||
__ __ _ _ ____ _ _ | __ __ _ _ ____ _ _ | ||
| \/ | ___ __| |_ _| | ___ _ / ___|___ _ __ ___ _ __ | | _____ __ __| | __ _| |_ ___ | | \/ | ___ __| |_ _| | ___ _ / ___|___ _ __ ___ _ __ | | _____ __ __| | __ _| |_ ___ | ||
| |\/| |/ _ \ / _` | | | | |/ _ (_) | / _ \| '_ ` _ \| '_ \| |/ _ \ \/ / / _` |/ _` | __/ _ \ | | |\/| |/ _ \ / _` | | | | |/ _ (_) | / _ \| '_ ` _ \| '_ \| |/ _ \ \/ / / _` |/ _` | __/ _ \ | ||
| | | | (_) | (_| | |_| | | __/_| |__| (_) | | | | | | |_) | | __/> < | (_| | (_| | || __/ | | | | | (_) | (_| | |_| | | __/_| |__| (_) | | | | | | |_) | | __/> < | (_| | (_| | || __/ | ||
|_| |_|\___/ \__,_|\__,_|_|\___(_)\____\___/|_| |_| |_| .__/|_|\___/_/\_\ \__,_|\__,_|\__\___| | |_| |_|\___/ \__,_|\__,_|_|\___(_)\____\___/|_| |_| |_| .__/|_|\___/_/\_\ \__,_|\__,_|\__\___| | ||
|_| | |_| | ||
This module is intended for creation of complex date phrases in variety of languages. | This module is intended for creation of complex date phrases in variety of languages. | ||
Once deployed, please do not modify this code without applying the changes first at Module:Complex date/sandbox and testing | Once deployed, please do not modify this code without applying the changes first at Module:Complex date/sandbox and testing | ||
at Module:Complex date/sandbox/testcases. | at Module:Complex date/sandbox/testcases. | ||
Authors and maintainers: | Authors and maintainers: | ||
* User:Sn1per - first draft of the original version | * User:Sn1per - first draft of the original version | ||
* User:Jarekt - corrections and expansion of the original version | * User:Jarekt - corrections and expansion of the original version | ||
]] | ]] | ||
Riga 21: | Riga 21: | ||
local i18n = require('Module:i18n/complex date') -- used for translations of date related phrases | local i18n = require('Module:i18n/complex date') -- used for translations of date related phrases | ||
local ISOdate = require('Module:ISOdate')._ISOdate -- used for parsing dates in YYYY-MM-DD and related formats | local ISOdate = require('Module:ISOdate')._ISOdate -- used for parsing dates in YYYY-MM-DD and related formats | ||
local Calendar -- loaded lazily | |||
local Calendar | |||
-- ================================================== | -- ================================================== | ||
-- === Internal functions =========================== | -- === Internal functions =========================== | ||
-- ================================================== | -- ================================================== | ||
local function langSwitch(list, lang) | local function langSwitch(list,lang) | ||
local langList = mw.language.getFallbacksFor(lang) | local langList = mw.language.getFallbacksFor(lang) | ||
table.insert(langList, 1, lang) | table.insert(langList,1,lang) | ||
table.insert(langList, math.max(#langList, 2), 'default') | table.insert(langList,math.max(#langList,2),'default') | ||
for i,language in ipairs(langList) do | for i,language in ipairs(langList) do | ||
if list[language] then | if list[language] then | ||
Riga 44: | Riga 38: | ||
end | end | ||
-- | -- ================================================== | ||
local function formatnum1(numStr, lang) | local function formatnum1(numStr, lang) | ||
-- mostly require('Module:Formatnum').formatNum function used to translate a number to use different numeral characters, | |||
-- except that it it does not call that function unless the language is on the list "LList" | |||
local LList = {bn=1,bpy=1,kn=1,hi=1,mr=1,new=1,pa=1,gu=1,fa=1,glk=1,mzn=1,ur=1,ar=1,ckb=1,ks=1,lo=1,['or']=1,bo=1,['ml-old']=1,mn=1,te=1,th=1} | |||
if LList[lang] then -- call only when the language is on the list | if LList[lang] then -- call only when the language is on the list | ||
numStr = | numStr = require('Module:Formatnum').formatNum(numStr, lang, 1) | ||
end | end | ||
return numStr | return numStr | ||
end | end | ||
-- ================================================== | |||
local function getISODate(datestr, datetype, lang, num, case) | local function getISODate(datestr, datetype, lang, num, case) | ||
-- translate dates in the format YYYY, YYYY-MM, and YYYY-MM-DD | -- translate dates in the format YYYY, YYYY-MM, and YYYY-MM-DD | ||
Riga 89: | Riga 55: | ||
-- look up the grammatical case needed and call ISOdate module | -- look up the grammatical case needed and call ISOdate module | ||
local rec = langSwitch(i18n.Translations[datetype], lang) | local rec = langSwitch(i18n.Translations[datetype], lang) | ||
if type(rec) == 'table' then | if type(rec)=='table' then | ||
case = rec.case[num] | case = rec.case[num] | ||
end | end | ||
Riga 96: | Riga 62: | ||
end | end | ||
-- ======================================================================= | |||
local function translatePhrase(date1, date2, operation, lang, state) | local function translatePhrase(date1, date2, operation, lang, state) | ||
-- use tables in Module:i18n/complex date to translate a phrase | -- use tables in Module:i18n/complex date to translate a phrase | ||
if not i18n.Translations[operation] then | if not i18n.Translations[operation] then | ||
p.Error = | p.Error = string.format('<span style="background-color:red;">Error in [[Module:Complex date]]: input parameter "%s" is not recognized.</span>', operation or 'nil') | ||
return '' | return '' | ||
end | end | ||
local dateStr = langSwitch(i18n.Translations[operation], lang) | local dateStr = langSwitch(i18n.Translations[operation], lang) | ||
if type(dateStr) == 'table' then | if type(dateStr)=='table' then | ||
dateStr = dateStr[1] | dateStr = dateStr[1] | ||
end | end | ||
if type(dateStr) == 'function' then | if type(dateStr)=='function' then | ||
local | local dateFunc = dateStr | ||
local nDates = i18n.Translations[operation]['nDates'] | local nDates = i18n.Translations[operation]['nDates'] | ||
if nDates == 2 then -- | if nDates==2 then -- 2 date phrase | ||
dateStr = dateFunc(date1, date2, state) | |||
else -- | else -- 1 date phrase | ||
dateStr = dateFunc(date1, state) | |||
end | end | ||
end | end | ||
if type(dateStr) == 'string' then | |||
if type(dateStr)=='string' then | |||
-- replace parts of the string '$date1' and '$date2' with date1 and date2 strings | -- replace parts of the string '$date1' and '$date2' with date1 and date2 strings | ||
dateStr = mw.ustring.gsub(dateStr, '$date1', date1) | dateStr = mw.ustring.gsub(dateStr, '$date1', date1) | ||
Riga 128: | Riga 96: | ||
end | end | ||
-- ======================================================================= | |||
local function oneDatePhrase(dateStr, adj, era, units, lang, num, case, state) | local function oneDatePhrase(dateStr, adj, era, units, lang, num, case, state) | ||
-- translate a single date phrase | -- translate a single date phrase | ||
if num == 2 then | if num==2 then | ||
state.adj, state.era, state.units, state.precision = state.adj2, state.era2, state.units2, state.precision2 | state.adj, state.era, state.units, state.precision = state.adj2, state.era2, state.units2, state.precision2 | ||
end | end | ||
-- dateStr can have many forms: ISO date, year or a number for | |||
-- dateStr can have many forms: ISO date, year or a number for | |||
-- decade, century or millennium | -- decade, century or millennium | ||
if units == '' then -- unit is "year", "month", "day" | if units == '' then -- unit is "year", "month", "day" | ||
Riga 140: | Riga 110: | ||
dateStr = translatePhrase(dateStr, '', units, lang, state) | dateStr = translatePhrase(dateStr, '', units, lang, state) | ||
end | end | ||
-- add adjective ("early", "mid", etc.) or preposition ("before", "after", | |||
-- add adjective ("early", "mid", etc.) or preposition ("before", "after", | |||
-- "circa", etc.) to the date | -- "circa", etc.) to the date | ||
if adj ~= '' then | if adj ~= '' then | ||
Riga 147: | Riga 118: | ||
dateStr = formatnum1(dateStr, lang) | dateStr = formatnum1(dateStr, lang) | ||
end | end | ||
-- add era | -- add era | ||
if era ~= '' then | if era ~= '' then | ||
Riga 154: | Riga 126: | ||
end | end | ||
-- ======================================================================= | |||
local function twoDatePhrase(date1, date2, state, lang) | local function twoDatePhrase(date1, date2, state, lang) | ||
-- translate a double date phrase | -- translate a double date phrase | ||
local dateStr, case | local dateStr, case | ||
local era = '' | local era='' | ||
if state.era1 == state.era2 then | if state.era1 == state.era2 then | ||
-- if both eras are the same than add it only once | -- if both eras are the same than add it only once | ||
Riga 180: | Riga 153: | ||
end | end | ||
-- ======================================================================= | |||
local function otherPhrases(date1, date2, operation, era, lang, state) | local function otherPhrases(date1, date2, operation, era, lang, state) | ||
-- translate specialized phrases | -- translate specialized phrases | ||
local dateStr = '' | local dateStr = '' | ||
if operation == 'islamic' then | if operation == 'islamic' then | ||
if date2 == '' then | if date2=='' then date2 = mw.getCurrentFrame():callParserFunction('#time', 'xmY', date1) end | ||
date1 = getISODate(date1, operation, lang, 1, nil) | date1 = getISODate(date1, operation, lang, 1, nil) | ||
date2 = getISODate(date2, operation, lang, 2, nil) | date2 = getISODate(date2, operation, lang, 2, nil) | ||
if era == '' then era = 'ad' end | if era == '' then era = 'ad' end | ||
dateStr = translatePhrase(date1, '', era, lang, state) | dateStr = translatePhrase(date1, '', era, lang, state) .. ' (' .. translatePhrase(date2, '', 'ah', lang, state) .. ')' | ||
era = '' | era = '' | ||
elseif operation == 'julian' then | elseif operation == 'julian' then | ||
if not date2 and date1 then -- Convert from Julian to Gregorian calendar date | if not date2 and date1 then -- Convert from Julian to Gregorian calendar date | ||
if Calendar == nil then | |||
Calendar = require("Module:Calendar") -- lazy loding (only if needed) | |||
end | |||
local JDN = Calendar._date2jdn(date1, 0) | local JDN = Calendar._date2jdn(date1, 0) | ||
if JDN then | if JDN then | ||
Riga 204: | Riga 179: | ||
date2 = getISODate(date2, operation, lang, 2, nil) | date2 = getISODate(date2, operation, lang, 2, nil) | ||
dateStr = translatePhrase(date1, date2, operation, lang, state) | dateStr = translatePhrase(date1, date2, operation, lang, state) | ||
dateStr = | dateStr = mw.ustring.gsub(mw.ustring.gsub(dateStr, '%( ', '('), ' %)', ')') -- in case date2 is empty | ||
elseif operation == 'turn of the year' | elseif operation == 'turn of the year' or operation == 'turn of the decade' or operation == 'turn of the century' then | ||
local dt = 1 | |||
if operation == 'turn of the decade' then dt=10 end | |||
if not date2 or date2=='' then date2=tostring(tonumber(date1)-dt) end | |||
if era~='bp' and era~='bc' then date1, date2 = date2, date1 end | |||
if era ~= 'bp' and era ~= 'bc' then | |||
if operation == 'turn of the year' then | if operation == 'turn of the year' then | ||
date1 = ISOdate(date1, lang, '', '', 1) | date1 = ISOdate(date1, lang, '', '', 1) | ||
Riga 224: | Riga 194: | ||
dateStr = translatePhrase(date1, date2, operation, lang, state) | dateStr = translatePhrase(date1, date2, operation, lang, state) | ||
elseif operation == 'year unknown' then | elseif operation == 'year unknown' then | ||
dateStr = translatePhrase('', '', operation, lang, state) .. '< | dateStr = translatePhrase('', '', operation, lang, state) .. '<div style="display: none;">Unknown date</div>' | ||
elseif operation == 'unknown' then | elseif operation == 'unknown' then | ||
dateStr = tostring(mw.message.new("exif-unknowndate"):inLanguage(lang)) .. '< | dateStr = tostring(mw.message.new( "exif-unknowndate" ):inLanguage( lang )) .. '<div style="display: none;">Unknown date</div>' | ||
end | end | ||
-- add era | -- add era | ||
if era ~= '' then | if era ~= '' then | ||
Riga 235: | Riga 206: | ||
end | end | ||
-- ======================================================================= | |||
local function checkAliases(str1, str2, sType) | local function checkAliases(str1, str2, sType) | ||
-- some inputs have many aliases - reconcile them and ensure string is playing a proper role | |||
local out = '' | local out = '' | ||
if str1 and str1 ~= '' then | if str1 and str1~='' then | ||
local a = i18n.Synonyms[str1] -- look up synonyms of "str1" | local a = i18n.Synonyms[str1] -- look up synonyms of "str1" | ||
if a then | if a then | ||
out = a[1] | out = a[1] | ||
else | else | ||
p.Error = | p.Error = string.format('<span style="background-color:red;">Error in [[Module:Complex date]]: %s is not recognized.</span>', str1) | ||
end | end | ||
elseif str2 and str2 ~= '' then -- if "str1" of type "sType" is empty than maybe ... | elseif str2 and str2~='' then -- if "str1" of type "sType" is empty than maybe ... | ||
local a = i18n.Synonyms[str2] -- ..."str2" is of the same type and is not empty | local a = i18n.Synonyms[str2] -- ..."str2" is of the same type and is not empty | ||
if a and a[2] == sType then | if a and a[2]==sType then | ||
out = a[1] | out = a[1] | ||
str2 = '' | str2 = '' | ||
Riga 255: | Riga 227: | ||
end | end | ||
local function datePrecision(dateStr, units) | -- ======================================================================= | ||
local function datePrecision(dateStr, units) | |||
-- "in this module "Units" is a string like millennium, century, or decade | -- "in this module "Units" is a string like millennium, century, or decade | ||
-- "precision" is wikibase compatible date precision number: 6=millennium, 7=century, 8=decade, 9=year, 10=month, 11=day | -- "precision" is wikibase compatible date precision number: 6=millennium, 7=century, 8=decade, 9=year, 10=month, 11=day | ||
-- based on string or numeric input calculate "Units" and "precision" | -- based on string or numeric input calculate "Units" and "precision" | ||
local precision | local precision | ||
if type(units)=='number' then | |||
if type(units) == 'number' then | |||
precision = units | precision = units | ||
if precision > 11 | if precision>11 then precision=11 end -- clip the range of precision values | ||
if precision == 6 then units = 'millennium' | if precision==6 then units='millennium' | ||
elseif precision == 7 then units = 'century' | elseif precision==7 then units='century' | ||
elseif precision == 8 then units = 'decade' | elseif precision==8 then units='decade' | ||
else | else units = '' | ||
end | end | ||
elseif type(units) == 'string' then | elseif type(units)=='string' then | ||
units = string.lower(units) | units = string.lower(units) | ||
if units == 'millennium' then precision = 6 | if units=='millennium' then precision=6 | ||
elseif units == 'century' then precision = 7 | elseif units=='century' then precision=7 | ||
elseif units == 'decade' then precision = 8 | elseif units=='decade' then precision=8 | ||
else | else precision=9 | ||
end | end | ||
end | end | ||
if units == '' | if units=='' or precision==9 then | ||
local sLen = mw.ustring.len(dateStr) | local sLen = mw.ustring.len(dateStr) | ||
if sLen <= | if sLen<= 4 then precision=9 | ||
elseif sLen == | elseif sLen== 7 then precision=10 | ||
elseif sLen >= 10 then precision = 11 | elseif sLen>=10 then precision=11 | ||
end | end | ||
units='' | units='' | ||
end | end | ||
if precision == 6 and dateStr.match(dateStr, '%d000') ~= nil then | if precision==6 and dateStr.match( dateStr, '%d000' )~=nil then | ||
dateStr = tostring(math.floor(tonumber(dateStr) / 1000) + 1) | dateStr = tostring(math.floor(tonumber(dateStr)/1000) +1) | ||
elseif precision == 7 and mw.ustring.match(dateStr, '%d%d00') ~= nil then | elseif precision==7 and mw.ustring.match( dateStr, '%d%d00' )~=nil then | ||
dateStr = tostring(math.floor(tonumber(dateStr) / 100) + 1) | dateStr = tostring(math.floor(tonumber(dateStr)/100) +1) | ||
end | end | ||
return dateStr, units, precision | return dateStr, units, precision | ||
end | end | ||
-- ======================================================================= | |||
local function isodate2timestamp(dateStr, precision, era) | local function isodate2timestamp(dateStr, precision, era) | ||
-- convert date string to timestamps used by Quick Statements | -- convert date string to timestamps used by Quick Statements | ||
if precision < 6 then | local tStamp = nil | ||
if era == 'ah' or precision<6 then | |||
return nil | return nil | ||
elseif era ~= '' then | |||
local eraLUT = {ad='+', bc='-', bp='-' } | |||
era = eraLUT[era] | |||
else | |||
era='+' | |||
end | end | ||
-- convert isodate to timestamp used by quick statements | |||
if precision>=9 then | |||
if string.match(dateStr,"^%d%d%d%d$") then -- if YYYY format | |||
if precision >= 9 then | |||
if string.match(dateStr,"^%d%d%d%d$") then -- if YYYY format | |||
tStamp = era .. dateStr .. '-00-00T00:00:00Z/9' | tStamp = era .. dateStr .. '-00-00T00:00:00Z/9' | ||
elseif string.match(dateStr,"^%d%d%d%d%-%d%d$") then -- if YYYY-MM format | elseif string.match(dateStr,"^%d%d%d%d%-%d%d$") then -- if YYYY-MM format | ||
tStamp = era .. dateStr .. '-00T00:00:00Z/10' | tStamp = era .. dateStr .. '-00T00:00:00Z/10' | ||
elseif string.match(dateStr,"^%d%d%d%d%-%d%d%-%d%d$") then -- if YYYY-MM-DD format | elseif string.match(dateStr,"^%d%d%d%d%-%d%d%-%d%d$") then -- if YYYY-MM-DD format | ||
tStamp = era .. dateStr .. 'T00:00:00Z/11' | tStamp = era .. dateStr .. 'T00:00:00Z/11' | ||
end | end | ||
elseif precision == 8 then -- decade | elseif precision==8 then -- decade | ||
tStamp = era .. dateStr .. '-00-00T00:00:00Z/8' | tStamp = era .. dateStr .. '-00-00T00:00:00Z/8' | ||
elseif precision == 7 then -- century | elseif precision==7 then -- century | ||
local d = tostring(tonumber(dateStr) - 1) | local d = tostring(tonumber(dateStr)-1) | ||
tStamp = era .. d .. '50-00-00T00:00:00Z/7' | tStamp = era .. d .. '50-00-00T00:00:00Z/7' | ||
elseif precision == 6 then | elseif precision==6 then | ||
local d = tostring(tonumber(dateStr) - 1) | local d = tostring(tonumber(dateStr)-1) | ||
tStamp = era .. d .. '500-00-00T00:00:00Z/6' | tStamp = era .. d .. '500-00-00T00:00:00Z/6' | ||
end | end | ||
return tStamp | return tStamp | ||
end | end | ||
-- ======================================================================= | |||
local function oneDateQScode(dateStr, adj, era, precision) | local function oneDateQScode(dateStr, adj, era, precision) | ||
-- create QuickStatements string for "one date" dates | -- create QuickStatements string for "one date" dates | ||
local outputStr = '' | local outputStr = '' | ||
local d = isodate2timestamp(dateStr, precision, era) | local d = isodate2timestamp(dateStr, precision, era) | ||
if not d then | if not d then | ||
return '' | return '' | ||
end | end | ||
local | local rLUT = { early='Q40719727' , mid='Q40719748', late='Q40719766', | ||
if adj == '' then | ['1quarter']='Q40690303' , ['2quarter']='Q40719649' , ['3quarter']='Q40719662', ['4quarter']='Q40719674', | ||
spring='Q40720559' , summer='Q40720564' , autumn='Q40720568' , winter='Q40720553', | |||
firsthalf='Q40719687', secondhalf='Q40719707' } | |||
local qLUT = {['from']='P580', ['until']='P582', ['after']='P1319', ['before']='P1326', ['by']='P1326'} | |||
local refine = rLUT[adj] | |||
local qualitier = qLUT[adj] | |||
if adj=='' then | |||
outputStr = d | outputStr = d | ||
elseif adj == 'circa' then | elseif adj=='circa' then | ||
outputStr = d .. | outputStr = d..",P1480,Q5727902" | ||
elseif | elseif refine then | ||
outputStr = d .. | outputStr = d..",P4241,"..refine | ||
elseif | elseif precision>7 and qualitier then | ||
local century = string.gsub(d, 'Z%/%d+', 'Z/7') | local century = string.gsub(d, 'Z%/%d+', 'Z/7') | ||
outputStr = century .. | outputStr = century ..",".. qualitier ..","..d | ||
end | end | ||
return outputStr | return outputStr | ||
end | end | ||
-- ======================================================================= | |||
local function twoDateQScode(date1, date2, state) | local function twoDateQScode(date1, date2, state) | ||
-- create QuickStatements string for "two date" dates | -- create QuickStatements string for "two date" dates | ||
if state.adj1 ~= '' | if state.adj1~='' or state.adj2~='' or state.era1~=state.era2 then | ||
return '' -- QuickStatements string are not generated for two date phrases with adjectives | return '' -- QuickStatements string are not generated for two date phrases with adjectives | ||
end | end | ||
Riga 374: | Riga 341: | ||
local d1 = isodate2timestamp(date1, state.precision1, state.era1) | local d1 = isodate2timestamp(date1, state.precision1, state.era1) | ||
local d2 = isodate2timestamp(date2, state.precision2, state.era2) | local d2 = isodate2timestamp(date2, state.precision2, state.era2) | ||
if not d1 or not d2 then | if (not d1) or (not d2) then | ||
return '' | return '' | ||
end | end | ||
-- find date with lower precision in common to both dates | -- find date with lower precision in common to both dates | ||
local cd | local cd | ||
local year1 = tonumber(string.sub(d1, 2, 5)) | local year1 = tonumber(string.sub(d1,2,5)) | ||
local year2 = tonumber(string.sub(d2, 2, 5)) | local year2 = tonumber(string.sub(d2,2,5)) | ||
local k = 0 | local k = 0 | ||
for i = 1, 10, 1 do | for i = 1,10,1 do | ||
if string.sub(d1, 1, i) == string.sub(d2, 1, i) then | if string.sub(d1,1,i)==string.sub(d2,1,i) then | ||
k = i -- find last matching letter | k = i -- find last matching letter | ||
end | end | ||
end | end | ||
if k >= 9 then | if k>=9 then -- same month, since "+YYYY-MM-" is in common | ||
cd = isodate2timestamp(string.sub(d1, 2, 8), 10, state.era1) | cd = isodate2timestamp(string.sub(d1,2,8), 10, state.era1) | ||
elseif k >= 6 and k < 9 then -- same year, since "+YYYY-" is in common | elseif k>=6 and k<9 then -- same year, since "+YYYY-" is in common | ||
cd = isodate2timestamp(tostring(year1), 9, state.era1) | cd = isodate2timestamp(tostring(year1), 9, state.era1) | ||
elseif k == 4 then | elseif k==4 then -- same decade(k=4, precision=8), since "+YYY" is in common | ||
cd = isodate2timestamp(tostring(year1), 8, state.era1) | cd = isodate2timestamp(tostring(year1), 8, state.era1) | ||
elseif k == 3 then | elseif k==3 then -- same century(k=3, precision=7) since "+YY" is in common | ||
local d = tostring(math.floor(year1 / 100) + 1) -- convert 1999 -> 20 | local d = tostring(math.floor(year1/100) +1) -- convert 1999 -> 20 | ||
cd = isodate2timestamp(d, 7, state.era1) | cd = isodate2timestamp( d, 7, state.era1) | ||
elseif k == 2 then | elseif k==2 then -- same millennium (k=2, precision=6), since "+Y" is in common | ||
local d = tostring(math.floor(year1 / 1000) + 1) -- convert 1999 -> 2 | local d = tostring(math.floor(year1/1000) +1) -- convert 1999 -> 2 | ||
cd = isodate2timestamp(d, 6, state.era1) | cd = isodate2timestamp( d, 6, state.era1) | ||
end | end | ||
if not cd then | if not cd then | ||
Riga 404: | Riga 371: | ||
end | end | ||
--if not cd then | --if not cd then | ||
-- return | -- return ' <br/>error: ' .. d1.." / " .. d2.." / ".. (cd or '') .." / ".. string.sub(d1,2,5).." / " .. string.sub(d2,2,5).." / " .. tostring(k) | ||
--end | --end | ||
if state.conj == 'from-until' | |||
-- | |||
outputStr = cd .. | if (state.conj=='from-until') or (state.conj=='and' and year1==year2-1) then | ||
elseif state.conj == 'between' | outputStr = cd ..",P580,".. d1 ..",P582,".. d2 | ||
elseif (state.conj=='between') or (state.conj=='or' and year1==year2-1) then | |||
outputStr = cd .. | outputStr = cd ..",P1319,".. d1 ..",P1326,".. d2 | ||
elseif state.conj == 'circa2' then | elseif state.conj=='circa2' then | ||
outputStr = cd .. | outputStr = cd ..",P1319,".. d1 ..",P1326,".. d2 ..",P1480,Q5727902" | ||
end | end | ||
return outputStr | return outputStr | ||
end | end | ||
-- ============================================ | -- ======================================================================= | ||
local function processInputParams(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, lang, passNr) | |||
-- process inputs and save date in state array | -- process inputs and save date in state array | ||
local state = {} | local state = {} | ||
state.conj = string.lower(conj or '') | state.conj = string.lower(conj or '') | ||
state.adj1 = string.lower(adj1 or '') | state.adj1 = string.lower(adj1 or '') | ||
Riga 453: | Riga 398: | ||
state.units1 = string.lower(units1 or '') | state.units1 = string.lower(units1 or '') | ||
state.units2 = string.lower(units2 or '') | state.units2 = string.lower(units2 or '') | ||
-- if date 1 is missing but date 2 is provided than swap them | -- if date 1 is missing but date 2 is provided than swap them | ||
if date1 == '' and date2 ~= '' then | if date1 == '' and date2 ~= '' then | ||
date1 = date2 | date1 = date2 | ||
date2 = '' | date2 = '' | ||
state = { | state = {adj1 = state.adj2, era1 = state.era2, units1 = state.units2, | ||
adj2 = '', era2 = '', units2 = '', conj=state.conj, num=1} | |||
end | end | ||
if date2 ~= '' then state.nDates = 2 | if date2 ~= '' then state.nDates = 2 | ||
elseif date1 ~= '' then state.nDates = 1 | elseif date1 ~= '' then state.nDates = 1 | ||
else | else state.nDates = 0 | ||
end | end | ||
-- reconcile alternative names for text inputs | -- reconcile alternative names for text inputs | ||
local conj = checkAliases(state.conj ,'' ,'j') | local conj = checkAliases(state.conj ,'' ,'j') | ||
Riga 477: | Riga 422: | ||
state.conj = conj | state.conj = conj | ||
state.lang = lang | state.lang = lang | ||
if p.Error ~= nil then | if p.Error~=nil then | ||
return nil | return nil | ||
end | end | ||
-- calculate date precision value | -- calculate date precision value | ||
date1, state.units1, state.precision1 = datePrecision(date1, state.units1) | date1, state.units1, state.precision1 = datePrecision(date1, state.units1) | ||
date2, state.units2, state.precision2 = datePrecision(date2, state.units2) | date2, state.units2, state.precision2 = datePrecision(date2, state.units2) | ||
-- Handle special cases | |||
-- Some complex phrases can be created out of simpler ones. Therefore on pass 1 we try to create | -- Handle special cases | ||
-- Some complex phrases can be created out of simpler ones. Therefore on pass # 1 we try to create | |||
-- the phrase using complex phrase and if that is not found than on the second pass we try to build | -- the phrase using complex phrase and if that is not found than on the second pass we try to build | ||
-- the phrase out of the simpler ones | -- the phrase out of the simpler ones | ||
if passNr == 1 then | if passNr==1 then | ||
if state. | if state.adj1=='circa' and state.nDates == 2 then | ||
state.conj = 'circa2' | state.conj = 'circa2' | ||
state.adj1 = '' | state.adj1 = '' | ||
state.adj2 = '' | state.adj2 = '' | ||
end | end | ||
if state.nDates == 2 | if state.nDates == 2 and state.adj1=='late' and state.adj2=='early' and state.conj=='and' | ||
and state.units1==state.units2 and state.era1==state.era2 then | |||
if state.units1=='century' then | |||
and state.units1 == state.units2 and state.era1 == state.era2 then | state.conj='turn of the century' | ||
if | elseif state.units1=='decade' then | ||
elseif state.units1 == 'decade' | state.conj='turn of the decade' | ||
elseif state.units1 == '' | elseif state.units1=='' then | ||
state.conj='turn of the year' | |||
end | end | ||
state.adj1 = '' | state.adj1 = '' | ||
Riga 507: | Riga 455: | ||
end | end | ||
end | end | ||
state.adj, state.era, state.units, state.precision = state.adj1, state.era1, state.units1, state.precision1 | |||
return date1, date2, state | |||
end | |||
-- ================================================== | |||
-- === External functions =========================== | |||
-- ================================================== | |||
function p.Era(frame) | |||
-- process inputs | |||
local dateStr | |||
local args = frame.args | |||
if not (args.lang and mw.language.isSupportedLanguage(args.lang)) then | |||
args.lang = frame:callParserFunction( "int", "lang" ) -- get user's chosen language | |||
end | |||
local lang = args['lang'] | |||
local dateStr = args['date'] or '' | |||
local eraType = string.lower(args['era'] or '') | |||
dateStr = ISOdate(dateStr, lang, '', '', 1) | |||
if eraType then | |||
eraType = checkAliases(eraType ,'','e') | |||
dateStr = translatePhrase(dateStr, '', eraType, lang, {}) | |||
end | |||
return dateStr | |||
end | |||
-- ======================================================================= | |||
function p._complex_date(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, lang, passNr) | |||
local Output='' | |||
local state | |||
-- process inputs and save date in state array | |||
date1, date2, state = processInputParams(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, lang, passNr) | |||
if p.Error~=nil then | |||
return nil | |||
end | |||
local errorStr = string.format( | local errorStr = string.format( | ||
'\n*conj=%s, adj1=%s, era1=%s, unit1=%s, prec1=%i, adj2=%s, era2=%s, unit2=%s, prec2=%i, special=%s', | |||
state.conj, state.adj1, state.era1, state.units1, state.precision1, | |||
state.adj2, state.era2, state.units2, state.precision2, state.special) | |||
-- | |||
-- call specialized functions | |||
local QScode = '' | local QScode = '' | ||
if state.special ~= '' then | if state.special~='' then | ||
Output = otherPhrases(date1, date2, state.special, state.era1, lang, state) | Output = otherPhrases(date1, date2, state.special, state.era1, lang, state) | ||
elseif state.conj ~= '' then | elseif state.conj~='' then | ||
QScode = twoDateQScode(date1, date2, state) | QScode = twoDateQScode(date1, date2, state) | ||
Output = twoDatePhrase(date1, date2, state, lang) | Output = twoDatePhrase(date1, date2, state, lang) | ||
elseif state.adj1 ~= '' | elseif state.adj1~='' or state.era1~='' or state.units1~='' then | ||
Output = oneDatePhrase(date1, state.adj1, state.era1, state.units1, lang, 1, nil, state) | Output = oneDatePhrase(date1, state.adj1, state.era1, state.units1, lang, 1, nil, state) | ||
QScode = oneDateQScode(date1, state.adj1, state.era1, state.precision1) | QScode = oneDateQScode(date1, state.adj1, state.era1, state.precision1) | ||
elseif date1 ~= '' then | elseif date1~='' then | ||
Output = ISOdate(date1, lang, '', 'dtstart', '100-999') | Output = ISOdate(date1, lang, '', 'dtstart', '100-999') | ||
end | end | ||
if p.Error ~= nil then | if p.Error~=nil then | ||
return errorStr | return errorStr | ||
end | end | ||
-- if there is any wikicode in the string than execute it | -- if there is any wikicode in the string than execute it | ||
if mw.ustring.find(Output, '{') then | if mw.ustring.find(Output, '{') then | ||
Riga 534: | Riga 521: | ||
end | end | ||
if QScode and #QScode>0 then | if QScode and #QScode>0 then | ||
QScode = '< | QScode = ' <div style="display: none;">date QS:P,' .. QScode .. '</div>' | ||
end | end | ||
return Output .. QScode | return Output .. QScode | ||
end | end | ||
-- ======================================================================= | |||
function p._complex_date_cer(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, certainty, lang) | function p._complex_date_cer(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, certainty, lang) | ||
-- same as p._complex_date but with extra parameter for certainty: probably, possibly, presumably, etc. | -- same as p._complex_date but with extra parameter for certainty: probably, possibly, presumably, etc. | ||
local dateStr = p._complex_date(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, lang, 1) | local dateStr = p._complex_date(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, lang, 1) | ||
certainty = checkAliases(certainty, conj, 'r') | certainty = checkAliases(certainty, conj, 'r') | ||
if certainty and | local LUT = {probably='Q56644435', presumably='Q18122778', possibly='Q30230067', circa='Q5727902' } | ||
dateStr = translatePhrase(dateStr, '', certainty, lang, | if certainty and LUT[certainty] then | ||
dateStr = | local state = {} | ||
date1, date2, state = processInputParams(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, lang, 1) | |||
dateStr = translatePhrase(dateStr, '', certainty, lang, state) | |||
dateStr = string.gsub(dateStr, '(%<div style="display: none;"%>date QS:P,[^%<]+)(%</div%>)', '%1,P1480,' .. LUT[certainty] .. '%2' ) | |||
end | end | ||
return dateStr | return dateStr | ||
end | end | ||
-- ======================================================================= | |||
function p.complex_date(frame) | function p.complex_date(frame) | ||
-- process inputs | |||
local dateStr | local dateStr | ||
local args = frame.args | local args = frame.args | ||
if not (args.lang and mw.language.isSupportedLanguage(args.lang)) then | if not (args.lang and mw.language.isSupportedLanguage(args.lang)) then | ||
args.lang = frame:callParserFunction("int", " | args.lang = frame:callParserFunction( "int", "lang" ) -- get user's chosen language | ||
end | end | ||
local date1 = args['date1'] or args['2'] or args['date'] or '' | local date1 = args['date1'] or args['2'] or args['date'] or '' | ||
Riga 576: | Riga 561: | ||
local certainty = args['certainty'] | local certainty = args['certainty'] | ||
local lang = args['lang'] | local lang = args['lang'] | ||
dateStr = p._complex_date_cer(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, certainty, lang) | dateStr = p._complex_date_cer(conj, adj1, date1, units1, era1, adj2, date2, units2, era2, certainty, lang) | ||
if p.Error ~= nil then | if p.Error~=nil then | ||
dateStr = p.Error .. '[[Category:Pages using Complex date template with incorrect parameter]]' | dateStr = p.Error .. '[[Category:Pages using Complex date template with incorrect parameter]]' | ||
end | end |