Module:Biblio/Commun : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
Ligne 173 : Ligne 173 :
 
 
 
i = i + 1
 
i = i + 1
nom = validArg( 'nom' .. i, 'last' .. i )
+
nom = validArg( 'nom' .. i, 'last' .. i, 'auteur' .. i, 'author' .. i )
 
end
 
end
 
 
Ligne 217 : Ligne 217 :
 
end
 
end
  
-- voir émule le modèle:Inscription date
+
-- émule le modèle:Inscription date
-- la détection des arguments permet d'utilisé la fonction depuis un modèle, depuis invoke, ou depuis une autre fonction.
+
Commun.inscriptionDate = Date.inscriptionDate
-- pour facilité l'écriture de lua, annee (sans accent) est accepté lors de l'appel depuis lua.
 
function Commun.inscriptionDate(frame)
 
    local args = extractArgs( frame )
 
    return require( 'Module:Date' ).inscriptionDate( args )
 
--[[ local annee, mois, jour
 
if frame.getParent then
 
annee = frame:getParent().args ['année'] or frame.args ['année'] or frame.args.annee or ''
 
mois = frame:getParent().args.mois or frame.args.mois or ''
 
jour = frame:getParent().args.jour or frame:getParent().args ['quantième'] or frame.args.jour or ''
 
else
 
annee = frame ['année'] or frame.annee or ''
 
mois = frame.mois or ''
 
jour = frame.jour or ''
 
end
 
if annee == '' then
 
-- si annee n'est pas précisé, on utilise la paramètre date
 
annee = frame.getParent and (frame:getParent().args.date or frame.args.date) or frame.date or ''
 
if annee == '' then
 
return ''
 
else
 
return '<span class="nowrap">' .. annee .. '</span>'
 
end
 
else
 
-- si l'année est renseigné, on essaye de trouver le mois
 
mois = fun.determinationMois (mois, frame)
 
if mois then
 
mois = mois .. '&nbsp;'
 
if jour ~= '' then
 
-- si le mois est valide on détermine le jour
 
jour = tonumber(jour) or jour   -- suppresion des 0 qui trainent
 
if jour == 1 or jour == '1er' then
 
jour = '<abbr class="abbr" title="Premier">1<sup>er</sup></abbr>'
 
end
 
jour = jour .. '&nbsp;'
 
end
 
return jour .. mois .. annee
 
else
 
return annee
 
end
 
end]]
 
end
 
  
  
Ligne 279 : Ligne 238 :
 
if type( value ) == 'string' and value ~= '' then
 
if type( value ) == 'string' and value ~= '' then
 
table.insert( liste, key .. '=' .. mw.uri.encode( prefix .. value ) )
 
table.insert( liste, key .. '=' .. mw.uri.encode( prefix .. value ) )
return true
 
 
end
 
end
 
end
 
end
Ligne 298 : Ligne 256 :
 
insertList( 'rft_val_fmt', doc[1], 'info:ofi/fmt:kev:mtx:' )
 
insertList( 'rft_val_fmt', doc[1], 'info:ofi/fmt:kev:mtx:' )
 
insertList( 'rft.genre',  doc[2] )
 
insertList( 'rft.genre',  doc[2] )
insertList( doc[3], args.titre )
+
insertList( doc[3], Outils.texteLien( args.titre ) )
insertList( doc[4], args[ doc[5] ] )
+
insertList( doc[4], Outils.texteLien( args[ doc[5] ] ) )
 
insertList( 'rft.stitle', args['sous-titre'] )
 
insertList( 'rft.stitle', args['sous-titre'] )
 
 
-- liste des auteur, noms - prénoms
+
-- Premier auteur, séparé en noms et prénoms
if insertList( 'rft.aulast', validArg( 'nom1', 'nom', 'last1', 'last' ) ) then
+
local nom = Outils.texteLien( validArg( 'nom1', 'nom', 'last1', 'last' ) )
 +
if nom then
 +
insertList( 'rft.aulast', nom )
 
insertList( 'rft.aufirst', validArg( 'prénom1', 'prénom', 'first1', 'first' ) )
 
insertList( 'rft.aufirst', validArg( 'prénom1', 'prénom', 'first1', 'first' ) )
 
else
 
else
insertList( 'rft.au', args.auteur )
+
local auteur = Outils.texteLien( validArg( 'auteur', 'auteur1' ) )
 +
if auteur then
 +
-- séparation de auteurs au niveau des deux premiers espaces
 +
