Modul:CitPer

A modult a Modul:CitPer/doc lapon tudod dokumentálni

--Version 2014_09_24
require('strict')
local ds = require('Modul:Dátumszűrés')

local args = {}
local used_args = {}
local config = {}
local lang = mw.getContentLanguage()

local ou = ''
local function pop(...) -- idézőjeles rész és bővítmények az ou számára
--[[ memóriatúllépést okoz, csak teszteléshez
	local list = {...}
	for _, var in pairs(list) do
		ou = ou .. tostring(var) .. '\n '
		mw.log(ou)
	end
]]
end

local hibavan = false
local hiba_jelzes = {}
local kategorizalas_van = false

local function error(kategorizalas_kell, about)
	-- Enclose errorMsg with <span>
	-- Precondition:
	--     about  -- string
	hibavan = true
	if kategorizalas_kell then
		kategorizalas_van = true
	end
	local r = about
	if type(about) == 'string' then
		if #about == 0 then
			r = 'Lua-hiba'
		end
	else
		r = tostring(about)
	end
	table.insert(hiba_jelzes, '<span class="error">' .. r .. '</span>')
end

local function isRoman(v)
	if type(v) ~= 'string' then
		-- A római számok stringek
		return false
	end
	if v:find('[^IVXLCDM]') then
		return false
	end
end

local function isArabic(v)
	if type(v) ~= 'string' then
		--  számok is stringek
		return false
	end
	return (tonumber(v) ~= nil)
end

local function toRoman(num)
	if  num < 0 or num > 9999 then
		return -1
	end
	local romanOnes = {'I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX'}
	local romanTens = {'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX', 'XC'}
	local romanHund = {'C', 'CC', 'CCC', 'CD', 'D', 'DC', 'DCC', 'DCCC', 'CM'}
	local romanThou = {'M', 'MM', 'MMM', 'MMMM', 'MMMMM', 'MMMMMM', 'MMMMMMM', 'MMMMMMMM', 'MMMMMMMMM'}

	local ones = num % 10
	local tens = (num - ones) % 100
	local hund = (num - tens - ones) % 1000
	local thou = (num - hund - tens - ones) % 10000

	tens = tens / 10
	hund = hund / 100
	thou = thou / 1000

	local romanNum = ''
	if thou > 0 then romanNum = romanNum .. romanThou[thou] end
	if hund > 0 then romanNum = romanNum .. romanHund[hund] end
	if tens > 0 then romanNum = romanNum .. romanTens[tens] end
	if ones > 0 then romanNum = romanNum .. romanOnes[ones] end
	return romanNum
end

local function isISSN(str)
	local v, chsum, chnum, chd, i, chnumdo

	v = str:gsub('[^%dX]', '')
	if #v < 8 then
		return false
	elseif #v > 8 then
		-- csak az első 9 marad, többi ignorálva
		v = v:sub(1, 8)
	end
	chd = v:sub(-1, -1) -- check digit az utolsó
	v = v:sub(1, 7)

	if chd == 'X' or isArabic(chd) then
		if chd == 'X' then
			chnum = 10
		else
			chnum = string.byte(chd, 1) - string.byte('0', 1)
		end
	else
		return false
	end
	chsum = 0
	for i = 8, 2, -1 do
		local elsbyte = string.byte(v, 9-i)
		chsum = chsum + (elsbyte - string.byte('0', 1)) * i
	end

	if chsum % 11 == 0 then
		chnumdo = 0
	else
		chnumdo = 11 - (chsum % 11)
	end
	return (chnumdo == chnum)
 end

local function getArgMain(names, le, suffix)
	for _, v in ipairs(names) do
		if suffix then
			v = v .. tostring(suffix)
		end
		used_args[v] = true
		if args[v] and args[v] ~= '' then
			if le and type(args[v]) == 'string' then
				-- lecsípjük az utolsó pontot vagy vesszőt
				return args[v]:gsub('[%.,]$', '')
			else
				return tostring(args[v])
			end
		end
	end
	return nil
end

local function getArg(le, ...) -- itt eredetileg a frame nem paraméter
	-- Retrieve template argument
	-- Precondition:
	-- 	   le: true értékkel jelzi, hogy levágható a paraméter végéről a felesleges vessző és pont
	--     ...: paraméternevek, az első megadott és nem üreset adja vissza

	return getArgMain({...}, le)
end

local function getArgMore(le, max, ...)
	local ret = {}
	local val = getArg(le, ...)
	if val then
		table.insert(ret, val)
	end
	for i = 2, max do
		val = getArgMain({...}, le, i)
		if val then
			table.insert(ret, val)
		end
	end
	return ret
