Différences entre les pages « Module:Langue » et « Pline l’Ancien »

De Les Mots de l'agronomie
(Différence entre les pages)
imported>Jacques Ducloy
m (1 révision importée)
 
imported>Thierry Daunois
 
Ligne 1 : Ligne 1 :
local Langue = { }
+
'''[[A pour personnalité::P|Pline l'Ancien]]''' (en latin ''Gaius Plinius Secundus'') est un écrivain et naturaliste romain, auteur d'une monumentale encyclopédie intitulée Histoire naturelle. Né en 23 après J.-C. à ''Novum Comum'' (l'actuelle Côme) dans le nord de l'Italie, il décède en 79, à Stabies (''Stabia'' en latin), près de Pompéi, lors de l'éruption du Vésuve.
  
-- Chargement de la base de données des langues avec gestion d'erreur.
+
==Listes des articles dans lesquels Pline l'Ancien est cité==
local dataLangue
 
local moduleData = 'Module:Langue/Data'
 
local langErrorMess = '<span class=error>langue non reconnue : %s</span>'
 
local success, resultat = pcall (mw.loadData, moduleData )
 
success = success and type( resultat.en ) == 'table'
 
if success then
 
dataLangue = resultat
 
else
 
-- Base de données a minima en cas de bug sur le Module:Langue/Data
 
dataLangue = { en = { code = 'en', nom = 'anglais' },
 
fr = { code = 'fr', nom = 'français' },
 
de = { code = 'de', nom = 'allemand' },
 
es = { code = 'es', nom = 'espagnol' },
 
it = { code = 'it', nom = 'italien'  },
 
la = { code = 'la', nom = 'latin'    },
 
['rtl script'] = { Arab = true }
 
}
 
dataLangue.anglais = dataLangue.en
 
dataLangue['français'] = dataLangue.fr
 
dataLangue.allemand = dataLangue.de
 
dataLangue.espagnol = dataLangue.es
 
dataLangue.italien = dataLangue.it
 
end
 
  
-- premierParametre renvoie le premier paramètre de Frame, que celui-ci ait été passé au module par invoke, directement au modèle,
+
{{#ask:[[A pour personne citée::{{PAGENAME}}]]
-- ou à l'intérieur d'un module sous forme de string dans un tableau ou directement de string.
+
|format=ul
-- Si aucun de ces arguments ne contient de chaine, la fonction renvoie nil.
+
}}
-- Si le deuxième paramètre est true, la chaine est renvoyée trimée et en minuscules.
 
local function premierParametre( frame, lowerCase )
 
local arg
 
if type( frame ) == 'table' then
 
arg = ( frame.getParent and ( frame.args[1] or frame:getParent().args[1] ) ) or frame[1]
 
elseif type( frame ) == 'string' then
 
arg = frame
 
end
 
if type( arg ) ~= 'string' then
 
arg = nil
 
end
 
if arg and lowerCase then
 
arg = mw.ustring.lower( mw.text.trim ( arg ) )
 
end
 
return arg
 
end
 
  
-- determinationCode retourne une table contenant le code de langue principal et la liste des subcode
+
==Pour en savoir plus==
-- si le code de langue principal n'est pas reconnu, retourne nil.
 
function Langue.determinationCode( langue )
 
if type( langue ) == 'string' and langue ~= '' then
 
local tabCode = mw.text.split( langue, '-' )
 
local tabLangue = dataLangue[ mw.ustring.lower( tabCode[1] ) ]
 
if tabLangue and tabLangue.code then
 
tabCode[1] = tabLangue.code
 
if tabLangue.invalide then
 
tabCode.invalide=true
 
end
 
return tabCode
 
end
 
end
 
end
 
  
-- Voir Modèle:Code langue
+
*Biographie de [[wikipedia.fr:Pline_l'Ancien|Pline l'Ancien]] sur Wikipédia.
-- Paramètre :
 
--    1  : nom de langue.
 
function Langue.codeLangue( frame )
 
local arg = premierParametre( frame, true )
 
local tabCode = Langue.determinationCode( arg )
 
return ( tabCode and table.concat( tabCode, '-' ) ) or arg or ''
 
end
 
  
-- Voir Modèle:Code langue 2
+
==Ouvrages consultables en ligne==
-- Paramètre :
 
--    1  : nom de langue.
 
function Langue.codeLangue2( frame )
 
local arg = premierParametre( frame, true )
 
local tabCode = Langue.determinationCode( arg )
 
return ( tabCode and table.concat( tabCode, '-' ) ) or ''
 
end
 
  
 +