local a1, a2, a3 = mw.ustring.match( auteur, '^([^ ]+) ?([^ ]*) ?(.-)$' )
 +
if Outils.notEmpty( a3 ) then
 +
if mw.ustring.len( a2 ) == 2 and mw.ustring.sub( a2, -1 ) == "." then
 +
-- a1 est le prénom, a2 et a3 le nom
 +
insertList( 'rft.aufirst', a1 .. ' ' .. a2 )
 +
insertList( 'rft.aulast', a3 )
 +
else
 +
-- a1 le prénom, a2 l'initiale du deuxième prénom ou du nom maternel (US)
 +
insertList( 'rft.aufirst', a1 )
 +
insertList( 'rft.aulast', a2 .. ' ' .. a3 )
 +
end
 +
elseif Outils.notEmpty( a2 ) then
 +
-- a1 prénom, a2 nom
 +
insertList( 'rft.aufirst', a1 )
 +
insertList( 'rft.aulast', a2 )
 +
else
 +
insertList( 'rft.aulast', a1 )
 +
end
 +
end
 
end
 
end
 
 
 +
-- les autres auteurs, la norme ne prévoi pas de séparation.
 
for i = 2, 20 do
 
for i = 2, 20 do
local nom = args['nom' .. i]
+
local nom_i = Outils.texteLien( validArg( 'nom' .. i ) )
if type( nom ) ~= 'string' or nom == '' then
+
if nom_i then
break
+
local prenom_i = validArg( 'prénom' .. i )
 +
if prenom_i then
 +
insertList( 'rft.au', nom_i .. ', ' .. prenom_i )
 +
else
 +
insertList( 'rft.au', nom_i )
 +
end
 
else
 
else
local prenom = validArg( 'prénom' .. i )
+
local auteur_i = Outils.texteLien( validArg( 'auteur' .. i ) )
if prenom then  
+
if auteur_i then
insertList( 'rft.au', nom .. ', ' .. prenom )
+
insertList( 'rft.au', auteur_i )
 
else
 
else
insertList( 'rft.au', nom )
+
break
 
end
 
end
 
 
end
 
end
 
end
 
end
Ligne 341 : Ligne 327 :
 
-- donnée sur l'éditeur
 
-- donnée sur l'éditeur
 
insertList( 'rft.place', args.lieu )
 
insertList( 'rft.place', args.lieu )
insertList( 'rft.pub', validArg( 'éditeur', 'édition' ) )
+
insertList( 'rft.pub', Outils.texteLien( validArg( 'éditeur', 'édition' ) ) )
 
insertList( 'rft.edition', args["numéro d'édition"] )
 
insertList( 'rft.edition', args["numéro d'édition"] )
 
 

Version du 20 septembre 2013 à 21:39

La documentation pour ce module peut être créée à Module:Biblio/Commun/doc

-- Les fonctions du module Util sont des éléments nécessaire au modules Ouvrage, Article, ...

local Commun = {}


local Date = require( 'Module:Date' )
local Outils = require( 'Module:Outils' )
local TableBuilder = require( 'Module:TableBuilder' )
local Langue -- = require( 'Module:Langue' ) ne sera chargé que si nécessaire

local validTextArg = Outils.validTextArg
local abr = Outils.abr      -- fonction abréviation discréte

-- extractArgs permet de récupérer les arguement du modèle, 
-- ou la table transmise à la fonction par une autre fonction d'un module
local extractArgs = Outils.extractArgs