end

local function checkArgs()
	for n, v in pairs(args) do
		if not used_args[n] then
			local msg = 'CitPer: Nem használt paraméter: ' .. n
			mw.log(msg)
			mw.addWarning(msg)
			kategorizalas_van = true
		end
	end
end

local function getConf(conf)
	local v = config[conf]
	return (v ~= '' and v) or nil
end

local function urlencode(str)
	-- URL kódolása
	do return str end
	return (str
		:gsub('%s', '%%20')
		:gsub('"', '%%22')
		:gsub("'", '%%27')
		:gsub('<', '%%3c')
		:gsub('>', '%%3e')
		:gsub('%[', '%%5b')
		:gsub('%]', '%%5d')
		:gsub('{', '%%7b')
		:gsub('|', '%%7c')
		:gsub('}', '%%7d')
	)
end

local function _citper()
	local alkategoriak = {}
	hibavan, kategorizalas_van = false, false
	hiba_jelzes = {}
	used_args = {}
	ou = ''
	local honapok = {'jan.', 'feb.', 'márc.', 'ápr.', 'máj.', 'jún.', 'júl.', 'aug.', 'szept.', 'okt.', 'nov.', 'dec.'}
	local aut, tit, subtit, per, ann, lun, die, datum, tom, fasc, vol, pag
	local issn, doi, misc, url, lan, accd, aurl, archd, outdatum

	local alkategoriak_kellenek = getConf('alkategóriák kellenek')
	-- pop('Kellenek az alkategóriák?', alkategoriak_kellenek) -- igen vagy nem a lehetséges válasz
	if alkategoriak_kellenek then
		if alkategoriak_kellenek == 'igen' then
			-- pop('Kellenek az alkategóriák', alkategoriak_kellenek)
			alkategoriak_kellenek = true
		else
			alkategoriak_kellenek = false
		end
	end

	local sablon_kimenetek_kellenek = getConf('sablon kimenetek kellenek') -- kívánságra kikapcsolható
	-- pop('Sablon kimenetek kellenek?', sablon_kimenetek_kellenek) -- igen vagy nem a lehetséges válasz
	if sablon_kimenetek_kellenek then
		if sablon_kimenetek_kellenek == 'igen' then
			--pop('Kellenek az alkategóriák', alkategoriak_kellenek)
			sablon_kimenetek_kellenek = true
		else
			sablon_kimenetek_kellenek = false
		end
	else
		-- ha a getConf nil értékkel tért vissza
		sablon_kimenetek_kellenek = true
	end

	aut    = getArgMore(true, 9, 'szerző', 'aut')
	tit    = getArg(false, 'cím', 'tit')
	subtit = getArg(false, 'alcím', 'subtit')
	per    = getArg(true, 'periodika', 'per')
	ann    = getArg(true, 'év', 'ann')
	lun    = getArg(true, 'hónap', 'lun')
	die    = getArg(true, 'nap', 'die')
	datum  = getArg(true, 'dátum', 'date')
	fasc   = getArg(true, 'szám', 'fasc')
	vol    = getArg(true, 'kötet', 'volume')
	url    = getArg(false, 'url')
	lan    = getArg(true, 'nyelvkód', 'lan')
	accd   = getArg(true, 'elér', 'accd')
	issn   = getArg(true, 'issn')
	pag    = getArg(true, 'oldal', 'pag')
	archd  = getArg(true, 'archívdátum', 'archd')
	aurl   = getArg(true, 'archívurl', 'aurl')
	doi    = getArg(true, 'doi')
	tom    = getArg(true, 'évfolyam', 'tom')
	misc   = getArg(true, 'egyéb', 'misc')

	--szerzők
	---[=[ -- a szerzőket előre lépteti, társszerzőből szerzőt csinál stb.
	if #aut > 0 then
		aut = table.concat(aut, '&#8201;&#8211;&#8201;') .. ': '
	else
		aut = nil
	end
	--]=]


	--cím és alcím
	local terminator
	if tit then
		tit = mw.text.trim(lang:ucfirst(tit))
		-- pop('cím', tit)
	else
		tit = ' (cím nélkül) '
	end
	if subtit then
		subtit = lang:ucfirst(subtit)
		-- ha a cím végén kettőspont van, leszedjük, hogy ne legyen kettő egymás után
		tit = tit:gsub(':$', '') .. ': ' .. subtit
	end
	if not tit:match('[%.%?!,\166]$') then
		tit = tit .. '.'
	end


	-- periodika
	if per and per ~= '' then
		per = "&#x20;''" .. per .. ",'' "
	elseif tit and tit ~= '' then
		error(false, 'periodika nélkül')
	end

	if ann then
		ann = ann:gsub('[%[%]]', '')
		local count
		ann = ann:gsub('[%-]', '–') -- kiskötőjelből nagy kötőjel
		ann, count = ann:gsub('[^%–0123456789]', '') -- az évben csak számjegyek és nagy kötőjel maradhat
		pop('év a gsubot követően', ann)
		if count ~= 0 then
			error(true, 'tiltott karakter az év paraméterben')
			table.insert(alkategoriak, '[[Kategória:Hibásan használt CitPer – tiltott karakter az év paraméterben]]')
		end

		local nums = {} -- évszámok tárolása
		local hossz = {} -- évszámok számának tárolása
		-- csak (arab) számjegyeket keres
		for w in ann:gmatch('%d+') do
			table.insert(nums, w)
			table.insert(hossz, #w)
		end
		pop('hány tagból áll az év?', #nums)
		if #nums == 2 then
			-- lásd almanachok 2011–2012
			pop('évtag 1', nums[1])
			pop('évtag 2', nums[2])
			if hossz[1] == hossz[2] then
				datum = nil
				-- és most bármi volt a két év adat közt az inputban, nagykötőjel köti össze őket
				ann = nums[1] .. ' – ' .. nums[2]
			end
		else -- p. éééé-éé az év megadásának formája
			-- nem tekintjük az éééé-hh forma szándékának, levágjuk
			datum = ann:sub(1, 4) .. '.'
			pop('dátum évből1', datum)
			if lun then
				lun = lun:gsub('[%[%]]', '')
				if tonumber(lun) then
					lun = honapok[tonumber(lun)]
					pop('hónap mint szám', lun)
				end
				if lun then
					datum = datum .. ' ' .. lun
					pop('dátum évből, hóból', datum)
					if die then
						die = die:gsub('[%[%]]', '')
						datum = datum .. ' ' .. die .. '.'
						pop('dátum évből, hóból, napból', datum)
					end
				else
					error(false, 'hibás hónap')
				end
			end
			-- már összeállt a dátum
			ann = nil
		end
	end


	-- DÁTUM
	-- ha van dátum (most már vagy a dátum, vagy ennek hiányában az év)
	if datum then
		datum = datum:gsub('[%[%]]', '')
		local nyom, dou = ds.datumszuro(datum)
		pop('nyom', nyom)
		pop('dou', tostring(dou))
		if dou then
			outdatum = ds.honapnevesdate(dou) -- zárójelezés a szám és év sorrend tisztázásánál
			pop('outdatum', outdatum)
		else
			-- bármit adtak meg, menjen a kimenetre (az outdatum körül még nincs zárójel)
			outdatum = datum
			error(false, 'hibás dátum')
		end
		pop('*outdatum', outdatum)
	end

	if fasc then
		fasc = fasc:gsub('-', '–')
		fasc = fasc:gsub('—', '–')
		fasc = fasc .. '. sz.'
		-- pop('*szám=', fasc)
	end

	local evszam = ''

	if not fasc then
		-- ha a szám nil érték, akkor legyen üres a konkatenálás miatt
		fasc = ''
	end
	if ann then
		evszam = '&#x20;(' .. ann .. ') ' .. fasc .. ' '
	elseif outdatum and outdatum ~= '' then
		evszam = '&#x20;' .. fasc .. ' (' .. outdatum .. ') '
	elseif fasc then
		evszam = '&#x20;(????) ' .. fasc .. ' '
	end
	-- pop('evszam', evszam)

	-- évfolyam
	if tom then
		if not isRoman(tom) then
			if isArabic(tom) then
				tom = toRoman(tonumber(tom))
			end
		end
		tom = '&#x20;' .. tom .. '. évf.'
	end

	-- oldal
	if pag then
		pag = pag:gsub('-', '–') -- kiskötőjelből nagy
		pag = pag:gsub('—', '–') -- hetvenkvirtesből nagy
		pag = pag:gsub('%.,', ',') -- pontot követő veszőből vesszőt
		pag = pag:gsub('%.', '') -- pontból üreset
		pag = pag:gsub(',', '.,') -- végül vesszőből ponot követő vesszőt
		pag = '&#x20;' .. pag .. '. o.'
	end

	-- ISSN
	--<abbr title="0708-9635">ISSN</abbr>
	if issn then
		if isISSN(issn) then
			issn = '<abbr title="' .. issn:sub(1, 9) .. '">ISSN</abbr>'
		else
			error(false, 'hibás ISSN')
		end
	else
		issn = '' -- ha nem létezik, legyen üres
	end

	-- archívdátum -- archívurl
	if archd then -- ha van dátum
		archd = archd:gsub('[%[%]]', '')
	    local outarchd, dou
		dou = select(2, ds.datumszuro(archd))
		if dou then
			outarchd = ds.honapnevesdate(dou)
			if aurl then
				aurl = urlencode(aurl)
				archd = '<span title="' .. outarchd .. '">[' .. aurl .. ' arch]</span>'
			else
				error(true, 'archívdátum van, de archívurl nélkül')
				-- table.insert(alkategoriak, '[[Kategória:Hibásan használt CitPer – archívdátum archívurl nélkül]]')
			end
		else
			error(true, 'hibás archívdátum')
			-- table.insert(alkategoriak, '[[Kategória:Hibásan használt CitPer – hibás archívdátum]]')
		end
	end

	-- DOI
	if doi then
		local doicontrol, doi_10_utani_resz
		doicontrol = doi:sub(1, 2)
		doi_10_utani_resz = doi:sub(3, -1)
		if doicontrol ~= '10' then
			doi = '10' .. doi_10_utani_resz
		end
		doi = '<span title="' .. doi .. '">[https://dx.doi.org/' .. doi .. ' doi]</span>'
	end

	-- kötet
	if vol then
		vol = ' ' .. vol .. ' k.'
	end

	--egyéb
	if misc then
		misc = '&#x20; ' .. misc
	end

	-- url
	if url ~= nil then
		-- SZÜKSÉGES CSERÉK:cím=[http://crypto.com/papers/jbug-Usenix06-final.pdf Keyboards and Covert Channels"]
		--newline 	[ 	     ] 	     |    Ezek kellenek, mert az URL ráhúzásakor bezavarnak
		--space    &#91; 	&#93; 	&#124;
		tit = tit:gsub('\n', ' ')
		tit = tit:gsub('%[', '&#91;')
		tit = tit:gsub('%]', '&#93;')
		tit = tit:gsub('%|', '&#124;')

		url = urlencode(url)
		tit = '[' .. url .. ' ' .. tit .. ']'
		-- http://mek.oszk.hu/00300/00355/html/ABC11587/12167.htm| Bányadémon és bergmandl: Mi van, ha alcím is van?
	end

	-- nyelv
	if lan then
		lan = mw.getCurrentFrame():expandTemplate{ title = 'Nyelvcímke', args = { lan } }
	end

	-- elérés dátuma
	if accd then
		accd = accd:gsub('[%[%]]', '')
		local nyom, dou = ds.datumszuro(accd)
		--pop('a dátumszűrés eredménye', nyom)
		if dou then
			accd = 'Hozzáférés: ' .. ds.honapnevesdate(dou)
		else
			error(false, 'hibás elérési dátum')
		end
	end

	-- figyelmeztetés a megadott, de nem használt paraméterekre
	checkArgs()

	-- az output összeállítása
	local s = ''
	if sablon_kimenetek_kellenek then
		if aut then s = s .. aut .. ' ' end
		if tit then s = s .. tit .. ' ' end
		if lan then s = s .. lan .. ' ' end
		if per then s = s .. per .. ' ' end
		if tom then s = s .. tom .. ' ' end
		if vol then s = s .. vol .. ' ' end
		if evszam then s = s .. evszam .. ' ' end
		if pag then s = s .. pag .. ' ' end
		if archd then s = s .. archd .. ' ' end
		if issn then s = s .. issn .. ' ' end
		if doi then s = s .. doi .. ' ' end
		if accd then s = s .. accd .. ' ' end
		if misc then s = s .. misc .. ' ' end
		-- if ou then s = s .. ou .. ' ' end -- ez csak nyomkövetésnél kell, de akkor nagyon
		if hibavan then s = s .. ' ' .. table.concat(hiba_jelzes, ', ') end
		s = mw.text.trim(s)
		if alkategoriak_kellenek then s = s .. table.concat(alkategoriak) end
		if kategorizalas_van then s = s .. '[[Kategória:Hibás paraméterezésű CitPer-t tartalmazó lapok]]' end
		return s
	end -- sablon kimenetek kellenek
end

local function _run(a, c)
	args = a
	config = c or {}
	return _citper()
end

local function run(frame)
	local pframe = frame:getParent()
    args = pframe.args -- a sablon hívásakor megadott paraméterek
    config = frame.args -- az #invoke utasításban átadott paraméterek
    return _citper()
end

local p = {
	run = run,
	_run = _run
}

return p