* Pline l’Ancien, ca. 77. ''Naturalis historia liber XVIII'' (histoire naturelle livre XVIII traitant des céréales). Traduction d'Émile Littré, Dubochet, Paris, Les Belles Lettres, 1848-1850, 462 p. Texte intégral sur le site de la [http://web2.bium.univ-paris5.fr/livanc/?cote=39197x01&p=677&do=page Bibliothèque inter-universitaire de médecine] (bilingue), sur le site [http://agoraclass.fltr.ucl.ac.be/concordances/pline_hist_nat_18/lecture/default.htm agoraclass] (bilingue), sur le site [http://remacle.org/bloodwolf/erudits/plineancien/livre18.htm remacle.org] (français).
  
-- Voir Modèle:Direction langue
+
[[Catégorie:Hommes célèbres]]
-- Paramètre :
 
--    1  : nom de langue ou code IETF.
 
function Langue.directionLangue( frame )
 
local arg = premierParametre( frame, true )
 
if type( arg ) ~= 'string' or arg == '' then
 
return 'ltr'
 
end
 
-- séparation du code de langue en code principal et les différents subcode.
 
local tabCode = Langue.determinationCode( arg )
 
if tabCode then
 
-- on essaye de savoir si la direction est de droite à gauche
 
local codeScript = tabCode[2]
 
if codeScript and string.len( codeScript ) == 4 and dataLangue[ 'rtl script' ] then
 
-- il y a un subcode d'écritrure, c'est lui qui est pris en compte
 
codeScript = string.upper( string.sub( codeScript, 1, 1 ) ) .. string.sub( codeScript, 2 )
 
if dataLangue[ 'rtl script' ][ codeScript ] then
 
return 'rtl'
 
end
 
else
 
-- il n'y a pas de sub-code d'écriture, on prend en compte le code de langue principal.
 
local tabLangue = dataLangue[ tabCode[1] ]
 
if tabLangue and tabLangue.rtl then
 
return 'rtl'
 
end
 
end
 
end
 
 
-- la langue n'est pas écrite de droite à gauche, donc ltr.
 
return 'ltr'
 
end
 
 
 
 
 
-- Voir Modèle:Nom langue
 
-- Paramètre :
 
--    1  : code IETF de langue.
 
function Langue.nomLangue( frame )
 
local arg = premierParametre( frame, true )
 
if type( arg ) ~= 'string' or arg == '' then
 
return '<span class=error>langue non précisée</span>'
 
end
 
local tabLangue = dataLangue[ arg ]
 
if tabLangue == nil then
 
tabLangue = dataLangue[ mw.ustring.match( arg, '^(%a-)%-' ) ]
 
end
 
if not tabLangue then
 
if success then
 
return string.format( langErrorMess, arg )
 
else
 
return '<span title="erreur dans ' .. moduleData .. '">' .. arg .. '</span>'
 
end
 
end
 
if type( tabLangue.page ) == 'string' then
 
if tabLangue.page ~= '' then
 
return '[[' .. tabLangue.page .. '|' .. tabLangue.nom .. ']]'
 
else
 
return tabLangue.nom
 
end
 
else
 
return '[[' .. tabLangue.nom .. ']]'
 
end
 
end
 
 
 
 
 
-- Voir Modèle:Langue
 
-- Paramètres :
 
--    1 : code IETF de langue ;
 
--    texte ou 2 : texte dans cette langue ;
 
--    trans : translittération du texte ;
 
--    dir : direction de la langue (obsolète : peut être en paramètre 1, avec code en 2 et texte en 3).
 
function Langue.langue( frame )
 
local args = ( frame.getParent and frame:getParent().args ) or frame        -- préparation pour appel par modèle ou direct.
 
local code = mw.ustring.lower( mw.text.trim( args[1] or '' ) )
 
local texte = args.texte or ''
 
if texte == '' then
 
texte = args[2] or ''
 
end
 
local dir = args.dir
 
local trans = args.trans
 
 
-- Décalage des paramètres si code contient la direction du texte (obsolète mais toujours possible).
 
if code == 'ltr' or code == 'rtl' then
 
dir = code
 
code = mw.ustring.lower( mw.text.trim( args[2] ) or '' )
 
texte = args[3] or ''
 
end
 
local codeArg = code
 
 
-- Si la langue est reconnue, la valeur de la table est prise en compte (permet de corriger les noms de langue en toutes lettres).
 
local tabCode = Langue.determinationCode( code )
 
local tabLangue
 
if tabCode then
 
code = table.concat( tabCode, '-' )
 
