脳科学辞典

「モジュール:ISOdate」の版間の差分

モジュール 議論

モジュール:ISOdate (ソースを閲覧)

2023年5月8日 (月) 09:09時点における版

1,319 バイト除去 、 2023年5月8日 (月)
細
1版 をインポートしました
細 (1版)
 
細 (1版 をインポートしました)
 
(2人の利用者による、間の3版が非表示)
1行目: 1行目:
--[[   
--[[   
   
  __ __          _      _        ___ ____  ___      _      _     
|  \/  | ___  __| |_  _| | ___ _|_ _/ ___| / _ \  __| | __ _| |_ ___
| |\/| |/ _ \ / _` | | | | |/ _ (_)| |\___ \| | | |/ _` |/ _` | __/ _ \
| |  | | (_) | (_| | |_| | |  __/_ | | ___) | |_| | (_| | (_| | ||  __/
|_|  |_|\___/ \__,_|\__,_|_|\___(_)___|____/ \___/ \__,_|\__,_|\__\___|
   
This module is intended for processing of date strings.
This module is intended for processing of date strings.


9行目: 14行目:
* User:Parent5446 - original version of the function mimicking template:ISOdate
* User:Parent5446 - original version of the function mimicking template:ISOdate
* User:Jarekt - original version of the functions mimicking template:Date and template:ISOyear
* User:Jarekt - original version of the functions mimicking template:Date and template:ISOyear
]]
]]
local p = {}


-- =======================================
-- =======================================
-- === Dependencies ======================
-- === Dependencies ======================
-- =======================================
-- =======================================
local D = require('Module:Date')
local Date = require('Module:DateI18n')._Date


--[[
-- =======================================
ISOyear
-- === Local Functions ===================
-- =======================================
This function returns year part of date string.
Usage:
{{#invoke:ISOdate|ISOyear|target_string}}
Parameters
    1: The date string
Error Handling:
  If the string does not look like it contain the year than the function will not return anything.
  That is the preferred treatment for the template:Creator which is the main (only?) template calling it.
]]
function p.ISOyear( frame )
return p._ISOyear( frame.args[1] )
end


function p._ISOyear( input )
local function parse_ISOdate(datestr)
if not input then
-- Core function of this module, which splits "datestr" contining date in ISO format into Year, month, day, ... components
return ''
-- Output is "datevec" array with numbers representing date components. We also return "tail" storing text following the date
end
input = mw.text.trim( input )
   
-- if empty string then return it
if input == "" then
return input
end
   
-- if number then return it
if tonumber( input ) then
return mw.ustring.format( '%04i', input )
end
   
-- otherwise use regular expression match
input = mw.ustring.match( input, '^+?(-?%d%d?%d?%d?)-' )
if input and tonumber( input ) then
return mw.ustring.format( '%04i', input )
else
return ''
end
end
 
--[[
ISOdate
This function is the core part of the ISOdate template.
Usage:
{{#invoke:ISOdate|ISOdate|target_string|lang=}}
Parameters:
    1: The date string
  lang: The language to display it in
  form: Language format (genitive, etc.) for some languages
class: CSS class for the <time> node
 
Error Handling:
  If the string does not look like it contain the proper ISO date than the function will return the original string.
 
  That is the preferred treatment for the template:Information (and similar templates) which calling it.
]]
function p.ISOdate(frame)
local datestr, succeded
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
datestr, succeded = p._ISOdate(
mw.text.trim(args[1]),
args.lang,                  -- language
args.case  or '',          -- allows to specify grammatical case for the month for languages that use them
args.class or 'dtstart',    -- allows to set the html class of the time node where the date is included.
args.trim_year or '100-999' -- by default pad one and 2 digit years to be 4 digit long, while keeping 3 digit years as is
)
return datestr
end
 
function p._ISOdate(datestr, lang, case, class, trim_year)


-- pattern: regexp - regular expresion to test; dlen - number of date elements; tail = which element is a "tail" if any
-- pattern: regexp - regular expresion to test; dlen - number of date elements; tail = which element is a "tail" if any
129行目: 57行目:
-- create datevec based on which variables are provided
-- create datevec based on which variables are provided
local datevec, tail, formatNum
local datevec = {}
datevec, tail, formatNum = p.test_date_formats(datestr or '', patterns)
local tail    = ''
if datevec[1]=='' or datevec[1]==nil then
for i, pat in ipairs( patterns ) do
local vec = {datestr:match( pat.regexp )}
if vec and vec[1]~=nil then
for j=1, pat.dlen do
datevec[j] = vec[j]
end
if pat.tail>0 and vec[pat.tail]~=nil then
tail = mw.ustring.gsub(' ' .. vec[pat.tail], ' +', ' ')
end
break
end
end
if not datevec[1] or datevec[1]=='' then
-- quickly return if datestr does not look like date (it could be a template)
-- quickly return if datestr does not look like date (it could be a template)
return datestr, false
return nil, nil
end
return datevec, tail
end
 
-- ==================================================
-- === External functions ===========================
-- ==================================================
local p = {}
 
-- ===========================================================================
-- === Version of the function to be called from other LUA codes
-- ===========================================================================
 
function p._ISOyear( datestr )
   
-- if empty string then return it
datestr = mw.text.trim(datestr or '' )
if datestr == '' then
return ''
end
   
-- if number then return it
if tonumber( datestr ) then
return mw.ustring.format( '%04i', datestr )
end
   
-- otherwise use regular expression match
datestr = mw.ustring.match( datestr, '^+?(-?%d%d?%d?%d?)-' )
if datestr and tonumber( datestr ) then
return mw.ustring.format( '%04i', datestr )
else
return ''
end
end
 
function p._ISOdate(datestr, lang, case, class, trim_year)
datestr = mw.text.trim(datestr or '' )
local datevec, tail = parse_ISOdate(datestr)
if not datevec then
return datestr, false -- quickly return if datestr does not look like date (it could be a template)
end
end


-- call p._Date function to format date string
-- call p._Date function to format date string
local succeded, datestr2
local datestr2 = Date(datevec, lang, case, class, trim_year)
succeded, datestr2 = pcall( D._Date, datevec, lang, case, class, trim_year)
if datestr2~='' then
if succeded and datestr2~='' then
return mw.text.trim( datestr2 .. tail), true
return mw.text.trim( datestr2 .. tail), true
else -- in case of errors return the original string
else -- in case of errors return the original string
146行目: 125行目:
end
end


function p.ISOdate_extended(frame)
-- ===========================================================================
-- pattern: regexp - regular expresion to test; dlen - number of date elements; tail = which element is a "tail" if any
-- === Versions of the function to be called from template namespace
-- regexp hints:
-- ===========================================================================
--  1) Strings starting with "^" and ending with "$" indicate whole string match
--[[
--  2) optional tail part copied as-is and following the main parsed part of the date have to be separated from the date by a whitespace, so "(\s.+)?"
ISOdate
   
This function is the core part of the ISOdate template.
Usage:
{{#invoke:ISOdate|ISOdate|target_string|lang=}}
Parameters:
    1: The date string
  lang: The language to display it in
  form: Language format (genitive, etc.) for some languages
class: CSS class for the <time> node


local datestr, succeded
Error Handling:
local args = frame.args
  If the string does not look like it contain the proper ISO date than the function will return the original string.
if not (args.lang and mw.language.isSupportedLanguage(args.lang)) then
 
args.lang = frame:callParserFunction( "int", "lang" ) -- get user's chosen language
  That is the preferred treatment for the template:Information (and similar templates) which calling it.
]]
function p.ISOdate(frame)
local args = {}
for name, value in pairs( frame.args ) do
if value ~= '' then -- nuke empty strings
if type(name)=='string' then
name = string.gsub( string.lower(name), ' ', '_')
end
args[name] = value
end
end
end
datestr, succeded = p._ISOdate(
 
mw.text.trim(args[1]),
 
local datestr, succeded = p._ISOdate(
args[1] or '',
args.lang,                  -- language
args.lang,                  -- language
args.case or '',           -- allows to specify grammatical case for the month for languages that use them
args.case,                 -- allows to specify grammatical case for the month for languages that use them
args.class or 'dtstart',    -- allows to set the html class of the time node where the date is included.  
args.class or 'dtstart',    -- allows to set the html class of the time node where the date is included.  
args.trim_year or '100-999' -- by default pad one and 2 digit years to be 4 digit long, while keeping 3 digit years as is
args.trim_year or '100-999' -- by default pad one and 2 digit years to be 4 digit long, while keeping 3 digit years as is
)
)
if succeded then
return datestr
end
local patterns = {
-- Exended set of recognized formats: like MM/DD/YYYY
{dlen=3, tail=4, regexp="^(%d%d?)[-./](%d%d?)[-./](%d%d%d%d)(%s.+)"},
{dlen=3, tail=0, regexp="^(%d%d?)[-./](%d%d?)[-./](%d%d%d%d)$"},
{dlen=3, tail=0, regexp="^(%d%d?)%s(%w+)%s(%d%d%d%d)$"},
{dlen=3, tail=0, regexp="^(%w+)%s(%d%d?),%s(%d%d%d%d)$"},
}
local datevec, tail, formatNum, category = ''
datevec, tail, formatNum = p.test_date_formats(frame.args[1], patterns)
if formatNum==1 or formatNum==2 then
vec = datevec;
if tonumber(datevec[1])>12 then
frame.args[1] = string.format('%04i-%02i-%02i', datevec[3], datevec[2], datevec[1] )
category = '[[Category:Date in DD/MM/YYYY format]]'
return mw.text.trim( p.ISOdate(frame) .. tail);
elseif tonumber(datevec[2])>12 then
frame.args[1] = string.format('%04i-%02i-%02i', datevec[3], datevec[1], datevec[2] )
category = '[[Category:Date in MM/DD/YYYY format]]'
return mw.text.trim( p.ISOdate(frame) .. tail);
end
elseif (formatNum==3 or formatNum==4) and (datevec[3]=='' or datevec[3]~=nil) then
local str = mw.getCurrentFrame():callParserFunction( "#time", { 'Y-m-d', datestr} )
local vec = {str:match( "^(%d%d?%d?%d?)-(%d%d?)-(%d%d?)$" )}
if vec and vec[1]~=nil then
frame.args[1] = string.format('%04i-%02i-%02i', vec[1], vec[2], vec[3] )
category = '[[Category:Date in word format]]'
return p.ISOdate(frame);
end
end
return datestr
return datestr
end
end


function p.test_date_formats(datestr, patterns)
--[[
-- pattern: regexp - regular expresion to test; dlen - number of date elements; tail = which element is a "tail" if any
ISOyear
 
local datevec = {'','','','','',''}
This function returns year part of date string.
local tail = ''
local vec, pat
Usage:
local formatNum = 0
{{#invoke:ISOdate|ISOyear|target_string}}
for i, pat in ipairs( patterns ) do
vec = {datestr:match( pat.regexp )}
Parameters
if vec and vec[1]~=nil then
    1: The date string
for j=1,pat.dlen do
datevec[j] = vec[j]
Error Handling:
end
  If the string does not look like it contain the year than the function will not return anything.
if pat.tail>0 and vec[pat.tail]~=nil then
  That is the preferred treatment for the template:Creator which is the main (only?) template calling it.
tail = mw.ustring.gsub(' ' .. vec[pat.tail], ' +', ' ')
]]
end
function p.ISOyear( frame )
formatNum = i
return p._ISOyear( frame.args[1] )
break
end
end
return datevec, tail, formatNum
end
end


return p
return p
「https://bsd.neuroinf.jp/wiki/特別:携帯機器差分/38853...48068」から取得