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 Modèle:Module biblio/responsabilité secondaire function Biblio.responsabiliteSecondaire ( frame )

   local args = extractArgs ( frame )
   local traducteur = args.traducteur or 
   local preface = args [ 'péface' ] 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 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

function Biblio.COinS ( frame )

   local args = extractArgs ( frame )
   local fields = { 
       chapitre = { 'book', { '.genre=', 'bookitem' }, { 'btitle', 'titre'}, { 'atitle', 'titre section' } },
       article = { 'journal', { 'genre', 'article' }, { 'atitle', 'titre'}, { 'jtitle', 'périodique' } },
       ouvrage = { 'book', { 'genre', 'bookitem' }, { 'btitle', 'titre'}, { 'atitle', 'titre section' } },
       soustitre = { '.stitle=', 'sous-titre' },
       { '.volume=', 'volume' },
       { '.issue=', 'numéro' },
       { '.pages=' , 'pages' },
       { '.spage=', 'page début' },
       { '.tpages=', 'pages totales' },
       { '.place=', 'lieu' },
       { '.pub=', 'éditeur' },
       { '.edition=' , 'édition' },
       { '.isbn=', 'isbn' },
       { '.issn=', 'issn' },
       { '_id=info:doi/', 'doi' },
       { '_id=info:pmid/', 'pmid' },
       { '_id=info:oclcnum/' , 'oclc' },
       { '_id=', 'url' },
       wikipedia = { '_id=info:sid/fr.wikipedia.org:', mw.title.getCurrentTitle().fullText  }
   }
   local liste = { }
   local wikiText = ' '
   
   return wikiText

end

return Biblio