tabLangue = dataLangue[ tabCode[1] ]
 
 
local codeScript = tabCode[2]
 
-- Si codeScript est bien un style d'écriture (len = 4) on applique sa direction
 
if codeScript and  string.len( codeScript ) == 4 and dataLangue[ 'rtl script' ] then
 
-- formatage type Latn correspondant au fromat dans dataLangue[ 'rtl script' ]
 
codeScript = string.upper( string.sub(  codeScript, 1, 1 ) ) .. string.sub(  codeScript, 2 )
 
tabLangue = { code = tabLangue.code,
 
rtl = dataLangue[ 'rtl script' ][ codeScript ],
 
invalide = tabLangue.invalide
 
}
 
end
 
end
 
 
-- Prépatation du rendu de direction du texte.
 
dir = dir and dir:lower()
 
if dir ~= 'ltr' and dir ~= 'rtl' then
 
dir = ( tabLangue and tabLangue.rtl and 'rtl' )
 
end
 
 
 
-- Translittération.
 
local htmlTrans = mw.html.create()
 
if trans and trans ~= '' then
 
trans = trans:gsub( "^''([^'].*[^'])''$", "%1" )
 
htmlTrans:wikitext( " (''" )
 
:tag( 'span' )
 
:addClass( 'transcription lang-' .. code )
 
:attr( 'lang', code .. '-Latn' )
 
:attr( 'dir', 'ltr' )
 
:wikitext( trans )
 
:done()
 
:wikitext( "'')" )
 
end
 
 
 
-- Compilation du texte à retourner.
 
local html = mw.html.create( '' )
 
if code == '' then
 
html:wikitext( texte )
 
else
 
html:tag( 'span' )
 
:addClass( 'lang-' .. code )
 
:attr{ lang = code, dir = dir }
 
:wikitext( texte )
 
:done()
 
:node( htmlTrans )
 
end
 
 
 
-- Ajout de la catégorie Page avec code de langue invalide si le code langue non reconnu ou invalide.
 
if success and ( type( tabLangue ) ~= 'table' or tabCode.invalide ) then
 
local namespaceCategorisation = { [0] = true, [4] = true, [10] = true, [12] = true, [14] = true, [100] = true }
 
if namespaceCategorisation[ mw.title.getCurrentTitle().namespace ] then
 
if codeArg == '' then
 
codeArg = ' ' -- sinon la catégorie n'est pas wikifiée
 
end
 
html:wikitext( '[[Catégorie:Page avec code de langue invalide]] ' )
 
:wikitext( string.format( langErrorMess, codeArg ) )
 
end
 
end
 
 
 
return tostring( html )
 
end
 
 
 
-- Alias nom de fonction
 
Langue.lang = Langue.langue
 
 
 
 
 
-- Voir Modèle:Indication de langue
 
-- Paramètres :
 
--    1 : nom de langue ;
 
--    2 : code IETF ;
 
--    texte : texte dans cette langue ;
 
--    dir : direction de la langue.
 
function Langue.indicationDeLangue( frame )
 
local args = ( frame.getParent and frame:getParent().args ) or frame
 
local nomLangue = args[1] or ''
 
local code = args.langue or mw.text.trim( args[2] or '' )
 
local texte = args.texte
 
local dir = args.dir
 
local wikiText = ''
 
-- Cas où le premier et/ou le deuxième paramètre est vide.
 
if code .. nomLangue == '' then
 
return texte
 
elseif nomLangue == '' then
 
nomLangue = dataLangue[ mw.ustring.lower( code ) ]
 
nomLangue = (nomLangue and nomLangue.nom or '???')
 
elseif code == '' then
 
code = dataLangue[ nomLangue ]
 
code = ( code and code.code or '' )
 
if code == '' then
 
return texte
 
end
 
end
 
-- Gestion du texte.
 
if texte and texte ~= '' then
 
texte = '&nbsp;' .. Langue.lang{ code, dir = dir, texte = texte }
 
else
 
texte = ''
 
end
 
-- Compilation de l'indicateur de langue et du texte.
 
local html = mw.html.create()
 
html:tag( 'span' )
 
:addClass( 'indicateur-langue' )
 
:wikitext( '(' )
 
:tag( 'abbr' )
 
:addClass( 'abbr' )
 
:attr( 'title', 'Langue : ' .. nomLangue )
 
:wikitext( code )
 
:done()
 
:wikitext( ')' )
 
:done()
 
:wikitext( texte )
 
 
return tostring( html )
 
end
 
 
 
-- Voir Modèle:Mul
 
-- Paramètres : codes IETF ou noms de langue, en nombre indéfini (string ou nil uniquement).
 
