Module:Biblio
local Biblio = {}
local Langue = require ( 'Module:Langue' ) local Date = require ( 'Module:Date' )
-- cette simple fonction permet de récupérer les arguement du modèle, -- ou la table transmise à la fonction par une autre fonction d'un module local function extractArgs ( frame )
-- return ( frame.getParent and frame:getParent().args ) or frame or { }
return frame.args or frame or { } -- renvoie les arguments transmis par invoke et non par le modèle, pour tester avant de créer les modèle.
end
-- fonction abréviation, abréviation discrète -- paramètres : 1 = abréviation, 2 = texte, 3 = langue, abrd = abréviation discrète function Biblio.abr ( frame )
local args = extractArgs ( frame )
if args[2] == nil then
return args[1] or -- retoune l'abréviation ou au minimum une chaine vide s'il n'y a pas de texte
end
local wikiText = { '<abbr' }
if args.abrd then
table.insert(wikiText, ' class="abbr"')
end
table.insert(wikiText, ' title="' .. args[2])
if args[3] then
table.insert(wikiText, '" lang="' .. args[3])
end
table.insert(wikiText, '">' .. args[1] .. '')
return table.concat (wikiText)
end
-- voir Modèle:ISBN function Biblio.ISBN ( frame )
local args = extractArgs ( frame )
local liste = { }
local i = 1
local isbn = mw.text.trim ( args [1] or )
if isbn == then
liste = { 'ISBN inconnu' }
else
local texteIsbn = 'ISBN ' .. isbn
repeat
local lien = '[[Spécial:Ouvrages de référence/' .. isbn
.. '|' .. texteIsbn .. ']]'
table.insert ( liste, lien )
i = i + 1
isbn = mw.text.trim ( args [i] or )
texteIsbn = isbn
until isbn ==
end
return '(' .. mw.text.listToText ( liste ) .. ')'
end
-- voir Modèle:ISSN function Biblio.ISSN ( frame )
local args = extractArgs ( frame )
local liste = { }
local i = 1
local issn = mw.text.trim ( args [1] or )
if issn == then
liste = { 'inconnu' }
else
repeat
local lien = '[http://worldcat.org/issn/'
.. mw.uri.encode( issn ) .. '&lang=fr ' .. issn.. ']'
table.insert ( liste, lien )
i = i + 1
issn = mw.text.trim ( args [i] or )
texteIsbn = issn
until issn ==
end
return '(ISSN ' .. mw.text.listToText ( liste ) .. ')'
end
-- voir Modèle:Module biblio/span initial function Biblio.spanInitial ( frame )
local args = extractArgs ( frame ) -- préparation pour appel par modèle ou direct.
local id = args.id or
if string.len( id ) == 0 then
id = mw.uri.anchorEncode ( args.id1 .. args.id2 .. args.id3 .. args.id4 .. args.id5 )
end
return ' 0 then
lib = '[' .. lib .. '] '
end
return lib
end
-- voir Modèle:Module biblio/indication de langue function Biblio.indicationDeLangue ( frame )
local args = extractArgs ( frame )
local codeLangue = Langue.codeLangue2 ( args.langue )
if codeLangue ~= and codeLangue ~= 'fr' then
return Langue.indicationDeLangue { , codeLangue }
else
return
end
end
-- voir Modèle:Module biblio/responsabilité principale function Biblio.responsabilitePrincipale ( frame )
local args = extractArgs ( frame )
local nom = args ['nom1'] or
if nom == then
return
end
local listeRresponsables = { } -- contiendra un élément pour chaque nom
local directeur = Biblio.abr { 'dir.', 'directeur de publication', abrd = true }
local responsable, prenom, lien , precision, resp
local i = 1
repeat -- boucle sur chaque nom, assemble toutes les caractéristique et ajoute l'ensemble à la liste.
prenom = args [ 'prénom' .. i ] or
if prenom ~= then prenom = prenom .. ' '
end
precision = args [ 'directeur' .. i ] or
resp = args [ 'responsabilité' .. i ] or
if precision == then
if resp ~= then
precision = ' (' .. resp .. ')'
end
else
if resp ~= then
precision = ' (' .. directeur .. ' et ' .. resp .. ')'
else
precision = ' (' .. directeur .. ')'
end
end
lien = args [ 'lien' .. i ] or
if lien ~= then
responsable = '' .. prenom .. nom .. '' .. precision
else
responsable = prenom .. nom .. precision
end
table.insert ( listeRresponsables, responsable )
i = i + 1
nom = args [ 'nom' .. i ] or
until nom ==
if args [ 'et al.' ] == 'oui' then
local et_al = " " .. Biblio.abr { "et al.", "et alii (et d’autres)", abrd = true } .. ""
return table.concat ( listeRresponsables, ', ' ) .. et_al
else
return mw.text.listToText ( listeRresponsables )
end
end
-- voir Module biblio/responsabilité secondaire function Biblio.responsabiliteSecondaire ( frame )
local args = extractArgs ( frame )
local traducteur = args.traducteur or
local preface = args [ 'préface' ] or
local postface = args [ 'postface' ] or
local illustrateur = args.illustrateur or
local photographe = args.photographe or
local libre = args [ 'champ libre' ] or
local liste = { }
if traducteur ~= then
table.insert ( liste, Biblio.abr { 'trad.', 'traduction', abrd = true } .. ' ' .. traducteur )
end
if preface ~= then
table.insert ( liste, Biblio.abr { 'préf.', 'préface', abrd = true } .. ' ' .. preface )
end
if postface ~= then
table.insert ( liste, Biblio.abr { 'post.', 'postface', abrd = true } .. ' ' .. postface )
end
if illustrateur ~= then
table.insert ( liste, Biblio.abr { 'ill.', 'illustrations', abrd = true } .. ' ' .. illustrateur )
end
if photographe ~= then
table.insert ( liste, Biblio.abr { 'photogr.', 'photographies', abrd = true } .. ' ' .. photographe )
end
if libre ~= then
table.insert ( liste, libre )
end
local texte = table.concat ( liste , ', ')
if texte ~= then
return '(' .. texte .. ')'
else
return
end
end
-- voir Modèle:Module biblio/description physique function Biblio.descriptionPhysique ( frame )
local args = extractArgs ( frame )
local form = args.format or
local numeros = args [ 'nombre numéros' ] or
local volumes = args [ 'nombre volumes' ] or
local tomes = args [ 'nombre tomes' ] or
local pages = args [ 'nombre pages' ] or
local liste = { }
if form ~= then
table.insert ( liste, ', ' .. form )
end
if numeros ~= then
table.insert ( liste, ', ' .. numeros .. ' numéros' )
end
if volumes ~= then
table.insert ( liste, ', ' .. volumes .. ' ' .. Biblio.abr { 'vol.', 'volumes', abrd = true } )
end
if tomes ~= then
table.insert ( liste, ', ' .. tomes .. ' ' .. Biblio.abr { 't.', 'tomes', abrd = true } )
end
if pages ~= then
table.insert ( liste, ', ' .. pages .. ' ' .. Biblio.abr { 'p.', 'pages', abrd = true } )
end
return table.concat ( liste )
end
-- voir Modèle:COinS bibliographique function Biblio.COinS ( frame )
local args = extractArgs ( frame )
local liste = { }
-- la fonction insert liste ajoute à la table 'liste' un couple 'nom Coins normalisé' - 'donnée'
-- Si istexte = true, le deuxième élément de tab est considéré comme du texte,
-- sinon comme le nom d'un paramètre.
local function insertList ( key, value, prefix )
prefix = prefix or
if value and value ~= then
table.insert ( liste, key .. '=' .. mw.uri.encode ( prefix .. value ) )
return true
end
end
-- norme du COinS
insertList ( 'ctx_ver', 'Z39.88-2004' )
-- genre, titre et sous-titre
local tabGenre = {
chapitre = { 'book', 'bookitem', 'rft.btitle', 'rft.atitle', 'titre section' },
article = { 'journal', 'article', 'rft.atitle', 'rft.jtitle', 'périodique' },
ouvrage = { 'book', 'book', 'rft.btitle', 'rft.atitle', 'titre section' },
}
local genre = tabGenre [ args.genre ]
if not genre then
return
end
insertList ( 'rft_val_fmt', genre [1], 'info:ofi/fmt:kev:mtx:' )
insertList ( 'rft.genre', genre [2] )
insertList ( genre [3], args.titre )
insertList ( genre [4], args [ genre [5] ] )
insertList ( 'rft.stitle', args ['sous-titre'] )
-- liste des auteur, noms - prénoms
if insertList ( 'rft.aulast', args.nom1 ) then
insertList ( 'rft.aufirst', args [ 'prénom1' ] )
end
insertList ( 'rft.au', args.auteur )
for i = 1, 10 do
local nom = args [ 'nom' .. i]
if nom == nil or nom == then
break
else
local prenom = args [ 'prénom' .. i] or
if prenom ~= then
prenom = ', ' .. prenom
end
insertList ( 'rft.au', nom .. prenom )
end
end
-- date
local datePub = Date.dateISO ( frame )
if datePub then
insertList ( 'rft.date', datePub )
else
insertList ( 'rft.date', args.date )
end
-- doonée phisique de la publication
insertList ( 'rft.volume', args.volume )
insertList ( 'rft.issue', args [ 'numéro' ] )
insertList ( 'rft.pages', args.pages )
insertList ( 'rft.spage', args [ 'page début' ] )
insertList ( 'rft.tpages', args [ 'pages totales' ] )
-- donnée sur l'éditeur
insertList ( 'rft.place', args.lieu )
insertList ( 'rft.pub', args [ 'éditeur' ] )
insertList ( 'rft.edition', args [ 'édition' ] )
-- références internationales
insertList ( 'rft.isbn', args.isbn )
insertList ( 'rft.issn', args.issn )
insertList ( 'rft_id', args.doi, 'info:doi/' )
insertList ( 'rft_id', args.pmid, 'info:pmid/' )
insertList ( 'rft_id', args.oclc, 'info:oclcnum/' )
insertList ( 'rft_id', args.url )
-- referer : page Wikipedia ou se trouve cette référence
insertList ( 'rfr_id', 'fr.wikipedia.org:' .. mw.title.getCurrentTitle().fullText, 'info:sid/' )
return ' '
end
return Biblio