Module:Biblio/Commun
La documentation pour ce module peut être créée à Module:Biblio/Commun/doc
Erreur de script : Erreur Lua : erreur interne : l’interpréteur s’est arrêté avec le signal « -129 ».
-- 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', nbsp='+' } Commun.pages = abr{ 'p.', 'pages', nbsp='+' } Commun['page(s)'] = 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 langueOriginale:match( '^[aeiou]' ) or langueOriginale:match( '^é' ) -- regex dédiée pour cette lettre, vu qu'elle est codée sur plusieurs octets 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 function Commun.formatePagesTotales( pages ) -- seulement un nombre entier -- (avec éventuellement un "formatnum" appliqué dessus) if pages:match( '^%d+$' ) or pages:match( '^%d+\194\160%d+$' ) then return pages .. Commun.nbp end -- détection de « nombre - nombre » -- (double pagination, le plus souvent « nombre romain - nombre arabe »), -- avec éventuellement une abréviation sur le nombre romain local pagesTagsRemoved = pages:gsub( '%b<>', '' ) if pagesTagsRemoved:match('^[%dIVXLCDM]+ ?%- ?[%dIVXLCDM]+$') -- "tiret du 6" (noter que c'est un caractère à escaper dans les regexes Lua) or pagesTagsRemoved:match('^[%dIVXLCDM]+ ?– ?[%dIVXLCDM]+$') -- tiret moyen (attention, c'est un caractère sur 3 octets) or pagesTagsRemoved:match('^[%dIVXLCDM]+ et [%dIVXLCDM]+$') then -- « nombre et nombre », cas de figure quelquefois rencontré return pages .. Commun.nbp end -- détection d'un suffixe « p. » déjà présent, -- que l'on remplace alors par la version wikifiée (espace insécable, balise d'abréviation) local pages2 = pages :gsub( ' p%.$', '' ) :gsub( '\194\160p%.$', '' ) :gsub( ' p%.$', '' ) :gsub( ' p%.$', '' ) if pages2 ~= pages then return pages2 .. Commun.nbp end return pages end -- ajoute l'abréviation « p. » la plus précise possible devant le passage, -- si un numéro de page ou un intervalle de pages est détecté function Commun.formatePassage( passage ) local test = passage:gsub( '%b<>', '' ) -- on retire les balises (notamment <abbr>) pour les tests if test:match( '^[%dIVXLCDM]+$' ) then -- uniquement des chiffres (arabes ou romains) return Commun.page .. passage elseif test:match( '^%d+ ?%- ?%d+$' ) -- "tiret du 6" (noter que c'est un caractère à escaper dans les regexes Lua) or test:match( '^%d+ ?– ?%d+$' ) -- tiret moyen (attention, c'est un caractère sur 3 octets) or test:match( '^[IVXLCDM]+ ?%- ?[IVXLCDM]+$' ) -- même chose avec les nombres romains or test:match( '^[IVXLCDM]+ ?– ?[IVXLCDM]+$' ) then return Commun.pages .. passage elseif test:match( '^%d' ) -- commence par un chiffre arabe or test:match( '^[IVXLCDM]+[ ,%-]' ) -- nombre romain suivi d'un caractère de séparation, pour s'assurer que c'est un nombre romain et pas le début d'un nom or test:match( '^[IVXLCDM]+–' ) then -- regex dédiée pour le tiret moyen, vu qu'il est codé sur 3 octets return Commun['page(s)'] .. passage else return passage end 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