Module:Biblio

local Biblio = {}

local Langue = require ( 'Module:Langue' ) 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 -- 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] .. '')

   return table.concat (wikiText)

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' }
   else
       local texteIsbn = 'ISBN ' .. isbn
       repeat
           local lien = '[[Spécial:Ouvrages de référence/' .. isbn 
               .. '|' .. texteIsbn .. ']]'
           table.insert ( liste, lien )

           i = i + 1
           isbn = mw.text.trim ( args [i] or  )
           texteIsbn = isbn
       until isbn == 
   end
   return '(' .. mw.text.listToText ( liste ) .. ')'

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' }
   else
       repeat
           local lien = '[http://worldcat.org/issn/' 
               .. mw.uri.encode( issn ) .. '&lang=fr ' .. issn.. ']'
           table.insert ( liste, lien )

           i = i + 1
           issn = mw.text.trim ( args [i] or  )
           texteIsbn = issn
       until issn == 
   end
   return '(ISSN ' .. mw.text.listToText ( liste ) .. ')'

end

-- voir Modèle:Module biblio/span initial function Biblio.spanInitial ( frame )

   local args = extractArgs ( frame )         -- préparation pour appel par modèle ou direct.
   local id = args.id or 
   if string.len( id ) == 0 then
       id = mw.uri.anchorEncode ( args.id1 .. args.id2 .. args.id3 .. args.id4 .. args.id5 )
   end
   return ' 0 then
       lib = '[' .. lib .. '] '
   end
   return lib

end

-- voir Modèle:Module biblio/indication de langue function Biblio.indicationDeLangue ( frame )

   local args = extractArgs ( frame )
   local codeLangue = Langue.codeLangue2 (  args.langue )
   if codeLangue ~=  and codeLangue ~= 'fr' then
       return Langue.indicationDeLangue { , codeLangue }
   else
       return 
   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 = '' .. 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 function Biblio.responsabiliteSecondaire ( frame )

   local args = extractArgs ( frame )
   local traducteur = args.traducteur or 
   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

-- 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 ' '

end

return Biblio