Module:Biblio/Ouvrage
< Module:Biblio
Révision datée du 17 septembre 2013 à 07:50 par Zebulon84 (discussion) (Nouvelle page : local mw = mw or require 'mw' -- pour debugage sous ecllipse local Ouvrage = { } local Commun = require( 'Module:Biblio/Commun' ) local References = require( 'Biblio_Référenc...)
La documentation pour ce module peut être créée à Module:Biblio/Ouvrage/doc
local mw = mw or require 'mw' -- pour debugage sous ecllipse
local Ouvrage = { }
local Commun = require( 'Module:Biblio/Commun' )
local References = require( 'Biblio_Références' )-- ( 'Module:Biblio/Références' )
local Outils = require( 'Module:Outils' )
local TableBuilder = require( 'Module:TableBuilder' )
local Langue -- = require( 'Module:Langue' ) ne sera chargé que si nécessaire.
function Ouvrage.chapitre( args )
-- validArg renvoi le premier paramètre non vide, ou nil s'ils sont tous vides.
-- Seul les noms des paramètres doivent être transmis à la fonction.
local validArg = function ( ... ) return Outils.validTextArg( args, ... ) end
-- titreChap est un paramètre différents de ceux du modèle ouvrage pour utilisé le même programme
args.titreChap = validArg( 'titre chapitre', 'chap', 'titre' )
args.titre = validArg( 'titre ouvrage', 'titre' )
if args.titre == args.titreChap then
args.titre = nil
end
args['titre chapitre'] = nil
args.chap = nil
args['sous-titre chapitre'] = validArg( 'sous-titre chapitre', 'sous-titre' )
args['sous-titre'] = validArg( 'sous-titre ouvrage', 'sous-titre' )
if args['sous-titre chapitre'] == args['sous-titre'] then
args['sous-titre'] = nil
end
args['lien titre'] = validArg( 'lien titre ouvrage', 'lien titre' )
return require( 'Module:Biblio/Ouvrage' ).ouvrage( args, true )
end
function Ouvrage.ouvrage( args, chapitre )
-- La table wiki va recevoir tout les petits bouts de texte, et sera concaténtée à la fin.
-- Elle utilise la metat-table de TableBuilder, permettant d'utiliser les fonctions de la
-- librairy table comme des mèthodes. minsert permet d'insérer plusieurs élément en une
-- seule fois en, ignorant les paramètre nil.
local wiki = TableBuilder.new()
-- validArg renvoi le premier paramètre non vide, ou nil s'ils sont tous vides.
-- Seul les noms des paramètres doivent être transmis à la fonction.
local validArg = function ( ... ) return Outils.validTextArg( args, ... ) end
local genre = ( chapitre and 'chapitre' ) or 'ouvrage'
--Variables servant à la catégorisation
local categTitre, categTitreChapitre, categTitreOuvrage, categLangue
-- clarification paramètre nécéssaire pour les coins
args.titre = validArg( 'titre', 'title' )
-- COinS, id et libelé
wiki.minsert( Commun.COinS( args, validArg, genre ) )
wiki.minsert( Commun.spanInitial ( args, validArg ) )
if validArg( 'libellé' ) then
wiki.minsert( '<small>[', args['libellé'], ']</small> ' )
end
-- indication de langue
local incdicLangue, codeLangue, categLangue = Commun.indicationDeLangue ( args, validArg )
wiki.insert( incdicLangue )
-- Liste des auteurs et de leur responsabilités (principale et secondaire)
if validArg( 'nom1', 'nom', 'auteur', 'auteurs', 'last1', 'last', 'author1', 'author' ) then
if validArg( 'auteurs' ) then
wiki.insert( args.auteurs )
else
wiki.insert( Commun.responsabilitePrincipale( args, validArg, true ) )
end
if validArg( 'co-auteur', 'coauteurs' ) then
wiki.minsert( ', ', validArg( 'co-auteur', 'coauteurs' ) )
end
wiki.minsert( Commun.responsabiliteSecondaire( args, validArg ), ', ' )
end
-- Pour le modèle chapitre : affichage du chapitre
if chapitre then
if args.titreChap then
wiki.insert( '« <cite ' )
if codeLangue then
wiki.minsert( 'lang="', codeLangue, '" ' )
end
wiki.minsert( 'style="font-style:normal">', args.titreChap )
if args['sous-titre chapitre'] then
wiki.minsert( ( codeLangue and ': ' ) or ' : ', args['sous-titre chapitre'] )
end
wiki.insert( '</cite> » ' )
else
wiki.insert( Outils.erreur( 'paramètre « <code>titre chapitre</code> » manquant' ) )
categTitreChapitre = true
end
end
-- titre
if args.titre then
if codeLangue then
Langue = Langue or require( 'Module:Langue' )
local dir = Langue.directionLangue( codeLangue )
if dir == 'rtl' then dir = '" dir="rtl'
else dir = nil
end
wiki.minsert( '<cite lang="', codeLangue, dir, '">')
else
wiki.minsert( '<cite>')
end
if validArg( 'lien titre' ) then
wiki.minsert( '[[', args['lien titre'], '|' )
end
wiki.insert( args.titre )
if validArg( 'sous-titre' ) then
wiki.minsert( ( codeLangue and ': ' ) or ' : ', args['sous-titre'] )
end
if validArg( 'lien titre' ) then
wiki.insert( ']]' )
end
wiki.insert( '</cite>' )
local original = validArg( 'titre original', 'titre vo' )
if original and original ~= args.titre then
wiki.minsert( ' [« ', original, ' »]' )
end
else
if chapitre then
wiki.insert( Outils.erreur( 'paramètre « <code>titre ouvrage</code> » manquant' ) )
categTitreOuvrage = true
else
wiki.insert( Outils.erreur( 'paramètre « <code>titre</code> » manquant' ) )
categTitre = true
end
end
-- volume, tome
if validArg( 'volume' ) then
wiki.minsert( ', ', Commun.vol, args.volume )
end
if validArg( 'tome' ) then
wiki.minsert( ', ', Commun.tome, args.tome )
end
if validArg( 'titre volume', 'titre tome' ) then
if validArg( 'volume', 'tome' ) then
wiki.insert( ' : ' )
else
wiki.insert( ', ' )
end
wiki.minsert( validArg( 'titre volume' ) or args['titre tome'] )
if codeLangue then
Langue = Langue or require( 'Module:Langue' )
wiki.minsert( ' « ', Langue.lang{ codeLangue, args['titre volume'] } )
else
wiki.minsert( validArg( 'titre volume' ) )
end
end
-- références
if validArg( 'référence' ) then
wiki.minsert( ' ', Commun.detailEditions( args['référence'] ) )
else
if validArg( 'lieu' ) then
wiki.minsert( ', ', args.lieu )
end
local edit = validArg( 'éditeur', 'édition' )
if edit then
if validArg( 'lien éditeur' ) then
wiki.minsert( '[[', args['lien éditeur'], '|', edit, ']]' )
else
wiki.insert( edit )
end
end
if validArg( 'référence simplifiée', 'ref' ) then
if validArg( 'année' ) then
wiki.minsert( ', ', args['année'] )
end
wiki.minsert( ' ', Commun.detailEdition( validArg( 'référence simplifiée', 'ref' ) ) )
else
if validArg( 'collection' ) then
wiki.minsert( ', ', Commun.coll, '« ', args.collection )
if validArg( 'série' ) then
wiki.minsert( ' / ', args['série'] )
end
wiki.insert( ' »' )
end
if validArg( 'numéro dans collection' ) then
wiki.minsert( ' (', Commun.numero, args['numéro dans collection'], ')' )
end
if validArg( 'année', 'date' ) then
wiki.minsert( ', ', Commun.inscriptionDate( args ) )
end
if validArg( 'réimpression', 'publi' ) then
wiki.minsert( ' ', Commun.reimpr, validArg( 'réimpression', 'publi' ) )
end
if validArg( "numéro d'édition" ) then
wiki.minsert( ', ', Outils.ordinal( args["numéro d'édition"], true ), Commun.ed )
end
if validArg( 'année première édition', 'origyear' ) then
wiki.minsert( ' (', Commun.premiere, Commun.ed, validArg( 'année première édition', 'origyear' ) )
end
if validArg( 'format' ) then
wiki.minsert( ', ', args.format )
end
if validArg( 'pages totales', 'pages' ) then
wiki.minsert( ', ', validArg( 'pages totales', 'pages' ), Commun.nbp )
end
end
end
-- références ISBN, oclc, lccn, bnf...
if validArg( 'isbn', 'lire en ligne', 'présentation en ligne', 'oclc', 'url', 'lccn', 'issn', 'bnf', 'ISBN', 'isbn1', 'ISSN', 'dnb', 'doi', 'jstor', 'url texte', 'pmid', 'résumé' ) then
local enligne = TableBuilder.new( )
enligne.minsert( References.isbn( args, validArg ), References.issn( args, validArg ) )
enligne.minsert(
References.oclc( validArg( 'oclc' ) ),
References.bnf ( validArg( 'bnf' ) ),
References.lccn( validArg( 'lccn' ) ),
References.dnb ( validArg( 'dnb' ) ),
References.doi( validArg( 'doi' ) ),
References.pmid( validArg( 'pmid' ) ),
References.jstor( validArg( 'jstor' ) )
)
if validArg( 'lire en ligne', 'url' ) then
enligne.insert( References.enLigne{
lien = validArg( 'lire en ligne', 'url' ),
texte = 'lire en ligne',
} )
end
if validArg( 'écouter en ligne' ) then
enligne.insert( References.enLigne{
lien = args['écouter en ligne'],
date = args['consulté le'],
texte = 'écouter en ligne',
} )
end
if validArg( 'présentation en ligne', 'résumé' ) then
enligne.insert( References.enLigne{
lien = validArg( 'présentation en ligne', 'résumé' ),
texte = 'présentation en ligne',
} )
end
if validArg( 'consulté le', 'accessdate', 'consulté' ) then
enligne.insert( 'consulté le ' .. Outils.nobr( validArg( 'consulté le', 'accessdate', 'consulté' ) ) )
end
wiki.minsert( ' ', mw.text.nowiki( '[' ), enligne.concat( ', ' ), ']' )
end
-- précision sue le passage concerné
local sep_chapitre = ', '
if validArg( 'partie' ) then
wiki.minsert( ', partie ', Commun.romain( args.partie ) )
sep_chapitre = ' '
end
if validArg( 'numéro chapitre', 'numéro' ) then
wiki.minsert( ', ', Commun.chap, validArg( 'numéro chapitre', 'numéro' ) )
sep_chapitre = ' '
end
if validArg( 'titre chapitre', 'chap' ) then
wiki.minsert( sep_chapitre, '« ', validArg( 'titre chapitre', 'chap' ), ' »' )
end
if validArg( 'passage' ) then
wiki.minsert( ', ', Commun.page, args.passage )
end
-- fin des span (COinS et id) et de la description de l'ouvrage
wiki.insert( '</span></span>' )
-- citation et commentaire de cet ouvrage
if validArg( 'extrait' ) then
wiki.minsert( ' :<blockquote>', args.extrait, '</blockquote>' )
elseif validArg( 'plume', 'commentaire' ) then
wiki.insert( '.' )
end
if validArg( 'plume' ) then
wiki.insert( Commun.plume )
end
wiki.minsert( Commun.commentaire( args ) )
if mw.title.getCurrentTitle().namespace == 0 then
wiki.minsert(
categLangue and '[[Catégorie:Article utilisant le modèle Ouvrage avec un paramètre langue non reconnu]]',
categTitre and '[[Catégorie:Page utilisant un modèle avec une syntaxe erronée|Ouvrage]]',
categTitreChapitre and '[[Catégorie:Page utilisant un modèle avec une syntaxe erronée|Chapitre]]',
categTitreOuvrage and '[[Catégorie:Page utilisant un modèle avec une syntaxe erronée|Chapitre]]'
)
end
return wiki.concat()
end
return Ouvrage
