Module:Biblio/Références : Différence entre versions
m (accent dans commentaire) |
m |
||
(35 révisions intermédiaires par 9 utilisateurs non affichées) | |||
Ligne 1 : | Ligne 1 : | ||
-- Les fonctions de ce module sont destinées à être utilisées par un autre module. | -- Les fonctions de ce module sont destinées à être utilisées par un autre module. | ||
− | -- Leur paramètre d'entrée est une table simple (args), voire une | + | -- Leur paramètre d'entrée est une table simple (args), voire une chaine (oclc, bnf...) |
local References = { } | local References = { } | ||
Ligne 8 : | Ligne 8 : | ||
local validTextArg = Outils.validTextArg | local validTextArg = Outils.validTextArg | ||
local TableBuilder = require( 'Module:TableBuilder' ) | local TableBuilder = require( 'Module:TableBuilder' ) | ||
+ | -- local Date = require( 'Module:Date' ) -- chargé uniquement si nécessaire | ||
− | |||
--[[ | --[[ | ||
ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn(). | ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn(). | ||
If the number is valid the result will be 0. Before calling this function, issbn/issn must be checked for length and stripped of dashes, | If the number is valid the result will be 0. Before calling this function, issbn/issn must be checked for length and stripped of dashes, | ||
− | + | spaces and other non-isxn characters. | |
]] | ]] | ||
function References.is_valid_isxn( isxn_str, len ) | function References.is_valid_isxn( isxn_str, len ) | ||
local temp = 0 | local temp = 0 | ||
+ | isxn_str = isxn_str:gsub( 'x', 'X' ) | ||
isxn_str = { isxn_str:byte(1, len) } -- make a table of bytes | isxn_str = { isxn_str:byte(1, len) } -- make a table of bytes | ||
len = len+1 -- adjust to be a loop counter | len = len+1 -- adjust to be a loop counter | ||
Ligne 29 : | Ligne 30 : | ||
return temp % 11 == 0 -- returns true if calculation result is zero | return temp % 11 == 0 -- returns true if calculation result is zero | ||
end | end | ||
− | + | ||
− | -- Teste si une | + | function References.isValidIsmn10( ismn ) |
+ | local temp = 9 | ||
+ | if ismn:match( 'M%d%d%d%d%d%d%d%d%d' ) then | ||
+ | for i = 2, 10 do | ||
+ | temp = temp + ( 1 + 2 * ( i % 2 ) ) * ismn:sub( i, i ) | ||
+ | end | ||
+ | end | ||
+ | return temp % 10 == 0 | ||
+ | end | ||
+ | |||
+ | -- Teste si une chaine ISBN est valide | ||
function References.checkisbn( isbn_str ) | function References.checkisbn( isbn_str ) | ||
− | if type( isbn_str ) ~= 'string' then | + | if type( isbn_str ) == 'string' then |
+ | isbn_str = isbn_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces | ||
+ | |||
+ | if isbn_str:len() == 10 then | ||
+ | if isbn_str:match( '^%d+[xX]?$' ) then | ||
+ | return References.is_valid_isxn( isbn_str, 10 ) | ||
+ | end | ||
+ | elseif isbn_str:match( '^97[89]' ) then | ||
+ | return References.checkean13( isbn_str ) | ||
+ | end | ||
+ | end | ||
+ | return false | ||
+ | end | ||
+ | |||
+ | -- Teste si une chaine EAN 13 est valide | ||
+ | function References.checkean13( ean_str ) | ||
+ | if type( ean_str ) == 'string' then | ||
+ | ean_str = ean_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces | ||
+ | if ean_str:len() == 13 and ean_str:match( '^%d+$' ) then | ||
+ | local temp = 0 | ||
+ | ean_str = { ean_str:byte( 1, 13 ) } | ||
+ | for i = 1, #ean_str do | ||
+ | temp = temp + ( 3 - 2 * ( i % 2 ) ) * tonumber( string.char( ean_str[i] ) ) | ||
+ | end | ||
+ | return temp % 10 == 0 | ||
+ | end | ||
+ | end | ||
+ | return false | ||
+ | end | ||
+ | |||
+ | function References.checkissn( issn_str ) | ||
+ | if type( issn_str ) == 'string' then | ||
+ | issn_str = issn_str:gsub( '[%s]', '' ) | ||
+ | if issn_str:match( '^%d%d%d%d%-%d%d%d[%dxX]$' ) then | ||
+ | issn_str = issn_str:gsub( '-', '' ) -- supprime les traits d’union et espaces | ||
+ | return References.is_valid_isxn( issn_str, 8 ) | ||
+ | end | ||
+ | end | ||
+ | return false | ||
+ | end | ||
+ | |||
+ | -- Teste si une chaine ISMN est valide | ||
+ | function References.checkismn( ismn_str ) | ||
+ | if type( ismn_str ) == 'string' then | ||
+ | ismn_str = ismn_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces | ||
+ | |||
+ | if ismn_str:len() == 10 then | ||
+ | return References.isValidIsmn10( ismn_str, 10 ) | ||
+ | elseif ismn_str:match( '^9790' ) then | ||
+ | return References.checkean13( ismn_str ) | ||
+ | end | ||
+ | end | ||
+ | return false | ||
+ | end | ||
+ | |||
+ | local function isbn13to9( isbn_str ) | ||
+ | if type( isbn_str ) == 'string' then | ||
+ | local isbn = isbn_str:gsub( '[-%s]', '' ) | ||
+ | if isbn:len() == 13 and isbn:sub( 1, 3 ) == '978' then | ||
+ | isbn = isbn:sub( 4, 12 ) | ||
+ | return isbn | ||
+ | elseif isbn:len() == 10 then | ||
+ | return isbn:sub( 1, -2 ) | ||
+ | end | ||
+ | end | ||
+ | return isbn_str | ||
+ | end | ||
+ | |||
+ | local function isbn13to10( isbn_str ) | ||
+ | local isbn = isbn13to9( isbn_str ) | ||
+ | if isbn ~= isbn_str and isbn_str:len() ~= 10 then | ||
+ | for i = 0, 9 do | ||
+ | if References.checkisbn( isbn .. i ) then | ||
+ | return isbn .. i | ||
+ | end | ||
+ | end | ||
+ | return isbn .. 'X' | ||
+ | end | ||
+ | return isbn_str | ||
+ | end | ||
+ | |||
+ | function References.isbn13to10( frame ) | ||
+ | local args = Outils.extractArgs( frame ) | ||
+ | return isbn13to10( args[1] ) | ||
+ | end | ||
+ | |||
+ | function References.same_isbn( isbn1, isbn2 ) | ||
+ | if type( isbn1 ) ~= 'string' or type( isbn2 ) ~= 'string' then | ||
+ | return false | ||
+ | end | ||
+ | -- remove dash and spaces | ||
+ | isbn1 = isbn1:gsub( '[-%s]', '' ) | ||
+ | isbn2 = isbn2:gsub( '[-%s]', '' ) | ||
+ | -- check if both isbn are valid | ||
+ | if not ( References.checkisbn(isbn1) and References.checkisbn(isbn2) ) then | ||
return false | return false | ||
end | end | ||
− | + | -- compare isbn | |
− | + | return isbn13to9( isbn1 ) == isbn13to9( isbn2 ) | |
− | + | end | |
− | + | ||
− | + | local function doublonIsxn( isxn, liste2, xnCode) | |
− | + | if type( References[ 'same_' .. xnCode ] ) == 'function' then | |
− | + | for k, v in ipairs( liste2 ) do | |
− | + | if References[ 'same_' .. xnCode ]( isxn, v ) then | |
− | for | + | return true |
− | + | end | |
end | end | ||
− | |||
end | end | ||
end | end | ||
− | |||
− | + | local function formatIsxn( args, validArg, xnCode, invalideCateg, checkFunction, formatLien, page ) | |
− | |||
− | function | ||
local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end | local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end | ||
local liste = { } | local liste = { } | ||
+ | local liste2 = { } | ||
local i = 1 | local i = 1 | ||
− | local avertissementInvalid = '<sup style="color:red">[à | + | local avertissementInvalid = '<sup style="color:red">[à vérifier : ' .. invalideCateg .. ']</sup>' |
− | local | + | local isxnErr = validArg( xnCode .. ' erroné' ) |
− | local | + | local XN = xnCode:upper() |
− | if | + | local isxn = validArg( xnCode, XN, xnCode .. '1', XN .. '1' ) |
− | local | + | if isxnErr or isxn then |
− | if | + | local isxnErrSanitised = isxnErr and isxnErr:match( '%d[%d -]+[%dXx]' ) |
− | local lien = | + | if isxnErrSanitised then |
− | + | local lien = formatLien:format( isxnErrSanitised, isxnErr ) .. ' (édité erroné)' | |
table.insert( liste, lien ) | table.insert( liste, lien ) | ||
end | end | ||
− | + | ||
− | -- boucle sur les | + | -- boucle sur les isxn2, 3... |
− | while | + | while isxn do |
− | -- vérifivation de la validité de l' | + | -- vérifivation de la validité de l'ISXN |
− | local | + | local isxnValid = checkFunction( isxn ) |
-- préparation du texte à afficher | -- préparation du texte à afficher | ||
− | if | + | if isxnValid then |
− | local lien = | + | local lien = formatLien:format( isxn, isxn ) |
− | |||
table.insert( liste, lien ) | table.insert( liste, lien ) | ||
+ | if type( args.categ ) == 'table' and doublonIsxn( isxn, liste2, xnCode) then | ||
+ | args.categ[ xnCode .. 'Dupliqué' ] = isxn | ||
+ | end | ||
+ | table.insert( liste2, isxn ) | ||
else | else | ||
− | table.insert( liste, | + | table.insert( liste, isxn .. avertissementInvalid ) |
− | args. | + | if type( args.categ ) == 'table' then |
+ | args.categ[ xnCode .. 'Invalid' ] = true | ||
+ | end | ||
end | end | ||
− | + | ||
i = i + 1 | i = i + 1 | ||
− | + | isxn = validArg( xnCode .. i, XN .. i ) | |
end | end | ||
− | + | if args['sansLabel'] then | |
+ | page = '' | ||
+ | else | ||
+ | page = page .. ' ' | ||
+ | end | ||
+ | return page .. mw.text.listToText( liste ) | ||
end | end | ||
+ | end | ||
+ | |||
+ | -- voir Modèle:ISBN | ||
+ | -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées | ||
+ | function References.isbn( args, validArg ) | ||
+ | return formatIsxn( | ||
+ | args, | ||
+ | validArg, | ||
+ | 'isbn', | ||
+ | '[[:Catégorie:Page avec ISBN invalide|ISBN invalide]]', | ||
+ | References.checkisbn, | ||
+ | '[[Spécial:Ouvrages de référence/%s|<span class="nowrap">%s</span>]]', | ||
+ | '[[International Standard Book Number|ISBN]]' | ||
+ | ) | ||
end | end | ||
+ | -- voir Modèle:EAN | ||
+ | -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées | ||
+ | function References.ean( args, validArg ) | ||
+ | return formatIsxn( | ||
+ | args, | ||
+ | validArg, | ||
+ | 'ean', | ||
+ | '[[:Catégorie:Page avec EAN invalide|EAN invalide]]', | ||
+ | References.checkean13, | ||
+ | '[[Spécial:Ouvrages de référence/%s|<span class="nowrap">%s</span>]]', | ||
+ | '[[EAN 13|EAN]]' | ||
+ | ) | ||
+ | end | ||
-- voir Modèle:ISSN | -- voir Modèle:ISSN | ||
− | -- renvoie une liste de | + | -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées |
function References.issn( args, validArg ) | function References.issn( args, validArg ) | ||
− | + | return formatIsxn( | |
− | + | args, | |
− | + | validArg, | |
− | + | 'issn', | |
− | + | '[[:Catégorie:Page avec ISSN invalide|ISSN invalide]]', | |
− | + | References.checkissn, | |
− | + | '<span class="plainlinks noarchive">[http://worldcat.org/issn/%s&lang=fr %s]</span>', | |
− | + | '[[International Standard Serial Number|ISSN]]' | |
− | + | ) | |
− | + | end | |
− | |||
− | |||
− | |||
− | + | function References.eissn( args, validArg ) | |
− | + | return formatIsxn( | |
− | + | args, | |
− | + | validArg, | |
− | + | 'e-issn', | |
− | + | '[[:Catégorie:Page avec ISSN invalide|ISSN invalide]]', | |
+ | References.checkissn, | ||
+ | '<span class="plainlinks noarchive">[http://worldcat.org/issn/%s&lang=fr %s]</span>', | ||
+ | '[[International Standard Serial Number#ISSN électronique|e-ISSN]]' | ||
+ | ) | ||
end | end | ||
+ | -- voir Modèle:ISMN | ||
+ | -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées | ||
+ | function References.ismn( args, validArg ) | ||
+ | return formatIsxn( | ||
+ | args, | ||
+ | validArg, | ||
+ | 'ismn', | ||
+ | '[[:Catégorie:Page avec ISMN invalide|ISMN invalide]]', | ||
+ | References.checkismn, | ||
+ | '<span class="nowrap">%s</span>', | ||
+ | '[[International Standard Music Number|ISMN]]' | ||
+ | ) | ||
+ | end | ||
+ | -- fonctions liant des bases de données externes | ||
local function databaseExterne( num, lienIinterne, lienExterne, complement, texteAffiche ) | local function databaseExterne( num, lienIinterne, lienExterne, complement, texteAffiche ) | ||
if Outils.notEmpty( num ) then | if Outils.notEmpty( num ) then | ||
Ligne 126 : | Ligne 280 : | ||
.. ' <span class="plainlinks noarchive nowrap">[http://' | .. ' <span class="plainlinks noarchive nowrap">[http://' | ||
.. lienExterne | .. lienExterne | ||
− | .. num | + | .. mw.uri.encode( num, 'PATH' ) |
.. ( complement or ' ' ) | .. ( complement or ' ' ) | ||
− | .. ( texteAffiche or num ) | + | .. mw.text.nowiki( texteAffiche or num ) |
.. ']</span>' | .. ']</span>' | ||
− | + | ||
return adresse | return adresse | ||
end | end | ||
Ligne 151 : | Ligne 305 : | ||
end | end | ||
− | function References. | + | function References.arxiv( arxiv ) |
− | return databaseExterne( | + | if Outils.trim( arxiv ) then |
+ | return databaseExterne( arxiv, '[[arXiv]]', 'arxiv.org/abs/' ):gsub( '%%2F', '/' ) | ||
+ | end | ||
+ | end | ||
+ | |||
+ | function References.asin( asin ) | ||
+ | return databaseExterne( asin, '[[Amazon Standard Identification Number|ASIN]]', 'www.amazon.fr/s/?url=search-alias&lang=fr&field-keywords=' ) | ||
+ | end | ||
+ | |||
+ | function References.bibcode( bibcode ) | ||
+ | return databaseExterne( bibcode, '[[Bibcode]]', 'adsabs.harvard.edu/abs/' ) | ||
end | end | ||
Ligne 174 : | Ligne 338 : | ||
texte = base | texte = base | ||
else | else | ||
− | -- ark qui semble non valide | + | -- ark qui semble non valide |
bnf = bnfId | bnf = bnfId | ||
texte = bnfId | texte = bnfId | ||
Ligne 180 : | Ligne 344 : | ||
end | end | ||
else | else | ||
− | -- le paramètre | + | -- le paramètre ne semble pas un ark valide |
category = '[[Catégorie:Recension temporaire pour le modèle Ouvrage|bnf]]' | category = '[[Catégorie:Recension temporaire pour le modèle Ouvrage|bnf]]' | ||
− | end | + | end |
− | -- dans tous les cas | + | -- dans tous les cas on renvoie l'adresse, on catégorise juste pour vérifier ce qui ne va pas |
local lien = databaseExterne( bnf, | local lien = databaseExterne( bnf, | ||
'notice [[Bibliothèque nationale de France|BnF]] n<sup>o</sup>', | 'notice [[Bibliothèque nationale de France|BnF]] n<sup>o</sup>', | ||
Ligne 196 : | Ligne 360 : | ||
end | end | ||
− | + | function References.dnb( dnb ) | |
− | function References. | + | return databaseExterne( dnb, '[[Bibliothèque nationale allemande|DNB]]', 'd-nb.info/' ) |
− | return | ||
end | end | ||
− | function References. | + | function References.doi( doi ) |
− | return databaseExterne( | + | return databaseExterne( doi, '[[Digital Object Identifier|DOI]]', 'dx.doi.org/' ) |
− | |||
− | |||
− | |||
− | |||
end | end | ||
Ligne 213 : | Ligne 372 : | ||
end | end | ||
− | function References. | + | function References.lccn( lccn ) |
− | return databaseExterne( | + | return databaseExterne( lccn, '[[Numéro de contrôle de la Bibliothèque du Congrès|LCCN]]', 'lccn.loc.gov/' ) |
end | end | ||
− | function References. | + | function References.mathreviews( mathreviews ) |
− | return databaseExterne( | + | return databaseExterne( mathreviews, '[[Mathematical Reviews|Math Reviews]]', 'www.ams.org/mathscinet-getitem?mr=' ) |
end | end | ||
− | function References. | + | function References.oclc( oclc ) |
− | return databaseExterne( | + | return databaseExterne( oclc, '[[Online Computer Library Center|OCLC]]', 'worldcat.org/oclc/', '&lang=fr ' ) |
end | end | ||
− | function References. | + | function References.pmcid( pmcid ) |
− | return databaseExterne( | + | return databaseExterne( pmcid, '[[PubMed Central|PMCID]]', 'www.ncbi.nlm.nih.gov/pmc/articles/' ) |
end | end | ||
− | function References. | + | function References.pmid( pmid ) |
− | return databaseExterne( | + | return databaseExterne( pmid, '[[PubMed|PMID]]', 'www.ncbi.nlm.nih.gov/pubmed/' ) |
end | end | ||
− | function References. | + | function References.sbn( sbn ) |
− | return databaseExterne( | + | local id = ( sbn or '' ):upper():gsub( '\\', '' ):gsub( '^ITICCU', '' ) |
+ | return databaseExterne( id, '[[Service bibliothécaire national]]', 'opac.sbn.it/bid/' ) | ||
end | end | ||
− | function References. | + | function References.sudoc( sudoc ) |
− | return databaseExterne( | + | return databaseExterne( sudoc, '[[Système universitaire de documentation|SUDOC]]', 'www.sudoc.fr/' ) |
end | end | ||
Ligne 245 : | Ligne 405 : | ||
return '[[s:' .. wikisource .. '|lire sur Wikisource]]' | return '[[s:' .. wikisource .. '|lire sur Wikisource]]' | ||
end | end | ||
+ | end | ||
+ | |||
+ | function References.zbl( zbl ) | ||
+ | return databaseExterne( zbl, '[[Zentralblatt MATH|zbMATH]]', 'zbmath.org/?q=an:' ) | ||
end | end | ||
Ligne 266 : | Ligne 430 : | ||
end | end | ||
end | end | ||
− | url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' ) | + | url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' ):gsub( ' ', '%%20' ) |
local texte = validArg( 'texte' ) or 'en ligne' | local texte = validArg( 'texte' ) or 'en ligne' | ||
Ligne 278 : | Ligne 442 : | ||
end | end | ||
− | function References.affichageLiensExternes(args, validArg, lireEnLigne, consulteLe) | + | function References.affichageLiensExternes( args, validArg, lireEnLigne, consulteLe ) |
local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end | local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end | ||
− | + | ||
− | |||
− | |||
− | |||
local liensExternes = TableBuilder.new( ) | local liensExternes = TableBuilder.new( ) | ||
-- isbn et issn | -- isbn et issn | ||
− | liensExternes.minsert( References.isbn( args, validArg ), References.issn( args, validArg ) ) | + | liensExternes.minsert( |
+ | References.isbn( args, validArg ), | ||
+ | References.ean( args, validArg ), | ||
+ | References.issn( args, validArg ), | ||
+ | References.eissn( args, validArg ), | ||
+ | References.ismn( args, validArg ) | ||
+ | ) | ||
liensExternes.minsert( | liensExternes.minsert( | ||
References.oclc( args.oclc ), | References.oclc( args.oclc ), | ||
References.bnf ( args.bnf ), | References.bnf ( args.bnf ), | ||
+ | References.sbn ( args.sbn ), | ||
References.lccn( args.lccn ), | References.lccn( args.lccn ), | ||
References.dnb ( args.dnb ), | References.dnb ( args.dnb ), | ||
Ligne 302 : | Ligne 470 : | ||
References.zbl( validArg( 'zbl', 'zbmath' ) ), | References.zbl( validArg( 'zbl', 'zbmath' ) ), | ||
References.arxiv( args.arxiv ), | References.arxiv( args.arxiv ), | ||
+ | References.asin( args.asin ), | ||
+ | References.sudoc( args.sudoc ), | ||
References.wikisource( args.wikisource ) | References.wikisource( args.wikisource ) | ||
) | ) | ||
Ligne 324 : | Ligne 494 : | ||
if consulteLe then | if consulteLe then | ||
local consult = validArg( 'consulté le', 'accessdate', 'Consulté le', 'consulté', 'consultée le' ) | local consult = validArg( 'consulté le', 'accessdate', 'Consulté le', 'consulté', 'consultée le' ) | ||
− | |||
if consult then | if consult then | ||
if string.sub( consult, -1,-1) == '.' then | if string.sub( consult, -1,-1) == '.' then | ||
consult = string.sub( consult, 1, -2) | consult = string.sub( consult, 1, -2) | ||
end | end | ||
− | + | local consulteLe = 'consulté en ' | |
− | consulteLe = 'consulté le ' | + | local Date = require( 'Module:Date' ) |
− | + | local test, tdate = Date.separationJourMoisAnnee( consult ) | |
− | + | if test then | |
− | end | + | if tdate.jour then |
− | liensExternes.minsert( consulteLe .. Outils.nobr( consult ) ) | + | consulteLe = 'consulté le ' |
+ | if tdate.jour == 1 then | ||
+ | tdate.jour = Outils.abr( '1<sup>er</sup>', 'premier' ) | ||
+ | end | ||
+ | end | ||
+ | consult = TableBuilder.new() | ||
+ | .minsert( tdate.jour, tdate.mois, tdate.annee ) | ||
+ | .concat( ' ' ) | ||
+ | end | ||
+ | liensExternes.minsert( consulteLe .. Outils.nobr( consult:lower() ) ) | ||
end | end | ||
end | end | ||
if #liensExternes > 0 then | if #liensExternes > 0 then | ||
− | return ' <small style="line-height:1em;">(' .. liensExternes.concat( ', ' ) | + | return ' <small style="line-height:1em;">(' .. liensExternes.concat( ', ' ) .. ')</small>' |
end | end | ||
− | |||
end | end | ||
Ligne 360 : | Ligne 537 : | ||
java = { "java", "Applet Java" }, | java = { "java", "Applet Java" }, | ||
mov = { "mov", "Vidéo au format Apple QuickTime" }, | mov = { "mov", "Vidéo au format Apple QuickTime" }, | ||
− | mp3 = { "MP3", " | + | mp3 = { "MP3", "Fichier audio au format MP3" }, |
odt = { "odt", "Document au format OpenDocument" }, | odt = { "odt", "Document au format OpenDocument" }, | ||
ogg = { "ogg", "Fichier au format conteneur Ogg" }, | ogg = { "ogg", "Fichier au format conteneur Ogg" }, | ||
Ligne 369 : | Ligne 546 : | ||
ps = { "ps", "Fichier de description vectorielle au format PostScript" }, | ps = { "ps", "Fichier de description vectorielle au format PostScript" }, | ||
radio = { "radio", "Radio au format MPEG, AVI..." }, | radio = { "radio", "Radio au format MPEG, AVI..." }, | ||
− | rar = { "rar", "Document compressé au format | + | rar = { "rar", "Document compressé au format RAR" }, |
rm = { "rm", "Vidéo au format RealMedia, RealAudio..." }, | rm = { "rm", "Vidéo au format RealMedia, RealAudio..." }, | ||
rtf = { "RTF", "Document texte en Rich Text Format (RTF)" }, | rtf = { "RTF", "Document texte en Rich Text Format (RTF)" }, | ||
Ligne 392 : | Ligne 569 : | ||
local tabFormat = listeFormat[ string.lower( format ) ] | local tabFormat = listeFormat[ string.lower( format ) ] | ||
if tabFormat then | if tabFormat then | ||
− | return ( ' <abbr class="abbr indicateur-format" title="' .. tabFormat[2] | + | return ( ' <abbr class="abbr indicateur-format format-' .. string.lower(tabFormat[1]) .. '" title="' .. tabFormat[2] |
.. '">' .. mw.text.nowiki( '[' .. tabFormat[1] .. ']' ) .. '</abbr>' ) | .. '">' .. mw.text.nowiki( '[' .. tabFormat[1] .. ']' ) .. '</abbr>' ) | ||
else | else | ||
− | -- teste si | + | -- teste si le suffixe est suivi d'une précision (ex : pdf 6 Mo) |
local ext, texte = string.match( format, "^(...) (.*)$") | local ext, texte = string.match( format, "^(...) (.*)$") | ||
if ext and listeFormat[ string.lower( ext ) ] then | if ext and listeFormat[ string.lower( ext ) ] then | ||
Ligne 406 : | Ligne 583 : | ||
end | end | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
return References | return References |
Version actuelle datée du 28 janvier 2017 à 14:00
La documentation pour ce module peut être créée à Module:Biblio/Références/doc
-- Les fonctions de ce module sont destinées à être utilisées par un autre module. -- Leur paramètre d'entrée est une table simple (args), voire une chaine (oclc, bnf...) local References = { } local Outils = require( 'Module:Outils' ) local validTextArg = Outils.validTextArg local TableBuilder = require( 'Module:TableBuilder' ) -- local Date = require( 'Module:Date' ) -- chargé uniquement si nécessaire --[[ ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn(). If the number is valid the result will be 0. Before calling this function, issbn/issn must be checked for length and stripped of dashes, spaces and other non-isxn characters. ]] function References.is_valid_isxn( isxn_str, len ) local temp = 0 isxn_str = isxn_str:gsub( 'x', 'X' ) isxn_str = { isxn_str:byte(1, len) } -- make a table of bytes len = len+1 -- adjust to be a loop counter for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum if v == string.byte( 'X' ) then -- if checkdigit is X temp = temp + 10 * ( len - i ) -- it represents 10 decimal else temp = temp + tonumber( string.char( v ) ) * ( len - i ) end end return temp % 11 == 0 -- returns true if calculation result is zero end function References.isValidIsmn10( ismn ) local temp = 9 if ismn:match( 'M%d%d%d%d%d%d%d%d%d' ) then for i = 2, 10 do temp = temp + ( 1 + 2 * ( i % 2 ) ) * ismn:sub( i, i ) end end return temp % 10 == 0 end -- Teste si une chaine ISBN est valide function References.checkisbn( isbn_str ) if type( isbn_str ) == 'string' then isbn_str = isbn_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces if isbn_str:len() == 10 then if isbn_str:match( '^%d+[xX]?$' ) then return References.is_valid_isxn( isbn_str, 10 ) end elseif isbn_str:match( '^97[89]' ) then return References.checkean13( isbn_str ) end end return false end -- Teste si une chaine EAN 13 est valide function References.checkean13( ean_str ) if type( ean_str ) == 'string' then ean_str = ean_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces if ean_str:len() == 13 and ean_str:match( '^%d+$' ) then local temp = 0 ean_str = { ean_str:byte( 1, 13 ) } for i = 1, #ean_str do temp = temp + ( 3 - 2 * ( i % 2 ) ) * tonumber( string.char( ean_str[i] ) ) end return temp % 10 == 0 end end return false end function References.checkissn( issn_str ) if type( issn_str ) == 'string' then issn_str = issn_str:gsub( '[%s]', '' ) if issn_str:match( '^%d%d%d%d%-%d%d%d[%dxX]$' ) then issn_str = issn_str:gsub( '-', '' ) -- supprime les traits d’union et espaces return References.is_valid_isxn( issn_str, 8 ) end end return false end -- Teste si une chaine ISMN est valide function References.checkismn( ismn_str ) if type( ismn_str ) == 'string' then ismn_str = ismn_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces if ismn_str:len() == 10 then return References.isValidIsmn10( ismn_str, 10 ) elseif ismn_str:match( '^9790' ) then return References.checkean13( ismn_str ) end end return false end local function isbn13to9( isbn_str ) if type( isbn_str ) == 'string' then local isbn = isbn_str:gsub( '[-%s]', '' ) if isbn:len() == 13 and isbn:sub( 1, 3 ) == '978' then isbn = isbn:sub( 4, 12 ) return isbn elseif isbn:len() == 10 then return isbn:sub( 1, -2 ) end end return isbn_str end local function isbn13to10( isbn_str ) local isbn = isbn13to9( isbn_str ) if isbn ~= isbn_str and isbn_str:len() ~= 10 then for i = 0, 9 do if References.checkisbn( isbn .. i ) then return isbn .. i end end return isbn .. 'X' end return isbn_str end function References.isbn13to10( frame ) local args = Outils.extractArgs( frame ) return isbn13to10( args[1] ) end function References.same_isbn( isbn1, isbn2 ) if type( isbn1 ) ~= 'string' or type( isbn2 ) ~= 'string' then return false end -- remove dash and spaces isbn1 = isbn1:gsub( '[-%s]', '' ) isbn2 = isbn2:gsub( '[-%s]', '' ) -- check if both isbn are valid if not ( References.checkisbn(isbn1) and References.checkisbn(isbn2) ) then return false end -- compare isbn return isbn13to9( isbn1 ) == isbn13to9( isbn2 ) end local function doublonIsxn( isxn, liste2, xnCode) if type( References[ 'same_' .. xnCode ] ) == 'function' then for k, v in ipairs( liste2 ) do if References[ 'same_' .. xnCode ]( isxn, v ) then return true end end end end local function formatIsxn( args, validArg, xnCode, invalideCateg, checkFunction, formatLien, page ) local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end local liste = { } local liste2 = { } local i = 1 local avertissementInvalid = '<sup style="color:red">[à vérifier : ' .. invalideCateg .. ']</sup>' local isxnErr = validArg( xnCode .. ' erroné' ) local XN = xnCode:upper() local isxn = validArg( xnCode, XN, xnCode .. '1', XN .. '1' ) if isxnErr or isxn then local isxnErrSanitised = isxnErr and isxnErr:match( '%d[%d -]+[%dXx]' ) if isxnErrSanitised then local lien = formatLien:format( isxnErrSanitised, isxnErr ) .. ' (édité erroné)' table.insert( liste, lien ) end -- boucle sur les isxn2, 3... while isxn do -- vérifivation de la validité de l'ISXN local isxnValid = checkFunction( isxn ) -- préparation du texte à afficher if isxnValid then local lien = formatLien:format( isxn, isxn ) table.insert( liste, lien ) if type( args.categ ) == 'table' and doublonIsxn( isxn, liste2, xnCode) then args.categ[ xnCode .. 'Dupliqué' ] = isxn end table.insert( liste2, isxn ) else table.insert( liste, isxn .. avertissementInvalid ) if type( args.categ ) == 'table' then args.categ[ xnCode .. 'Invalid' ] = true end end i = i + 1 isxn = validArg( xnCode .. i, XN .. i ) end if args['sansLabel'] then page = '' else page = page .. ' ' end return page .. mw.text.listToText( liste ) end end -- voir Modèle:ISBN -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées function References.isbn( args, validArg ) return formatIsxn( args, validArg, 'isbn', '[[:Catégorie:Page avec ISBN invalide|ISBN invalide]]', References.checkisbn, '[[Spécial:Ouvrages de référence/%s|<span class="nowrap">%s</span>]]', '[[International Standard Book Number|ISBN]]' ) end -- voir Modèle:EAN -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées function References.ean( args, validArg ) return formatIsxn( args, validArg, 'ean', '[[:Catégorie:Page avec EAN invalide|EAN invalide]]', References.checkean13, '[[Spécial:Ouvrages de référence/%s|<span class="nowrap">%s</span>]]', '[[EAN 13|EAN]]' ) end -- voir Modèle:ISSN -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées function References.issn( args, validArg ) return formatIsxn( args, validArg, 'issn', '[[:Catégorie:Page avec ISSN invalide|ISSN invalide]]', References.checkissn, '<span class="plainlinks noarchive">[http://worldcat.org/issn/%s&lang=fr %s]</span>', '[[International Standard Serial Number|ISSN]]' ) end function References.eissn( args, validArg ) return formatIsxn( args, validArg, 'e-issn', '[[:Catégorie:Page avec ISSN invalide|ISSN invalide]]', References.checkissn, '<span class="plainlinks noarchive">[http://worldcat.org/issn/%s&lang=fr %s]</span>', '[[International Standard Serial Number#ISSN électronique|e-ISSN]]' ) end -- voir Modèle:ISMN -- renvoie une liste de chaines formant le résultat du modèle une fois concaténées function References.ismn( args, validArg ) return formatIsxn( args, validArg, 'ismn', '[[:Catégorie:Page avec ISMN invalide|ISMN invalide]]', References.checkismn, '<span class="nowrap">%s</span>', '[[International Standard Music Number|ISMN]]' ) end -- fonctions liant des bases de données externes local function databaseExterne( num, lienIinterne, lienExterne, complement, texteAffiche ) if Outils.notEmpty( num ) then local adresse = lienIinterne .. ' <span class="plainlinks noarchive nowrap">[http://' .. lienExterne .. mw.uri.encode( num, 'PATH' ) .. ( complement or ' ' ) .. mw.text.nowiki( texteAffiche or num ) .. ']</span>' return adresse end end function References.arkId( base ) -- Nice Opaque Identifiern utilisé par les formats Ark pour générer une clé base = tostring( base ) if base then local xdigits = '0123456789bcdfghjkmnpqrstvwxz' local sum = 0 local position for i = 1, base:len() do position = xdigits:find( base:sub( i, i ), 1, true ) or 1 sum = sum + i * ( position - 1 ) end local index = sum % 29 + 1 return xdigits:sub( index, index ) end end function References.arxiv( arxiv ) if Outils.trim( arxiv ) then return databaseExterne( arxiv, '[[arXiv]]', 'arxiv.org/abs/' ):gsub( '%%2F', '/' ) end end function References.asin( asin ) return databaseExterne( asin, '[[Amazon Standard Identification Number|ASIN]]', 'www.amazon.fr/s/?url=search-alias&lang=fr&field-keywords=' ) end function References.bibcode( bibcode ) return databaseExterne( bibcode, '[[Bibcode]]', 'adsabs.harvard.edu/abs/' ) end function References.bnf( bnf ) bnf = Outils.trim( bnf ) if bnf then local texte = bnf local category = '' local bnfId = bnf:upper():match( 'BNF(%d+%w)' ) or bnf:lower():match( 'cb(%d+%w)' ) or bnf:match( '^%d+%w' ) if bnfId then -- bnf contient une suite de chiffres qui peut être un ark valide local base = bnfId:sub( 1, 8 ) if bnfId:len() == 8 then -- il manque la clé, on l'ajoute bnf = base .. References.arkId( 'cb' .. base ) texte = base elseif bnfId:len() > 8 and bnfId:sub( 9, 9 ) == References.arkId( 'cb' .. base ) then -- ark valide bnf = bnfId:sub( 1, 9 ) texte = base else -- ark qui semble non valide bnf = bnfId texte = bnfId category = '[[Catégorie:Recension temporaire pour le modèle Ouvrage|bnf]]' end else -- le paramètre ne semble pas un ark valide category = '[[Catégorie:Recension temporaire pour le modèle Ouvrage|bnf]]' end -- dans tous les cas on renvoie l'adresse, on catégorise juste pour vérifier ce qui ne va pas local lien = databaseExterne( bnf, 'notice [[Bibliothèque nationale de France|BnF]] n<sup>o</sup>', 'catalogue.bnf.fr/ark:/12148/cb', '/PUBLIC FRBNF', texte ) return lien .. category end end function References.dnb( dnb ) return databaseExterne( dnb, '[[Bibliothèque nationale allemande|DNB]]', 'd-nb.info/' ) end function References.doi( doi ) return databaseExterne( doi, '[[Digital Object Identifier|DOI]]', 'dx.doi.org/' ) end function References.jstor( jstor ) return databaseExterne( jstor, '[[JSTOR]]', 'jstor.org/stable/' ) end function References.lccn( lccn ) return databaseExterne( lccn, '[[Numéro de contrôle de la Bibliothèque du Congrès|LCCN]]', 'lccn.loc.gov/' ) end function References.mathreviews( mathreviews ) return databaseExterne( mathreviews, '[[Mathematical Reviews|Math Reviews]]', 'www.ams.org/mathscinet-getitem?mr=' ) end function References.oclc( oclc ) return databaseExterne( oclc, '[[Online Computer Library Center|OCLC]]', 'worldcat.org/oclc/', '&lang=fr ' ) end function References.pmcid( pmcid ) return databaseExterne( pmcid, '[[PubMed Central|PMCID]]', 'www.ncbi.nlm.nih.gov/pmc/articles/' ) end function References.pmid( pmid ) return databaseExterne( pmid, '[[PubMed|PMID]]', 'www.ncbi.nlm.nih.gov/pubmed/' ) end function References.sbn( sbn ) local id = ( sbn or '' ):upper():gsub( '\\', '' ):gsub( '^ITICCU', '' ) return databaseExterne( id, '[[Service bibliothécaire national]]', 'opac.sbn.it/bid/' ) end function References.sudoc( sudoc ) return databaseExterne( sudoc, '[[Système universitaire de documentation|SUDOC]]', 'www.sudoc.fr/' ) end function References.wikisource( wikisource ) if Outils.notEmpty( wikisource ) then return '[[s:' .. wikisource .. '|lire sur Wikisource]]' end end function References.zbl( zbl ) return databaseExterne( zbl, '[[Zentralblatt MATH|zbMATH]]', 'zbmath.org/?q=an:' ) end -- enLigne est destiné à remplacer "lire en ligne", "écouter en ligne", "présentation en ligne" function References.enLigne( args, validArg ) local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end local lang, esp = '', '' if args.langue then local Langue = require( 'Module:Langue' ) lang = Langue.indicationMultilingue{ args.langue, args.langue2, args.langue3 } esp = ' ' end local url = validArg( 'lien', 'url' ) if url == nil then if validArg( 'doi' ) then url = 'http://dx.doi.org/' .. mw.uri.encode( args.doi ) else return end end url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' ):gsub( ' ', '%%20' ) local texte = validArg( 'texte' ) or 'en ligne' local date = validArg( 'date', 'consulté le' ) if date then return lang .. esp .. '[' .. url .. ' ' .. texte .. '] (consultée le' .. date .. ')' else return lang .. esp .. '[' .. url .. ' ' .. texte .. ']' end end function References.affichageLiensExternes( args, validArg, lireEnLigne, consulteLe ) local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end local liensExternes = TableBuilder.new( ) -- isbn et issn liensExternes.minsert( References.isbn( args, validArg ), References.ean( args, validArg ), References.issn( args, validArg ), References.eissn( args, validArg ), References.ismn( args, validArg ) ) liensExternes.minsert( References.oclc( args.oclc ), References.bnf ( args.bnf ), References.sbn ( args.sbn ), References.lccn( args.lccn ), References.dnb ( args.dnb ), References.pmid( validArg( 'pmid', 'PMID' ) ), References.pmcid ( validArg( 'pmcid', 'pmc' ) ), References.doi( validArg( 'doi', 'DOI' ) ), References.jstor( args.jstor ), References.bibcode( args.bibcode ), References.mathreviews( args['math reviews'] ), References.zbl( validArg( 'zbl', 'zbmath' ) ), References.arxiv( args.arxiv ), References.asin( args.asin ), References.sudoc( args.sudoc ), References.wikisource( args.wikisource ) ) liensExternes.minsert( References.enLigne{ url = args['résumé'], texte = 'résumé' }, References.enLigne{ url = args['présentation en ligne'], texte = 'présentation en ligne' }, References.enLigne{ url = args['écouter en ligne'], texte = 'écouter en ligne' } ) local url = validArg( 'lire en ligne', 'url texte', 'url', 'texte' ) if url and lireEnLigne then liensExternes.minsert( References.enLigne{ lien = url, texte = 'lire en ligne', } .. ( References.indicationDeFormat( args['format électronique'] ) or '' ) ) end -- consulté le if consulteLe then local consult = validArg( 'consulté le', 'accessdate', 'Consulté le', 'consulté', 'consultée le' ) if consult then if string.sub( consult, -1,-1) == '.' then consult = string.sub( consult, 1, -2) end local consulteLe = 'consulté en ' local Date = require( 'Module:Date' ) local test, tdate = Date.separationJourMoisAnnee( consult ) if test then if tdate.jour then consulteLe = 'consulté le ' if tdate.jour == 1 then tdate.jour = Outils.abr( '1<sup>er</sup>', 'premier' ) end end consult = TableBuilder.new() .minsert( tdate.jour, tdate.mois, tdate.annee ) .concat( ' ' ) end liensExternes.minsert( consulteLe .. Outils.nobr( consult:lower() ) ) end end if #liensExternes > 0 then return ' <small style="line-height:1em;">(' .. liensExternes.concat( ', ' ) .. ')</small>' end end function References.indicationDeFormat( format ) if not Outils.trim( format ) then return end local listeFormat = { audio = { "audio", "Fichiers audio au format MP3, Ogg..." }, bat = { "bat", "Script de traitement par lot (batch)" }, djvu = { "DjVu", "Document au format DjVu" }, doc = { "doc", "Document Microsoft Word" }, epub = { "EPUB", "Document au format Epub" }, flash = { "flash", "Animation vectorielle au format Macromedia Flash" }, hlp = { "hlp", "Fichier HeLP (aide) datant de Microsoft Windows 3.1" }, html = { "html", "Fichier au format Hypertext Markup Language (HTML)" }, image = { "image", "Image au format JPEG, PNG, GIF..." }, java = { "java", "Applet Java" }, mov = { "mov", "Vidéo au format Apple QuickTime" }, mp3 = { "MP3", "Fichier audio au format MP3" }, odt = { "odt", "Document au format OpenDocument" }, ogg = { "ogg", "Fichier au format conteneur Ogg" }, pdf = { "PDF", "Document au format Portable Document Format (PDF) d'Adobe" }, php = { "php", "Script PHP" }, pl = { "pl", "Script Practical Extraction and Report Language (Perl)" }, ppt = { "ppt", "Présentation Microsoft PowerPoint" }, ps = { "ps", "Fichier de description vectorielle au format PostScript" }, radio = { "radio", "Radio au format MPEG, AVI..." }, rar = { "rar", "Document compressé au format RAR" }, rm = { "rm", "Vidéo au format RealMedia, RealAudio..." }, rtf = { "RTF", "Document texte en Rich Text Format (RTF)" }, svg = { "SVG", "Image vectorielle au format Scalable Vector Graphics (SVG)" }, sxi = { "sxi", "Présentation OpenOffice.org Impress" }, sxw = { "sxw", "Document OpenOffice.org Writer" }, tex = { "TeX", "Document TeX" }, txt = { "txt", "Fichier au format texte brut" }, video = { "vidéo", "Vidéo au format MPEG, AVI..." }, xls = { "xls", "Classeur Microsoft Excel" }, xml = { "XML", "Document au format Extensible Markup Language (XML)" }, zip = { "zip", "Archive au format Zip" }, } listeFormat['vidéo'] = listeFormat.video listeFormat.vid = listeFormat.video listeFormat.htm = listeFormat.html listeFormat.excel = listeFormat.xls listeFormat.powerpoint = listeFormat.ppt listeFormat.word = listeFormat.doc listeFormat.aud = listeFormat.audio local tabFormat = listeFormat[ string.lower( format ) ] if tabFormat then return ( ' <abbr class="abbr indicateur-format format-' .. string.lower(tabFormat[1]) .. '" title="' .. tabFormat[2] .. '">' .. mw.text.nowiki( '[' .. tabFormat[1] .. ']' ) .. '</abbr>' ) else -- teste si le suffixe est suivi d'une précision (ex : pdf 6 Mo) local ext, texte = string.match( format, "^(...) (.*)$") if ext and listeFormat[ string.lower( ext ) ] then return References.indicationDeFormat( ext ) .. ' ' .. texte else return ' ' .. '[' .. format .. ']' -- '[' = '<nowiki>[</nowiki>', ']' = '<nowiki>]</nowiki>', end end end return References