function Langue.indicationMultilingue( frame )
 
local args = (frame.getParent and frame:getParent().args) or frame
 
local listeNom = { }
 
local listeCode = { }
 
local tabLangue
 
-- Valeur par défaut du premier paramètre = 'mul'.
 
local code = mw.text.trim( args[1] or '' )
 
if code == '' then
 
code = 'mul'
 
end
 
 
if not args[2] and not dataLangue[ mw.ustring.lower( code ) ] then
 
local split = mw.text.split( code, '[+,;:/ .]+' )
 
if #split > 1 then
 
return Langue.indicationMultilingue( split )
 
end
 
end
 
-- Ajout des noms et codes de langue de chaque paramètre dans listeNom et ListeCode.
 
local i = 1
 
repeat
 
code = mw.ustring.lower( code )
 
local tabLangue = dataLangue[ code ]
 
if not tabLangue then
 
code = mw.text.split( code, '-' )[1]
 
tabLangue = dataLangue[ code ]
 
end
 
if type( tabLangue ) == 'table' then
 
table.insert( listeNom, tabLangue.nom )
 
table.insert( listeCode, tabLangue.code )
 
elseif success then
 
table.insert( listeNom, '???' )
 
local erreur = ' ' .. string.format( langErrorMess, code )
 
table.insert( listeCode, erreur )
 
else
 
table.insert( listeNom, '??? (erreur dans ' .. moduleData .. ')' )
 
table.insert( listeCode, code )
 
end
 
i = i + 1
 
code = mw.text.trim( args[i] or '' )
 
until code == ''
 
 
-- Préparation et renvoi du texte.
 
local n = #listeCode
 
local pluriel = ''
 
if #listeCode == 0 then
 
return ''
 
elseif n > 1 then
 
pluriel = 's'
 
end
 
 
local html = mw.html.create( 'span' )
 
html:addClass( 'indicateur-langue' )
 
:wikitext( '(' )
 
:tag( 'abbr' )
 
:addClass( 'abbr' )
 
:attr( 'title', 'Langue' .. pluriel .. ' : ' .. mw.text.listToText( listeNom ) )
 
:wikitext( table.concat( listeCode, '+' ) )
 
:done()
 
:wikitext( ')' )
 
:done()
 
 
return tostring( html )
 
end
 
 
 
 
 
-- Voir Modèle:Langue avec nom
 
-- Paramètres :
 
--    1 : code IETF de langue ;
 
--    texte ou 2 : texte dans cette langue ;
 
--    trans : translittération du texte ;
 
--    dir : direction de la langue.
 
function Langue.langueAvecNom( frame )
 
local args = ( frame.getParent and frame:getParent().args ) or frame
 
local code = mw.ustring.lower( mw.text.trim( args [1] or '') )
 
local texte = args.texte or args[2] or ''
 
local trans = args.trans
 
local dir = args.dir
 
local wikiText = ''
 
 
 
-- Détection de la direction du texte.
 
if code == 'ltr' or code == 'rtl' then
 
dir = code
 
code = mw.ustring.lower( mw.text.trim( args[2] ) )
 
texte = args[3] or ''
 
end
 
 
 
-- Définition du nom de la langue en français.
 
local nom = Langue.nomLangue{ code }
 
 
 
if texte ~= '' then
 
texte = '&nbsp;' .. Langue.lang{ code, dir = dir, texte = texte, trans = trans }
 
end
 
 
 
wikiText = nom .. ' :' .. texte
 
 
 
return wikiText
 
end
 
 
 
---
 
-- latinOnly détermine si la chaine fournie contien uniquement des caractère latin (étendu, unicode < 880)
 
function Langue.nonLatin( frame )
 
local texte = premierParametre( frame )
 
for codepoint in mw.ustring.gcodepoint( texte ) do
 
if codepoint > 879 and not (                  --  > 036F
 
codepoint > 7423 and codepoint < 7936 or  -- suppléments phonétique, diacritiques et latin  (1D00 à 1EFF)
 
codepoint > 8191 and codepoint < 11392 or -- espace, indices, monaies et symboles divers (2000 à 2C7F)
 
codepoint > 42783 and codepoint < 43008  -- latin étendu D  (A720 à A7FF)
 
) then
 
return true
 
end
 
end
 
return false
 
end
 
 
 
-- erreurModuleData affiche un message d'erreur si le Module:Langue/Data n'a pas été chargé correctement,
 
-- pour la page de discussion de la base de données et ceux qui veulent surveiller cette page.
 
function Langue.erreurModuleData()
 