-- 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.page =   abr{ 'p.', 'page(s)', nbsp='+' }
Commun.plume = [=[&nbsp;<span title="Ouvrage utilisé pour la rédaction de l'article">[[Image:Nuvola apps ksig horizonta.png|30px|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>&#91;[[' .. ref .. '|détail de l’édition]]&#93;</small>'
end

function Commun.detailEditions( ref ) 
	return '<small>&#91;[[' .. ref .. '|détail des éditions]]&#93;</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


-- voir Modèle:Module biblio/span initial
function Commun.spanInitial( args, validArg )
	validArg = validArg or function ( ... ) return validTextArg( args, ... ) end
	local idTab = { validArg( 'id' ) }
	
	if #idTab == 0 then
		local auteur = validArg( 'nom1', 'nom', 'auteur1', 'auteur', 'last1', 'last', 'author1', 'author' )
		if auteur then
			table.insert( idTab, mw.uri.anchorEncode( auteur ) )
			for i = 2, 4 do
			    auteur = validArg( 'nom' .. i, 'auteur' .. i, 'last' .. i, 'author' .. i )
				if auteur then
					table.insert( idTab, mw.uri.anchorEncode( auteur ) )
				else
					break
				end
			end 
		end
		local annee = validArg( 'année', 'year' )
		if annee then
			table.insert( idTab, mw.uri.anchorEncode( annee ) )
		end
	end	
	
	local id	
	if #idTab > 0 then 
		table.insert( idTab, 1, ' id="' )
		table.insert( idTab, '"' )
		id = table.concat( idTab )
	end 
	 
	return '<span class="ouvrage"', id, ' title ="">'
end

-- voir Modèle:Module biblio/libellé
function Commun.libelle( args )
	local lib = args['libellé'] or ''
	if lib ~= '' then
		lib = '<small>[', lib, ']</small> '
	end
	return lib
end

-- voir Modèle:Commentaire biblio
function Commun.commentaire( args )
	if Outils.trim( args.commentaire ) then
		local a = '<div style="Margin-top:0.1em ;margin-left:2em; line-height:1.5; margin-bottom:0.5em;">'
		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' )
		local codeLangue = Langue.codeLangue2( lang )
		if codeLangue == '' then
			return '', nil, true
		elseif codeLangue ~= 'fr' then
			return Langue.indicationDeLangue{ '', codeLangue }, codeLangue
		end
	end
	return ''
end


-- voir Modèle:Module biblio/responsabilité principale
function Commun.responsabilitePrincipale( args, validArg, autolien )
	validArg = validArg or function ( ... ) return validTextArg( args, ... ) end
	
	local nom = validArg( 'nom1', 'nom', 'auteur1', 'auteur', 'last1', 'last', 'author1', 'author' )
	if nom == nil then
		return ''
	end
	
	-- préparation des variables
	local listeRresponsables = { }  -- contiendra un élément pour chaque nom
	local directeur = abr { 'dir.', 'directeur de publication' }
	autolien = autolien or not validArg( 'nolien' )
	local prenom, dir, responsable, lien , precision, resp
	local i = 1
	
	-- boucle sur chaque nom, assemble toutes les caractéristique et ajoute l'ensemble à la liste.
	while nom do
		if i == 1 then
			prenom = validArg( 'prénom1', 'prénom', 'first1', 'first' )
			dir = validArg( 'directeur1', 'directeur' )
			lien = validArg( 'lien auteur1', 'lien auteur', 'authorlink' )
				or ( autolien and validArg( 'nom' ) and ( ( args['prénom'] or '') .. ' ' .. args.nom ) )
		else
			prenom = validArg( 'prénom' .. i, 'first' .. i )
			dir = validArg( 'directeur' .. i )
			lien = validArg( 'lien auteur' .. i )
		end
		if prenom then 
			prenom = prenom .. ' ' 
		else
			prenom = ''
		end
		
		resp = args['responsabilité' .. i]
		if dir then
			if resp then 
				precision = ' (' .. directeur .. ' et ' .. resp .. ')'
			else
				precision = ' (' .. directeur .. ')'
			end
		elseif resp then 
			precision = ' (' .. resp .. ')'
		else
			precision = ''
		end
		
		if lien then
			responsable = '[[' .. lien .. '|' .. prenom .. nom .. ']]' .. precision
		else
			responsable = prenom .. nom .. precision
		end
		
		table.insert( listeRresponsables, responsable )
		
		i = i + 1
		nom = validArg( 'nom' .. i, 'last' .. i, 'auteur' .. i, 'author' .. i )
	end
	
	if validArg( 'et al.', 'et alii' ) then
		local et_al = " ''" .. abr { "et al.", "et alii (et d’autres)" } .. "''"
		return table.concat( listeRresponsables, ', ' ) .. et_al
	else
		return mw.text.listToText( listeRresponsables )
	end
end


-- voir Module biblio/responsabilité secondaire
function Commun.responsabiliteSecondaire( args, validArg )
	validArg = validArg or function ( ... ) return validTextArg( args, ... ) end
	local liste = { }
	
	-- fonction qui teste l'existence d'un paramètre et insérere  dans liste une abréviation discrète suivi de ce paramètre
	local function insertAbr( arg, abrev, texte )
		if arg then
			table.insert( liste, abr{ abrev, texte, nbsp='+' } .. arg )
		end
	end
	
	-- ajout des différents responsables
	local trad = validArg( 'traducteur', 'trad', 'traduction' ) 
	insertAbr( trad, 'trad.', 'traduction' )
	insertAbr( validArg( 'préface' ), 'préf.', 'préface' )
	insertAbr( validArg( 'postface' ), 'post.', 'postface' )
	insertAbr( validArg( 'illustrateur' ), 'ill.', 'illustrations' )
	insertAbr( validArg( 'photographe' ), '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 .. ')'
	else
		return ''
	end
end

-- émule le modèle:Inscription date
Commun.inscriptionDate = Date.inscriptionDate


-- voir Modèle:COinS bibliographique
function Commun.COinS( args, validArg, genre ) 
	validArg = validArg or function ( ... ) return validTextArg( args, ... ) end
	if validArg( 'COinS', 'coins', 'COins' ) == 'non' then
		return '<span>'
		-- retour systématique d'un span qui pourra donc être systématiquement fermé.
	end
	
	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 type( value ) == 'string' and value ~= '' then
			table.insert( liste, key .. '=' .. mw.uri.encode( prefix .. value ) )
		end
	end
	
	-- norme du COinS
	insertList( 'ctx_ver', 'Z39.88-2004' )
	
	-- genre, titre et sous-titre
	local tabdoc = { 
		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 doc = tabdoc[ genre ]
	if not doc then
		return ''
	end
	insertList( 'rft_val_fmt', doc[1], 'info:ofi/fmt:kev:mtx:' )
	insertList( 'rft.genre',  doc[2] )
	insertList( doc[3], Outils.texteLien( args.titre ) )
	insertList( doc[4], Outils.texteLien( args[ doc[5] ] ) )
	insertList( 'rft.stitle', args['sous-titre'] )
	
	-- Premier auteur, séparé en noms et prénoms
	local nom = Outils.texteLien( validArg( 'nom1', 'nom', 'last1', 'last' ) )
	if nom then
		insertList( 'rft.aulast', nom )
		insertList( 'rft.aufirst', validArg( 'prénom1', 'prénom', 'first1', 'first' ) )
	else
		local auteur = Outils.texteLien( validArg( 'auteur', 'auteur1' ) )
		if auteur then 
			-- séparation de auteurs au niveau des deux premiers espaces
			local a1, a2, a3 = mw.ustring.match( auteur, '^([^ ]+) ?([^ ]*) ?(.-)$' )
			if Outils.notEmpty( a3 ) then
				if mw.ustring.len( a2 ) == 2 and mw.ustring.sub( a2, -1 ) == "." then
					-- a1 est le prénom, a2 et a3 le nom
					insertList( 'rft.aufirst', a1 .. ' ' .. a2 )
					insertList( 'rft.aulast', a3 )
				else
					-- a1 le prénom, a2 l'initiale du deuxième prénom ou du nom maternel (US)
					insertList( 'rft.aufirst', a1 )
					insertList( 'rft.aulast', a2 .. ' ' .. a3 )
				end
			elseif Outils.notEmpty( a2 ) then
				-- a1 prénom, a2 nom
				insertList( 'rft.aufirst', a1 )
				insertList( 'rft.aulast', a2 )
			else
				insertList( 'rft.aulast', a1 )
			end
		end
	end
	
	-- les autres auteurs, la norme ne prévoi pas de séparation.
	for i = 2, 20 do
		local nom_i = Outils.texteLien( validArg( 'nom' .. i ) )
		if nom_i then
			local prenom_i = validArg( 'prénom' .. i )
			if prenom_i then 
				insertList( 'rft.au', nom_i .. ', ' .. prenom_i )
			else
				insertList( 'rft.au', nom_i )
			end
		else
			local auteur_i = Outils.texteLien( validArg( 'auteur' .. i ) )
			if auteur_i then
				insertList( 'rft.au', auteur_i )
			else
				break
			end
		end
	end
	
	-- date
	local datePub = Date.dateISO( args )
	if datePub then 
		insertList( 'rft.date', datePub )
	else
		insertList( 'rft.date', args.date )
	end
	
	-- doonée phisique de la publication
	insertList( 'rft.volume', validArg( 'volume', 'vol' ) )
	insertList( 'rft.issue', validArg( 'numéro', 'no', 'issue' ) )
	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', Outils.texteLien( validArg( 'éditeur', 'édition' ) ) )
	insertList( 'rft.edition', args["numéro d'é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, '&' ) .. '">'
end

return Commun