Module:Biblio/Commun
Aller à la navigation
Aller à la recherche
Documentation module[créer]
Documentation module[créer]| Peut-être voulez-vous créer une page de documentation pour ce module Scribunto. Les éditeurs peuvent expérimenter dans les pages bac à sable (créer | miroir) et cas tests (créer) de ce module. Veuillez ajouter les catégories dans la sous-page /documentation. sous-pages de ce module. |
-- Les fonctions du module Biblio/Commun sont des éléments nécessaire au modules Biblio/Ouvrage, Biblio/Article, Biblio/Lien web.
local Commun = {}
local Date = require( 'Module:Date' )
local Langue -- = require( 'Module:Langue' ) ne sera chargé que si nécessaire
local Languedata -- = mw.loadData( 'Module:Langue/Data' ) ne sera chargé que si nécessaire
--[=[
Trouve le premier lien interwiki '[[lien|texte]]' de str et retourne : texte, lien
Si le lien est '[[texte]]', retourne : texte, texte.
Si str ne contient pas de lien interwiki, retourne : str (et nil)
Les fichiers et images ne sont pas considérés comme des liens.
Si str n'est pas une chaine, retourne : nil
]=]
local function texteLien( str )
if type( str ) == 'string' then
for lien, texte in string.gmatch( str, '%[%[ *([^%[%]|]*)|? *([^%[%]]*)%]%]' ) do
texte = ( texte ~= '' and texte ) or lien or str
if not lien then
return str
end
local testlien = string.lower( lien )
local fichier = string.match( testlien, '^fichier:' )
or string.match( testlien, '^image:' )
or string.match( testlien, '^file:' )
if not fichier then
return texte, lien
end
end
return str
end
end
-- Copie de Outils.validTextArg sans trim, pour performances avec les paramètres nommés ?
-- refs [[Spécial:Diff/105796198]]
function Commun.validTextArg( args, name, ... )
local texte = args[name]
if type( texte ) == 'string' and texte ~= '' then
return texte
elseif #{ ... } > 0 then
return Commun.validTextArg( args, ... )
end
end
--[[
Génère une abréviation discrète
paramètres :
1 = abréviation,
2 = texte,
nbsp = '-' pour une espace insécable avant l'abréviation, '+' pour l'avoir après.
]]
local function abr( args )
return ( args.nbsp == '-' and ' ' or '' )
.. '<abbr class="abbr" title="' .. args[2] .. '">'
.. args[1]
.. '</abbr>'
.. ( args.nbsp == '+' and ' ' or '' )
end
-- Abréviation utiles
Commun.chap = abr{ 'chap.', 'chapitre(s)', nbsp='+' }
Commun.coll = abr{ 'coll.', 'collection', nbsp='+' }
Commun.ed = abr{ 'éd.', 'édition', nbsp='-' }
Commun.nbp = abr{ 'p.', 'pages', nbsp='-' }
Commun.numero = abr{ 'n<sup>o</sup>', 'numéro', nbsp='+' }
Commun.numeros = abr{ 'n<sup>os</sup>', 'numéros', nbsp='+' }
Commun.page = abr{ 'p.', 'page(s)', nbsp='+' }
Commun.plume = '<span class="nowrap" title="Ouvrage utilisé pour la rédaction de l\'article">\194\160[[Fichier:Icon_flatdesign_plume.svg|20px|link=|alt=Ouvrage utilisé pour la rédaction de l\'article]]</span>'
Commun.premiere = abr{ '1<sup>re</sup>', 'première' }
Commun.reimpr = abr{ 'réimpr.', 'réimpression', nbsp='+' }
Commun.tome = abr{ 't.', 'tome', nbsp='+' }
Commun.vol = abr{ 'vol.', 'volume', nbsp='+' }
function Commun.detailEdition( ref )
return '<small>[[[' .. ref .. '|détail de l’édition]]]</small>'
end
function Commun.detailEditions( ref )
return '<small>[[[' .. ref .. '|détail des éditions]]]</small>'
end
-- affiche le texte en nombre romain majuscule.
function Commun.romain( texte )
local a = '<span class="romain" style="text-transform:uppercase">'
local b = '</span>'
return a, texte, b
end
function Commun.fusionTexteLien( texte, lien, categ )
local categorisation, result
local message = '<sup style="color:red;">[le lien externe a été retiré]</sup>'
if lien and lien ~= '' then
if texte:match( '%[%[' ) then
result = Commun.fusionTexteLien( texte, nil, categ )
elseif lien:match( '^http' ) or lien:match( '//' ) then
lien = false
categorisation = true
result = texte .. message
else
result = string.format( '[[%s|%s]]', lien, texte )
end
else
--[=[ if texte:match( '//' ) then
result = texte:gsub( '%[https?://[^%[%] ]* *([^%]]+)%]', '%1' )
:gsub( '%[//[^%[%] ]* *([^%]]+)%]', '%1' )
if result ~= texte then
result = result .. message
categorisation = true
end
end ]=] -- désactivé pour le moment (peut être activé si quelqu'un est prêt à corriger les erreurs)
end
if categorisation and type( categ ) == 'table' then
categ.lienExterne = true
end
return result or texte
end
-- voir Modèle:Module biblio/span initial
function Commun.spanInitial( args, validArg )
local id = validArg( 'id' )
local id2
if id then
id = ' id="' .. id .. '"'
else
local nom = validArg( 'nom1', 'nom', 'last1', 'last', 'author' )
local prenom = validArg( 'prénom1', 'prénom', 'firt1', 'first' )
local postnom = validArg( 'postnom1', 'postnom' )
local auteur_i = validArg( 'auteur1', 'author1', 'auteur' )
local i = 1
local idTab, id2Tab = { }, { }
while nom or auteur_i do
if auteur_i and not nom then
-- tentative de séparation de l'auteur en prénom nom.
-- Enregistre le résultat dans args pour les COinS.
auteur_i = texteLien( auteur_i )
if auteur_i == '' then
break
end
local a1, a2, a3 = string.match( auteur_i, '^([^ ]+) *([^ ]*) *(.*)$' )
if a3 ~= '' then
local a2len = mw.ustring.len( a2 )
if a2len == 1 or ( a2len == 2 and mw.ustring.sub( a2, -1 ) == "." ) then
-- a1 est le prénom, a2 une initiale et a3 le nom
nom = a3
if i == 1 then
args.nom = a3
args['prénom'] = a1 .. ' ' .. a2
end
else
-- a2 peut être le deuxième prénon ou le début du nom
nom = a2 .. ' ' .. a3
end
elseif a2 ~= '' then
-- a1 prénom, a2 nom
nom = a2
if i == 1 then
args.nom = a2
args['prénom'] = a1
end
else
nom = a1
end
end
if not auteur_i then
if prenom and postnom then
auteur_i = prenom .. ' ' .. nom .. ' ' .. postnom
elseif prenom then
auteur_i = prenom .. ' ' .. nom
elseif postnom then
auteur_i = nom .. ' ' .. postnom
else
auteur_i = nom
end
end
table.insert( idTab, mw.uri.anchorEncode( nom ) )
table.insert( id2Tab, mw.uri.anchorEncode( auteur_i ) )
if i == 4 then
break
end
i = i + 1
nom = validArg( 'nom' .. i, 'last' .. i )
prenom = validArg( 'prénom' .. i, 'first' .. i )
postnom = validArg( 'postnom' .. i)
auteur_i = validArg( 'auteur' .. i, 'author' .. i )
end
if #idTab < 4 and validArg( 'auteur institutionnel' ) then
table.insert( idTab, mw.uri.anchorEncode( validArg( 'auteur institutionnel' ) ) )
table.insert( id2Tab, idTab[#idTab] )
end
local annee = validArg( 'année', 'year', 'date' )
if annee then
local t, d = Date.separationJourMoisAnnee( annee )
if t and d.annee and annee ~= d.annee then
annee = tostring( d.annee )
args['année'] = annee
if d.mois then
args.mois = validArg( 'mois' ) or tostring( d.mois )
end
if d.jour then
args.jour = validArg( 'jour' ) or tostring( d.jour )
end
elseif mw.ustring.find( annee, "%a" ) and annee:find( "%f[%d]%d%d%d%d%f[%D][a-h]?" ) then
-- le [a-h]? final est destiné à accepter les lettres ajoutées lorsqu'il y a plusieurs ouvrages d'un même auteur la même année (cf. [[:en:Template:Harvard citation no brackets#More than one work in a year]])
annee = annee:match( "%f[%d]%d%d%d%d%f[%D][a-h]?" )
end
annee = mw.uri.anchorEncode( tostring( annee ) )
table.insert( idTab, annee )
table.insert( id2Tab, annee )
end
if #idTab > 0 then
id = ' id="' .. table.concat( idTab ) .. '"'
id2 = ' id="' .. table.concat( id2Tab ) .. '"'
if id2 == id then
id2 = false
end
else
id = ''
end
end
local spaninitial, spanfinal
if id2 then
spaninitial = '<span class="ouvrage"' .. id .. '><span class="ouvrage"' .. id2 .. '>'
spanfinal = '</span></span>'
else
spaninitial = '<span class="ouvrage"' .. id .. '>'
spanfinal = '</span>'
end
return spaninitial, spanfinal
end
-- voir Modèle:Module biblio/libellé
function Commun.libelle( args )
local lib = args['libellé']
if lib and lib ~= '' then
return '<small>[' .. lib .. ']</small> '
else
return ''
end
end
-- voir Modèle:Commentaire biblio
function Commun.commentaire( args )
if args.commentaire and args.commentaire ~= '' then
local a = '<div style="margin-left:2em; line-height:1.5;">'
local b = '</div>'
return a, args.commentaire, b
end
return ''
end
-- voir Modèle:Module biblio/indication de langue
function Commun.indicationDeLangue( args, validArg )
local lang = validArg( 'langue', 'lang', 'lien langue', 'language' )
if lang then
Langue = require( 'Module:Langue' )
-- on essaie le code de langue complet (nécessaire pour les langues avec plusieurs mots comme "grec ancien")
local codeLangue = Langue.codeLangue2( lang )
if codeLangue == 'fr' or codeLangue:sub(1, 3) == 'fr-' then
return ''
elseif codeLangue ~= '' then
return Langue.indicationMultilingue{ codeLangue }, codeLangue
end
-- si la langue n'a pas été trouvée on considère qu'il y a plusieurs langues
-- séparation des langues s'il y en a plusieurs
local listeLangue = mw.text.split( lang, '[+,;:/ %.]+' )
-- code langue principal qui sera appliqué aux titres
codeLangue = Langue.codeLangue2( listeLangue[1] )
if codeLangue == '' then
if type( args.categ ) == 'table' then
args.categ.langue = true
end
return Langue.indicationMultilingue( listeLangue )
else
-- calcul code de langue et catégorie
local indicationLangue = Langue.indicationMultilingue( listeLangue )
if type( args.categ ) == 'table' then
args.categ.langue = indicationLangue:find( '???', 1, true )
end
if codeLangue ~= 'fr' and codeLangue:sub(1, 3) ~= 'fr-' then
return indicationLangue, codeLangue
elseif #listeLangue > 1 then
return indicationLangue, codeLangue
end
end
end
return ''
end
-- voir Modèle:Module biblio/responsabilité principale
function Commun.responsabilitePrincipale( args, validArg )
local nom = validArg( 'nom1', 'nom', 'last1', 'last' )
local auteur = validArg( 'auteur1', 'auteur', 'author1', 'author' )
local auteurInstitutionnel = validArg( 'auteur institutionnel' )
if not ( nom or auteur or auteurInstitutionnel ) then
return ''
end
if nom or auteur then
-- clarification des paramètres
args['prénom1'] = validArg( 'prénom1', 'prénom', 'first1', 'first' )
args['postnom1'] = validArg( 'postnom1', 'postnom' )
args.directeur1 = validArg( 'directeur1', 'directeur' )
args['lien auteur1'] = validArg( 'lien auteur1', 'lien auteur', 'author-link' )
end
-- préparation des variables
local listeResponsables = { } -- contiendra un élément pour chaque nom
local directeur = abr { 'dir.', 'directeur de publication' }
local prenom, postnom, dir, responsable, lien, precision, resp
local i = 1
-- boucle sur chaque nom, assemble toutes les caractéristiques et ajoute l'ensemble à la liste.
while nom or auteur do
-- nom de l'auteur
if not auteur then
prenom = validArg( 'prénom' .. i, 'first' .. i )
nom = '<span class="nom_auteur">' .. nom .. '</span>'
postnom = validArg( 'postnom' .. i)
if prenom and postnom then
auteur = prenom .. ' ' .. nom .. ' ' .. postnom
elseif prenom then
auteur = prenom .. ' ' .. nom
elseif postnom then
auteur = nom .. ' ' .. postnom
else
auteur = nom
end
end
-- lien sur l'auteur
auteur = Commun.fusionTexteLien( auteur, args['lien auteur' .. i], args.categ)
-- définition des responsabilités
dir = validArg( 'directeur' .. i )
resp = validArg( 'responsabilité' .. i )
if dir then
if resp then
precision = ' (' .. directeur .. ' et ' .. resp .. ')'
else
precision = ' (' .. directeur .. ')'
end
elseif resp then
precision = ' (' .. resp .. ')'
else
precision = ''
end
table.insert( listeResponsables, auteur .. precision )
i = i + 1
nom = validArg( 'nom' .. i, 'last' .. i )
auteur = validArg( 'auteur' .. i, 'author' .. i )
end
local listeAuteurs
local et_al = ''
if validArg( 'et al.', 'et alii' ) then
et_al = " ''" .. abr { "et al.", "et alii (et d’autres)" } .. "''"
listeAuteurs = table.concat( listeResponsables, ', ' ) .. et_al
else
listeAuteurs = mw.text.listToText( listeResponsables )
end
if auteurInstitutionnel then
if #listeResponsables > 0 then
return listeAuteurs .. ', ' .. auteurInstitutionnel
else
return auteurInstitutionnel .. et_al
end
else
return listeAuteurs
end
end
-- voir Module biblio/responsabilité secondaire
function Commun.responsabiliteSecondaire( args, validArg )
local liste = { }
-- fonction qui teste l'existence d'un paramètre et insère dans liste une abréviation discrète suivie de ce paramètre
local function insertAbr( arg, abrev, texte )
if arg then
table.insert( liste, abr{ abrev, texte, nbsp='+' } .. arg )
end
end
-- langue originale et traducteur
local trad = validArg( 'traducteur', 'trad', 'traduction' )
local langueOriginale = validArg( 'langue originale' )
if langueOriginale then
local Languedata = mw.loadData( 'Module:Langue/Data' )
langueOriginale = Languedata[langueOriginale] and Languedata[langueOriginale].nom
end
if langueOriginale then
if trad then
trad = ' par ' .. trad
else
trad = ''
end
if mw.ustring.sub( langueOriginale, 1, 1 ):match( '[a, e, é, è, i, o, u]' ) or
langueOriginale == 'hébreu' then
trad = "de l'" .. langueOriginale .. trad
else
trad = 'du ' .. langueOriginale .. trad
end
end
insertAbr( trad, 'trad.', 'traduction' )
-- ajout des différents responsables
insertAbr( validArg( 'préface' ), 'préf.', 'préface' )
if validArg( 'postface' ) then
table.insert( liste, 'postface ' .. args.postface )
end
insertAbr( validArg( 'illustrateur', 'illustrations' ), 'ill.', 'illustrations' )
insertAbr( validArg( 'photographe', 'photographies' ), 'photogr.', 'photographies' )
if validArg( 'champ libre' ) then
table.insert( liste, args['champ libre'] )
end
-- concaténation de l'ensemble
local texte = table.concat( liste, ', ')
if texte ~= '' then
return ' (' .. texte .. ')'
end
end
-- Affiche une date correctement formatée, sans liens.
-- En cas de paramètres erronés, cette fonction fait au mieux pour formater, sans générer d'erreur.
function Commun.inscriptionDate( args )
-- pour [[Modèle:Inscription date]], où args est en fait la frame du #invoke
if type( args.getParent ) == 'function' then
args = args:getParent().args
end
local annee = Commun.validTextArg( args, 'année', 'annee', 'year' )
if annee then
if annee:match( '^%-?%d+$' ) then
-- si l'année est correctement renseignée, on essaye de trouver le mois
local mois = Commun.validTextArg( args, 'mois', 'month', 'saison' )
mois = string.lower( mois or '' )
local jour = Commun.validTextArg( args, 'jour', 'day', 'quantième' )
local t, jma = Date.validationJourMoisAnnee{ jour, mois, annee }
if t then
jma.nolinks = true
return Date._modeleDate( jma )
else
local date = { jour }
table.insert( date, mois )
table.insert( date, annee )
return '<time class="nowrap" datetime="' .. annee .. '">' .. table.concat( date, ' ' ) .. '</time>'
end
else
return Commun.inscriptionDate{ date = annee }
end
else
-- si annee n'est pas précisé, on utilise le paramètre date
local date = Commun.validTextArg( args, 'date' )
if date then
date = date:lower()
-- Date iso avec l'heure : suppression de l'heure
date = date:gsub( '^(%d%d%d%d%-%d%d%-%d%d)t[%d:+-]+$', '%1' )
local t, jma = Date.separationJourMoisAnnee( date )
if t then
jma.nolinks = true
return Date._modeleDate( jma )
else
-- date non reconnue, on essaye Month day, year
local mois, jour, annee = mw.ustring.match( date, '^([%a]+)%s*(%d%d?)[,%s]+(%d+)$' )
local t, jma = Date.validationJourMoisAnnee{ jour, mois, annee }
if annee and t then
jma.nolinks = true
return Date._modeleDate( jma )
end
end
return date
end
end
return ''
end
-- retire tous les liens internes, externes et balises html pour ne garder que le texte brut.
local function nettoyageTexte( texte )
if type( texte ) == 'string' then
if texte:match( '[%[<]' ) then
local function texteDuLien( l, t )
return ( t ~= '' and t ) or l
end
-- nettoyage des liens internes
texte = texte:gsub( '%[%[([^%[%]|]*)|?([^%[%]]*)%]%]', texteDuLien )
-- nettoyage des liens externes
:gsub( '%[https?://[^%[%] ]* *([^%]]+)%]', '%1' )
:gsub( '%[//[^%[%] ]* *([^%]]+)%]', '%1' )
-- nettoyage des balises html
:gsub( '%b<>', '' )
end
return texte
end
end
-- voir Modèle:COinS bibliographique
-- NISO Z39.88
-- http://www.openurl.info/registry
function Commun.COinS( args, validArg, genre )
local liste = { }
-- insertlist 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 type( value ) == 'string' and value ~= '' then
liste[#liste + 1] = key .. '=' .. mw.uri.encode( prefix .. value )
end
end
-- norme du COinS
insertList( 'ctx_ver', 'Z39.88-2004' )
-- genre, titre et sous-titre
if genre == 'article' then
insertList( 'rft_val_fmt', 'info:ofi/fmt:kev:mtx:journal' )
insertList( 'rft.genre', 'article' )
insertList( 'rft.atitle', nettoyageTexte( args.titre ) )
insertList( 'rft.jtitle', nettoyageTexte( validArg( 'périodique', 'revue', 'journal' ) ) )
insertList( 'rft.issue', validArg( 'numéro', 'no', 'issue' ) )
else
-- genre = ouvrage ou chaitre
insertList( 'rft_val_fmt','info:ofi/fmt:kev:mtx:book' )
if genre == 'chapitre' then
insertList( 'rft.genre', 'bookitem' )
else
insertList( 'rft.genre', 'book' )
end
insertList( 'rft.btitle', nettoyageTexte( args.titre ) )
insertList( 'rft.atitle', nettoyageTexte( validArg( 'titre chapitre', 'titreChap' ) ) )
-- donnée sur l'éditeur
insertList( 'rft.place', texteLien( validArg( 'lieu', 'location' ) ), nil )
insertList( 'rft.pub', texteLien( validArg( 'éditeur', 'édition' ) ), nil )
insertList( 'rft.edition', texteLien( validArg( "numéro d'édition", "numéro édition" ) ), nil )
end
insertList( 'rft.stitle', args['sous-titre'] )
-- Premier auteur, séparé en noms et prénoms
local nom = texteLien( validArg( 'nom1', 'nom', 'last1', 'last' ) )
if nom then
insertList( 'rft.aulast', nom )
insertList( 'rft.aufirst', validArg( 'prénom1', 'prénom', 'first1', 'first' ) )
insertList( 'rtf.ausuffix ', validArg( 'postnom1', 'postnom' ) )
else
local auteur = texteLien( validArg( 'auteur', 'auteur1' ) )
if auteur then
insertList( 'rft.au', auteur )
end
end
-- les autres auteurs, la norme ne prévoit pas de séparation
for i = 2, 20 do
local nom_i = texteLien( validArg( 'nom' .. i ) )
if nom_i then
local prenom_i = validArg( 'prénom' .. i )
local postnom_i = validArg( 'postnom' .. i)
if prenom_i and postnom_i then
insertList( 'rft.au', nom_i .. ' ' .. postnom_i .. ', ' .. prenom_i )
elseif prenom_i then
insertList( 'rft.au', nom_i .. ', ' .. prenom_i )
elseif postnom_i then
insertList( 'rft.au', nom_i .. ' ' .. postnom_i )
else
insertList( 'rft.au', nom_i )
end
else
local auteur_i = texteLien( validArg( 'auteur' .. i ) )
if auteur_i then
insertList( 'rft.au', auteur_i )
else
break
end
end
end
if validArg( 'auteur institutionnel' ) then
insertList( 'rft.aucorp', args['auteur institutionnel'] )
end
-- date
local datePub = Date.dateISO( args )
if datePub then
insertList( 'rft.date', datePub )
else
insertList( 'rft.date', args.date )
end
-- doonées physique de la publication
insertList( 'rft.volume', validArg( 'volume', 'vol' ) )
insertList( 'rft.pages', validArg( 'passage', 'page' ) )
insertList( 'rft.spage', args['page début chapitre'] )
insertList( 'rft.tpages', args['pages totales'] )
-- 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/' )
local contextObject = table.concat( liste, '&' )
return '<span class="Z3988" title="' .. contextObject .. '"></span>'
end
return Commun