Modul:CitLib
CitLib[mi ez?] • [dokumentáció: mutat, ] • [tesztek: létrehozás]
-- Version 2020.06.20
require('strict')
local ds = require('Modul:Dátumszűrés')
local nyksz = require('Modul:Nyelvkódszűrő')
local args = {}
local used_args = {}
local config = {}
local suta={}
local lang = mw.getContentLanguage()
local ou = {}-- hibakeresésre szolgáló table , ami tartalmazza az analízisre
-- szolgáló üzeneteket, az alábbi --pop() függvény gyűjtögeti a tartalmát
local oumax = 1000 -- a tesztüzenetek számának maximuma
local oumarad = oumax
local function kimenetre(x)
if x then table.insert(suta,x) end
end
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
oumarad = oumarad - 1
if oumarad == 0 then return end
table.insert(ou, tostring(var) .. '\n ')
mw.log(tostring(var) .. '\n ')
end
end
local function isRoman(v)
if type(v) ~= 'string' then
-- római számok stringek
return false
end
return ( v:match( '^[IVXLCDM]+$' ) ~= nil )
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 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 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 = 'CitLib: 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
return (str
:gsub('%s', '%%20')
:gsub('"', '%%22')
:gsub("'", '%%27')
:gsub('<', '%%3c')
:gsub('>', '%%3e')
:gsub('%[', '%%5b')
:gsub('%]', '%%5d')
:gsub('{', '%%7b')
:gsub('|', '%%7c')
:gsub('}', '%%7d')
)
end
-- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B
local function removewikilink( str )
return (str:gsub( '%[%[([^%[%]]*)%]%]', function (l)
return l:gsub( '^[^|]*|(.*)$', '%1' ):gsub('^%s*(.-)%s*$', '%1');
end))
end
local OCinSoutput = setmetatable( {}, {
__newindex = function(self, key, value)
if value ~= nil and value ~= '' then
rawset( self, #self+1, table.concat{ key, '=', mw.uri.encode( removewikilink( value ) ) } );
--> OCinSoutput[1],[2],[3]... dagad
-- az egész konstrukció a rawset és a __newindex segítségével növeli e táblát a key value párokkal
--pop('mit tesz a concat:', self[#self]); --> rft_val_fmt=info:ofi/fmt:kev:mtx:book
end
end
}
)
local function _citlib()
local alkategoriak = {}
local cap, capaut, aut, tit, subtit, vol, ass, edi, red, red2, loc, loc2
local ann, pag, ser, sernr, isbn, misc, url, accd, aurl, archd, lan
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
cap = getArg(true, 'cap', 'fejezetcím')
capaut = getArgMore(true, 3, 'capaut', 'fejezetszerző')
aut = getArgMore(true, 3, 'szerző', 'aut')
tit = getArg(true, 'cím', 'tit')
subtit = getArg(true, 'alcím', 'subtit')
vol = getArg(true, 'vol', 'kötet')
ass = getArgMore(true, 3, 'ass', 'közreműködők')
isbn = getArg(true, 'isbn')
edi = getArg(true, 'edi', 'kiadás')
loc = getArg(true, 'loc', 'hely')
loc2 = getArg(true, 'loc2', 'hely2')
red = getArg(true, 'red', 'kiadó')
red2 = getArg(true, 'red2', 'kiadó2')
ann = getArg(true, 'év', 'ann')
--if ann then ann = string.gsub(ann, '[%[%]]', '')end Pasztilla közlése szerint
pag = getArg(true, 'oldal', 'pag')
ser = getArg(true, 'ser', 'sorozat')
sernr = getArg(true, 'sernr', 'sorozatszám')
misc = getArg(true, 'egyéb', 'misc')
url = getArg(false, 'url')
accd = getArg(true, 'elér', 'accd')
if accd then accd = string.gsub(accd, '[%[%]]', '') end
aurl = getArg(true, 'archívurl', 'aurl')
archd = getArg(true, 'archívdátum', 'archd')
if archd then archd = string.gsub(archd, '[%[%]]', '') end
lan = getArg(true, 'nyelvkód', 'lan')
-- fejezetszerzők összeállítása capautban
if #capaut > 0 then
capaut = table.concat(capaut, ' – ') .. ':'
else
capaut = nil
end
-- fejezetcím
local CoinS_cap
if cap then
CoinS_cap = cap
end
-- szerzők összeállítása
if #aut > 0 then
for _, v in ipairs(aut) do
OCinSoutput['rft.au'] = v
end
aut = table.concat(aut, ' – ') .. ':'
else
aut = nil
end
--cím és alcím
local CoinS_tit = nil
if tit then
tit = mw.text.trim(lang:ucfirst(tit))
else
tit = '(cím?)'
--pop('megkérdőjelezte a címet', tit)
error(true, 'nincs elsődleges cím')
table.insert(alkategoriak, 'Hibásan használt CitLib – 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
CoinS_tit = tit:gsub('%.$', '')
if not tit:match('[%.%?!,\166]$') then
tit = tit .. '.'
end
tit = "''" .. tit .. "''"
--pop('cím in italic', tit)
if vol then
CoinS_tit = CoinS_tit .. vol
end
-- asszisztencia
if #ass > 0 then
ass = lang:ucfirst(table.concat(ass, '–')) .. '.'
else
ass = nil
end
-- edi
local CoinS_edi = nil
if edi then
CoinS_edi = edi
edi = edi .. '.'
end
local kiadas = ''
local CoinS_loc, CoinS_red
if loc then
if loc2 then
if red then
if red2 then --loc,loc2,red,red2
kiadas = loc .. ': ' .. red .. '; ' .. loc2 .. ': ' .. red2 .. '.'
CoinS_loc = loc ; CoinS_red = red
else --loc,loc2,red,not red2
kiadas = loc .. '; ' .. loc2 .. ': ' .. red .. '.'
end
else
if red2 then --loc,loc2,not red, red2
kiadas = loc .. ': (kiadó nélkül); ' .. loc2 .. ': ' .. red2 .. '.'
CoinS_loc = loc2 ; CoinS_red = red2
else --loc,loc2,not red, not red2
kiadas = loc .. '; ' .. loc2 .. ': ' .. '(kiadó nélkül)' .. '.'
end
end
else
if red then
if red2 then --loc,not loc2, red, red2
kiadas = loc .. ': ' .. red .. '; ' .. '(hely nélkül)' .. ': ' .. red2 .. '.'
CoinS_loc = loc ; CoinS_red = red
else --loc,not loc2, red, not red2
kiadas = loc .. ': ' .. red .. '.'
CoinS_loc = loc ; CoinS_red = red
end
else
if red2 then --loc,not loc2, not red, red2
kiadas = loc .. ': ' .. '(kiadó nélkül)' .. '; ' .. '(hely nélkül)' .. ': ' .. red2 .. '.'
else --loc,not loc2, not red, not red2
kiadas = loc .. ': ' .. '(kiadó nélkül)' .. '.'
end
end
end
else
if loc2 then
if red then
if red2 then --not loc,loc2, red,red2
kiadas = '(hely nélkül)' .. ': ' .. red .. '; ' .. loc2 .. ': ' .. red2 .. '.'
CoinS_loc = loc2 ; CoinS_red = red2
else --not loc,loc2,red, not red2
kiadas = '(hely nélkül)' .. ': ' .. red .. '; ' .. loc2 .. ': ' .. '(kiadó nélkül)' .. '.'
end
else
if red2 then --not loc,loc2, not red,red2
kiadas = loc2 .. ': ' .. red2 .. '.'
CoinS_loc = loc2 ; CoinS_red = red2
else --not loc,loc2, not red,not red2
kiadas = loc2 .. ': ' .. '(kiadó nélkül).'
end
end
else
if red then
if red2 then --not loc, not loc2, red,red2
kiadas = '(hely nélkül)' .. ': ' .. red .. ';' .. red2 .. '.'
else --not loc, not loc2, red, not red2
kiadas = '(hely nélkül)' .. ': ' .. red .. '.'
end
else
if red2 then --not loc, not loc2, not red,red2
kiadas = '(hely nélkül)' .. ': ' .. red2 .. '.'
else --not loc, not loc2, not red, not red2
end
end
end
end
-- év
local CoinS_ann = nil
if ann then
local count = 0
-- kiskötőjelből nagy
ann = ann:gsub('[%-]', '–')
-- az évben csak számjegyek és nagykötőjel, valamint szögletes zárójelek maradhatnak
ann, count = ann:gsub('[^%–%[%]%!0123456789]', '')
if count > 0 then
error(false, 'tiltott karakter az év paraméterben')
table.insert(alkategoriak, 'Hibásan használt CitLib – tiltott karakter az év paraméterben')
end
--pop('ev a gsubolása után', ann)
CoinS_ann = ann
end
-- oldal adatok
local CoinS_pag = nil
if pag then
pag = (pag
:gsub('-', '–') -- kiskötőjelből nagykötőjel
:gsub('—', '–') -- hetvenkvirtesből nagykötőjel
:gsub('%.', '') -- pontból üreset
:gsub(',', '.,')) -- végül vesszőből pontot követő vesszőt
CoinS_pag = pag
pag = ' ' .. pag .. '. o.'
end
-- sorozat kezelése
local sernum_van_de_ser_nincs = false
local CoinS_ser = nil
local CoinS_sernr = nil
if ser then
CoinS_ser = ser
ser = '= ' .. ser .. ', '
end
if sernr ~= nil and ser == nil then
sernr = '(sorozatszám?)'
error(true, 'sorozatszám sorozat nélkül')
table.insert(alkategoriak, 'Hibásan használt CitLib – sorozatszám sorozat nélkül')
else
if sernr then
local proba_sernr = sernr:gsub('[^%dIVXLCDM]', '')
if tonumber(proba_sernr) then
CoinS_sernr = sernr
sernr = sernr .. '.'
elseif not isRoman(proba_sernr) then
error(true, 'helytelen sorozatszám')
table.insert(alkategoriak, 'Hibásan használt CitLib – helytelen sorozatszám')
end
end
end
-- ISBN kezelése
local CoinS_isbn = nil
if isbn then
--pop('van isbn paraméter', isbn)
local helyes, hiba_str, isbn_table
helyes, isbn, hiba_str, isbn_table = require('Modul:CheckISBN').isISBN(isbn, true)
-- isbn = string.gsub(isbn_str, 'ISBN ([%dXx]+)', '[[Speciális:Könyvforrások/%1|ISBN %1]]')
CoinS_isbn = table.concat(isbn_table, ', ')
table.insert(hiba_jelzes, hiba_str)
if helyes then
--pop('helyesek a paraméterek')
else
hibavan = true
table.insert(alkategoriak, 'Hibásan használt CitLib – helytelen ISBN kód')
end
end
-- URL kezelése
local CoinS_url= nil
if url then
CoinS_url = url
-- 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 [ ] |
--pop('tud-e az url-ről?', url)
url = urlencode(url)
--pop('ráhúzás előtti cím', tit)
if cap then
cap = string.gsub(cap, '\n', ' ')
cap = string.gsub(cap, '%[', '[')
cap = string.gsub(cap, '%]', ']')
cap = string.gsub(cap, '%|', '|')
cap = '[' .. url .. ' ' .. cap .. ']'
elseif tit then
tit = string.gsub(tit, '\n', ' ')
tit = string.gsub(tit, '%[', '[')
tit = string.gsub(tit, '%]', ']')
tit = string.gsub(tit, '%|', '|')
tit = '[' .. url .. ' ' .. tit .. ']'
--pop('ráhúzza?', tit)
end
end
if cap then
cap = cap .. '. In '
end
-- nyelv kezelése
local tagok={}
local i,j,szel
if lan then
local nyelvek,hibak,nyomok = nil
nyelvek,hibak,nyomok = nyksz.nyelvszuro(lan)
if hibak then
--pop("kapott hibalista=", nyomok)
error(true, hibak ..'hibás nyelvkód')
table.insert(alkategoriak, 'Hibásan használt CitLib – nyelvkódhiba')
end
if nyelvek then
--pop("kapott nyelvlista=", nyelvek)
lan = nyelvek
end
if nyomok then
--pop("nyomkövetés a nyelvszűrésen belül=", nyomok)
end
if #tit == 0 then
error(true, 'nyelv cím nélkül')
table.insert(alkategoriak, 'Hibásan használt CitLib – nyelv cím nélkül')
end
end --if lan
-- archívdátum -- archívurl
if archd then -- ha van dátum
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, 'Hibásan használt CitLib – archívdátum archívurl nélkül')
end
else
error(true, 'hibás archívdátum')
table.insert(alkategoriak, 'Hibásan használt CitLib – hibás archívdátum')
end
end
-- elérés dátuma
if accd then -- ha van elérés
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(true, 'hibás elérési dátum')
table.insert(alkategoriak, 'Hibásan használt CitLib – hibás elérési dátum')
end
end
-- CoinS
local empty_span = '<span style="display:none;"> </span>'
local this_page = mw.title.getCurrentTitle()
local ctx_ver = 'Z39.88-2004'
local coins = nil
OCinSoutput['rft.atitle'] = CoinS_cap
OCinSoutput.rft_val_fmt = 'info:ofi/fmt:kev:mtx:book'
OCinSoutput['rft.genre'] = 'book'
--OCinSoutput['rft.au'] = CoinS_aut
OCinSoutput['rft.btitle'] = CoinS_tit
OCinSoutput['rft.place'] = CoinS_loc
OCinSoutput['rft.date'] = CoinS_ann
OCinSoutput['rft.series'] = CoinS_ser
OCinSoutput['rft.issue'] = CoinS_sernr
OCinSoutput['rft.pages'] = CoinS_pag
OCinSoutput['rft.edition'] = CoinS_edi
OCinSoutput['rft.pub'] = CoinS_red
OCinSoutput['rft.isbn'] = CoinS_isbn
OCinSoutput.rft_id = CoinS_url
OCinSoutput.rfr_id = table.concat{ 'info:sid/', mw.site.server:match( '[^/]*$' ), ':', this_page.prefixedText }
OCinSoutput = setmetatable( OCinSoutput, nil );
-- sort with version string always first, and combine.
table.sort( OCinSoutput )
table.insert( OCinSoutput, 1, 'ctx_ver=' .. ctx_ver ) -- such as "Z39.88-2004"
coins = table.concat(OCinSoutput, '&')
coins = '<small><span title="' .. coins .. '" class="Z3988">' .. empty_span .. '</span></small>';
-- output összeállítása
if sablon_kimenetek_kellenek then
if capaut then kimenetre(capaut) end
if cap then kimenetre(cap) end
if aut then kimenetre(aut) end
if tit then kimenetre(tit) end
if vol then kimenetre(vol) end
if lan then kimenetre(lan) end
if ass then kimenetre(ass) end
if edi then kimenetre(edi) end
if kiadas then kimenetre(kiadas) end
if ann then kimenetre(ann .. '. ') end
if pag then kimenetre(pag) end
if ser then kimenetre(ser) end
if sernr then kimenetre(sernr) end
if isbn then kimenetre(isbn) end
if archd then kimenetre(archd) end
if accd then kimenetre(accd) end
if misc then kimenetre(misc) end
if coins then kimenetre(coins) end
end
--pop('Kimenetre täbläja',table.concat(suta,'{}') )
if ou then kimenetre(table.concat(ou,'<###>')) end --nyomkövetésnél
checkArgs()
if hibavan then
kimenetre(table.concat(hiba_jelzes, ', '))
end
if kategorizalas_van then
kimenetre('[[Kategória:Hibás paraméterezésű CitLib sablont tartalmazó lapok]]')
end
if alkategoriak_kellenek and #alkategoriak > 0 then
kimenetre('[[Kategória:' .. table.concat(alkategoriak, ']][[Kategória:') .. ']]')
end
local ks = ''
if #suta ~= 0 then ks = table.concat(suta, ' ') end
return mw.text.trim(ks)
end -- function _citlib
-- Lua-hiba a(z) Modul:Homokozó/Pepo41/MCitlib modulban a(z) 585. sorban:
--invalid value (table) at index 6 in table for 'concat'
local function _run(a, c)
args = a
config = c or {}
return _citlib()
end
local function run(frame)
args = frame:getParent().args -- a sablon hívásakor megadott paraméterek
config = frame.args -- az #invoke utasításban átadott paraméterek
return _citlib()
end
local p = {
run = run,
_run = _run
}
return p