if success == false then
 
local message = [[<strong class="error">Le chargement du module Langue/Data génère une erreur : </strong> <br>%s <br>
 
 
 
<span class="error">Cette erreur doit être corrigée au plus vite car des milliers de pages ne s'affichent pas correctement.</span>
 
]]
 
return string.format( message, resultat )
 
end
 
end
 
 
 
-- tableauLangues génère un tableau triable de la liste des langues disponible dans Module:langue/Data.
 
function Langue.tableauLangues()
 
if type( dataLangue ) ~= 'table' then
 
return
 
end
 
 
 
local tableau = { }
 
local entete = [[{| class="wikitable alternance sortable"
 
|-
 
!scope=col|Alias
 
!scope=col|Code IETF
 
!scope=col|Nom principal
 
!scope=col|Page (si différente du nom)
 
!scope=col|RTL
 
!scope=col|Invalide]]
 
 
 
local ligneTab, ligneSrt
 
for i, v in pairs( dataLangue ) do
 
if v.code then
 
ligneTab = {
 
i,
 
v.code,
 
v.nom,
 
v.page or '',
 
v.rtl and '[[Image:Yes check.svg|15px|oui|lien=]]' or '',
 
v.invalide and '[[Image:Yes check.svg|15px|oui|lien=]]' or '',
 
}
 
ligneSrt = table.concat( ligneTab, '\n|' )
 
table.insert( tableau, ligneSrt )
 
end
 
end
 
table.sort( tableau )
 
table.insert( tableau, 1, entete )
 
table.insert( tableau, '}' )
 
 
return table.concat( tableau, '\n|-\n|' )
 
end
 
 
 
-- listeCodeAlias génère une liste ; les langues sont de la forme : * code : alias1, alias2
 
function Langue.listeCodeAlias ()
 
if type( dataLangue ) ~= 'table' then
 
return
 
end
 
local languesTab, listeCodesAlias = { }, { }
 
local code, alias, codeAlias
 
for i, v in pairs( dataLangue ) do
 
-- on construit un table avec pour indices les codes de langue, et pour valeurs une table avec la liste des alias
 
code = v.code
 
if code and not v.invalide then
 
languesTab[code] = languesTab[code] or { }
 
if i ~= mw.ustring.lower( code ) then
 
table.insert( languesTab[code], i )
 
end
 
end
 
end
 
for i, v in pairs( languesTab ) do
 
-- transformation en un table séquence, avec pour valeur une chaine correspondant à une ligne de la liste
 
alias = table.concat( v, ', ' )
 
if alias == '' then
 
codeAlias = '* <code>' .. i .. '</code>'
 
else
 
codeAlias = '* <code>' .. i .. '</code> : ' .. alias
 
end
 
table.insert( listeCodesAlias, codeAlias )
 
end
 
table.sort( listeCodesAlias )
 
 
return table.concat( listeCodesAlias, '\n' )
 
end
 
 
 
-- listeAliasCode génère une liste ; les langues sont de la forme :  * alias : code
 
function Langue.listeAliasCode ()
 
if type( dataLangue ) ~= 'table' then
 
return
 
end
 
local languesTab = { }
 
local code
 
for i, v in pairs( dataLangue ) do
 
-- on construit un table avec pour indices les codes de langue, et pour valeurs une table avec la liste des alias
 
code = v.code
 
if code and i ~= code and not v.invalide then
 
table.insert( languesTab, '* ' .. i .. ' = ' .. code )
 
end
 
end
 
table.sort( languesTab )
 
 
return table.concat( languesTab, '\n' )
 
end
 
 
 
return Langue
 

Version du 3 avril 2012 à 15:33

Pline l'Ancien (en latin Gaius Plinius Secundus) est un écrivain et naturaliste romain, auteur d'une monumentale encyclopédie intitulée Histoire naturelle. Né en 23 après J.-C. à Novum Comum (l'actuelle Côme) dans le nord de l'Italie, il décède en 79, à Stabies (Stabia en latin), près de Pompéi, lors de l'éruption du Vésuve.

Listes des articles dans lesquels Pline l'Ancien est cité

Pour en savoir plus

Ouvrages consultables en ligne

  • Pline l’Ancien, ca. 77. Naturalis historia liber XVIII (histoire naturelle livre XVIII traitant des céréales). Traduction d'Émile Littré, Dubochet, Paris, Les Belles Lettres, 1848-1850, 462 p. Texte intégral sur le site de la Bibliothèque inter-universitaire de médecine (bilingue), sur le site agoraclass (bilingue), sur le site remacle.org (français).