|
|
| Ligne 1 : |
Ligne 1 : |
| − | local Biblio = {}
| + | -- Le module biblio centralise les différentes fonctions utiles pour les bibliographie et références. |
| | | | |
| − | local Langue = require ( 'Module:Langue' ) | + | local Biblio = { } |
| − | 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
| + | local Outils = require( 'Module:Outils' ) |
| − | -- 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] .. '</abbr>')
| |
| | | | |
| − | return table.concat (wikiText) | + | Biblio.ouvrage = function ( frame ) |
| | + | local args = Outils.extractArgs( frame, 'titre' ) |
| | + | local Ouvrage = require( 'Module:Biblio/Ouvrage' ) |
| | + | return Ouvrage.ouvrage( args ) |
| | end | | 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[[Catégorie:ISBN nécessaire]]' }
| |
| − | else
| |
| − | local texteIsbn = 'ISBN ' .. isbn
| |
| − | repeat
| |
| − | local lien = '[[Spécial:Ouvrages de référence/' .. isbn
| |
| − | .. '|<span class="nowrap">' .. texteIsbn .. '</span>]]'
| |
| − | table.insert ( liste, lien )
| |
| | | | |
| − | i = i + 1
| + | Biblio.chapitre = function ( frame ) |
| − | isbn = mw.text.trim ( args [i] or '' )
| + | local args = Outils.extractArgs( frame, 'titre', 'titre chapitre', 'titre ouvrage' ) |
| − | texteIsbn = isbn
| + | local Ouvrage = require( 'Module:Biblio/Ouvrage' ) |
| − | until isbn == ''
| + | return Ouvrage.chapitre( args ) |
| − | end
| |
| − | return '<small>(' .. mw.text.listToText ( liste ) .. ')</small>' | |
| | end | | 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[[Catégorie:ISSN nécessaire]]' }
| |
| − | else
| |
| − | repeat
| |
| − | local lien = '<span class="plainlinks noarchive">[http://worldcat.org/issn/'
| |
| − | .. mw.uri.encode( issn ) .. '&lang=fr ' .. issn.. ']</span>'
| |
| − | table.insert ( liste, lien )
| |
| | | | |
| − | i = i + 1
| + | Biblio.article = function ( frame ) |
| − | issn = mw.text.trim ( args [i] or '' )
| + | local args = Outils.extractArgs( frame, 'titre', 'périodique', 'année' ) |
| − | texteIsbn = issn
| + | local Ouvrage = require( 'Module:Biblio/Article' ) |
| − | until issn == ''
| + | return Ouvrage.article( args ) |
| − | end
| |
| − | return '<small>([[International Standard Serial Number|ISSN]] ' .. mw.text.listToText ( liste ) .. ')</small>' | |
| | end | | end |
| | | | |
| − | -- voir Modèle:Module biblio/span initial
| + | Biblio.lienWeb = function( frame ) |
| − | function Biblio.spanInitial ( frame )
| + | local args = Outils.extractArgs( frame, 'url', 'titre', 'title' ) |
| − | local args = extractArgs ( frame ) -- préparation pour appel par modèle ou direct. | + | local Ouvrage = require( 'Module:Biblio/Lien web' ) |
| − | local id = args.id or '' | + | return Ouvrage.lienWeb( args ) |
| − | if string.len( id ) == 0 then | |
| − | id = mw.uri.anchorEncode ( args.id1 .. args.id2 .. args.id3 .. args.id4 .. args.id5 )
| |
| − | end
| |
| − | return '<span class="ouvrage" id="' .. id
| |
| | end | | end |
| | | | |
| − | -- voir Modèle:Module biblio/libellé
| + | Biblio.ISBN = function ( frame ) |
| − | function Biblio.libelle ( frame )
| + | local args = Outils.extractArgs( frame, 'isbn', 'ISBN', 'iSbn1', 'ISBN1' ) |
| − | local args = extractArgs ( frame ) | + | local References = require( 'Module:Biblio/Références' ) |
| − | local lib = args ['libellé'] or args [1] or '' | + | return '<small>(' .. References.ISBN( args ) .. ')</small>' |
| − | if string.len( lib ) > 0 then | |
| − | lib = '<small>[' .. lib .. ']</small> '
| |
| − | end
| |
| − | return lib
| |
| | end | | end |
| | | | |
| − | -- voir Modèle:Module biblio/indication de langue
| + | |
| − | function Biblio.indicationDeLangue ( frame )
| + | Biblio.ISSN = function ( frame ) |
| − | local args = extractArgs ( frame ) | + | local args = Outils.extractArgs( frame, 'issn', 'ISSN', 'issn1', 'ISSN1' ) |
| − | local codeLangue = Langue.codeLangue2 ( args.langue )
| + | local References = require( 'Module:Biblio/Références' ) |
| − | if codeLangue ~= '' and codeLangue ~= 'fr' then
| + | return References.ISSN( args ) |
| − | return Langue.indicationDeLangue { '', codeLangue }
| |
| − | else | |
| − | return ''
| |
| − | end | |
| | 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 = '[[' .. lien .. '|' .. 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
| + | Biblio.enLigne = function ( frame ) |
| − | function Biblio.responsabiliteSecondaire ( frame )
| + | local args = Outils.extractArgs( frame, 'lien', 'url' ) |
| − | local args = extractArgs ( frame ) | + | local References = require( 'Module:Biblio/Références' ) |
| − | local traducteur = args.traducteur or ''
| + | return '<small>[' .. References.enLigne( args ) .. ']</small>' |
| − | 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 | | 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 '<span class="Z3988" title="' .. table.concat ( liste, '&' ) .. '"> </span>'
| |
| − | end
| |
| − |
| |
| | return Biblio | | return Biblio |
