kookipedia - Contributions [fr]

Yves Hélory de Kermartin

2024-09-20T14:56:25Z

Jaggerwock :

{{Voir homonymes|Saint Yves}}
{{confusion|Yves Saint-Martin}}
{{Infobox Saint
| nom = Yves de Kermartin ''Saint catholique''
| image = Weyden Ivo.jpg
| taille image = 240
| légende = Saint Yves par [[Rogier van der Weyden]] ({{s|XV}}), [[National Gallery]], [[Londres]].
| titre = [[Official (ecclésiastique)|official ecclésiastique]], avocat des pauvres
| date de naissance = Vers {{date|||1253}}{{Note|groupe=Note|nom=Naissance|Si 1253 est souvent avancée quant à l'année de naissance de Yves Hélory de Kermartin, d'autres hypothèses ont été émises (1247, 1248 ou 1250)<ref name=SourceNaissance>{{Harvsp|Cassard|passage=12}}</ref>.}}
| lieu de naissance = Manoir de Kermartin à [[Minihy-Tréguier|Minihy]] ([[Duché de Bretagne]])
| date de décès = {{date de décès|19|mai|1303}}
| lieu de décès = [[Trégor]] ([[Duché de Bretagne]])
| âge au décès = 50
| nom de naissance = Yves Hélory de Kermartin
| autres noms =
| lieu de vénération = [[Tréguier]] où a lieu un célèbre [[Pardon (cérémonie)|pardon]] tous les [[19 mai]].
| date de béatification =
| lieu de l'annonce béatification =
| béatifié par =
| date de canonisation = [[1347]]
| lieu de l'annonce canonisation =
| canonisé par = [[Clément VI]]
| date docteur église =
| lieu de l'annonce docteur =
| docteur église par =
| docteur mention =
| vénéré par = l'[[Église catholique|Église catholique romaine]]
| fête = [[19 mai]]
| attributs = généralement représenté avec une [[Porte-monnaie|bourse]] dans une main, pour signifier tout l'argent qu'il a donné aux pauvres dans sa vie, et un [[parchemin]] dans l'autre, qui rappelle sa charge de [[Official (ecclésiastique)|juge ecclésiastique]]. Il est également souvent figuré entre un homme riche et un homme pauvre.
| titre saint patron =
| saint patron = professions de la [[justice]] et du [[droit]] ([[Avocat (métier)|avocat]]s). [[Bretagne]] (avec [[Anne (mère de Marie)|sainte Anne]]).
| problème =
| date de suppression =
| blason = Blason fam fr Hélory.svg
}}

'''Yves Hélory de Kermartin''', ou '''Yves de Tréguier''', ou '''Erwan Helouri''' en [[breton]], ou '''saint Yves''' dans la tradition [[Catholicisme|catholique]], est un prêtre et [[official (ecclésiastique)|official]] du [[diocèse de Tréguier]], né probablement vers {{date de naissance|1253}}{{Note|groupe=Note|nom=Naissance}} au manoir de Kermartin à [[Minihy-Tréguier|Minihy]], dans le [[Duché de Bretagne]], et mort le {{date de décès|19 mai 1303}} au même endroit.

Considéré par l'[[Église catholique]] comme ayant consacré sa vie à la justice et aux pauvres, il est [[Canonisation|canonisé]] le {{date-|19 mai 1347}} par le pape [[Clément VI]]. Saint Yves est le [[saint patron]] de toutes les professions de justice et de droit, notamment celle d’[[avocat (métier)|avocat]]. Il est également saint patron de la [[Bretagne]] et fait l'objet d'un grand [[Pardon (cérémonie)|pardon]] à l'occasion de la [[fête de la Saint-Yves]] tous les ans à [[Tréguier]]. On le fête le [[19 mai]].

== Nom ==
{{article détaillé|Erwan|Yves}}
En [[breton]], saint Yves est appelé ''sant Erwan''. Si Erwan est une des variantes les plus communes pour le désigner, elle est originaire du [[Trégor]]. On retrouve aussi ''Iwan'', ''Youenn'' ou ''Eozen'' dans d'autres régions de Bretagne. Ces variantes proviennent de ses deux prototypes : {{page h'|Yves}}, emprunt au français, et Eudon, prénom vieux breton<ref>{{Harvsp|id=StYves&Bretons|texte=Bernard Tanguy, « Les lieux de culte de saint Yves en Bretagne »|passage=99}}.</ref>, qui étaient vraisemblablement considérés comme synonymes du temps de saint Yves<ref>{{Harvsp|Falc'hun|p=183}}</ref>.

== Biographie ==
=== Sources ===
La source principale de référence utilisée pour connaître la vie de Yves Hélory de Kermartin est la procédure entamée en [[1330]] pour aboutir à sa [[canonisation]]. L'enquête de canonisation s'ouvre le {{date-|26 février 1330}} et aboutit positivement le {{date-|19 mai 1347}}<ref name="P&M P513">{{Ouvrage|auteur1=Michel Priziac|auteur2=Michel Mohrt|titre=Bretagne des saints et des croyances|éditeur=Kidour|année=2002|passage=513|isbn=}}</ref>. Elle fournit dans la première partie un certain nombre de témoignages sur ce que fut sa vie, la manière dont les gens le percevaient et, dans la seconde partie, les miracles qui lui sont attribués. Le rouleau de cette enquête est présenté au pape [[Jean XXII]] le {{date-|4 juin 1331}}. Une copie, conservée dans un manuscrit déposé à la Bibliothèque municipale de [[Saint-Brieuc]], a permis la première publication du texte en latin en 1887, puis en français au {{s|XX}}<ref>{{Lien web|url=https://www.ouest-france.fr/bretagne/treguier-22220/lenquete-de-canonisation-de-saint-yves-traduite-en-francais-3771615|titre=L'enquête de canonisation de saint Yves traduite en français|date=15 octobre 2015|site=ouest-france.fr}}</ref>.

Après sa canonisation, on trouve peu d'écrits au [[bas Moyen Âge]] sur sa vie<ref name="Yves Coativy">{{Harvsp|id=StYves&Bretons|texte=Yves Coativy, « Saint Yves dans les chroniques bretonnes de la fin du Moyen Âge »}}</ref>. Utilisant sans doute comme source principale l'enquête de canonisation, la première [[Vita|vie]] serait composée au {{s|XIV}} par Maurice Godefroy, un [[Ordre des Prêcheurs|dominicain]] de [[Morlaix]], qui y ajoute des éléments issus de la tradition orale<ref>{{Ouvrage|auteur1=Albert Le Grand|titre=Les vies des Saints de la Bretagne-Armorique|éditeur=|année=1837|passage=280}}</ref>{{,}}<ref name=Roparz>{{Ouvrage|auteur1=M. S. Roparz|titre=Histoire de Saint Yves|sous-titre=patron des gens de justice|éditeur=|année=1856|passage=V-VII}}</ref>. Ce manuscrit est repris ensuite par [[Daniel van Papenbroeck|Papebroch]] dans les ''[[Acta Sanctorum]]'' des [[bollandistes]]<ref name=Roparz/>. Entre-temps, il est aussi fait mention de la vie de saint Yves au quatrième livre des ''Grandes croniques de Bretaigne'' d'[[Alain Bouchart]]<ref name="Yves Coativy"/>{{,}}<ref name=Roparz/>. Bouchart reprend des éléments du procès en canonisation, mais ajoute également des éléments inédits, de sources inconnues<ref name="Yves Coativy"/>. À partir de la [[Renaissance]] plusieurs récits de sa vie sont écrits en [[français]], en [[latin]], en [[breton]] et en [[italien]].

Enfin, il existe également un document en latin écrit de la main d'Yves Hélory de Kermartin : son testament, qui est le seul de ses écrits transmis jusqu'à nos jours<ref name=Casp45>{{Harvsp|Cassard|passage=45}}</ref>.

=== Enfance et jeunesse ===
[[File:Kermartin.jpg|thumb|Lieu supposé de la naissance de Saint Yves, avant sa destruction au {{s-|XIX}}.]]
La date de naissance de Yves Hélory de Kermartin est inconnue. Selon toute vraisemblance elle se situerait au milieu du {{s|XIII}}, la tradition retenant généralement {{date|1253}}, mais d'autres années sont parfois proposées. Dans son livre ''Saint Yves de Tréguier : un saint du {{s-|XIII}}'', [[Jean-Christophe Cassard]] défend une naissance en {{date|1248}}, ce qui permettrait selon lui une chronologie cohérente jusqu'en 1280<ref name=Casp16>{{Harvsp|Cassard|passage=16}}</ref>.

Yves Hélory de Kermartin naît dans une famille noble au manoir de Kermartin{{Note|groupe=Note|Le manoir, qui a l'aspect d'une grande ferme, est démoli en 1834, certainement après avoir été ravagé par un incendie provoqué par une pipe mal éteinte<ref name=PatrimoineManoir>{{lien web|url=http://patrimoine.bzh/gertrude-diffusion/dossier/ferme-de-kermartin-minihy-treguier/9ec19d73-e023-4696-aa72-237f9302f742|titre=Ferme de Kermartin (Minihy-Tréguier)|site=patrimoine.bzh, site du patrimoine culturel de la [[Région Bretagne]]|consulté le=19-07-2020}}</ref>. Il est reconstruit par son propriétaire, l'archevêque [[Hyacinthe-Louis de Quélen|de Quélen]], qui y fait apposer une plaque en marbre au-dessus de la porte d'entrée. Cette plaque porte l'inscription : ''Ici est né, le 17 octobre 1253, et mort le 19 mai 1303, saint Yves, official de Tréguier, curé de Trédrez et de Louannec. Sa maison, qui a subsisté jusqu'en 1834, a été alors démolie pour cause de vétusté''<ref name=PatrimoineManoir/>{{,}}<ref>{{Ouvrage|auteur1=Benjamin-Philibert Jollivet|titre=Les Côtes-du-Nord : histoire et géographie de toutes les villes et communes du département|éditeur=imprimerie de B. Jollivet|année=1993|passage=255|isbn=}}</ref>. Le colombier qui subsiste est considéré par la tradition comme contemporain à Saint Yves, bien qu'il ait probablement été bâti plus tard<ref>{{Ouvrage|auteur1=Jean Auffret|titre=Colombiers et pigeonniers en Bretagne profonde|éditeur=Editions régionales de l'Ouest|année=|passage=107|isbn=}}</ref>{{,}}<ref name=PatrimoineColombier>{{lien web|url=http://patrimoine.bzh/gertrude-diffusion/dossier/colombier-de-kermartin-minihy-treguier/a85812fb-a25f-461a-8a36-c0f434fcf6e1#localisation|titre=Colombier de Kermartin (Minihy-Tréguier)|site=patrimoine.bzh, site du patrimoine culturel de la [[Région Bretagne]]|consulté le=19-07-2020}}</ref>.}} sur la paroisse de [[Minihy-Tréguier|Minihy]]. Son grand-père, Ganaret de Kermartin, est [[Chevalier (chevalerie)|chevalier]]<ref name=SourceNaissance/>. Son père, Hélory, est [[damoiseau]], et sa mère, Azo, est aussi certainement noble<ref name=SourceNaissance/>. Sa mère prétend qu'un songe lui aurait révélé que son fils serait un saint<ref name="P&M P512" />. Il a un frère et deux sœurs dont on ne sait pas grand chose<ref>{{Harvsp|Cassard|passage=13}}</ref>.

Il grandit dans le Trégor et part dans les années 1260 accompagné de son précepteur, Jean de Kerhos, clerc de la paroisse de Pleubian, à Paris pour suivre des études à la [[Sorbonne]]. Il étudie six ans à la [[faculté des arts]] avant de passer son examen final [[rue du Fouarre]] à 20 ans<ref name=Casp15>{{Harvsp|Cassard|passage=15}}</ref>. Il poursuit ensuite ses études [[rue du Clos-Bruneau]] à la [[Ancienne université de Paris#Faculté de décret|faculté de décret]] où il apprend le [[droit canon]]<ref name=Casp15/>. Il partirait ensuite en {{date-|1272}} poursuivre ses études de droit romain à l'[[université d'Orléans]]. Il retourne probablement trois années à Paris, entre 1274 et 1277, pour y étudier la théologie<ref name=Casp16/>. Déjà, il se fait remarquer par sa vie de privation en faveur des pauvres<ref name="P&M P512">{{Ouvrage|auteur1=Michel Priziac|auteur2=Michel Mohrt|titre=Bretagne des saints et des croyances|éditeur=Kidour|année=2002|passage=512|isbn=}}.</ref>.

=== Retour et vie en Bretagne ===
[[File:Claude Vignon 1635 Saint Yves.jpg|thumb|[[Claude Vignon]] : ''Saint Yves'' (huile sur toile, 1635, évêché de saint-Brieuc).]]
Ses études achevées trois ans plus tard, il revient en 1280 en [[Bretagne]] à [[Rennes]]<ref name=Casp20>{{Harvsp|Cassard|passage=20}}</ref>, où il est nommé [[Official (ecclésiastique)|official]] de l'[[archidiacre]]. C'est à Rennes qu'il assiste, en [[1281]]<ref name=Casp20/>, à une lecture des [[Sentences]] chez les [[Ordre des Frères mineurs|Frères mineurs]] qui le marque et qui l'amène plus tard à prendre la décision de prêcher et de ne s'habiller plus que très modestement<ref>{{Harvsp|texte=Enquête canonique, témoin 29|id=Enquête|p=77}}</ref>.

L'[[liste des évêques de Tréguier|évêque de Tréguier]], [[Alain de Bruc]], remarque ses talents et le presse de revenir à Tréguier. Avec le décès de ses parents, il hérite de la part du patrimoine familial qui lui est due<ref name=Casp45/>. En plus d'inviter volontiers les miséreux à sa table, il recueille également deux orphelins, Derrien Guiomar, [[dominicain]], et Olivier Floc'h<ref name="P&M P512"/>.

En 1284, Alain de Bruc le nomme [[Official (ecclésiastique)|official]] et l'ordonne prêtre. Il le nomme ensuite recteur de la paroisse de [[Trédrez-Locquémeau|Trédrez]]. Puis en 1292, le nouvel évêque l'envoie dans la paroisse de [[Louannec]]<ref>{{Harvsp|Cassard|passage=22}}</ref>, proches des terres de son enfance. {{Source insuffisante|En 1293, il fait construire un refuge pour les indigents, Crech-Martin<ref>{{lien web|url=http://www.bretagne-gite.fr/l-histoire-de-crech-martin/|titre=L'Histoire de Crech-Martin ({{s-|XIII}})|site=bretagne-gite.fr|consulté le=13-02-2017}}</ref>}}.

À cette époque, Yves prêche énormément et est reconnu pour ses talents d'orateur ainsi que pour sa capacité à captiver son auditoire<ref name=Casp38>{{Harvsp|Cassard|passage=38}}</ref>. Il se déplace beaucoup à pied dans la région de Tréguier, où il est vu plusieurs fois dans la même journée à des lieux différents et de bonne distance, notamment le dimanche où il prêche dans plusieurs églises du diocèse de Tréguier et de [[Saint-Brieuc]]<ref>{{Harvsp|texte=Enquête canonique, témoin 1|id=Enquête|p=30}}</ref>.

=== Vie d'ascèse ===
Dans l'enquête de canonisation, plusieurs témoins décrivent la vie de Yves comme une vie d'[[ascèse]]. Au moins lors des dix dernières années de sa vie, il ne porte que des vêtements modestes, composés essentiellement d'une [[Bure (étoffe)|bure]] blanche<ref name=Casp2223>{{Harvsp|Cassard|passage=22-23}}</ref>. Il porte aussi un [[cilice]] de crin sous ses vêtements et est couvert de [[Pou de corps|poux de corps]], dont il n'essaie pas de se débarrasser<ref name=Casp2223/>. Devenu [[végétarien]] dans sa jeunesse<ref name=Casp2223/>, au cours des dernières années de sa vie il ne mange plus que très peu, se nourrissant exclusivement de pain, de légumes et de [[Fabaceae|légumineuses]], et ne buvant que de l'eau. Selon quelques témoins, il jeûne trois jours par semaine au pain et à l'eau, mais s'autorise à manger deux œufs le jour de [[Pâques]]. Il partage ses biens avec les plus démunis et accueille tous les jours des pauvres à manger chez lui. Il refuse toujours de dormir dans un lit, préférant dormir à même le sol<ref name=Casp2223/>.

=== Témoignages et légendes ===
[[Image: SantIvo.jpg|thumb|200px|left|Saint Yves entre le riche et le pauvre (bois [[polychromie|polychrome]] du {{s|XVI|e}}, [[cathédrale Saint-Corentin de Quimper]])]]
Dans l'enquête de [[canonisation]], où son attachement aux pauvres et au soulagement de leur misère est considéré de {{citation|notoriété publique}}, un certain nombre de faits sont rapportés sur la manière dont Yves Hélori pouvait se comporter et rendre justice.

Il y est fait mention à plusieurs reprises de moments où Yves cède ses vêtements à des pauvres qu'il rencontre. Un de ces événement pourrait se situer en 1291 et correspondre alors à sa conversion dix ans après avoir entendu la lecture des Sentences de [[Pierre Lombard]] chez les franciscains<ref name=Casp2223/>. À l'Hôtel-Dieu de [[Tréguier]] il se serait défait de plusieurs de ses habits précieux, qu'il aurait ensuite partagés entre plusieurs pauvres, avant de repartir en courant vers Minihy où se trouve son manoir<ref name=Casp2223/>{{,}}<ref>{{Harvsp|texte=Enquête canonique, témoin 45|id=Enquête|p=105}}</ref>. Un autre témoin fait état d'un fait similaire où Yves cède un de ses habits à un pauvre rencontré dans la rue, dans une maison proche, avant de se hâter vers sa demeure<ref>{{Harvsp|texte=Enquête canonique, témoin 32|id=Enquête|p=83}}</ref>.

Des légendes, qui sont confondues avec des éléments historiques de la vie de Yves, existent aussi. [[Alain Bouchart]] en propose deux se déroulant à [[Tours]] et qui semblent procéder de son imagination ou d'une source inconnue<ref name="Yves Coativy"/>. Une des légendes qui est fréquemment attribuée à Yves, bien qu'absente du procès en canonisation, a acquis une certaine postérité. Elle est similaire à l'épisode de Seigny Joan et du rôtisseur dans [[Le Tiers Livre]] écrit par [[Rabelais]]<ref>{{Ouvrage|auteur1=Henri Weitzmann|titre=Itinéraire des légendes bretonnes|éditeur=[[Hachette Livre|Hachette]]|année=1954|passage=27}}</ref>. Appelé à traiter une affaire opposant un aubergiste à un mendiant qui se nourrirait des odeurs de la cuisine du premier, Yves prend quelques pièces dans sa bourse et les jette sur la table devant lui. L'aubergiste tend la main pour les prendre mais saint Yves retient sa main et lui dit que {{citation|le son paye l'odeur, à cet homme l'odeur de ta cuisine, à toi le son de ces pièces}}. Cette légende sert alors à illustrer la façon dont saint Yves pouvait être reconnu par les démunis comme l'avocat qui fait justice sans tenir compte de la condition sociale.

=== Mort ===
Yves Hélory abandonne sa charge au diocèse en 1298 pour se consacrer entièrement à la contemplation<ref name="P&M P513"/>. Il meurt le {{date-|19 mai 1303}}, le jour de l'[[Ascension (fête)|ascension]], dans son manoir de Kermartin. Son corps est transporté sur un brancard à la [[cathédrale Saint-Tugdual de Tréguier]], où de nombreuses personnes se déplacent pour s'approcher de sa dépouille et pouvoir la toucher<ref>{{Harvsp|texte=Enquête canonique, témoin 9|id=Enquête|p=48}}</ref>{{,}}<ref>{{Harvsp|texte=Enquête canonique, témoin 10|id=Enquête|p=49}}</ref>.

== Canonisation ==
Les premières démarches afin d’obtenir la reconnaissance officielle auprès de la papauté sont initiées par le duc de
Bretagne [[Jean III de Bretagne|Jean III]]. Ce dernier envoie en décembre 1329 son frère Guy de Bretagne, comte de Penthièvre, accompagner l'évêque de Tréguier Yves de Boisboissel afin de supplier le pape Jean XXII de procéder à sa canonisation. Le pape [[Jean XXII]] donne une bulle en date du {{date-|26 février 1330}}, décrétant l'ouverture d'une enquête sur la vie et les miracles d'Yves Hélory, et nomme à cet effet trois commissaires apostoliques chargés de se rendre sur place pour entendre les témoins. Leur audition de 300 témoins débute le {{date-|23 juin 1330}} à Tréguier et s’achève le {{date-|4 août}} suivant. Le {{date-|4 juin 1331}}, les procès-verbaux des enquêtes sont présentés en plein consistoire au pape qui nomme, séance tenante, trois cardinaux chargés d’examiner la cause et de préparer la tenue d’un consistoire au terme duquel il donnera sa décision finale. Par acte du {{date-|19 mai 1347}}, le pape [[Clément VI]], canonise officiellement Yves Hélory en l’inscrivant au catalogue des saints et en fixant au {{date-|19 mai}} le jour de
la célébration de saint Yves.

== Culte et iconographie ==
=== Culte ===
[[Fichier:Chef de Saint Yves.jpg|thumb|200px|Le [[chef (tête d'un mort)|chef]] de saint Yves dans sa [[châsse]]]]
[[Image: Praalgraf St. Yves.JPG|thumb|150px|Mausolée dans la [[cathédrale Saint-Tugdual de Tréguier]]]]
Le {{date-|29 mai 1347}}, à la levée du corps du saint, sa tête est placée dans un [[reliquaire]] et le reste des reliques mis dans un sépulcre que [[Jean V de Bretagne]] fait surmonter d'un monument, dans la [[cathédrale Saint-Tugdual de Tréguier]]<ref name="P&M P513" />, où le corps d'Yves avait été apporté juste après sa mort.

Son culte est resté particulièrement vivace en Bretagne où les chapelles qui lui sont dédiées ainsi que les statues le représentant sont très fréquentes. Les récits hagiographiques également comme, à titre d'exemple, celui-ci :

{{vers
|texte =
Quand les Bretons voyaient passer dans la campagne
Saint Yves revêtu de son grand manteau blanc
Ils se disaient que Dieu l'avait mis en Bretagne
Pour défendre des grands les faibles, les petits.
À son nom s'éveillaient, sur leurs couches funèbres
Des enfants dont les mères avaient fermé les yeux
Les marins l'invoquaient au milieu des ténèbres,
Et leurs barques passaient les brisants périlleux
|langue = fr
|auteur = Joseph Rousse | précision = pour l'inauguration du nouveau tombeau de saint Yves dans la cathédrale de Tréguier.
}}

Dans un vieux [[cantique]] populaire, on le fêtait en chantant ''{{langue|la|Sanctus Yvo erat brito; advocatus sed non latro, res mirabilis<ref>[[Dictionnaire illustré latin-français|Dictionnaire Félix Gaffiot]] : ''admirable, merveilleux, étonnant, singulier''</ref> (miranda) populo}}'' {{en français|Saint Yves était breton, avocat mais pas voleur, chose admirable pour le peuple !}}.

[[Ernest Renan]] a décrit la dévotion dont saint Yves était l'objet dans sa jeunesse :
{{Citation bloc|Le mois de mai, où tombait la fête de ce saint excellent, n'était qu'une suite de processions au ''[[minihi]]'' ; les paroisses, précédées de leurs croix processionnelles, se rencontraient sur les chemins ; on faisait alors s'embrasser les croix en signe d'alliance. La veille de la fête, le peuple se réunissait le soir dans l'église, et à minuit, le saint étendit le bras pour bénir l'assistance prosternée. Mais, s'il y avait dans la foule un seul incrédule qui levât les yeux pour voir si le miracle était bien réel, le saint, justement blessé de ce soupçon, ne bougeait pas, et, par la faute du mécréant, personne n'était béni<ref>[[Ernest Renan]], "Souvenirs d'enfance et de jeunesse", 1883.</ref>.}}

Saint Yves est le [[saint]] patron de toutes les professions de justice et de droit, notamment celle des [[avocat (métier)|avocats]]. Chaque {{date-|19 mai}}, à [[Tréguier]], lors de la [[fête de la Saint-Yves]], une délégation de ces professions accompagne le [[Pardon (cérémonie)|pardon]] à saint Yves qui est une des grandes fêtes religieuses bretonnes, au même titre que le pardon de [[Sainte-Anne-d'Auray]].

La veille du Pardon, depuis 1993, le Barreau de Saint-Brieuc organise à Tréguier un Colloque, occasion de rencontre et de réflexion entre juristes sur un sujet d'actualité.

De même, de nombreuses associations de juristes et des facultés de droit ont pour saint patron Yves. Par exemple ''Saint Yves Society'', ONG basée à Jérusalem, la [[conférence Saint-Yves]], ou encore l'association Saint Yves Lyonnais.

Par la [[communion des saints]], la tradition religieuse permet aux catholiques de solliciter l'intercession de saint Yves afin d'obtenir bonne fin des procédures pour lesquelles ils sont en demande ou en défense sous forme de neuvaine ou de prière quotidienne<ref>{{Lien web |titre=Prière a saint Yves pour ceux qui ont des proces |url=http://www.1000questions.net/fr/Qui-sont/saint_yves_priere.html |site=www.1000questions.net |consulté le=2021-10-21}}</ref>.

=== Églises dédiées à saint Yves ===
[[Fichier:Façade de Saint-Yves-des-Bretons.jpg|thumb|150px|[[Église Saint-Yves-des-Bretons|Saint-Yves-des-Bretons]], église nationale des Bretons à [[Rome]]]]
{{article détaillé|Église Saint-Yves-des-Bretons|Église Sant'Ivo alla Sapienza}}
Dès la première moitié du {{s-|XV|e}}, Alain de Coetivy obtient du pape [[Nicolas V]] la concession d'une église à Rome, bâtie probablement au {{s-|XII|e}} et placée alors sous le patronage de [[André (apôtre)|saint André]]. Par bulle du {{date-|16 septembre 1455}}, [[Calixte III]], successeur de [[Nicolas V]], ratifie cette décision. Cette vieille église est détruite en 1875 pour cause de vétusté et reconstruite dans le même temps plus petite dans un style néo-renaissance florentine.

Un tympan en terre cuite vernissée surmonte la porte d'entrée principale et représente au centre une [[Vierge à l'Enfant]], à sa droite saint Yves et à sa gauche [[Bernard de Clairvaux|saint Bernard]]. L'ancienne église conservait de nombreuses pierres tombales de bretons décédés à Rome et enterrés dans l'église. Elles ornent aujourd'hui le cloître de [[Église Saint-Louis-des-Français de Rome|Saint-Louis-des-Français]] à Rome<ref>François de LEPINAY, ''Architecture religieuse à Rome à la fin du {{s-|XIX|e}} : la reconstruction de Saint-Yves-des-Bretons''.</ref>. La façade a été restaurée pour l'année 2003, année du septième centenaire de la mort du saint. Cette petite [[Église Saint-Yves-des-Bretons|église dite « Saint-Yves-des-Bretons »]] (''Sant'Ivo dei Bretoni''), située au {{n°|8}} Vicolo della Campana se visite sur demande auprès du recteur de Saint-Louis-des-Français. Le {{date-|19 mai}}, chaque année, une messe en français y est célébrée en l'honneur de saint Yves.

La seconde église dédiée au saint à Rome s'appelle ''[[Église Sant'Ivo alla Sapienza|Sant'Ivo alla Sapienza]]''. Église originale en particulier par la tour qui la surmonte représentant la tour de Babel. Elle fut construite entre 1642 et 1660 par [[Francesco Borromini|Borromini]] dans l'enceinte du Palazzo della Sapienza abritant alors le Studio Romano qui devint ensuite l'université de Rome (jusqu'en 1935). À l'intérieur de l'église se trouve un retable représentant saint Yves commencé par [[Pierre de Cortone]] (1596-1669) et achevé par un ou plusieurs de ses élèves.

En France, la [[Ancienne chapelle Saint-Yves (Paris)|Confrérie Saint-Yves]] est fondée à Paris et décide d'élever une [[Chapelle Saint-Yves de Paris|chapelle]] en l'honneur du saint. Un projet approuvé par Foulques de Chanac, évêque de Paris de 1342 à 1349, par lettres du lundi après l'Assomption de 1348<ref>{{lien web|url=http://infobretagne.com/confrerie-saint-yves.htm|titre=Confrérie Saint-Yves à Paris et sa chapelle|site=infobretagne.com|consulté le=31-05-2020}}</ref>. L'[[Ancienne chapelle Saint-Yves (Paris)|ancienne chapelle Saint-Yves de Paris]] a été détruite en [[1796 en France|1796]].

D'autres églises et chapelles sont dédiées à saint Yves :
{{article détaillé|Église Saint-Yves}}

=== Iconographie ===
On le représente généralement avec une bourse dans une main, pour signifier tout l'argent qu'il a donné aux pauvres dans sa vie, et un parchemin dans l'autre, qui rappelle sa charge de [[official (ecclésiastique)|juge ecclésiastique]]. Il est également souvent figuré entre un homme riche et un homme pauvre.
<gallery heights="160" widths="160">
Fichier:Ploubezre (22) Chapelle de Kerfons Autel et retable de Saint-Yves 02.JPG|[[Ploubezre]] : Chapelle Notre-Dame-de-Kerfons : ''Saint Yves entre le riche et le pauvre''.
Fichier:Jacob Jordaens - Saint Yves, patron des avocats.jpg|[[Jacob Jordaens]] : ''Saint Yves, patron des avocats'' (1645, [[musées royaux des Beaux-Arts de Belgique]])
Fichier:Tríptico de San Ivo, San Clemente y San Antonio de Padua (Salamanca).jpg|Triptyque de saint Yves (église Saint-Clément et Saint-Antoine de [[Padoue]], {{s mini-|XIV}} ou {{s-|XV}})
Fichier:15 Tréguier Cathédrale groupe statuaire saint Yves entre le riche et le pauvre.JPG|[[Cathédrale Saint-Tugdual de Tréguier]] :''Saint Yves entre le riche et le pauvre (bois, {{s-|XVII}})''.
File:106 Saint Yves entre le riche et le pauvre Chapelle Saint-Mélar de Locmélar Plounéventer.jpg|[[Plounéventer]] : chapelle Saint-Mélar de Locmélar, ''saint Yves entre le riche et le pauvre'' (exposition au [[château de Kerjean]] en 2013).
</gallery>

=== Saint-Yves-de-Vérité ===
{{Article détaillé|Saint-Yves-de-Vérité}}
[[Saint-Yves-de-Vérité]] était, à l'origine, l'une des appellations officielles données à saint Yves, mais qui, au cours des siècles, a plus particulièrement été attribuée à des statues de ce saint qui étaient invoquées, selon des pratiques superstitieuses, en Bretagne afin de faire mourir d'autres personnes dans l'année.
<gallery heights="160" widths="160">
File:491 Saint-Yves-de-Vérité Image de dévotion.jpg|Image de dévotion à [[Saint-Yves-de-Vérité]] (Imagerie bretonne, imprimeur, Dinan, vers 1890).
File:Trédarzec Saint Yves de Vérité.jpg|L'[[Oratoire (édifice religieux)|oratoire]] de [[Saint-Yves-de-Vérité]] à [[Trédarzec]] en 1879 (dessin de [[Louis-Marie Faudacq]] publié en 1909 dans "Le Fureteur breton").
</gallery>

=== Postérité ===
À la fin du {{s-|XX|e}}, le mouvement culturel breton lance l'idée d'une fête annuelle des Bretons (à l'instar de la Saint-Patrick pour les Irlandais) et retient le jour de la Saint-Yves comme date fédératrice. Désormais le {{date-|19 mai}} est l'occasion d'un grand pardon à Tréguier, mais aussi dans toute la Bretagne et partout où des Bretons sont installés, sous le nom de ''[[Fête de la Saint-Yves|Gouel Erwan]]'' (''litt.'': « fête de Yves »). Le pardon est souvent encadré de festivités profanes qui peuvent durer plus d'une journée. En 2011, la Région Bretagne les reprend officiellement sous le nom de « [[Fête de la Bretagne]] ».

== Notes et références ==
=== Notes ===
{{Références|groupe=Note}}

=== Références ===
{{Références}}

== Voir aussi ==
{{autres projets|
commons=Category:Ivo of Kermartin}}
=== Bibliographie ===
* [[Michel Carrouges]], ''Saint Yves, avocat des pauvres'', {{date-|mai 2010}}, 34 pages, [[Éditions du Cerf]], coll. « Albums, fêtes et saisons».
* {{Ouvrage |langue=fr |auteur1=[[Jean-Christophe Cassard]] |titre=Saint Yves de Tréguier |sous-titre=un saint du {{s-|XIII}} |lieu=Paris |éditeur=Beauchesne |année=1992 |isbn= |lire en ligne=https://books.google.fr/books?id=oIBsqkM1EbUC |id=Cassard}}.
* Jean-Christophe Cassard, Jacques Dervilly et Daniel Giraudon, ''Les Chemins de saint Yves'', Morlaix, {{éd.}} [[Ar Falz|Skol Vreizh]], [[1994]].
* {{Ouvrage |langue=fr |auteur1=Jean-Christophe Cassard |responsabilité1=dir. |auteur2=Georges Provost |responsabilité2=dir. |titre=Saint Yves et les Bretons |sous-titre=Culte, images, mémoire |lieu=Rennes |éditeur=[[Presses universitaires de Rennes]] |nature ouvrage=actes du colloque organisé à Tréguier du 18 au 20 septembre 2003 |année=2004 |pages totales=368 |isbn= |lire en ligne=http://books.openedition.org/pur/22388?lang=fr |id=StYves&Bretons}}.
* [[René Couffon]], ''La Confrérie de Saint-Yves à Paris et sa chapelle'', Saint-Brieuc, Presses bretonnes, 1933.
* {{Article |auteur1=[[François Falc'hun]] |titre=Les noms bretons de saint Yves|périodique=[[Annales de Bretagne et des pays de l'Ouest]] |tome=50 |numéro=1 |date=1943 |page=177-194 |lire en ligne=https://www.persee.fr/doc/abpo_0003-391x_1943_num_50_1_1820|id=Falc'hun}}
* {{Ouvrage |langue=fr |auteur1=Pierre France |titre=Saint Yves |sous-titre=Étude sur sa vie et son temps |lieu=Saint-Brieuc |éditeur=impr. René Prud'homme |année=1893 |numéro d'édition=2 |année première édition=1888 |pages totales=556 |lire en ligne=https://fr.wikisource.org/wiki/Saint_Yves/Texte_entier}}.
* {{Ouvrage |langue=fr |auteur1=Muriel Glaunec |responsabilité1=dir. |auteur2=Erwan Le Bozec |responsabilité2=dir. |auteur institutionnel=conseil général des Côtes-d'Armor |titre=D'Yves Hélory à saint Yves |sous-titre=Exposition itinérante |éditeur= |nature ouvrage=catalogue de l'exposition itinérante élaborée à partir de l'exposition présentée au domaine départemental de [[château de la Roche-Jagu|la Roche-Jagu]] du 17 mai au 1 novembre 2003 |année=s. d. |isbn= |lire en ligne=http://docplayer.fr/11618348-D-yves-helory-a-saint-yves.html}}.
* Pierre de La Haye, ''Saint Yves de Tréguier'', éditions d’art Jos Le Doaré, 1973.
* {{Ouvrage|langue=fr|langue originale=la|auteur1=Jean-Paul Le Guillou|titre=Saint Yves de Tréguier|sous-titre=Enquête canonique|lieu=Paris|éditeur=[[Éditions L'Harmattan]]|année=2015|pages totales=263|isbn=978-2-343-06586-1|id=Enquête}}
* Jean Le Mappian, ''Saint Yves patron des juristes'', Éditions Ouest-France, 1997.
* Marie-Thérèse Le Moign-Klipffel, ''Saint Yves'', Saint-Brieuc, Presses bretonnes, 1939.
* Benoît Le Roux, ''Saint Yves'', 158 p., [[Via Romana]], Versailles, 2012 {{ISBN|979-10-90029-20-0}}.
* {{Ouvrage |langue=fr |auteur1=Louis Mahé |préface=François Serrand |illustrateur=Yves Le Meur, Janvier et Joseph Savin |titre=Saint Yves |sous-titre=Son pardon à Tréguier |éditeur=Octave-Louis Aubert |année=1942 |pages totales=68 }}
* Louis Mahé, ''Monsieur Saint Yves : Sa vie, ses miracles, ses triomphes'', Saint-Brieuc, René Prud'homme, 1949.
* [[Alexandre Masseron]], ''Saint Yves'', Paris, {{éd.}} Henri Laurens.
* [[Henri Poisson]], ''La Vie de saint Yves'', Rennes, Éditions Ouest-France, 2003 {{ISBN|2-73733-331-8}}.
* [[Henri Queffélec]], ''Saint Yves'', Paris, Ramsay, 1987 (réédition Éditions de la Seine, 1991).
*Gildas Salaün, "Médailles de Saint-Yves", ''Annales de la Société Bretonne de Numismatique et d'Histoire'' ([[International Standard Serial Number|ISSN]] [https://catalogue.bnf.fr/ark:/12148/cb34492012z 1250-5781]), 2003, pp. 73–75.
* [[Marie-Paule Salonne]], ''Saint Yves, patron des avocats, avocat des opprimés'', Éditions franciscaines, Paris, 1945.
* {{Ouvrage |langue=fr |auteur1=François Semur |titre=Yves de Kermartin, magistrat et avocat du {{s-|XIII|e}} |sous-titre=Nouveaux regards sur la vie et le culte du plus grand saint de Bretagne, patron des hommes de loi et universitaires |lieu=Bannalec |éditeur=éditions Jos Le Doaré |année=1983 |pages totales=86 |isbn=2-904412-01-8}}.
* {{Ouvrage |langue=fr |auteur1=Anonyme |titre=Dans les pas de Saint-Yves |lieu=Lannon |éditeur=Impram |collection=Le Trégor |année=1989 |pages totales=24 |format livre=plaquette agrafée, in-8°, 21 x 15 cm, phot. noir et blanc dans le texte |isbn=}}.
* [[Octave-Louis Aubert]], ''Le Pardon de Saint Yves de Tréguier'' (photos de [[Raphaël Binet]]) in La Bretagne Touristique {{n°|62}}, {{date-|mai 1927}}.

==== Bande dessinée ====
* Gilles Chaillet, Vasco n°20, ''Le Dogue de Brocéliande.'' Publié par Le Lombard en 2003. {{ISBN|2-8036-1902-4}}. 48p.
*Nicolas de Beauregard, Sareph, ''Danevell-Destins trégorrois.'' Publié par Coop Breizh en 2017. {{ISBN|9782843468421}}.

=== Liens externes ===

{{Liens}}
* {{vidéo}} [https://saintbrieuc-treguier.catholique.fr/kto-saint-yves-patron-bretagne/ Saint Yves, patron de la Bretagne], Église catholique en Côtes-d'Armor
* {{vidéo}} [https://cpsainttugdual.catholique.fr/-Saint-Yves-2022-.html Messe et pardon de la Saint Yves], paroisse Saint-Tugdual de Tréguier
* [https://eglisesfrancaisesarome.it/saint-yves-des-bretons/ L'église Saint-Yves-des-Bretons de Rome], Églises françaises à Rome

{{DEFAULTSORT:Helori de Kermartin, Yves}}
[[Catégorie:Saint breton|Yves]]
[[Catégorie:Saint catholique français|Yves Helory de Kermartin]]
[[Catégorie:Saint catholique fêté le 19 mai]]
[[Catégorie:Saint canonisé par Clément VI|Yves Helory de Kermartin]]
[[Catégorie:Trégor|Yves Helory de Kermartin]]
[[Catégorie:Personnalité bretonne du XIIIe siècle]]
[[Catégorie:Personnalité bretonne du XIVe siècle]]
[[Catégorie:Personnalité liée à Tréguier]]
[[Catégorie:Tertiaire franciscain]]
[[Catégorie:Étudiant de l'ancienne université d'Orléans]]
[[Catégorie:Naissance en 1253]]
[[Catégorie:Naissance dans le duché de Bretagne]]
[[Catégorie:Décès en 1303]]
[[Catégorie:Décès dans le duché de Bretagne]]
[[Catégorie:Prêtre catholique breton]]

Yves Hélory de Kermartin

2024-09-20T14:55:21Z

Jaggerwock : Page créée avec « {{Voir homonymes|Saint Yves}} {{confusion|Yves Saint-Martin}} {{Infobox Saint | nom = Yves de Kermartin ''Saint catholique'' | image = Weyden Ivo.jpg | taille image = 240 | légende = Saint Yves par Rogier van der Weyden ({{s|XV}}), National Gallery, Londres. | titre = Official (ecclésiastique)|offici... »

{{Voir homonymes|Saint Yves}}
{{confusion|Yves Saint-Martin}}
{{Infobox Saint
| nom = Yves de Kermartin ''Saint catholique''
| image = Weyden Ivo.jpg
| taille image = 240
| légende = Saint Yves par [[Rogier van der Weyden]] ({{s|XV}}), [[National Gallery]], [[Londres]].
| titre = [[Official (ecclésiastique)|official ecclésiastique]], avocat des pauvres
| date de naissance = Vers {{date|||1253}}{{Note|groupe=Note|nom=Naissance|Si 1253 est souvent avancée quant à l'année de naissance de Yves Hélory de Kermartin, d'autres hypothèses ont été émises (1247, 1248 ou 1250)<ref name=SourceNaissance>{{Harvsp|Cassard|passage=12}}</ref>.}}
| lieu de naissance = Manoir de Kermartin à [[Minihy-Tréguier|Minihy]] ([[Duché de Bretagne]])
| date de décès = {{date de décès|19|mai|1303}}
| lieu de décès = [[Trégor]] ([[Duché de Bretagne]])
| âge au décès = 50
| nom de naissance = Yves Hélory de Kermartin
| autres noms =
| lieu de vénération = [[Tréguier]] où a lieu un célèbre [[Pardon (cérémonie)|pardon]] tous les [[19 mai]].
| date de béatification =
| lieu de l'annonce béatification =
| béatifié par =
| date de canonisation = [[1347]]
| lieu de l'annonce canonisation =
| canonisé par = [[Clément VI]]
| date docteur église =
| lieu de l'annonce docteur =
| docteur église par =
| docteur mention =
| vénéré par = l'[[Église catholique|Église catholique romaine]]
| fête = [[19 mai]]
| attributs = généralement représenté avec une [[Porte-monnaie|bourse]] dans une main, pour signifier tout l'argent qu'il a donné aux pauvres dans sa vie, et un [[parchemin]] dans l'autre, qui rappelle sa charge de [[Official (ecclésiastique)|juge ecclésiastique]]. Il est également souvent figuré entre un homme riche et un homme pauvre.
| titre saint patron =
| saint patron = professions de la [[justice]] et du [[droit]] ([[Avocat (métier)|avocat]]s). [[Bretagne]] (avec [[Anne (mère de Marie)|sainte Anne]]).
| problème =
| date de suppression =
| blason = Blason fam fr Hélory.svg
}}

'''Yves Hélory de Kermartin''', ou '''Yves de Tréguier''', ou '''Erwan Helouri''' en [[breton]], ou '''saint Yves''' dans la tradition [[Catholicisme|catholique]], est un prêtre et [[official (ecclésiastique)|official]] du [[diocèse de Tréguier]], né probablement vers {{date de naissance|1253}}{{Note|groupe=Note|nom=Naissance}} au manoir de Kermartin à [[Minihy-Tréguier|Minihy]], dans le [[Duché de Bretagne]], et mort le {{date de décès|19 mai 1303}} au même endroit.

Considéré par l'[[Église catholique]] comme ayant consacré sa vie à la justice et aux pauvres, il est [[Canonisation|canonisé]] le {{date-|19 mai 1347}} par le pape [[Clément VI]]. Saint Yves est le [[saint patron]] de toutes les professions de justice et de droit, notamment celle d’[[avocat (métier)|avocat]]. Il est également saint patron de la [[Bretagne]] et fait l'objet d'un grand [[Pardon (cérémonie)|pardon]] à l'occasion de la [[fête de la Saint-Yves]] tous les ans à [[Tréguier]]. On le fête le [[19 mai]].

== Nom ==
{{article détaillé|Erwan|Yves}}
En [[breton]], saint Yves est appelé ''sant Erwan''. Si Erwan est une des variantes les plus communes pour le désigner, elle est originaire du [[Trégor]]. On retrouve aussi ''Iwan'', ''Youenn'' ou ''Eozen'' dans d'autres régions de Bretagne. Ces variantes proviennent de ses deux prototypes : {{page h'|Yves}}, emprunt au français, et Eudon, prénom vieux breton<ref>{{Harvsp|id=StYves&Bretons|texte=Bernard Tanguy, « Les lieux de culte de saint Yves en Bretagne »|passage=99}}.</ref>, qui étaient vraisemblablement considérés comme synonymes du temps de saint Yves<ref>{{Harvsp|Falc'hun|p=183}}</ref>.

== Biographie ==
=== Sources ===
La source principale de référence utilisée pour connaître la vie de Yves Hélory de Kermartin est la procédure entamée en [[1330]] pour aboutir à sa [[canonisation]]. L'enquête de canonisation s'ouvre le {{date-|26 février 1330}} et aboutit positivement le {{date-|19 mai 1347}}<ref name="P&M P513">{{Ouvrage|auteur1=Michel Priziac|auteur2=Michel Mohrt|titre=Bretagne des saints et des croyances|éditeur=Kidour|année=2002|passage=513|isbn=}}</ref>. Elle fournit dans la première partie un certain nombre de témoignages sur ce que fut sa vie, la manière dont les gens le percevaient et, dans la seconde partie, les miracles qui lui sont attribués. Le rouleau de cette enquête est présenté au pape [[Jean XXII]] le {{date-|4 juin 1331}}. Une copie, conservée dans un manuscrit déposé à la Bibliothèque municipale de [[Saint-Brieuc]], a permis la première publication du texte en latin en 1887, puis en français au {{s|XX}}<ref>{{Lien web|url=https://www.ouest-france.fr/bretagne/treguier-22220/lenquete-de-canonisation-de-saint-yves-traduite-en-francais-3771615|titre=L'enquête de canonisation de saint Yves traduite en français|date=15 octobre 2015|site=ouest-france.fr}}</ref>.

Après sa canonisation, on trouve peu d'écrits au [[bas Moyen Âge]] sur sa vie<ref name="Yves Coativy">{{Harvsp|id=StYves&Bretons|texte=Yves Coativy, « Saint Yves dans les chroniques bretonnes de la fin du Moyen Âge »}}</ref>. Utilisant sans doute comme source principale l'enquête de canonisation, la première [[Vita|vie]] serait composée au {{s|XIV}} par Maurice Godefroy, un [[Ordre des Prêcheurs|dominicain]] de [[Morlaix]], qui y ajoute des éléments issus de la tradition orale<ref>{{Ouvrage|auteur1=Albert Le Grand|titre=Les vies des Saints de la Bretagne-Armorique|éditeur=|année=1837|passage=280}}</ref>{{,}}<ref name=Roparz>{{Ouvrage|auteur1=M. S. Roparz|titre=Histoire de Saint Yves|sous-titre=patron des gens de justice|éditeur=|année=1856|passage=V-VII}}</ref>. Ce manuscrit est repris ensuite par [[Daniel van Papenbroeck|Papebroch]] dans les ''[[Acta Sanctorum]]'' des [[bollandistes]]<ref name=Roparz/>. Entre-temps, il est aussi fait mention de la vie de saint Yves au quatrième livre des ''Grandes croniques de Bretaigne'' d'[[Alain Bouchart]]<ref name="Yves Coativy"/>{{,}}<ref name=Roparz/>. Bouchart reprend des éléments du procès en canonisation, mais ajoute également des éléments inédits, de sources inconnues<ref name="Yves Coativy"/>. À partir de la [[Renaissance]] plusieurs récits de sa vie sont écrits en [[français]], en [[latin]], en [[breton]] et en [[italien]].

Enfin, il existe également un document en latin écrit de la main d'Yves Hélory de Kermartin : son testament, qui est le seul de ses écrits transmis jusqu'à nos jours<ref name=Casp45>{{Harvsp|Cassard|passage=45}}</ref>.

=== Enfance et jeunesse ===
[[File:Kermartin.jpg|thumb|Lieu supposé de la naissance de Saint Yves, avant sa destruction au {{s-|XIX}}.]]
La date de naissance de Yves Hélory de Kermartin est inconnue. Selon toute vraisemblance elle se situerait au milieu du {{s|XIII}}, la tradition retenant généralement {{date|1253}}, mais d'autres années sont parfois proposées. Dans son livre ''Saint Yves de Tréguier : un saint du {{s-|XIII}}'', [[Jean-Christophe Cassard]] défend une naissance en {{date|1248}}, ce qui permettrait selon lui une chronologie cohérente jusqu'en 1280<ref name=Casp16>{{Harvsp|Cassard|passage=16}}</ref>.

Yves Hélory de Kermartin naît dans une famille noble au manoir de Kermartin{{Note|groupe=Note|Le manoir, qui a l'aspect d'une grande ferme, est démoli en 1834, certainement après avoir été ravagé par un incendie provoqué par une pipe mal éteinte<ref name=PatrimoineManoir>{{lien web|url=http://patrimoine.bzh/gertrude-diffusion/dossier/ferme-de-kermartin-minihy-treguier/9ec19d73-e023-4696-aa72-237f9302f742|titre=Ferme de Kermartin (Minihy-Tréguier)|site=patrimoine.bzh, site du patrimoine culturel de la [[Région Bretagne]]|consulté le=19-07-2020}}</ref>. Il est reconstruit par son propriétaire, l'archevêque [[Hyacinthe-Louis de Quélen|de Quélen]], qui y fait apposer une plaque en marbre au-dessus de la porte d'entrée. Cette plaque porte l'inscription : ''Ici est né, le 17 octobre 1253, et mort le 19 mai 1303, saint Yves, official de Tréguier, curé de Trédrez et de Louannec. Sa maison, qui a subsisté jusqu'en 1834, a été alors démolie pour cause de vétusté''<ref name=PatrimoineManoir/>{{,}}<ref>{{Ouvrage|auteur1=Benjamin-Philibert Jollivet|titre=Les Côtes-du-Nord : histoire et géographie de toutes les villes et communes du département|éditeur=imprimerie de B. Jollivet|année=1993|passage=255|isbn=}}</ref>. Le colombier qui subsiste est considéré par la tradition comme contemporain à Saint Yves, bien qu'il ait probablement été bâti plus tard<ref>{{Ouvrage|auteur1=Jean Auffret|titre=Colombiers et pigeonniers en Bretagne profonde|éditeur=Editions régionales de l'Ouest|année=|passage=107|isbn=}}</ref>{{,}}<ref name=PatrimoineColombier>{{lien web|url=http://patrimoine.bzh/gertrude-diffusion/dossier/colombier-de-kermartin-minihy-treguier/a85812fb-a25f-461a-8a36-c0f434fcf6e1#localisation|titre=Colombier de Kermartin (Minihy-Tréguier)|site=patrimoine.bzh, site du patrimoine culturel de la [[Région Bretagne]]|consulté le=19-07-2020}}</ref>.}} sur la paroisse de [[Minihy-Tréguier|Minihy]]. Son grand-père, Ganaret de Kermartin, est [[Chevalier (chevalerie)|chevalier]]<ref name=SourceNaissance/>. Son père, Hélory, est [[damoiseau]], et sa mère, Azo, est aussi certainement noble<ref name=SourceNaissance/>. Sa mère prétend qu'un songe lui aurait révélé que son fils serait un saint<ref name="P&M P512" />. Il a un frère et deux sœurs dont on ne sait pas grand chose<ref>{{Harvsp|Cassard|passage=13}}</ref>.

Il grandit dans le Trégor et part dans les années 1260 accompagné de son précepteur, Jean de Kerhos, clerc de la paroisse de Pleubian, à Paris pour suivre des études à la [[Sorbonne]]. Il étudie six ans à la [[faculté des arts]] avant de passer son examen final [[rue du Fouarre]] à 20 ans<ref name=Casp15>{{Harvsp|Cassard|passage=15}}</ref>. Il poursuit ensuite ses études [[rue du Clos-Bruneau]] à la [[Ancienne université de Paris#Faculté de décret|faculté de décret]] où il apprend le [[droit canon]]<ref name=Casp15/>. Il partirait ensuite en {{date-|1272}} poursuivre ses études de droit romain à l'[[université d'Orléans]]. Il retourne probablement trois années à Paris, entre 1274 et 1277, pour y étudier la théologie<ref name=Casp16/>. Déjà, il se fait remarquer par sa vie de privation en faveur des pauvres<ref name="P&M P512">{{Ouvrage|auteur1=Michel Priziac|auteur2=Michel Mohrt|titre=Bretagne des saints et des croyances|éditeur=Kidour|année=2002|passage=512|isbn=}}.</ref>.

=== Retour et vie en Bretagne ===
[[File:Claude Vignon 1635 Saint Yves.jpg|thumb|[[Claude Vignon]] : ''Saint Yves'' (huile sur toile, 1635, évêché de saint-Brieuc).]]
Ses études achevées trois ans plus tard, il revient en 1280 en [[Bretagne]] à [[Rennes]]<ref name=Casp20>{{Harvsp|Cassard|passage=20}}</ref>, où il est nommé [[Official (ecclésiastique)|official]] de l'[[archidiacre]]. C'est à Rennes qu'il assiste, en [[1281]]<ref name=Casp20/>, à une lecture des [[Sentences]] chez les [[Ordre des Frères mineurs|Frères mineurs]] qui le marque et qui l'amène plus tard à prendre la décision de prêcher et de ne s'habiller plus que très modestement<ref>{{Harvsp|texte=Enquête canonique, témoin 29|id=Enquête|p=77}}</ref>.

L'[[liste des évêques de Tréguier|évêque de Tréguier]], [[Alain de Bruc]], remarque ses talents et le presse de revenir à Tréguier. Avec le décès de ses parents, il hérite de la part du patrimoine familial qui lui est due<ref name=Casp45/>. En plus d'inviter volontiers les miséreux à sa table, il recueille également deux orphelins, Derrien Guiomar, [[dominicain]], et Olivier Floc'h<ref name="P&M P512"/>.

En 1284, Alain de Bruc le nomme [[Official (ecclésiastique)|official]] et l'ordonne prêtre. Il le nomme ensuite recteur de la paroisse de [[Trédrez-Locquémeau|Trédrez]]. Puis en 1292, le nouvel évêque l'envoie dans la paroisse de [[Louannec]]<ref>{{Harvsp|Cassard|passage=22}}</ref>, proches des terres de son enfance. {{Source insuffisante|En 1293, il fait construire un refuge pour les indigents, Crech-Martin<ref>{{lien web|url=http://www.bretagne-gite.fr/l-histoire-de-crech-martin/|titre=L'Histoire de Crech-Martin ({{s-|XIII}})|site=bretagne-gite.fr|consulté le=13-02-2017}}</ref>}}.

À cette époque, Yves prêche énormément et est reconnu pour ses talents d'orateur ainsi que pour sa capacité à captiver son auditoire<ref name=Casp38>{{Harvsp|Cassard|passage=38}}</ref>. Il se déplace beaucoup à pied dans la région de Tréguier, où il est vu plusieurs fois dans la même journée à des lieux différents et de bonne distance, notamment le dimanche où il prêche dans plusieurs églises du diocèse de Tréguier et de [[Saint-Brieuc]]<ref>{{Harvsp|texte=Enquête canonique, témoin 1|id=Enquête|p=30}}</ref>.

=== Vie d'ascèse ===
Dans l'enquête de canonisation, plusieurs témoins décrivent la vie de Yves comme une vie d'[[ascèse]]. Au moins lors des dix dernières années de sa vie, il ne porte que des vêtements modestes, composés essentiellement d'une [[Bure (étoffe)|bure]] blanche<ref name=Casp2223>{{Harvsp|Cassard|passage=22-23}}</ref>. Il porte aussi un [[cilice]] de crin sous ses vêtements et est couvert de [[Pou de corps|poux de corps]], dont il n'essaie pas de se débarrasser<ref name=Casp2223/>. Devenu [[végétarien]] dans sa jeunesse<ref name=Casp2223/>, au cours des dernières années de sa vie il ne mange plus que très peu, se nourrissant exclusivement de pain, de légumes et de [[Fabaceae|légumineuses]], et ne buvant que de l'eau. Selon quelques témoins, il jeûne trois jours par semaine au pain et à l'eau, mais s'autorise à manger deux œufs le jour de [[Pâques]]. Il partage ses biens avec les plus démunis et accueille tous les jours des pauvres à manger chez lui. Il refuse toujours de dormir dans un lit, préférant dormir à même le sol<ref name=Casp2223/>.

=== Témoignages et légendes ===
[[Image: SantIvo.jpg|thumb|200px|left|Saint Yves entre le riche et le pauvre (bois [[polychromie|polychrome]] du {{s|XVI|e}}, [[cathédrale Saint-Corentin de Quimper]])]]
Dans l'enquête de [[canonisation]], où son attachement aux pauvres et au soulagement de leur misère est considéré de {{citation|notoriété publique}}, un certain nombre de faits sont rapportés sur la manière dont Yves Hélori pouvait se comporter et rendre justice.

Il y est fait mention à plusieurs reprises de moments où Yves cède ses vêtements à des pauvres qu'il rencontre. Un de ces événement pourrait se situer en 1291 et correspondre alors à sa conversion dix ans après avoir entendu la lecture des Sentences de [[Pierre Lombard]] chez les franciscains<ref name=Casp2223/>. À l'Hôtel-Dieu de [[Tréguier]] il se serait défait de plusieurs de ses habits précieux, qu'il aurait ensuite partagés entre plusieurs pauvres, avant de repartir en courant vers Minihy où se trouve son manoir<ref name=Casp2223/>{{,}}<ref>{{Harvsp|texte=Enquête canonique, témoin 45|id=Enquête|p=105}}</ref>. Un autre témoin fait état d'un fait similaire où Yves cède un de ses habits à un pauvre rencontré dans la rue, dans une maison proche, avant de se hâter vers sa demeure<ref>{{Harvsp|texte=Enquête canonique, témoin 32|id=Enquête|p=83}}</ref>.

Des légendes, qui sont confondues avec des éléments historiques de la vie de Yves, existent aussi. [[Alain Bouchart]] en propose deux se déroulant à [[Tours]] et qui semblent procéder de son imagination ou d'une source inconnue<ref name="Yves Coativy"/>. Une des légendes qui est fréquemment attribuée à Yves, bien qu'absente du procès en canonisation, a acquis une certaine postérité. Elle est similaire à l'épisode de Seigny Joan et du rôtisseur dans [[Le Tiers Livre]] écrit par [[Rabelais]]<ref>{{Ouvrage|auteur1=Henri Weitzmann|titre=Itinéraire des légendes bretonnes|éditeur=[[Hachette Livre|Hachette]]|année=1954|passage=27}}</ref>. Appelé à traiter une affaire opposant un aubergiste à un mendiant qui se nourrirait des odeurs de la cuisine du premier, Yves prend quelques pièces dans sa bourse et les jette sur la table devant lui. L'aubergiste tend la main pour les prendre mais saint Yves retient sa main et lui dit que {{citation|le son paye l'odeur, à cet homme l'odeur de ta cuisine, à toi le son de ces pièces}}. Cette légende sert alors à illustrer la façon dont saint Yves pouvait être reconnu par les démunis comme l'avocat qui fait justice sans tenir compte de la condition sociale.

=== Mort ===
Yves Hélory abandonne sa charge au diocèse en 1298 pour se consacrer entièrement à la contemplation<ref name="P&M P513"/>. Il meurt le {{date-|19 mai 1303}}, le jour de l'[[Ascension (fête)|ascension]], dans son manoir de Kermartin. Son corps est transporté sur un brancard à la [[cathédrale Saint-Tugdual de Tréguier]], où de nombreuses personnes se déplacent pour s'approcher de sa dépouille et pouvoir la toucher<ref>{{Harvsp|texte=Enquête canonique, témoin 9|id=Enquête|p=48}}</ref>{{,}}<ref>{{Harvsp|texte=Enquête canonique, témoin 10|id=Enquête|p=49}}</ref>.

== Canonisation ==
Les premières démarches afin d’obtenir la reconnaissance officielle auprès de la papauté sont initiées par le duc de
Bretagne [[Jean III de Bretagne|Jean III]]. Ce dernier envoie en décembre 1329 son frère Guy de Bretagne, comte de Penthièvre, accompagner l'évêque de Tréguier Yves de Boisboissel afin de supplier le pape Jean XXII de procéder à sa canonisation. Le pape [[Jean XXII]] donne une bulle en date du {{date-|26 février 1330}}, décrétant l'ouverture d'une enquête sur la vie et les miracles d'Yves Hélory, et nomme à cet effet trois commissaires apostoliques chargés de se rendre sur place pour entendre les témoins. Leur audition de 300 témoins débute le {{date-|23 juin 1330}} à Tréguier et s’achève le {{date-|4 août}} suivant. Le {{date-|4 juin 1331}}, les procès-verbaux des enquêtes sont présentés en plein consistoire au pape qui nomme, séance tenante, trois cardinaux chargés d’examiner la cause et de préparer la tenue d’un consistoire au terme duquel il donnera sa décision finale. Par acte du {{date-|19 mai 1347}}, le pape [[Clément VI]], canonise officiellement Yves Hélory en l’inscrivant au catalogue des saints et en fixant au {{date-|19 mai}} le jour de
la célébration de saint Yves.

== Culte et iconographie ==
=== Culte ===
[[Fichier:Chef de Saint Yves.jpg|thumb|200px|Le [[chef (tête d'un mort)|chef]] de saint Yves dans sa [[châsse]]]]
[[Image: Praalgraf St. Yves.JPG|thumb|150px|Mausolée dans la [[cathédrale Saint-Tugdual de Tréguier]]]]
Le {{date-|29 mai 1347}}, à la levée du corps du saint, sa tête est placée dans un [[reliquaire]] et le reste des reliques mis dans un sépulcre que [[Jean V de Bretagne]] fait surmonter d'un monument, dans la [[cathédrale Saint-Tugdual de Tréguier]]<ref name="P&M P513" />, où le corps d'Yves avait été apporté juste après sa mort.

Son culte est resté particulièrement vivace en Bretagne où les chapelles qui lui sont dédiées ainsi que les statues le représentant sont très fréquentes. Les récits hagiographiques également comme, à titre d'exemple, celui-ci :

{{vers
|texte =
Quand les Bretons voyaient passer dans la campagne
Saint Yves revêtu de son grand manteau blanc
Ils se disaient que Dieu l'avait mis en Bretagne
Pour défendre des grands les faibles, les petits.
À son nom s'éveillaient, sur leurs couches funèbres
Des enfants dont les mères avaient fermé les yeux
Les marins l'invoquaient au milieu des ténèbres,
Et leurs barques passaient les brisants périlleux
|langue = fr
|auteur = Joseph Rousse | précision = pour l'inauguration du nouveau tombeau de saint Yves dans la cathédrale de Tréguier.
}}

Dans un vieux [[cantique]] populaire, on le fêtait en chantant ''{{langue|la|Sanctus Yvo erat brito; advocatus sed non latro, res mirabilis<ref>[[Dictionnaire illustré latin-français|Dictionnaire Félix Gaffiot]] : ''admirable, merveilleux, étonnant, singulier''</ref> (miranda) populo}}'' {{en français|Saint Yves était breton, avocat mais pas voleur, chose admirable pour le peuple !}}.

[[Ernest Renan]] a décrit la dévotion dont saint Yves était l'objet dans sa jeunesse :
{{Citation bloc|Le mois de mai, où tombait la fête de ce saint excellent, n'était qu'une suite de processions au ''[[minihi]]'' ; les paroisses, précédées de leurs croix processionnelles, se rencontraient sur les chemins ; on faisait alors s'embrasser les croix en signe d'alliance. La veille de la fête, le peuple se réunissait le soir dans l'église, et à minuit, le saint étendit le bras pour bénir l'assistance prosternée. Mais, s'il y avait dans la foule un seul incrédule qui levât les yeux pour voir si le miracle était bien réel, le saint, justement blessé de ce soupçon, ne bougeait pas, et, par la faute du mécréant, personne n'était béni<ref>[[Ernest Renan]], "Souvenirs d'enfance et de jeunesse", 1883.</ref>.}}

Saint Yves est le [[saint]] patron de toutes les professions de justice et de droit, notamment celle des [[avocat (métier)|avocats]]. Chaque {{date-|19 mai}}, à [[Tréguier]], lors de la [[fête de la Saint-Yves]], une délégation de ces professions accompagne le [[Pardon (cérémonie)|pardon]] à saint Yves qui est une des grandes fêtes religieuses bretonnes, au même titre que le pardon de [[Sainte-Anne-d'Auray]].

La veille du Pardon, depuis 1993, le Barreau de Saint-Brieuc organise à Tréguier un Colloque, occasion de rencontre et de réflexion entre juristes sur un sujet d'actualité.

De même, de nombreuses associations de juristes et des facultés de droit ont pour saint patron Yves. Par exemple ''Saint Yves Society'', ONG basée à Jérusalem, la [[conférence Saint-Yves]], ou encore l'association Saint Yves Lyonnais.

Par la [[communion des saints]], la tradition religieuse permet aux catholiques de solliciter l'intercession de saint Yves afin d'obtenir bonne fin des procédures pour lesquelles ils sont en demande ou en défense sous forme de neuvaine ou de prière quotidienne<ref>{{Lien web |titre=Prière a saint Yves pour ceux qui ont des proces |url=http://www.1000questions.net/fr/Qui-sont/saint_yves_priere.html |site=www.1000questions.net |consulté le=2021-10-21}}</ref>.

=== Églises dédiées à saint Yves ===
[[Fichier:Façade de Saint-Yves-des-Bretons.jpg|thumb|150px|[[Église Saint-Yves-des-Bretons|Saint-Yves-des-Bretons]], église nationale des Bretons à [[Rome]]]]
{{article détaillé|Église Saint-Yves-des-Bretons|Église Sant'Ivo alla Sapienza}}
Dès la première moitié du {{s-|XV|e}}, Alain de Coetivy obtient du pape [[Nicolas V]] la concession d'une église à Rome, bâtie probablement au {{s-|XII|e}} et placée alors sous le patronage de [[André (apôtre)|saint André]]. Par bulle du {{date-|16 septembre 1455}}, [[Calixte III]], successeur de [[Nicolas V]], ratifie cette décision. Cette vieille église est détruite en 1875 pour cause de vétusté et reconstruite dans le même temps plus petite dans un style néo-renaissance florentine.

Un tympan en terre cuite vernissée surmonte la porte d'entrée principale et représente au centre une [[Vierge à l'Enfant]], à sa droite saint Yves et à sa gauche [[Bernard de Clairvaux|saint Bernard]]. L'ancienne église conservait de nombreuses pierres tombales de bretons décédés à Rome et enterrés dans l'église. Elles ornent aujourd'hui le cloître de [[Église Saint-Louis-des-Français de Rome|Saint-Louis-des-Français]] à Rome<ref>François de LEPINAY, ''Architecture religieuse à Rome à la fin du {{s-|XIX|e}} : la reconstruction de Saint-Yves-des-Bretons''.</ref>. La façade a été restaurée pour l'année 2003, année du septième centenaire de la mort du saint. Cette petite [[Église Saint-Yves-des-Bretons|église dite « Saint-Yves-des-Bretons »]] (''Sant'Ivo dei Bretoni''), située au {{n°|8}} Vicolo della Campana se visite sur demande auprès du recteur de Saint-Louis-des-Français. Le {{date-|19 mai}}, chaque année, une messe en français y est célébrée en l'honneur de saint Yves.

La seconde église dédiée au saint à Rome s'appelle ''[[Église Sant'Ivo alla Sapienza|Sant'Ivo alla Sapienza]]''. Église originale en particulier par la tour qui la surmonte représentant la tour de Babel. Elle fut construite entre 1642 et 1660 par [[Francesco Borromini|Borromini]] dans l'enceinte du Palazzo della Sapienza abritant alors le Studio Romano qui devint ensuite l'université de Rome (jusqu'en 1935). À l'intérieur de l'église se trouve un retable représentant saint Yves commencé par [[Pierre de Cortone]] (1596-1669) et achevé par un ou plusieurs de ses élèves.

En France, la [[Ancienne chapelle Saint-Yves (Paris)|Confrérie Saint-Yves]] est fondée à Paris et décide d'élever une [[Chapelle Saint-Yves de Paris|chapelle]] en l'honneur du saint. Un projet approuvé par Foulques de Chanac, évêque de Paris de 1342 à 1349, par lettres du lundi après l'Assomption de 1348<ref>{{lien web|url=http://infobretagne.com/confrerie-saint-yves.htm|titre=Confrérie Saint-Yves à Paris et sa chapelle|site=infobretagne.com|consulté le=31-05-2020}}</ref>. L'[[Ancienne chapelle Saint-Yves (Paris)|ancienne chapelle Saint-Yves de Paris]] a été détruite en [[1796 en France|1796]].

D'autres églises et chapelles sont dédiées à saint Yves :
{{article détaillé|Église Saint-Yves}}

=== Iconographie ===
On le représente généralement avec une bourse dans une main, pour signifier tout l'argent qu'il a donné aux pauvres dans sa vie, et un parchemin dans l'autre, qui rappelle sa charge de [[official (ecclésiastique)|juge ecclésiastique]]. Il est également souvent figuré entre un homme riche et un homme pauvre.
<gallery heights="160" widths="160">
Fichier:Ploubezre (22) Chapelle de Kerfons Autel et retable de Saint-Yves 02.JPG|[[Ploubezre]] : Chapelle Notre-Dame-de-Kerfons : ''Saint Yves entre le riche et le pauvre''.
Fichier:Jacob Jordaens - Saint Yves, patron des avocats.jpg|[[Jacob Jordaens]] : ''Saint Yves, patron des avocats'' (1645, [[musées royaux des Beaux-Arts de Belgique]])
Fichier:Tríptico de San Ivo, San Clemente y San Antonio de Padua (Salamanca).jpg|Triptyque de saint Yves (église Saint-Clément et Saint-Antoine de [[Padoue]], {{s mini-|XIV}} ou {{s-|XV}})
Fichier:15 Tréguier Cathédrale groupe statuaire saint Yves entre le riche et le pauvre.JPG|[[Cathédrale Saint-Tugdual de Tréguier]] :''Saint Yves entre le riche et le pauvre (bois, {{s-|XVII}})''.
File:106 Saint Yves entre le riche et le pauvre Chapelle Saint-Mélar de Locmélar Plounéventer.jpg|[[Plounéventer]] : chapelle Saint-Mélar de Locmélar, ''saint Yves entre le riche et le pauvre'' (exposition au [[château de Kerjean]] en 2013).
</gallery>

=== Saint-Yves-de-Vérité ===
{{Article détaillé|Saint-Yves-de-Vérité}}
[[Saint-Yves-de-Vérité]] était, à l'origine, l'une des appellations officielles données à saint Yves, mais qui, au cours des siècles, a plus particulièrement été attribuée à des statues de ce saint qui étaient invoquées, selon des pratiques superstitieuses, en Bretagne afin de faire mourir d'autres personnes dans l'année.
<gallery heights="160" widths="160">
File:491 Saint-Yves-de-Vérité Image de dévotion.jpg|Image de dévotion à [[Saint-Yves-de-Vérité]] (Imagerie bretonne, imprimeur, Dinan, vers 1890).
File:Trédarzec Saint Yves de Vérité.jpg|L'[[Oratoire (édifice religieux)|oratoire]] de [[Saint-Yves-de-Vérité]] à [[Trédarzec]] en 1879 (dessin de [[Louis-Marie Faudacq]] publié en 1909 dans "Le Fureteur breton").
</gallery>

=== Postérité ===
À la fin du {{s-|XX|e}}, le mouvement culturel breton lance l'idée d'une fête annuelle des Bretons (à l'instar de la Saint-Patrick pour les Irlandais) et retient le jour de la Saint-Yves comme date fédératrice. Désormais le {{date-|19 mai}} est l'occasion d'un grand pardon à Tréguier, mais aussi dans toute la Bretagne et partout où des Bretons sont installés, sous le nom de ''[[Fête de la Saint-Yves|Gouel Erwan]]'' (''litt.'': « fête de Yves »). Le pardon est souvent encadré de festivités profanes qui peuvent durer plus d'une journée. En 2011, la Région Bretagne les reprend officiellement sous le nom de « [[Fête de la Bretagne]] ».

== Notes et références ==
=== Notes ===
{{Références|groupe=Note}}

=== Références ===
{{Références}}

== Voir aussi ==
{{autres projets|
commons=Category:Ivo of Kermartin}}
=== Bibliographie ===
* [[Michel Carrouges]], ''Saint Yves, avocat des pauvres'', {{date-|mai 2010}}, 34 pages, [[Éditions du Cerf]], coll. « Albums, fêtes et saisons».
* {{Ouvrage |langue=fr |auteur1=[[Jean-Christophe Cassard]] |titre=Saint Yves de Tréguier |sous-titre=un saint du {{s-|XIII}} |lieu=Paris |éditeur=Beauchesne |année=1992 |isbn= |lire en ligne=https://books.google.fr/books?id=oIBsqkM1EbUC |id=Cassard}}.
* Jean-Christophe Cassard, Jacques Dervilly et Daniel Giraudon, ''Les Chemins de saint Yves'', Morlaix, {{éd.}} [[Ar Falz|Skol Vreizh]], [[1994]].
* {{Ouvrage |langue=fr |auteur1=Jean-Christophe Cassard |responsabilité1=dir. |auteur2=Georges Provost |responsabilité2=dir. |titre=Saint Yves et les Bretons |sous-titre=Culte, images, mémoire |lieu=Rennes |éditeur=[[Presses universitaires de Rennes]] |nature ouvrage=actes du colloque organisé à Tréguier du 18 au 20 septembre 2003 |année=2004 |pages totales=368 |isbn= |lire en ligne=http://books.openedition.org/pur/22388?lang=fr |id=StYves&Bretons}}.
* [[René Couffon]], ''La Confrérie de Saint-Yves à Paris et sa chapelle'', Saint-Brieuc, Presses bretonnes, 1933.
* {{Article |auteur1=[[François Falc'hun]] |titre=Les noms bretons de saint Yves|périodique=[[Annales de Bretagne et des pays de l'Ouest]] |tome=50 |numéro=1 |date=1943 |page=177-194 |lire en ligne=https://www.persee.fr/doc/abpo_0003-391x_1943_num_50_1_1820|id=Falc'hun}}
* {{Ouvrage |langue=fr |auteur1=Pierre France |titre=Saint Yves |sous-titre=Étude sur sa vie et son temps |lieu=Saint-Brieuc |éditeur=impr. René Prud'homme |année=1893 |numéro d'édition=2 |année première édition=1888 |pages totales=556 |lire en ligne=https://fr.wikisource.org/wiki/Saint_Yves/Texte_entier}}.
* {{Ouvrage |langue=fr |auteur1=Muriel Glaunec |responsabilité1=dir. |auteur2=Erwan Le Bozec |responsabilité2=dir. |auteur institutionnel=conseil général des Côtes-d'Armor |titre=D'Yves Hélory à saint Yves |sous-titre=Exposition itinérante |éditeur= |nature ouvrage=catalogue de l'exposition itinérante élaborée à partir de l'exposition présentée au domaine départemental de [[château de la Roche-Jagu|la Roche-Jagu]] du 17 mai au 1 novembre 2003 |année=s. d. |isbn= |lire en ligne=http://docplayer.fr/11618348-D-yves-helory-a-saint-yves.html}}.
* Pierre de La Haye, ''Saint Yves de Tréguier'', éditions d’art Jos Le Doaré, 1973.
* {{Ouvrage|langue=fr|langue originale=la|auteur1=Jean-Paul Le Guillou|titre=Saint Yves de Tréguier|sous-titre=Enquête canonique|lieu=Paris|éditeur=[[Éditions L'Harmattan]]|année=2015|pages totales=263|isbn=978-2-343-06586-1|id=Enquête}}
* Jean Le Mappian, ''Saint Yves patron des juristes'', Éditions Ouest-France, 1997.
* Marie-Thérèse Le Moign-Klipffel, ''Saint Yves'', Saint-Brieuc, Presses bretonnes, 1939.
* Benoît Le Roux, ''Saint Yves'', 158 p., [[Via Romana]], Versailles, 2012 {{ISBN|979-10-90029-20-0}}.
* {{Ouvrage |langue=fr |auteur1=Louis Mahé |préface=François Serrand |illustrateur=Yves Le Meur, Janvier et Joseph Savin |titre=Saint Yves |sous-titre=Son pardon à Tréguier |éditeur=Octave-Louis Aubert |année=1942 |pages totales=68 }}
* Louis Mahé, ''Monsieur Saint Yves : Sa vie, ses miracles, ses triomphes'', Saint-Brieuc, René Prud'homme, 1949.
* [[Alexandre Masseron]], ''Saint Yves'', Paris, {{éd.}} Henri Laurens.
* [[Henri Poisson]], ''La Vie de saint Yves'', Rennes, Éditions Ouest-France, 2003 {{ISBN|2-73733-331-8}}.
* [[Henri Queffélec]], ''Saint Yves'', Paris, Ramsay, 1987 (réédition Éditions de la Seine, 1991).
*Gildas Salaün, "Médailles de Saint-Yves", ''Annales de la Société Bretonne de Numismatique et d'Histoire'' ([[International Standard Serial Number|ISSN]] [https://catalogue.bnf.fr/ark:/12148/cb34492012z 1250-5781]), 2003, pp. 73–75.
* [[Marie-Paule Salonne]], ''Saint Yves, patron des avocats, avocat des opprimés'', Éditions franciscaines, Paris, 1945.
* {{Ouvrage |langue=fr |auteur1=François Semur |titre=Yves de Kermartin, magistrat et avocat du {{s-|XIII|e}} |sous-titre=Nouveaux regards sur la vie et le culte du plus grand saint de Bretagne, patron des hommes de loi et universitaires |lieu=Bannalec |éditeur=éditions Jos Le Doaré |année=1983 |pages totales=86 |isbn=2-904412-01-8}}.
* {{Ouvrage |langue=fr |auteur1=Anonyme |titre=Dans les pas de Saint-Yves |lieu=Lannon |éditeur=Impram |collection=Le Trégor |année=1989 |pages totales=24 |format livre=plaquette agrafée, in-8°, 21 x 15 cm, phot. noir et blanc dans le texte |isbn=}}.
* [[Octave-Louis Aubert]], ''Le Pardon de Saint Yves de Tréguier'' (photos de [[Raphaël Binet]]) in La Bretagne Touristique {{n°|62}}, {{date-|mai 1927}}.

==== Bande dessinée ====
* Gilles Chaillet, Vasco n°20, ''Le Dogue de Brocéliande.'' Publié par Le Lombard en 2003. {{ISBN|2-8036-1902-4}}. 48p.
*Nicolas de Beauregard, Sareph, ''Danevell-Destins trégorrois.'' Publié par Coop Breizh en 2017. {{ISBN|9782843468421}}.

=== Liens externes ===

{{Liens}}
* {{vidéo}} [https://saintbrieuc-treguier.catholique.fr/kto-saint-yves-patron-bretagne/ Saint Yves, patron de la Bretagne], Église catholique en Côtes-d'Armor
* {{vidéo}} [https://cpsainttugdual.catholique.fr/-Saint-Yves-2022-.html Messe et pardon de la Saint Yves], paroisse Saint-Tugdual de Tréguier
* [https://eglisesfrancaisesarome.it/saint-yves-des-bretons/ L'église Saint-Yves-des-Bretons de Rome], Églises françaises à Rome

{{Portail|christianisme|catholicisme|duché de Bretagne|Côtes-d'Armor}}

{{DEFAULTSORT:Helori de Kermartin, Yves}}
[[Catégorie:Saint breton|Yves]]
[[Catégorie:Saint catholique français|Yves Helory de Kermartin]]
[[Catégorie:Saint catholique fêté le 19 mai]]
[[Catégorie:Saint canonisé par Clément VI|Yves Helory de Kermartin]]
[[Catégorie:Trégor|Yves Helory de Kermartin]]
[[Catégorie:Personnalité bretonne du XIIIe siècle]]
[[Catégorie:Personnalité bretonne du XIVe siècle]]
[[Catégorie:Personnalité liée à Tréguier]]
[[Catégorie:Tertiaire franciscain]]
[[Catégorie:Étudiant de l'ancienne université d'Orléans]]
[[Catégorie:Naissance en 1253]]
[[Catégorie:Naissance dans le duché de Bretagne]]
[[Catégorie:Décès en 1303]]
[[Catégorie:Décès dans le duché de Bretagne]]
[[Catégorie:Prêtre catholique breton]]

Musée Maritime de Brest

2024-09-20T14:44:38Z

Jaggerwock :

{{Infobox Musée
| label = Musée de France
| protection = Classé MH|1923
| logo = MNM LOGO MUSEE NATIONAL DE LA MARINE ANIME.GIF
}}

Le '''musée national de la Marine de Brest''' est un musée maritime situé dans le château de Brest.

Il abrite un patrimoine témoignant de l'histoire de l'arsenal de Brest et de la Marine française.

== Description ==
Ce musée est l'une des cinq antennes du musée national de la Marine<ref>{{Lien brisé |url= http://www.musee-marine.fr/site/fr/actualites_brest |titre=musee-marine.fr/site/fr/actual… |brisé le=20-05-2023}}.</ref> avec Paris, Port-Louis, Rochefort (Ancienne école de médecine navale et Hôtel de Cheusses) et Toulon.

La visite de ce musée maritime associe intérieur et extérieur et permet de découvrir ses collections maritimes : modèles de navires, instruments de navigation, peintures, sculptures {{incise|figures de proue et de poupe, bustes de figures légendaires liées au monde maritime}} et objets d'art.

Il organise des visites thématiques sur l'architecture du château, la construction navale, la décoration navale, la vie à bord, l'arsenal, et l'expédition de Lapérouse.

== Fréquentation ==

{{Graph production| propriété = P1174}}

== Collections ==

=== Sculpture ===

* Yves Collet ;
** ''Amphitrite'', statue en bois ;
** ''Minerve'', statue en bois ;
** ''Neptune'', groupe en bois ;
** ''Buste du Louis Victor de Rochechouart de Mortemart, duc de Vivonne'', bois ;
** ''Buste de Blaise-Joseph Ollivier'', bois ;
** ''Buste du Louis-Alexandre de Bourbon, comte de Toulouse'', bois ;
** ''Buste du Alain Emmanuel de Coëtlogon, marquis de Coëtlogon'', bois ;
* Georges Guiraud, ''Buste de Hervé de Portzmoguer, Portzmoguer'', marbre<ref>[http://www.musee-marine.fr/sites/default/files/Portzmoguer.pdf musee-marine.fr].</ref>.
* François Rude, ''Buste de Jean-François de La Pérouse, La Pérouse'', plâtre<ref>[https://mnm.webmuseo.com/ws/musee-national-marine/app/collection/record/35000 « Buste de Lapérouse »], notice sur ''webmuseo.com''.</ref>.

=== Peinture ===

* Marie Détrée-Hourrière{{refnec}}
{{saut|20px}}
<gallery mode="packed" heights="150">
Fichier:French Navy pistol mg 8055.jpg|Pistolet de marine (1837).
Fichier:Корабельная пушка в Musée national de la Marine de Brest.jpg|Canon de navire.
Fichier:80-gun ship hull-First Empire mg 8020.jpg|Maquette d'un vaisseau du Premier Empire, de la ''classe du Tonnant''.
Fichier:Vauquelin command panel mg 8156.jpg|Le tableau de commande de la machine du ''Vauquelin''.
Fichier:Submarine S622.jpg|Sous-marin de poche de la classe Seehund, le S622.
Fichier:Лаперуз в Musée national de la Marine de Brest.jpg|François Rude, ''Buste de Jean-François de La Pérouse, La Pérouse''.
Fichier:Duke of Vivonne mg 8134.jpg|Yves Collet, ''Buste du Louis Victor de Rochechouart de Mortemart, duc de Vivonne''.
Fichier:Amphitrite Collet2.jpg|Yves Collet, ''Amphitrite''.
</gallery>

== Notes et références ==
{{Références}}

== Voir aussi ==
{{Autres projets
|commons=category:Musée de la Marine de Brest
}}
=== Bibliographie ===
* {{Article |langue= |auteur1=Gilles Besson |titre=Le musée nationale de la Marine à Brest |périodique=Neptunia |numéro=234 |date=2004 |issn= |lire en ligne= |pages= }}.
* {{Article |langue= |auteur1=Jean Boudriot |auteur2=Alain Niderlinder |titre=Modèles disparus du musée de Brest |périodique=Neptunia |numéro=226 |date=2002 |issn= |lire en ligne= |pages= }}.
* {{Ouvrage|langue=|auteur1=Alain Boulaire|titre=Le Château de Brest et le Musée National de la Marine|passage=|lieu=|éditeur=Ouest-France, Association des Amis des Musées de la Marine|date=1999|pages totales=32|isbn=|lire en ligne=}}.
* {{Ouvrage|langue=|auteur1=Bruno Ponsonnet|directeur1=Bruno Ponsonnet|titre=Le château de Brest|passage=|lieu=Paris|éditeur=Musée national de la Marine|date=2007|pages totales=49|isbn=|lire en ligne=}}.
* Jean-Yves Besselièvre. ''Château de Brest''. Paris, Musée national de la Marine, 2023, 72 p.

=== Article connexe ===
* Musée national de la Marine

== Liens externes ==
* {{autorité}}
* {{dictionnaires}}
* {{site officiel}}

Musée Maritime de Brest

2024-09-20T14:38:27Z

Jaggerwock :

{{Infobox Musée
| label = {{Musée de France}}
| protection = {{Classé MH|1923}}
| logo = MNM LOGO MUSEE NATIONAL DE LA MARINE ANIME.GIF
}}

Le '''musée national de la Marine de Brest''' est un [[musée maritime]] situé dans le [[château de Brest]].

Il abrite un patrimoine témoignant de l'histoire de l'[[arsenal de Brest]] et de la [[Marine française]].

== Description ==
Ce musée est l'une des cinq antennes du [[musée national de la Marine]]<ref>{{Lien brisé |url= http://www.musee-marine.fr/site/fr/actualites_brest |titre=musee-marine.fr/site/fr/actual… |brisé le=20-05-2023}}.</ref> avec [[Musée national de la Marine|Paris]], [[Musée national de la Marine (Port-Louis)|Port-Louis]], [[Musée national de la Marine de Rochefort|Rochefort]] (Ancienne école de médecine navale et Hôtel de Cheusses) et [[Musée national de la Marine de Toulon|Toulon]].

La visite de ce [[musée maritime]] associe intérieur et extérieur et permet de découvrir ses collections maritimes : modèles de navires, instruments de navigation, peintures, sculptures {{incise|figures de proue et de poupe, bustes de figures légendaires liées au monde maritime}} et objets d'art.

Il organise des visites thématiques sur l'architecture du château, la construction navale, la décoration navale, la vie à bord, l'arsenal, et l'[[expédition de Lapérouse]].

== Fréquentation ==

{{Graph production| propriété = P1174}}

== Collections ==

=== Sculpture ===

* [[Yves Collet]] ;
** ''[[Amphitrite]]'', statue en bois ;
** ''Minerve'', statue en bois ;
** ''Neptune'', groupe en bois ;
** ''Buste du [[Louis Victor de Rochechouart de Mortemart|duc de Vivonne]]'', bois ;
** ''Buste de [[Blaise-Joseph Ollivier]]'', bois ;
** ''Buste du [[Louis-Alexandre de Bourbon|comte de Toulouse]]'', bois ;
** ''Buste du [[Alain Emmanuel de Coëtlogon|marquis de Coëtlogon]]'', bois ;
* [[Georges Guiraud (graveur)|Georges Guiraud]], ''Buste de [[Hervé de Portzmoguer|Portzmoguer]]'', marbre<ref>[http://www.musee-marine.fr/sites/default/files/Portzmoguer.pdf musee-marine.fr].</ref>.
* [[François Rude]], ''Buste de [[Jean-François de La Pérouse|La Pérouse]]'', plâtre<ref>[https://mnm.webmuseo.com/ws/musee-national-marine/app/collection/record/35000 « Buste de Lapérouse »], notice sur ''webmuseo.com''.</ref>.

=== Peinture ===

* [[Marie Détrée-Hourrière]]{{refnec}}
{{saut|20px}}
<gallery mode="packed" heights="150">
Fichier:French Navy pistol mg 8055.jpg|Pistolet de marine (1837).
Fichier:Корабельная пушка в Musée national de la Marine de Brest.jpg|Canon de navire.
Fichier:80-gun ship hull-First Empire mg 8020.jpg|Maquette d'un vaisseau du Premier Empire, de la ''[[Classe Tonnant|classe du Tonnant]]''.
Fichier:Vauquelin command panel mg 8156.jpg|Le tableau de commande de la machine du ''[[Vauquelin (contre-torpilleur)|Vauquelin]]''.
Fichier:Submarine S622.jpg|[[Sous-marin de poche]] de la classe Seehund, le S622.
Fichier:Лаперуз в Musée national de la Marine de Brest.jpg|[[François Rude]], ''Buste de [[Jean-François de La Pérouse|La Pérouse]]''.
Fichier:Duke of Vivonne mg 8134.jpg|[[Yves Collet]], ''Buste du [[Louis Victor de Rochechouart de Mortemart|duc de Vivonne]]''.
Fichier:Amphitrite Collet2.jpg|[[Yves Collet]], ''[[Amphitrite]]''.
</gallery>

== Notes et références ==
{{Références}}

== Voir aussi ==
{{Autres projets
|commons=category:Musée de la Marine de Brest
}}
=== Bibliographie ===
* {{Article |langue= |auteur1=Gilles Besson |titre=Le musée nationale de la Marine à Brest |périodique=Neptunia |numéro=234 |date=2004 |issn= |lire en ligne= |pages= }}.
* {{Article |langue= |auteur1=Jean Boudriot |auteur2=Alain Niderlinder |titre=Modèles disparus du musée de Brest |périodique=Neptunia |numéro=226 |date=2002 |issn= |lire en ligne= |pages= }}.
* {{Ouvrage|langue=|auteur1=Alain Boulaire|titre=Le Château de Brest et le Musée National de la Marine|passage=|lieu=|éditeur=Ouest-France, Association des Amis des Musées de la Marine|date=1999|pages totales=32|isbn=|lire en ligne=}}.
* {{Ouvrage|langue=|auteur1=Bruno Ponsonnet|directeur1=Bruno Ponsonnet|titre=Le château de Brest|passage=|lieu=Paris|éditeur=Musée national de la Marine|date=2007|pages totales=49|isbn=|lire en ligne=}}.
* Jean-Yves Besselièvre. ''Château de Brest''. Paris, Musée national de la Marine, 2023, 72 p.

=== Article connexe ===
* [[Musée national de la Marine]]

== Liens externes ==
* {{autorité}}
* {{dictionnaires}}
* {{site officiel}}

Module:Bases/audiovisuel

2024-09-20T14:35:07Z

Jaggerwock : Page créée avec « return { -- { {nom, langue du nom}, propriété Wikidata, format URL} {"Africultures", "P4513", "http://africultures.com/films/?no=$1"}, {"Africultures", "P4514", "http://africultures.com/personnes/?no=$1"}, {{"AllMovie", "en"}, "P1562", "https://www.allmovie.com/movie/$1"}, {{"AllMovie", "en"}, "P2019", "https://www.allmovie.com/artist/$1"}, {"Allociné", "P1265", "https://www.allocine.fr/film/fichefilm_gen_cfilm=$1.html"}, {"Allociné", "P1266", "https://www.al... »

return {
-- { {nom, langue du nom}, propriété Wikidata, format URL}
{"Africultures", "P4513", "http://africultures.com/films/?no=$1"},
{"Africultures", "P4514", "http://africultures.com/personnes/?no=$1"},
{{"AllMovie", "en"}, "P1562", "https://www.allmovie.com/movie/$1"},
{{"AllMovie", "en"}, "P2019", "https://www.allmovie.com/artist/$1"},
{"Allociné", "P1265", "https://www.allocine.fr/film/fichefilm_gen_cfilm=$1.html"},
{"Allociné", "P1266", "https://www.allocine.fr/personne/fichepersonne_gen_cpersonne=$1.html"},
{"Allociné", "P1267", "https://www.allocine.fr/series/ficheserie_gen_cserie=$1.html"},
{"Allociné", "P4910", "https://www.allocine.fr/societe/fichesociete-$1/"},
{{"American Film Institute", "en"}, "P3593", "https://catalog.afi.com/Catalog/moviedetails/$1"},
{{"American Film Institute", "en"}, "P5340", "http://catalog.afi.com/Catalog/PersonDetails/$1"},
{{"Anime News Network", "en"}, "P1982", "https://www.animenewsnetwork.com/encyclopedia/people.php?id=$1"},
{{"Anime News Network", "en"}, "P1983", "https://www.animenewsnetwork.com/encyclopedia/company.php?id=$1"},
-- {{"Anime News Network", "en"}, "P1985", "https://www.animenewsnetwork.com/encyclopedia/anime.php?id=$1"} -- pose problème, voir https://w.wiki/5SuE
{{"BFI National Archive", "en"}, "P2703", "http://collections-search.bfi.org.uk/web/Details/ChoiceFilmWorks/$1"},
{{"British Film Institute", "en"}, "P4438", "https://web.archive.org/web/0/https://www.bfi.org.uk/films-tv-people/$1"},
{"Centre national du cinéma et de l'image animée", "P2755", "https://www.cnc.fr/professionnels/visas-et-classification/$1"},
{"César du cinéma", "P5318", "https://www.academie-cinema.org/films/$1/"},
{"César du cinéma", "P5319", "https://www.academie-cinema.org/personnes/$1/"},
{{"Cinematografo.it", "it"}, "P4786", "https://www.cinematografo.it/pls/cinematografo/consultazione.redirect?sch=$1"},
{"Ciné-Ressources", "P3203", "http://cinema.encyclopedie.films.bifi.fr/index.php?pk=$1"},
{"Ciné-Ressources", "P3204", "http://www.cineressources.net/recherche_t_r.php?type=PNP&pk=$1"},
{"Cinémathèque québécoise", "P4276", "http://collections.cinematheque.qc.ca/recherche/oeuvres/fiche/$1"},
{{"Disney A to Z", "en"}, "P6181", "https://d23.com/a-to-z/$1"},
{{"Filmportal", "de"}, "P2639", "https://www.filmportal.de/$1"},
{"Film-documentaire.fr", "P3673", "http://www.film-documentaire.fr/4DACTION/w_fiche_film/$1"},
{"Film-documentaire.fr", "P6603", "http://www.film-documentaire.fr/4DACTION/w_auteur_liste/$1"},
{{"Filmweb.pl", "pl"}, "P5032", "https://www.filmweb.pl/film?Id=$1"},
{{"Filmweb.pl", "pl"}, "P5033", "https://www.filmweb.pl/person?Id=$1"},
{{"IMDb", "en"}, "P345", "https://wikidata-externalid-url.toolforge.org/?p=345&url_prefix=https://www.imdb.com/&id=$1"},
{{"Korean Movie Database", "en"}, "P1649", "https://www.kmdb.or.kr/eng/db/per/$1"},
{{"Japanese Movie Database", "en"}, "P2400", "http://www.jmdb.ne.jp/$1.htm"},
{"LUMIERE", "P4282", "https://lumiere.obs.coe.int/movie/$1"},
{"LUMIERE", "P4283", "http://lumiere.obs.coe.int/web/director_info/?lum_id=$1"},
{{"Movie Review Query Engine", "en"}, "P8033", "https://www.mrqe.com/movie_reviews/$1"},
{{"NZ On Screen", "en"}, "P6548", "https://www.nzonscreen.com/person/$1"},
{{"NZ On Screen", "en"}, "P6549", "https://www.nzonscreen.com/title/$1"},
{{"OFDb", "de"}, "P3138", "https://ssl.ofdb.de/film/$1,"},
{"Office national du film du Canada", "P4606", "https://www.onf.ca/film/$1"}, -- Il faudrait que quelqu'un arrive à faire en sorte que les entrées avec les qualificatifs P407 (langue de l’œuvre) Q150 (français) soient priorisées
{"Office national du film du Canada", "P6891", "https://www.onf.ca/cineastes/$1/?language=fr"},
{"Oscars du cinéma", "P7118", "https://collections.new.oscars.org/Details/Film/$1"},
{"Oscars du cinéma", "P7119", "https://collections.new.oscars.org/Details/People/$1"},
{{"Rotten Tomatoes", "en"}, "P1258", "https://www.rottentomatoes.com/$1"},
{{"SourehCinema", "fa"}, "P3139", "http://www.sourehcinema.com/Title/Title.aspx?id=$1"},
{{"Swiss Films", "en"}, "P6474", "https://www.swissfilms.ch/fr/film_search/filmdetails/-/id_film/$1"},
{{"The Movie Database", "en"}, "P4947", "https://www.themoviedb.org/movie/$1"},
{"Unifrance", "P3961", "https://www.unifrance.org/film/$1"},
{"Unifrance", "P3979", "https://www.unifrance.org/annuaires/societe/$1"},
{"Unifrance", "P3980", "https://www.unifrance.org/annuaires/personne/$1"}
}

Module:Bases/astronomie

2024-09-20T14:33:04Z

Jaggerwock : Page créée avec « return { -- { {nom, langue du nom}, propriété Wikidata, format URL} {{"Biographical Encyclopedia of Astronomers", "en"}, "P9626", "https://doi.org/10.1007/978-0-387-30400-7_$1"}, {{"Catalogue of Principal Galaxies", "en"}, "P4095", "https://ned.ipac.caltech.edu/cgi-bin/objsearch?objname=PGC+$1"}, {"Centre des planètes mineures", "P717", "https://newton.spacedys.com/neodys/index.php?pc=2.1.0&o=$1"}, {"Centre des planètes mineures", "P5736", "https://www.minorp... »

return {
-- { {nom, langue du nom}, propriété Wikidata, format URL}
{{"Biographical Encyclopedia of Astronomers", "en"}, "P9626", "https://doi.org/10.1007/978-0-387-30400-7_$1"},
{{"Catalogue of Principal Galaxies", "en"}, "P4095", "https://ned.ipac.caltech.edu/cgi-bin/objsearch?objname=PGC+$1"},
{"Centre des planètes mineures", "P717", "https://newton.spacedys.com/neodys/index.php?pc=2.1.0&o=$1"},
{"Centre des planètes mineures", "P5736", "https://www.minorplanetcenter.net/db_search/show_object?object_id=$1"},
{{"Database of Asteroid Models from Inversion Techniques", "en"}, "P4384", "http://astro.troja.mff.cuni.cz/projects/asteroids3D/web.php?page=db_asteroid_detail&asteroid_id=$1"},
{"Encyclopédie des planètes extrasolaires", "P5653", "http://exoplanet.eu/catalog/$1/"},
{{"Exoplanet Data Explorer", "en"}, "P5650", "http://exoplanets.org/detail/$1"},
{{"Gazetteer of Planetary Nomenclature", "en"}, "P2824", "http://planetarynames.wr.usgs.gov/Feature/$1"},
{{"JPL Small-Body Database", "en"}, "P716", "https://ssd.jpl.nasa.gov/sbdb.cgi?sstr=$1"},
{{"Meteoritical Bulletin Database", "en"}, "P824", "https://www.lpi.usra.edu/meteor/metbull.php?code=$1"},
{{"NASA Exoplanet Archive", "en"}, "P5667", "https://exoplanetarchive.ipac.caltech.edu/cgi-bin/DisplayOverview/nph-DisplayOverview?objname=$1"},
{{"National Space Science Data Center", "en"}, "P247", "https://nssdc.gsfc.nasa.gov/nmc/spacecraft/display.action?id=$1"},
{{"New General Catalogue", "en"}, "P3208", "http://spider.seds.org/ngc/ngc.cgi?$1"},
{{"Open Exoplanet Catalogue", "en"}, "P5738", "http://www.openexoplanetcatalogue.com/planet/$1/"},
{{"Satellite Catalog Number", "en"}, "P377", "https://www.n2yo.com/satellite/?s=$1"},
{"Simbad", "P3083", "https://simbad.u-strasbg.fr/simbad/sim-id?Ident=$1"},
{{"Uppsala General Catalogue", "en"}, "P6340", "https://ned.ipac.caltech.edu/cgi-bin/nph-objsearch?extend=yes&objname=UGC+$1"},
}

Module:Bases/art

2024-09-20T14:32:19Z

Jaggerwock : Page créée avec « return { -- { {nom, langue du nom}, propriété Wikidata, format URL} {"Musée des Beaux-Arts de Bordeaux", "P12065", "https://musba-bordeaux.opacweb.fr/r/$1"}, {"À nos grands hommes", "P6141", "https://anosgrandshommes.musee-orsay.fr/index.php/Detail/objects/$1"}, {"Académie des arts de Berlin", "P4114", "https://www.adk.de/de/akademie/mitglieder/?we_objectID=$1"}, {"Académie des beaux-arts", "P5363", "https://www.academiedesbeauxarts.fr/$1"}, {"L'Agence Phot... »

return {
-- { {nom, langue du nom}, propriété Wikidata, format URL}
{"Musée des Beaux-Arts de Bordeaux", "P12065", "https://musba-bordeaux.opacweb.fr/r/$1"},
{"À nos grands hommes", "P6141", "https://anosgrandshommes.musee-orsay.fr/index.php/Detail/objects/$1"},
{"Académie des arts de Berlin", "P4114", "https://www.adk.de/de/akademie/mitglieder/?we_objectID=$1"},
{"Académie des beaux-arts", "P5363", "https://www.academiedesbeauxarts.fr/$1"},
{"L'Agence Photo RMN Grand Palais", "P6334", "https://www.photo.rmn.fr/Package/$1"},
{"AGORHA", "P2342", "https://agorha.inha.fr/inhaprod/ark:/54721/002$1"},
{"AGORHA", "P2344", "https://agorha.inha.fr/ark:/54721/$1"},
{"AGORHA", "P2345", "http://www.purl.org/inha/agorha/004/$1"},
{{"American Art Collaborative", "en"}, "P4692", "http://browse.americanartcollaborative.org/object/$1.html"},
{"Arcade", "P4764", "http://www.culture.gouv.fr/public/mistral/arcade_fr?ACTION=CHERCHER&FIELD_1=REF&VALUE_1=$1"},
-- {{"The Armory Show at 100", "en"}, "P6301", "http://armory.nyhistory.org/$1/"},
{{"Art Institute of Chicago", "en"}, "P4610", "https://www.artic.edu/artworks/$1"},
{{"Art Institute of Chicago", "en"}, "P6294", "https://www.artic.edu/exhibitions/$1"},
{{"Art Institute of Chicago", "en"}, "P6295", "https://www.artic.edu/artists/$1"},
{{"Art in the Christian Tradition", "en"}, "P9092", "https://diglib.library.vanderbilt.edu/act-imagelink.pl?RC=$1"},
{{"Art UK", "en"}, "P1367", "https://artuk.org/discover/artworks/search/actor:$1"},
{{"Art UK (lieux d'art)", "en"}, "P1602", "https://artuk.org/visit/venues/$1"},
{{"Art UK", "en"}, "P1679", "https://artuk.org/discover/artworks/$1"},
{{"Art UK (collections)", "en"}, "P1751", "https://artuk.org/visit/collection/$1"},
{{"Artist-info", "en"}, "P5507", "https://www.artist-info.com/exhibition/$1"},
{{"Artists of the World Online", "en"}, "P4432", "https://www.degruyter.com/view/AKL/_$1"},
-- {"Atlas", "P1212", "http://cartelfr.louvre.fr/cartelfr/visite?srv=car_not_frame&idNotice=$1"}, -- remplacé par P9394
{{"Auckland Art Gallery", "en"}, "P3372", "https://www.aucklandartgallery.com/explore-art-and-ideas/artist/$1/"},
{{"Belgian Art Links & Tools", "en"}, "P1901", "http://balat.kikirpa.be/people.php?priref=$1"},
{{"Belgian Art Links & Tools", "en"}, "P3293", "http://balat.kikirpa.be/object/$1"},
{"''Bénézit''", "P2843", "https://doi.org/10.1093/benz/9780199773787.article.$1"},
{{"Bildindex", "en"}, "P2092", "https://www.bildindex.de/document/obj$1"},
{{"Biographisches Lexikon der Münzmeister, Wardeine, Stempelschneider und Medailleure", "de"}, "P6240", "https://mmlo.de/$1"},
{{"bpk-Bildagentur", "de"}, "P5891", "https://www.bpk-bildagentur.de/id/$1"},
{{"Brasiliana Iconográfica", "pt"}, "P6004", "https://www.brasilianaiconografica.art.br/obras/$1/wd"},
{{"Bridgeman Art Library", "en"}, "P3965", "https://www.bridgemanimages.fr/fr/search?filter_text=creatorid:$1"},
{{"British Council", "en"}, "P2399", "http://visualarts.britishcouncil.org/collection/artists/$1"},
-- {"British Museum", "P3632", "http://collection.britishmuseum.org/id/thesauri/$1"},
-- {"British Museum", "P3633", "http://collection.britishmuseum.org/id/place/$1"},
{{"British Museum", "en"}, "P1711", "https://www.britishmuseum.org/collection/term/BIOG$1"},
{{"Brooklyn Museum", "en"}, "P4740", "https://www.brooklynmuseum.org/opencollection/objects/$1"},
{{"Brooklyn Museum", "en"}, "P4899", "https://www.brooklynmuseum.org/opencollection/exhibitions/$1"},
{{"Carnegie Museum of Art", "en"}, "P4686", "https://collection.carnegieart.org/objects/$1"},
{"Catalogues des Musées de Florence", "P2242", "http://www.polomuseale.firenze.it/catalogo/scheda.asp?nctn=$1&value=1"},
{"Centre d'art britannique de Yale", "P4738", "http://collections.britishart.yale.edu/vufind/Record/$1"},
{"Centre national des arts plastiques", "P5403", "https://www.cnap.fr/$1"},
{"Centre Pompidou", "P6323", "https://www.centrepompidou.fr/fr/id/$1"},
-- {{"Cincinnati Art Museum", "en"}, "P8639", "https://www.cincinnatiartmuseum.org/art/explore-the-collection?id=$1"},
-- {"Clara", "P1615", "http://clara.nmwa.org/index.php?g=entity_detail&entity_id=$1"}, -- site hors ligne
{"Collection de peintures de l'État de Bavière", "P4025", "https://www.sammlung.pinakothek.de/en/artist/$1"},
{{"Cooper–Hewitt, Smithsonian Design Museum", "en"}, "P2011", "https://collection.cooperhewitt.org/people/$1/"},
{{"Cranach Digital Archive", "en"}, "P5783", "https://lucascranach.org/en/$1"},
{"''Delarge''", "P1988", "https://www.ledelarge.fr/$1"},
{{"Design & Art Australia Online", "en"}, "P1707", "https://www.daao.org.au/bio/$1"},
{"''Dictionnaire des peintres belges''", "P4687", "http://balat.kikirpa.be/peintres/Detail_notice.php?id=$1"},
{{"e-Museum", "en"}, "P4257", "http://www.emuseum.jp/detail/$1"},
{{"ECARTICO", "nl"}, "P2915", "https://www.vondel.humanities.uva.nl/ecartico/persons/$1"},
{{"Fitzwilliam Museum", "en"}, "P8910", "https://collection.beta.fitz.ms/id/object/$1"},
{"Fondation Barnes", "P4709", "https://collection.barnesfoundation.org/objects/$1/details"},
{"Fondation Federico Zeri", "P3272", "http://catalogo.fondazionezeri.unibo.it/scheda/opera/$1/"},
{"Fondation Maeght", "P6525", "https://www.fondation-maeght.com/fr/collection/morceaux-choisis/$1/wd"},
{"Fondation Solomon R. Guggenheim", "P4737", "https://www.guggenheim.org/artwork/$1"},
{{"Fundación Goya en Aragón", "es"}, "P7229", "https://fundaciongoyaenaragon.es/obra/wd/$1"},
{"Galerie berlinoise", "P4580", "https://sammlung-online.berlinischegalerie.de/eMuseumPlus?service=ExternalInterface&module=artist&objectId=$1&viewType=detailView"},
{{"Galerie des Offices", "en"}, "P8335", "https://www.uffizi.it/en/artworks/$1"},
{"Galerie nationale d'Arménie", "P5210", "http://www.gallery.am/en/database/item/$1/"},
{"Galerie nationale de Finlande", "P4177", "http://kokoelmat.fng.fi/app?si=http://kansallisgalleria.fi/E39.Actor_$1"},
{"Galerie nationale de Prague", "P9942", "https://sbirky.ngprague.cz/en/dielo/$1"},
{{"Google Arts & Culture", "en"}, "P4701", "https://www.google.com/culturalinstitute/beta/asset/wd/$1"},
{{"Google Arts & Culture", "en"}, "P4702", "https://www.google.com/culturalinstitute/beta/partner/$1"},
{{"Grove Art Online", "en"}, "P8406", "https://doi.org/10.1093/gao/9781884446054.article.$1"},
{"Iconothèque historique de l'océan Indien", "P6356", "https://www.ihoi.org/app/photopro.sk/ihoi_icono/detail?docid=$1&lang=fra"},
{{"Index of Historic Collectors and Dealers of Cubism", "en"}, "P5921", "https://www.metmuseum.org/art/libraries-and-research-centers/leonard-lauder-research-center/programs-and-resources/index-of-cubist-art-collectors/$1"},
{{"Information Center for Israeli Art", "en"}, "P1736", "https://www.imj.org.il/artcenter/newsite/en/?artist=$1"},
{"Institut national de recherche pour les biens culturels", "P5567", "https://www.tobunken.go.jp/materials/bukko/$1.html"},
{{"Inventario 1890", "it"}, "P1726", "http://www.polomuseale.firenze.it/inv1890/scheda.asp?position=1&ninv=$1"},
{{"Inventario Palatina", "it"}, "P3504", "http://www.polomuseale.firenze.it/invpalatina/scheda.asp?position=1&ninv=$1"},
{{"Inventario Sculture", "it"}, "P3467", "http://www.polomuseale.firenze.it/invSculture/scheda.asp?position=1&ninv=$1"},
{{"Inventories of American Painting and Sculpture", "en"}, "P4814", "https://siris-artinventories.si.edu/ipac20/ipac.jsp?&menu=search&index=.NW&term=$1"},
{{"J. Paul Getty Museum", "en"}, "P2432", "http://www.getty.edu/art/collection/artists/$1"},
{{"J. Paul Getty Museum", "en"}, "P2582", "https://www.getty.edu/art/collection/object/$1"},
{{"Joan Miró Online Image Bank", "en"}, "P6489", "https://www.successiomiro.com/catalogue/object/$1"},
{"Joconde", "P347", "https://www.pop.culture.gouv.fr/notice/joconde/$1"},
{{"Kulturelles Erbe Köln", "de"}, "P4582", "https://www.kulturelles-erbe-koeln.de/documents/obj/$1"},
{{"Kunstindeks Danmark", "da"}, "P1138", "https://www.kulturarv.dk/kid/VisKunstner.do?kunstnerId=$1"},
{{"LombardiaBeniCulturali", "it"}, "P3855", "https://www.lombardiabeniculturali.it/opere-arte/schede/$1/"},
{{"Lost Art", "en"}, "P1428", "http://www.lostart.de/EN/Verlust/$1"},
{{"Mapping Sculpture", "en"}, "P2914", "https://sculpture.gla.ac.uk/view/person.php?id=$1"},
{{"Metropolitan Museum of Art", "en"}, "P3634", "https://www.metmuseum.org/art/collection/search/$1"},
{{"Minneapolis Institute of Art", "en"}, "P4712", "https://collections.artsmia.org/art/$1"},
{"MNBAQ", "P8336", "https://collections.mnbaq.org/fr/artiste/$1"},
{"Monuments aux morts", "P6238", "https://monumentsmorts.univ-lille.fr/monument/$1/wd/"},
{{"Monuments commemoratius de Catalunya", "ca"}, "P6239", "https://monuments.iec.cat/fitxa.asp?id=$1"},
-- {{"MuBE Virtual", "en"}, "P4721", "http://mubevirtual.com.br/pt_br?Dados&area=ver&id=$1"},
{"Musée Boijmans Van Beuningen", "P5499", "https://www.boijmans.nl/en/collection/artworks/$1"},
{"Musée d'Art d'Indianapolis", "P4674", "http://collection.imamuseum.org/artwork/$1/"},
{"Musée d'Art du comté de Los Angeles", "P4611", "https://collections.lacma.org/node/$1"},
{"Musée d'Art moderne de Paris", "P6374", "https://www.mam.paris.fr/en/online-collections#/artwork/$1"},
{"Musée d'art Nelson-Atkins", "P5273", "https://art.nelson-atkins.org/people/$1"},
{"Musée d'Histoire de l'art de Vienne", "P8960", "https://www.khm.at/de/object/$1/"},
{"Musée d'Orsay", "P2268", "https://www.musee-orsay.fr/fr/ressources/repertoire-artistes-personnalites/$1"},
{"Musée d'Orsay", "P4659", "https://www.musee-orsay.fr/fr/collections/catalogue-des-oeuvres/notice.html?nnumid=$1"},
{"Musée des Augustins de Toulouse", "P4739", "https://www.augustins.org/r/$1"},
{"Musée des Beaux-Arts de Boston", "P4625", "https://collections.mfa.org/objects/$1"},
-- {"Musée des Beaux-Arts de Gand", "P2511", "http://mskgent.be/collection/work/data/$1"},
{"Musée des Beaux-Arts de Houston", "P4673", "https://emuseum.mfah.org/objects/$1"},
{"Musée des beaux-arts du Canada", "P5368", "https://www.beaux-arts.ca/collection/artiste/$1"},
{"Musée du Louvre (collections)", "P9394", "https://collections.louvre.fr/ark:/53355/cl$1"},
{"Musée du Prado", "P5321", "https://www.museodelprado.es/coleccion/artista/wd/$1"},
{{"Musée du Prado", "en"}, "P8905", "https://www.museodelprado.es/en/the-collection/art-work/wd/$1"},
-- {"Musée Groeninge", "P2282", "http://groeningemuseum.be/collection/work/data/$1"},
{{"Musée national centre d'art Reina Sofía", "es"}, "P4439", "https://www.museoreinasofia.es/coleccion/autor/$1"},
{"Musée national d'Art moderne", "P6355", "https://collection.centrepompidou.fr/#/artwork/$1"},
{{"Musée national du Victoria", "en"}, "P2041", "https://www.ngv.vic.gov.au/explore/collection/artist/$1/"},
{{"Musée national du Victoria", "en"}, "P4684", "https://www.ngv.vic.gov.au/explore/collection/work/$1/"},
{"Musée Picasso", "P6358", "https://www.navigart.fr/picassoparis/#/artwork/$1"},
{"Musée royal des Beaux-Arts d'Anvers", "P4905", "https://kmska.be/collection/work/data/$1"},
{"Musée Städel", "P4581", "https://sammlung.staedelmuseum.de/de/person/$1"},
{"Musée Thyssen-Bornemisza", "P2431", "https://www.museothyssen.org/en/thyssen/ficha_artista/$1"},
{{"Museo Nacional de Artes Visuales", "es"}, "P5268", "http://acervo.mnav.gub.uy/obras.php?q=ni:$1"},
{{"Museo Nacional de Artes Visuales", "es"}, "P6156", "http://acervo.mnav.gub.uy/obras.php?q=na:$1"},
{{"Museum of Modern Art", "en"}, "P2014", "https://www.moma.org/collection/works/$1"},
{{"Museum of Modern Art", "en"}, "P2174", "https://www.moma.org/artists/$1"},
{{"Museumslandschaft Hessen Kassel", "de"}, "P5407", "https://datenbank.museum-kassel.de/$1"},
{{"MutualArt", "en"}, "P6578", "https://www.mutualart.com/Artist/wd/$1"},
{{"National Gallery of Art", "en"}, "P2252", "https://www.nga.gov/content/ngaweb/Collection/artist-info.$1.html"},
{{"National Gallery of Art", "en"}, "P4683", "https://www.nga.gov/content/ngaweb/Collection/art-object-page.$1.html"},
{{"National Portrait Gallery", "en"}, "P1816", "https://www.npg.org.uk/collections/search/person/$1"},
{{"National Portrait Gallery", "en"}, "P6152", "https://npg.si.edu/object/npg_$1"},
{{"National Trust Collections", "en"}, "P4373", "https://www.nationaltrustcollections.org.uk/object/$1"},
{{"Nationalmuseum", "sv"}, "P2538", "http://collection.nationalmuseum.se/eMuseumPlus?service=ExternalInterface&module=artist&objectId=$1"},
{{"Nederlands Fotomuseum", "nl"}, "P7837", "https://collectie.nederlandsfotomuseum.nl/fotografen/detail/$1"},
{{"Norsk kunstnerleksikon", "no"}, "P5081", "https://nkl.snl.no/$1"},
{{"Österreichische Galerie Belvedere", "de"}, "P3421", "https://digital.belvedere.at/people/$1/"},
{{"Österreichische Galerie Belvedere", "de"}, "P5823", "https://digital.belvedere.at/objects/$1/"},
{"Palais des Beaux-Arts de Lille", "P8962", "https://pba-opacweb.lille.fr/r/$1"},
{"Palissy", "P481", "https://www.pop.culture.gouv.fr/notice/palissy/$1"},
{"Panorama de l'art", "P6332", "https://panoramadelart.com/analyse/$1"},
{"Paris Musées", "P6246", "https://www.parismuseescollections.paris.fr/fr/node/$1"},
-- {{"Photographers' Identities Catalog", "en"}, "P2750", "http://pic.nypl.org/constituents/$1"},
{{"Philadelphia Museum of Art", "en"}, "P4643", "https://www.philamuseum.org/collections/permanent/$1.html"},
-- {"Répertoire de sculpture française", "P2380", "https://frenchsculpture.org/fr/artist/$1"}, -- site désormais non fonctionnel https://www.wikidata.org/wiki/Talk:Q45327785
{{"RKDartists", "en"}, "P650", "https://rkd.nl/artists/$1"},
{{"RKDimages", "en"}, "P350", "https://rkd.nl/images/$1"},
{{"Royal Academy of Arts", "en"}, "P4808", "https://www.royalacademy.org.uk/art-artists/name/$1"},
{"Salons 1673-1914", "P6007", "http://salons.musee-orsay.fr/index/notice/$1"},
{{"Sandrart.net", "de"}, "P1422", "http://ta.sandrart.net/en/person/view/$1"},
{{"Sandrart.net", "de"}, "P4380", "http://ta.sandrart.net/en/artwork/view/$1"},
{{"Signaturer.se", "sv"}, "P5316", "https://www.signaturer.se/Sverige/$1.htm"},
{{"SIKART", "de"}, "P781", "https://www.sikart.ch/KuenstlerInnen.aspx?id=$1&lng=fr"},
{{"Smarthistory", "en"}, "P6405", "https://smarthistory.org/$1/"},
{{"Smithsonian American Art Museum", "en"}, "P1795", "https://americanart.si.edu/collections/search/artist/?id=$1"},
{{"Tate", "en"}, "P2741", "https://www.tate.org.uk/art/artists/$1"},
{{"Te Papa Tongarewa", "mi"}, "P3544", "https://collections.tepapa.govt.nz/Person/$1"},
{{"Union List of Artist Names", "en"}, "P245", "https://www.getty.edu/vow/ULANFullDisplay?find=&role=&nation=&subjectid=$1"},
{"Utpictura18", "P6663", "https://utpictura18.univ-amu.fr/node/$1"},
{{"Victoria and Albert Museum", "en"}, "P3929", "https://collections.vam.ac.uk/item/$1"},
{{"Walters Art Museum", "en"}, "P4713", "https://art.thewalters.org/detail/$1"},
}

Module:Bases/architecture

2024-09-20T14:31:38Z

Jaggerwock : Page créée avec « return { -- { {nom, langue du nom}, propriété Wikidata, format URL} {{"Alberta Register of Historic Places", "en"}, "P759", "https://hermis.alberta.ca/ARHP/Details.aspx?DeptID=1&ObjectID=$1"}, {{"Amphi-Theatrum", "de"}, "P5633", "http://amphi-theatrum.de/$1.html"}, {{"American Society of Civil Engineers", "en"}, "P5904", "https://www.asce.org/project/$1/"}, {"Atlas de l'architecture et du patrimoine", "P1794", "http://www.atlas-patrimoine93.fr/pg-html/bases_doc... »

return {
-- { {nom, langue du nom}, propriété Wikidata, format URL}
{{"Alberta Register of Historic Places", "en"}, "P759", "https://hermis.alberta.ca/ARHP/Details.aspx?DeptID=1&ObjectID=$1"},
{{"Amphi-Theatrum", "de"}, "P5633", "http://amphi-theatrum.de/$1.html"},
{{"American Society of Civil Engineers", "en"}, "P5904", "https://www.asce.org/project/$1/"},
{"Atlas de l'architecture et du patrimoine", "P1794", "http://www.atlas-patrimoine93.fr/pg-html/bases_doc/inventaire/fiche.php?idfic=$1"},
{{"Australian Heritage Database", "en"}, "P3008", "http://www.environment.gov.au/cgi-bin/ahdb/search.pl?mode=place_detail;place_id=$1"},
{"Base AUTOR", "P3960", "http://www.culture.gouv.fr/public/mistral/autor_fr?ACTION=CHERCHER&FIELD_98=REF&VALUE_98=$1"},
{{"Catálogo de Patrimonio Cultural", "es"}, "P6539", "http://cultura.castillalamancha.es/patrimonio/catalogo-patrimonio-cultural/$1"},
{{"Coflein", "cy"}, "P4658", "http://coflein.gov.uk/en/site/$1/details"},
{{"Colegio Oficial de Arquitectos de Madrid", "es"}, "P2917", "https://guia-arquitectura-madrid.coam.org/#inm.$1"},
{{"Commonwealth War Graves Commission", "en"}, "P1920", "https://www.cwgc.org/find-a-cemetery/cemetery/$1"},
{{"Conselho de Defesa do Patrimônio Histórico", "pt"}, "P5525", "http://condephaat.sp.gov.br/benstombados/$1/"},
{{"Dictionary of Scottish Architects", "en"}, "P5308", "http://www.scottisharchitects.org.uk/architect_full.php?id=$1"},
{"Édifices fédéraux patrimoniaux", "P3197", "http://www.pc.gc.ca/apps/dfhd/page_fhbro_fra.aspx?id=$1"},
{{"Fund og Fortidsminder", "da"}, "P3596", "http://www.kulturarv.dk/fundogfortidsminder/Lokalitet/$1"},
{{"Harpers Ferry Center", "en"}, "P4083", "https://www.nps.gov/carto/app/#!/maps/alphacode/$1"},
{{"Heritage Foundation of Newfoundland and Labrador", "en"}, "P933", "http://heritagefoundation.ca/heritage-property/$1"},
{{"History Colorado", "en"}, "P8158", "https://www.historycolorado.org/location/$1"},
{{"Instituto de Gestão do Património Arquitectónico e Arqueológico", "pt"}, "P1702", "http://www.patrimoniocultural.pt/en/patrimonio/patrimonio-imovel/pesquisa-do-patrimonio/classificado-ou-em-vias-de-classificacao/geral/view/$1"},
{"Inventaire du patrimoine architectural de Catalogne", "P1600", "http://invarquit.cultura.gencat.cat/Cerca/Fitxa?index=0&consulta=&codi=$1"},
{"Inventaire Auvergne-Rhône-Alpes", "P5517", "https://patrimoine.auvergnerhonealpes.fr/dossier/$1"},
{"Inventaire Bourgogne-Franche-Comté", "P9207", "https://patrimoine.bourgognefranchecomte.fr/recherche?key=$1"},
{"Inventaire Bretagne", "P1529", "https://patrimoine.bzh/gertrude-diffusion/dossier/$1"},
{"Inventaire Centre-Val de Loire", "P9175", "https://patrimoine.centre-valdeloire.fr/gertrude-diffusion/recherche/globale?texte=$1"},
{"Inventaire Hauts-de-France", "P9168", "https://inventaire.hautsdefrance.fr/dossier/$1"},
{"Inventaire Île-de-France", "P9208", "https://inventaire.iledefrance.fr/dossier/$1"},
{"Inventaire Normandie", "P9209", "https://inventaire-patrimoine.normandie.fr/dossier/$1"},
{"Inventaire Occitanie", "P9176", "https://ressourcespatrimoines.laregion.fr/ark:/46855/inventaire_$1.locale=fr"},
{"Inventaire Pays de la Loire", "P9210", "https://gertrude.paysdelaloire.fr/dossier/$1"},
{"Inventaire Provence-Alpes-Côte d'Azur", "P9263", "https://dossiersinventaire.maregionsud.fr/dossier/$1"},
{{"Kulturerbearchiv der Deutschsprachigen Gemeinschaft", "de"}, "P5942", "http://www.ostbelgienkulturerbe.be/desktopdefault.aspx/tabid-3557//linkid-$1"},
{{"Kulturminne", "no"}, "P758", "http://www.kulturminnesok.no/kulturminnesok/kulturminne/?LOK_ID=$1"},
{{"Kultuurimälestiste", "et"}, "P2948", "http://register.muinas.ee/public.php?menuID=monument&action=view&id=$1"},
{{"Landesamt für Denkmalpflege Bremen", "de"}, "P4246", "http://denkmalpflege.bremen.de/sixcms/detail.php?template=20_denkmal_wrapper_d&obj=0000$1"},
{{"Landesamt für Denkmalpflege Hessen", "de"}, "P1769", "http://denkxweb.denkmalpflege-hessen.de/$1/"},
{{"Landesdenkmalamt Berlin", "de"}, "P2424", "http://www.stadtentwicklung.berlin.de/denkmal/liste_karte_datenbank/de/denkmaldatenbank/daobj.php?obj_dok_nr=$1"},
{"Lieux historiques nationaux", "P2526", "http://www.pc.gc.ca/apps/dfhd/page_nhs_fra.aspx?id=$1"},
{{"Lista Roja del Patrimonio", "es"}, "P4868", "http://listarojapatrimonio.org/ficha/$1/"},
{"Liste du patrimoine mondial", "P757", "http://whc.unesco.org/fr/list/$1"},
{"Liste indicative du patrimoine mondial", "P4171", "http://whc.unesco.org/fr/listesindicatives/$1/"},
{{"LombardiaBeniCulturali", "it"}, "P3503", "http://www.lombardiabeniculturali.it/architetture/schede/$1/"},
{{"MDAH Historic Resources Inventory Database", "en"}, "P8249", "https://www.apps.mdah.ms.gov/Public/prop.aspx?id=$1&view=facts"},
{"Mérimée", "P380", "https://www.pop.culture.gouv.fr/notice/merimee/$1"},
{{"Molenecho's", "nl"}, "P2867", "http://www.molenechos.org/molen.php?AdvSearch=$1"},
{{"MonumNet", "cs"}, "P762", "http://monumnet.npu.cz/pamfond/list.php?hledani=1&CiRejst=$1"},
{{"Museovirasto", "fi"}, "P4106", "http://www.kyppi.fi/to.aspx?id=112.$1"},
{{"Nationaal Comité 4 en 5 mei", "nl"}, 'P3638', "https://www.4en5mei.nl/oorlogsmonumenten/monumenten_zoeken/oorlogsmonument/$1"},
{{"National Heritage List for England", "en"}, 'P1216', 'https://historicengland.org.uk/listing/the-list/list-entry/$1'},
{{"National Park Foundation", "en"}, "P3516", "https://www.nationalparks.org/explore-parks/$1"},
{{"Nederlandse Gemalen Stichting", "nl"}, "P3304", "http://www.gemalen.nl/gemaal_detail.asp?gem_id=$1"},
{{"De Nederlandse Molendatabase", "nl"}, "P2863", "https://molendatabase.nl/nederland/molen.php?nummer=$1"},
{{"New Zealand Heritage List", "en"}, "P3728", "http://www.heritage.org.nz/the-list/details/$1"},
{{"NPS Stats", "en"}, "P4083", "https://irma.nps.gov/Stats/Reports/Park/$1"},
{{"NSW Heritage Database", "en"}, "P3449", "http://www.environment.nsw.gov.au/heritageapp/ViewHeritageItemDetails.aspx?ID=$1"},
{{"Office of Historic Preservation", "en"}, "P6012", "http://ohp.parks.ca.gov/ListedResources/Detail/$1"},
{{"Onroerend Erfgoed", "nl"}, "P1764", "https://id.erfgoed.net/erfgoedobjecten/$1"},
{{"Oregon Historic Sites Database", "en"}, "P8177", "https://heritagedata.prd.state.or.us/historic/index.cfm?do=v.dsp_siteSummary&resultDisplay=$1"},
{{"Pacific Coast Architecture Database", "en"}, "P6486", "http://pcad.lib.washington.edu/building/$1/"},
{{"Pacific Coast Architecture Database", "en"}, "P6550", "http://pcad.lib.washington.edu/firm/$1/"},
{"Patrimoine belge au Brésil", "P5528", "http://belgianclub.com.br/fr/$1"},
{"Patrimoine classé de Wallonie", "P1133", "http://lampspw.wallonie.be/dgo4/site_thema/index.php/dossier/view/BC_PAT/$1"},
{"Phares patrimoniaux", "P3211", "https://www.pc.gc.ca/apps/dfhd/page_hl_fra.aspx?id=$1"},
{{"Prison History", "en"}, "P5535", "https://www.prisonhistory.org/prison/$1/"},
{"PSS", "P1838", "http://www.pss-archi.eu/immeubles/$1.html"},
{{"Queensland Heritage Register", "en"}, "P2967", "https://environment.ehp.qld.gov.au/heritage-register/detail/?id=$1"},
{"Registre aux fins de la Loi sur le patrimoine de l'Ontario", "P4120", "http://www.heritagetrust.on.ca/fr/index.php/oha/details?id=$1"},
{"Registre national des lieux historiques", "P649", "https://npgallery.nps.gov/AssetDetail/NRIS/$1"},
{"Répertoire canadien des lieux patrimoniaux", "P477", "http://www.historicplaces.ca/fr/rep-reg/place-lieu.aspx?id=$1"},
{"Répertoire des lieux patrimoniaux de l'Île-du-Prince-Edouard", "P763", "http://www.gov.pe.ca/hpo/app.php?nav=details&p=$1"},
{"Répertoire des architectes diocésains du XIXe siècle", "P2385", "http://elec.enc.sorbonne.fr/architectes/$1"},
{"Répertoire du patrimoine culturel du Québec", "P633", "http://www.patrimoine-culturel.gouv.qc.ca/rpcq/detail.do?methode=consulter&id=$1&type=bien"},
{{"Rijksmonument", "nl"}, "P359", "https://cultureelerfgoed.nl/monumenten/$1"},
{{"Sistema de Informação para o Património Arquitectónico", "pt"}, "P1700", "http://www.monumentos.gov.pt/Site/APP_PagesUser/SIPA.aspx?id=$1"},
{{"The Skyscraper Center", "en"}, "P1305", "http://www.skyscrapercenter.com/building/wd/$1"},
{{"The Skyscraper Center", "en"}, "P2762", "http://www.skyscrapercenter.com/complex/$1"},
{{"SNCZI-IPE", "es"}, "P4558", "https://sig.mapama.gob.es/93/ClienteWS/snczi/default.aspx?nombre=PRESA&claves=CODPRESA&valores=$1"},
{{"Structurae", "de"}, "P454", "http://fr.structurae.de/structures/data/index.cfm?ID=$1"},
{{"Theatrum", "de"}, "P5634", "http://theatrum.de/$1.html"},
}

Module:Iterateurs

2024-09-20T14:30:53Z

Jaggerwock : Page créée avec « -- --------------------------------------------------------------------------------- -- Iterating primitives --------------------------------------------------------------------------------- Base functions to work on stateful lua iterators. Function that creates iterators, like "pair" and "ipair", but stateful unlike them -- May be building a duplicate of https://www.wikidata.org/wiki/Module:Luafun -- local p = {} -------------------------------------... »

--[[
---------------------------------------------------------------------------------
-- Iterating primitives
---------------------------------------------------------------------------------

Base functions to work on stateful lua iterators.

Function that creates iterators, like "pair" and "ipair", but stateful unlike them

-- May be building a duplicate of https://www.wikidata.org/wiki/Module:Luafun

--]]

local p = {}
----------------------------------------

-- Copied From Luafun

local methods = {} -- collects the methods to append to an iterator object

local register_method = (function(module, methods)
return function(name, func)
module[name] = func
methods[name] = func
end
end)(p, methods)

-- the metatable for an iterator object
local iterator_mt = {
-- usually called by for-in loop
__call = function(self, param, state)
return self.gen(param, state)
end;
__tostring = function(self)
return '<generator>'
end;
-- add all exported methods
__index = methods;
}

-- used to change an iterator function to an iterator objects to allow to attach methods to an iterator
local wrap = function(gen, param, state)
return setmetatable({
gen = gen,
param = param,
state = state
}, iterator_mt), param, state
end
p.wrap = wrap

local method0 = function(fun)
return function(self)
return fun(self.gen, self.param, self.state)
end
end

local methodn = function(fun)
return function(self, ...)
return fun(self.gen, ...)
end
end

--------------------------------------------------------

-- iterator constructor. Transforms an iterator over a sequence of values in
-- an iterator on the result of the "value_constructor" function applied to the initial values
-- (a kind of an equivalent of the functional "map" function that works on iterator instead of list)

-- this iterator works on values and ignore the keys
local function map(it, transformation)
assert(it, "map : no iterator provided")
return wrap(
function()
local val = it()
if val then return transformation(val) end
end
)
end

register_method("map", map)

-- like "map" except it works on pairs of values (usually key/val pairs)

-- this iterator works on pairs
local function pair_map(it, transformation)
assert(it, "pair_map : no iterator provided")

return wrap(
function()
local i, val = it()
if i then return transformation(i, val) end
end
)
end

register_method("pair_map",pair_map)

-- iterates on the values of another iterators and yield only the values that pass the criteria
-- (a kind of an equivalent of the functional "filter" function that works on iterator instead of list)

-- this iterator works on values
local function filter(it, criteria)
assert(it, "filter : no iterator provided")
assert(type(criteria)=="function", "no criteria provided")

return wrap(
function()
local val = it()
while val and not(criteria(val)) do
val = it()
end
return val
end
)
end

register_method("filter", filter)

-- pair version of the previous function

--this iterators works on pairs
local function pair_filter(it, criteria)
assert(it, "pair_filter : no iterator provided")
return wrap(
function()
local i, val = it()
while val and not(criteria(i, val)) do
i, val = it()
end
return i, val
end
)
end

register_method("pair_filter", pair_filter)

--creates a value only iterator from a "pair" one, yielding only the "keys" (first item of the pair)

--this iterators works on pairs
local function select_keys(it)
assert(it, "select_keys : no iterator provided")
return wrap(
function()
local i, val = it()
return i
end
)
end

register_method("select_keys", select_keys)

--creates a value only iterator from a "pair" one, yielding only the "values" (second item of the pair)

--this iterators works on pairs
local function select_vals(it)
assert(it, "pair_vals : no iterator provided")
return wrap(
function()
local i, val = it()
return val
end
)
end

p.select_vals = select_vals

-- create a stateful iterators that iterates on the values of a table
-- (from the stateless standard "pairs" iterator on tables)
local function on_vals(tabl)
local _f, _s, _v = pairs(tabl)
return wrap(
function()
if _s then
local i, res = _f(_s, _v)
_v = i
if not res then _s = nil end
return res
end
end
)
end
p.on_vals = on_vals

-- create a stateful iterators that iterates over the keys of a table
-- (from the stateless standard "pairs" iterator on tables)
local function on_pairs(tabl)
local _f, _s, _v = pairs(tabl)

return --wrap(
function()
if _s then
local i, res = _f(_s, _v)
_v = i
if not res then _s = nil end
return i, res
end
end
--)
end
p.on_pairs = on_pairs

-- equivalent of the "join" operation, with join({{"a"},{},{"b","c"}}) = {"a","b","c"}
-- for iterators.
-- if the parameter "it" is an iterator that yields {"a"} ; then {} ; then {"b","c"}
-- and "creator" is a function that creates an iterator that yields "b" then "c" from the table {"b","c"}
-- the "flatten"-ing of this parameter will yield "a" then "b" then "c"

local function flatten(it, creator)
assert(it, "flatten : no iterator provided")
assert(creator, "flatten : no iterator creator provided")

local main_val = it()

if main_val then
local sub_it = creator(main_val)
return wrap(
function()
if main_val then
local val = nil
while not val and main_val do
if sub_it then
val = sub_it()
end
if not val then
main_val = it()
if not main_val then return end
sub_it = creator(main_val)
end
end
return val
end
end
)
else
return wrap(function () return nil end)
end
end

register_method("flatten", flatten)

-- equivalent of list concatenation for iterators

local chain = function (it1, it2)
return wrap(
function()
local res = it1() or it2()
return res
end
)
end

register_method("chain", chain)

-- creates an iterator on a single value

p.singleton = function (val)
local iterated
return wrap(function()
if not iterated then
iterated = true
return val
end
end)
end

local function fold(it, acc, init)
local accum = init
for res in it do
accum = acc(res, accum)
end
return accum
end

register_method("fold", fold)

local function totable(it)
return fold(
it,
function (val, tabl)
table.insert(tabl, val)
return tabl
end,
{}
)
end

register_method("totable", totable)

function p.range(start_i, end_i, step)
local i = nil
step = step or 1

assert(step ~= 0)

local direction = step/math.abs(step)

return wrap(function()
if not i then
i = start_i
else
i = i + step
end
if i * direction < end_i * direction then
return i
else
return
end
end)
end

--------------------------------------------------------------------------------
-- TESTING FUNCTIONS
--------------------------------------------------------------------------------

function p.execute(iterator)
for x in iterator do
mw.log(x)
end
end

function p.execute_pair(iterator)
for x, y in iterator do
mw.log(x, y)
end
end

return p

Module:Wikidata/Chemin/Resultat

2024-09-20T14:30:12Z

Jaggerwock : Page créée avec « local p = {} p.ResultNode = {} function p.ResultNode:new (o) local o = o or {} o.is_RNode = true setmetatable(o, self) self.__index = self return o end function p.ResultNode:has_an_entity() local value_snak = self:snak() return value_snak.snaktype == "value" and value_snak.datavalue.type == "wikibase-entityid" end function p.ResultNode:has_a_property() local value_snak = self:snak() return value_snak.snaktype == "value" and value... »

local p = {}

p.ResultNode = {}

function p.ResultNode:new (o)
local o = o or {}
o.is_RNode = true
setmetatable(o, self)
self.__index = self
return o
end

function p.ResultNode:has_an_entity()
local value_snak = self:snak()
return value_snak.snaktype == "value"
and value_snak.datavalue.type == "wikibase-entityid"
end

function p.ResultNode:has_a_property()
local value_snak = self:snak()
return value_snak.snaktype == "value" and value_snak.datatype == "wikibase-property"
and value_snak.datavalue.type == "wikibase-entityid"
end

function p.ResultNode:has_an_item()
local value_snak = self:snak()
return value_snak.snaktype == "value" and value_snak.datatype == "wikibase-item"
and value_snak.datavalue.type == "wikibase-entityid"
end

-- precondition : ResultNode:has_an_item()
function p.ResultNode:item_value()
local value_snak = self:snak()
if(not(value_snak["datavalue"] )) then return nil end
return "Q" .. tostring(value_snak.datavalue.value['numeric-id'])
end

-- precondition : ResultNode:has_an_entity()
function p.ResultNode:entity_value()
local value_snak = self:snak()
if(not(value_snak["datavalue"] )) then return nil end
return value_snak.datavalue.value['id']
end

-- subclassing
p.StatementRNode = p.ResultNode:new()
p.QualifierRNode = p.ResultNode:new()
p.EpsilonRNode = p.ResultNode:new()

function p.StatementRNode:create(statement, previous_node)
setmetatable(statement, self)
statement.parent = previous_node
self.__index = self
return statement
end

function p.QualifierRNode:create(snak, statement)
setmetatable(snak, self)
snak.parent = statement
self.__index = self
return snak
end

function p.EpsilonRNode:create(item, parent, o)
local o = o or {}
o.item = item
o.parent = parent
setmetatable(o, self)
self.__index = self
return o
end

function p.EpsilonRNode:has_an_item()
return true
end

function p.EpsilonRNode:item_value()
return self.item
end

function p.StatementRNode:snak()
return self.mainsnak
end

function p.QualifierRNode:snak()
return self
end

return p

Modèle:Infobox/Pictogramme/musee.css

2024-09-20T14:29:01Z

Jaggerwock : Page créée avec « .entete.musee { background-image: url("https://upload.wikimedia.org/wikipedia/commons/a/ac/Infobox_museum_pictogram.png"); } /* musee */ »

.entete.musee {
background-image: url("https://upload.wikimedia.org/wikipedia/commons/a/ac/Infobox_museum_pictogram.png");
}
/* [[Catégorie:Modèle infobox pictogramme|musee]] */

Module:FParser

2024-09-20T14:27:36Z

Jaggerwock : Page créée avec « local lexer = {} local parser = {} --[[ These parser functions are generic functions to build a parser. It works with "Lexing" and "Parsing" functions. The parser is initialized by the "parse" function, who generates a "state" object that must be a parameter of each parsing functions, and eventually returns the main node of the AST if everything goes well * Lexing functions have one parameter, the state of the parser, an... »

local lexer = {}
local parser = {}

--[[ These parser functions are generic functions to build a parser.
It works with "Lexing" and "Parsing" functions.
The parser is initialized by the "parse" function, who generates a "state" object that must be a parameter of each parsing functions,
and eventually returns the main node of the AST if everything goes well
* Lexing functions have one parameter, the state of the parser, and returns a modified state
if they could find the terminals they are supposed to recognize and or nothing if the parse fails.
* Parsing functions always have a state as unique parameter.
They can be divided into
* Generic one, written in this module that corresponds that helps to build a parser
but don't generate nodes of the AST themselves, like "alternative", "chain", "star" or "plus"
* "chain" corresponds to the concatenation operation in a grammar. for example a function that parses the EBNF rule
twelve = "1", "2" ;
will be generated by chain{lex_char("1"), lex_char("2")}
* "alternative" corresponds to the alternative operation in a grammar, for example a function that parses the EBNF rule
digit_excluding_zero = "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" ;
will be written alternative{lex_char("1"), lex_char("2"), lex_char("3"), lex_char("4"), lex_char("5"), lex_char("6"),
lex_char("7"), lex_char("8"), lex_char("9")}
* User written one, that are functions that must generate a node of the AST as a "node" attribute of the "state" object.
To do that they must use attributes of the state object filled by the generic one like
* "parsed", the string parsed by the last lexing function,
* "acc", the list of nodes that are generated by the function that are passed to function that iterates their call namely "star" and "plus"
They return nothing if the parse fails, or the state of the last state returned by a lexer function called if they don't.

Other functions are
* maybe : a function to avoid checking if the state is nil every time : if the state is in a fail state,
it does not apply the parsing or lexing function. Maybe allows to chain the application of lexing and parsing function easily.
attribute of the "newstate" object to be able to access the "acc" or "node" of the previous object in a chain, for example.
* idop : a function that takes a function as parameter that is used to compute an action on the current state in a chain of parsing function,
mainly modifying variables in the closure. Functions passed to idop returns nothing. Usable for example for logging.
* statemodop : a function that takes a function as parameter ; who computes a node in the AST from the state and the variables of the closure and typically adding
it to the state.
Those functions have the same signatures than parsing functions, but typically they do not parse anything.
--]]

--------------------------------------------------------------------------------
-- lexer
--------------------------------------------------------------------------------

local function lex_regex(state, regex)

local res = string.match(state.newstate.str, "^" .. regex)
if res then
local newstate = {}
local len = string.len(res)
newstate.str = state.newstate.str:sub(len + 1)
newstate.pos = state.newstate.pos + len
return {
['lexed'] = res,
["newstate"] = newstate,
["node"] = state.node -- forwarding node in case it's not consumed
-- case of lexing a closing parenthesis after the node creation.
-- this is to avoid to have to create a closure variable
}
else
return nil
end
end

lexer.lex_regex = lex_regex

local function lex_epsilon(state)
return lex_regex(state, "")
end

--[[
Tests: p.parse("a", p.chain{p.lexer.lex_epsilon, p.lex_char("a"),p.lexer.lex_epsilon})
--]]

lexer.lex_epsilon = lex_epsilon

local lex_char = function(char)
return function(state)
return lex_regex(state, char)
end
end

-- tested with "p.parse("/", p.lex_char('/'))"
lexer.lex_char = lex_char

function lexer.open_parenthesis(state)
return lex_regex(state, "[(]")
end

function lexer.close_parenthesis(state)
return lex_regex(state, "[)]")
end

function lexer.lex_integer(state)
return lex_regex(state, "[0-9]+")
end

function lexer.eat_blanks(state)
return lex_regex(state,' *')
end

parser.lexer = lexer

-------------------------------------------------------
-- generic parser property
----------------------------------------------------------

local function maybe(func)
return function(state)
if state then
return func(state)
end
end
end

parser.maybe = maybe

local function accumulate(aggregate_func)
return function(state)
return {
["newstate"]=state.newstate,
["node"]= aggregate_func(state.acc)
}
end
end

parser.accumulate = accumulate

local function map_node(map_func)
return function(state)
if state then
return {
["newstate"] = state.newstate,
["node"] = map_func(state.node)
}
end
end
end

parser.map_node = map_node

local function idop(func)
return function(state)
if state then
func(state)
return state
end
end
end

parser.idop = idop

-- logs
local show = function (string) return idop(function(state) mw.log(string) end) end
parser.log = show
parser.show = show

local dump_state = idop(function(state) mw.logObject(state) end)
parser.dump_state = dump_state

-- this allows avoiding to pass the state beetween each functions if they were called by hand
local function chain(funcs)
return function(state)
local i = 1
local res = funcs[1](state)

while i < #funcs and res do
i = i+1
if funcs[i] == nil then
error("a nil func in chain")
end
res = funcs[i](res)
end
return res
end
end

--[[
Tests :
p.parse("aba", p.chain{p.lex_char('a'), p.lex_char('b'), p.lex_char('a')}) => yes
p.parse("aba", p.chain{p.lex_char('a'), p.lex_char('b')}) => nope
p.parse("aba", p.chain{p.lex_char('a'), p.lex_char('b'), p.lex_char('a'), p.lex_char('a')}) => nope
--]]

parser.chain = chain

-- higher order function that can parse an alternative between several non terminals.
-- returns the state of the first match
local function alternative(funcs)
return function(state)
local i = 1
while i <= #funcs do
local res = funcs[i](state)
if res then
return res
end
i=i+1
end
end
end

--[[
Tests :
p.parse("a", p.alternative{p.lex_char('a'), p.lex_char('b')}) => yes
p.parse("b", p.alternative{p.lex_char('a'), p.lex_char('b')}) => yes
p.parse("c", p.alternative{p.lex_char('a'), p.lex_char('b')}) => nope

--]]

parser.alternative = alternative

local function star(parsing_func)
local function star_rec(state, acc, i)

local res = chain{
parsing_func,
idop(
function (stat)
table.insert(acc, stat.node)
end
),
}(state)

if res then
return star_rec(res, acc, i + 1)
else
return state, acc
end
end

return function(state)
if state then
local acc = {}
local result, acc2 = star_rec(state, acc, 1)
result.acc = acc2
return result
end
end
end

--[[
Tests: p.parse("aaab", p.chain{p.star(p.lex_char("a")), p.lex_char("b")}) => yes
p.parse("b", p.chain{p.star(p.lex_char("a")), p.lex_char("b")}) => yes
--]]

parser.star = star

local function plus(parsing_func)
return function(state)
local firstnode
local acc

return chain{
parsing_func,
idop(
function(state)
firstnode = state.node
end
),
star(parsing_func),
function(state)
acc = state.acc
table.insert(acc, 1, firstnode)
state.acc = acc
return state
end
}(state)
end
end

--[[
res = p.parse("aaab",
p.chain{
p.plus(
p.chain{
p.lex_char("a"),
p.statemodop(function(res) res.node="a" ; return res; end)
}
),
p.lex_char("b")
}
)
--]]

parser.plus = plus

--[[
Tests :
p.parse("a", p.chain{p.lex_char('a'), p.idop(function (state) end )}) => yes
p.parse("ab", p.chain{p.lex_char('a'), p.idop(function (state) end), p.lex_char('b') }) => nope
p.parse("ab", p.chain{p.lex_char('a'), p.idop(function (state) end), p.lex_char('a') }) => nope
--]]

local function questionmark(parsing_func)
return function(state)
local node = nil
local res=alternative{
chain{
parsing_func,
idop(function (stat) node = stat.node end)
},
lex_epsilon
}(state)
res.node = node
return res
end
end

parser.questionmark = questionmark

--------------------------------------------------------------------------------
-- main function that launches the parsing
--------------------------------------------------------------------------------

parser.parse = function (string, base_parsing_function)
local state = {}

state.newstate = {}
state.newstate.str = string
state.newstate.pos = 1

local res_node = nil

local res = chain{
base_parsing_function,
idop(function(stat) res_node = stat.node end),
lexer.eat_blanks
}(state)

if res and res.newstate.str=="" then
return res_node
end
return nil
end

-- a function to create an AST node which represents an nary operator. Could parse an expression on the form « 1 + 2 + 3 + 4 » and return a « sum » AST node wich have a list of nodes for operands sum([number(1), number(2), number(3) number(4) ) in our example

local function nary_op_parser (
first_node_parser, -- a parser that parses only the first element of the operation (« 1 »)
next_nodes_parser, -- a parser that parses the infix operation and one node ( « + 2 » and the subsequent)
acc_result_node_creator,-- a function that takes the lists of the node generated by the previous parser and generates the final node
single_creator -- optional, a function corner case when the expression has no actual operator one element like « 1 » (one might just want to get a « number(1) » AST node instead of « sum([number(1)]) »
-- if that’s not the wanted behavior, provide a function to build a node specific for that case. Takes a node, the result of the first_node_parser .
)
return function(state)
local res
local firstNode

res = chain{
first_node_parser,
idop(
function(state)
firstNode = state.node
end
),
star(
next_nodes_parser
)
}(state)

if res then
if res.acc and #(res.acc) > 0 then
local acc = res.acc
table.insert(acc, 1, firstNode)
res.node = acc_result_node_creator(acc)
else
single_creator = single_creator or function(node) return node end
res.node = single_creator(firstNode)
end

res.acc = nil
return res
end
end
end

parser.nary_op_parser = nary_op_parser

return parser

Module:Langue/Data

2024-09-20T14:26:42Z

Jaggerwock : Page créée avec « local data = { -- -------------------------------------------------------------------- -- -- liste des caractéristiques des langues triées par leur code IETF -- -- -------------------------------------------------------------------- -- -- a aa = { "afar", page = "Afar (langue)" }, aaa = { "ghotuo" }, aat = { "arvanitique", "arvanatika" }, ab = { "abkhaze" }, abe = { "abénaqui" }, abq = { "abaza", page = "Abaza (langue)" }, abs = { "malais d'Amboine" },... »

local data = {
-- -------------------------------------------------------------------- --
-- liste des caractéristiques des langues triées par leur code IETF --
-- -------------------------------------------------------------------- --

-- a
aa = { "afar", page = "Afar (langue)" },
aaa = { "ghotuo" },
aat = { "arvanitique", "arvanatika" },
ab = { "abkhaze" },
abe = { "abénaqui" },
abq = { "abaza", page = "Abaza (langue)" },
abs = { "malais d'Amboine" },
acd = { "gikyode" },
ace = { "aceh", page = "Aceh (langue)" },
ach = { "acholi", page = "Acholi (langue)" },
acm = { "arabe mésopotamien" },
acx = { "arabe omanais" },
acy = { "arabe chypriote" },
acz = { "acheron", page = "Acheron (langue)" },
ade = { "adele", page = "Adele (langue)" },
ads = { "langue des signes d'Adamorobe", signe = true },
ady = { "adyguéen", page = "Adyguéen (langue)" },
["ady-Cyrl"] = { "adyguéen en écriture cyrillique", page = "Adyguéen (langue)" },
["ady-Latn"] = { "adyguéen en écriture latine", page = "Adyguéen (langue)" },
ae = { "avestique", rtl = true },
aeb = { "arabe tunisien", rtl = true },
["aeb-Arab"] = { "arabe tunisien en écriture arabe", page = "Arabe tunisien", rtl = true },
["aeb-Latn"] = { "arabe tunisien en écriture latine", page = "Arabe tunisien" },
aec = { "arabe saïdi", rtl = true },
aed = { "langue des signes argentine", signe = true },
aen = { "langue des signes arménienne", signe = true },
af = { "afrikaans" },
afe = { "putukwam" },
afg = { "langue des signes afghane", signe = true },
agr = { "aguaruna" },
ags = { "esimbi" },
aha = { "ahanta" },
ahs = { "ashe", page = "Ashe (langue)" },
aht = { "ahtna", page = "Ahtna (langue)" },
aia = { "arosi" },
aib = { "aïnou", page = "Aïnou (langue ouïghoure)" },
ail = { "aimele" },
ain = { "aïnou", page = "Aïnou (langue du Japon)" },
aio = { "aiton", page = "Aiton (langue)" },
aiw = { "aari", page = "Aari (langue)" },
ak = { "akan", page = "Akan (langue)" },
akk = { "akkadien", "assyrien" }, -- note : ce code est aussi utilisé pour l'assyrien, qui représente l'un des rameaux linguistiques de l'akkadien
akp = { "siwu" },
akr = { "araki", page = "Araki (langue)" },
aks = { "akaselem" },
ale = { "aléoute" },
alf = { "alege" },
alg = { "langues algonquiennes" },
all = { "allar" },
aln = { "guègue" },
alq = { "algonquin" },
als = { "tosque" }, -- note : le code de l'alémanique est gsw (mais als.wikipedia est en alémanique)
alt = { "altaï", page = "Altaï (langue)" },
am = { "amharique" },
ams = { "amami du Sud" },
amu = { "amuzgo de Guerrero" },
an = { "aragonais" },
anc = { "angas", page = "Angas (langue)" },
ang = { "anglo-saxon", page = "Vieil anglais" },
ani = { "andi" },
ank = { "goemai", page = "Goemai (langue)" },
anm = { "anal", page = "Anal (langue)" },
ann = { "obolo" },
anp = { "angika" },
anw = { "anang", page = "Anang (langue)" },
any = { "agni", page = "Agni (langue)" },
aoc = { "pemon" },
apc = { "arabe levantin septentrional" },
apt = { "apatani", page = "Apatani (langue)" },
apw = { "apache occidental" },
ar = { "arabe", rtl = true },
arb = { "arabe standard moderne", rtl = true },
arc = { "araméen", rtl = true },
arh = { "arhuaco", "ika" },
arn = { "mapudungun", "mapuche" },
arp = { "arapaho", page = "Arapaho (langue)"},
arq = { "arabe algérien", rtl = true },
ary = { "arabe marocain", rtl = true },
arz = { "arabe égyptien", rtl = true },
as = { "assamais" },
asa = { "asu", "chasu", page = "Asu (langue)" },
asb = { "assiniboine", page = "Assiniboine (langue)" },
ase = { "langue des signes américaine", signe = true },
asf = { "langue des signes australienne", signe = true },
asp = { "langue des signes algérienne", signe = true },
asq = { "langue des signes autrichienne", signe = true },
ast = { "asturien" },
asw = { "langues des signes aborigènes australiennes", signe = true },
atj = { "atikamekw", page = "Atikamekw (langue)" },
ats = { "atsina", page = "Atsina (langue)" },
auq = { "anus", "korur", page = "Anus (langue)" },
aus = { "langues aborigènes d'Australie" },
aut = { "austral", page = "Langues australes" },
av = { "avar" },
avk = { "kotava" },
awa = { "awadhi" },
awc = { "cicipu" },
ay = { "aymara" },
ayl = { "arabe libyen", rtl = true },
az = { "azéri" },
["az-Cyrl"] = { "azéri en écriture cyrillique", page = "Azéri" },
azb = { "azéri du Sud", page = "Azéri" },
azj = { "azéri du Nord", page = "Azéri" },
-- b
ba = { "bachkir" },
bal = { "baloutchi" , "baloutche" },
ban = { "balinais", page = "Balinais (langue)" },
["ban-bali"] = { "balinais en écriture balinaise", page = "Écriture balinaise" },
["bat-smg"] = { "samogitien", invalide = "sgs" }, -- Wikipédia en samogitien.
bar = { "bavarois" },
bas = { "bassa", page = "Bassa (langue bantoue)" },
bav = { "babungo", page = "Babungo (langue)" },
bax = { "bamoun", page = "Bamoun (langue)" },
bba = { "bariba", page = "Bariba (langue)" },
bbc = { "batak toba" },
["bbc-Latn"] = { "batak toba en écriture latine", page = "Batak toba" },
bbj = { "ghomalaʼ" },
bbk = { "kejom", "babanki" },
bbo = { "bobo", page = "Bobo (langue)" },
bdm = { "buduma", page = "Buduma (langue)" },
bdr = { "bajau de la côte occidentale" },
bdu = { "oroko", page = "Oroko (langue)" },
bcc = { "baloutchi méridional", page = "Baloutchi" },
bci = { "baoulé", page = "Baoulé (langue)" },
bcl = { "bicolano central" },
bcq = { "gimira" },
bcr = { "babine", page = "Babine (langue)" },
bcs = { "humono" },
bde = { "bade", page = "Bade (langue)" },
be = { "biélorusse" },
["be-tarask"] = { "biélorusse (tarashkevitsa)", "biélorusse tarashkevitsa", "taraskievica", "tarashkevitsa", "taraškievica", "be-x-old", page = "Orthographe classique biélorusse" },
bec = { "iceve-maci", "iceve" },
beh = { "byali" },
bej = { "bedja", page = "Bedja (langue)" },
beo = { "beami" },
bem = { "bemba", page = "Bemba (langue)" },
beq = { "beembe", page = "Beembe (langue)" },
ber = { "berbère", "tamazight", page = "Langues berbères" },
bew = { "betawi", page = "Betawi (langue)" },
bfd = { "bafut", "bafout", page = "Bafut (langue)" },
bfi = { "langue des signes britannique", signe = true },
bfj = { "bafanji", page = "Bafanji (langue)" },
bfk = { "langue des signes de Ban Khor", signe = true },
bg = { "bulgare" },
bgc = { "haryanvi" },
bgn = { "baloutchi occidental", page = "Baloutchi" },
bh = { "langues biharies", "bihari" },
bhj = { "bahing" },
bho = { "bhodjpouri" },
bi = { "bichelamar" },
bib = { "bissa", page = "Bissa (langue)" },
bid = { "bidiyo" },
bim = { "bimoba", page = "Moba (langue)" },
bin = { "édo", page = "Édo (langue)" },
biv = { "birifor du Sud" },
bjn = { "banjar", page = "Banjar (langue)" },
bjw = { "bakwé", page = "Bakwé (langue)" },
bkt = { "boloki" },
bky = { "bekwarra", page = "Bekwarra (langue)" },
blc = { "nuxalk", page = "Nuxalk (langue)" },
blk = { "pa'o", "karen pa'o", page = "Pa'o (langue)" },
blo = { "anii", page = "Anii (langue)" },
bm = { "bambara" },
bmb = { "bembe", page = "Bembe (langue)" },
bmi = { "barma", page = "Barma (langue)" },
bn = { "bengali" },
bnc = { "bontok" },
bni = { "bobangi", page = "Bobangi (langue)" },
bnm = { "batanga", page = "Batanga (langue)" },
bnn = { "bunun", page = "Bunun (langue)" },
bo = { "tibétain" },
["bo-Latn"] = { "tibétain en écriture latine", page = "Tibétain" },
bog = { "langue des signes malienne", signe = true },
boh = { "boma", page = "Boma (langue)" },
bol = { "bole", page = "Bole (langue)" },
boo = { "bozo de Tiemacèwè", page = "Bozo (langue)" },
bov = { "tuwuli" },
bot = { "bongo", page = "Bongo (langue)" },
bou = { "bondei", page = "Bondei (langue)" },
boz = { "bozo de Tiéyaxo", "bozo-tigemaxo", page = "Bozo (langue)" },
bpy = { "bishnupriya manipuri" },
bqc = { "boko", page = "Boko (langue mandée)" },
bqi = { "bakhtiari" },
bqn = { "langue des signes bulgare", signe = true },
bqp = { "busa", page = "Busa (langue)" },
bqv = { "koro wachi", "begbere-ejar" },
bqy = { "langue des signes de Bengkala", signe = true },
br = { "breton" },
bra = { "braj bhasha" },
brf = { "bera", page = "Bera (langue)" },
brh = { "brahoui" },
brx = { "bodo" },
bs = { "bosnien", "bosniaque" },
bsk = { "bourouchaski" },
btm = { "batak mandailing", "mandailing" },
bto = { "bicol de Rinconada", page = "Langues bicol" },
bua = { "bouriate" },
["bua-Cyrl"] = { "bouriate en écriture cyrillique" },
bud = { "ntcham" },
buf = { "bushong", page = "Bushong (langue)" },
bug = { "bugi", page = "Bugi (langue)" },
buu = { "budu", page = "Budu (langue)" },
buw = { "pove", page = "Pove (langue)" },
bvl = { "langue des signes bolivienne", signe = true },
bwq = { "bobo", page = "Bobo (langue)" },
bxm = { "bouriate de Mongolie", page = "Bouriate" },
bxr = { "bouriate de Russie", page = "Bouriate" },
bxu = { "bouriate de Chine", page = "Bouriate" },
byi = { "buyu", page = "Buyu (langue)" },
byn = { "bilen" },
byp = { "bumaji" },
byv = { "medumba" },
bzd = { "bribri" },
bze = { "bozo de Jenaama", page = "Bozo (langue)" },
bzs = { "langue des signes brésilienne", signe = true },
-- c
ca = { "catalan" },
caa = { "ch'orti'" },
cab = { "garifuna", page = "Garifuna (langue)" },
cad = { "caddo", page = "Caddo (langue)" },
cag = { "nivaklé" },
cak = { "cakchiquel", page = "Cakchiquel (langue)" },
cal = { "carolinien" },
car = { "kali'na", page = "Kali'na (langue)" },
cax = { "chiquitano" },
cay = { "cayuga", page = "Cayuga (langue)" },
ctl = { "chinantèque de Tlacoatzintepec" },
cto = { "emberá catío" },
cvn = { "chinantèque de Valle Nacional" },
cbg = { "chimila" },
cbk = { "chavacano" },
["cbk-zam"] = { "chavacano de Zamboanga", page = "Chavacano", invalide = "cbk" }, -- cbk-zam.Wikipédia cbk=cebuano, zam=miahuatlán zapotec
cco = { "chinantèque de Comaltepec" },
cdo = { "mindong" },
cds = { "langue des signes tchadienne", signe = true },
ce = { "tchétchène" },
cea = { "chehalis inférieur" },
ceb = { "cebuano" },
cel = { "celte", page = "Langues celtiques" },
cfm = { "falam", page = "Falam (langue)" },
ch = { "chamorro" },
chd = { "chontal des hauts-plateaux" },
chg = { "tchaghataï", page = "Tchaghataï (langue)"},
chj = { "chinantèque d'Ojitlán" },
chk = { "chuuk", page = "Chuuk (langue)" },
chn = { "jargon chinook" },
cho = { "chacta", page = "Chacta (langue)" },
chp = { "chipewyan", page = "Chipewyan (langue)" },
chm = { "mari", page = "Mari (langue)" },
chr = { "cherokee", page = "Cherokee (langue)" },
chy = { "cheyenne", page = "Cheyenne (langue)" },
chz = { "chinantèque d'Ozumacín" },
chw = { "chuwabu" },
cia = { "cia-cia" },
cib = { "ci-gbe" },
cim = { "cimbre" },
cjh = { "chehalis supérieur" },
cjk = { "tchokwé", page = "Tchokwé (langue)" },
cjp = { "cabécar" },
cjs = { "chor" },
ckb = { "sorani", rtl = true },
ckt = { "tchouktche" },
clc = { "chilcotin", page = "Chilcotin (langue)" },
clm = { "klallam" },
cmi = { "emberá chamí" },
cmn = { "mandarin", page = "Mandarin (langue)" },
cmo = { "mnong central" },
cnr = { "monténégrin" },
["cnr-Cyrl"] = { "monténégrin en écriture cyrillique" },
["cnr-Latn"] = { "monténégrin en écriture latine" },
cnu = { "chenoui" },
cnx = { "cornique" },
co = { "corse", page = "Corse (langue)" },
coe = { "koreguaje" },
coh = { "chonyi" },
cok = { "cora de Santa Teresa", page = "Cora (langue)" },
col = { "columbia-wenatchi" },
com = { "comanche", page = "Comanche (langue)" },
con = { "cofán" },
coo = { "comox", page = "Comox (langue)" },
cop = { "copte" },
cow = { "cowlitz", page = "Cowlitz (langue)" },
["cpe-011"] = { "pidgin ouest-africain" },
cpf = { "créoles à base lexicale française" },
cps = { "capiznon" },
cpx = { "puxian" },
["cpx-Hans"] = { "puxian en caractères chinois simplifiés", page = "Puxian" },
["cpx-Hant"] = { "puxian en caractères chinois traditionnels", page = "Puxian" },
["cpx-Latn"] = { "puxian en écriture latine", page = "Puxian" },
cr = { "cri", page = "Cri (langue)" },
crg = { "métchif" },
crh = { "tatar de Crimée" },
["crh-Cyrl"] = { "tatar de Crimée en écriture cyrillique", page = "Tatar de Crimée" },
["crh-Latn"] = { "tatar de Crimée en écriture latine", page = "Tatar de Crimée" },
["crh-RO"] = { "tatar de Crimée de Roumanie", page = "Tatar de Crimée" },
crn = { "cora d'El Nayar", page = "Cora (langue)" },
crx = { "dakelh", page = "Dakelh (langue)" },
crs = { "créole seychellois" },
cs = { "tchèque", "czech" },
csb = { "cachoube" },
csc = { "langue des signes catalane", signe = true },
csd = { "langue des signes de Chiangmai", "langue des signes de chiangmai", signe = true },
cse = { "langue des signes tchèque", signe = true },
csf = { "langue des signes cubaine", signe = true },
csg = { "langue des signes chilienne", signe = true },
csk = { "diola-kasa" },
csl = { "langue des signes chinoise", signe = true },
csn = { "langue des signes colombienne", signe = true },
csq = { "langue des signes croate", signe = true },
csr = { "langue des signes costaricienne", signe = true },
css = { "costanoan du Sud ", page = "Langues costanoanes" },
cte = { "chinantèque de Tepinapa" },
ctg = { "chittagonien" },
ctu = { "ch'ol" },
cu = { "slavon d'église" },
cuc = { "chinantèque d'Usila" },
cui = { "cuiba" },
cv = { "tchouvache", "chv" },
cy = { "gallois" },
cz = { "tchèque", invalide = "cs" },
-- d
da = { "danois", "danish" },
dag = { "dagbani" },
dak = { "dakota", page = "Dakota (langue)" },
dar = { "dargwa" },
dbp = { "ɗuwai", "duwai" },
ddo = { "tsez" },
de = { "allemand", "german" },
["de-AT"] = { "allemand autrichien", "österreichisches deutsch" },
["de-CH"] = { "allemand standard suisse", "schweizer hochdeutsch" },
["de-formal"] = { "allemand formel", page = "Allemand", invalide = "de" },
deg = { "degema", page = "Degema (langue)" },
dga = { "dagaare", page = "Dagaare (langue)" },
dgl = { "andaandi" },
dgr = { "tlicho", page = "Tlicho (langue)" },
dig = { "digo", page = "Digo (langue)" },
din = { "dinka", page = "Dinka (langue)" },
diq = { "zazaki" },
diz = { "dzing", page = "Dzing (langue)" },
djk = { "nenge tongo", page = "Langue des Aluku, des Ndjuka et des Paramaka" },
["djk-aluku"] = { "aluku", page = "Aluku (langue)" },
dlg = { "dolgane" },
dlm = { "dalmate"},
dng = { "doungane", page = "Doungane (langue)" },
dnj = { "dan", page = "Dan (langue)" },
dno = { "ndrulo" },
don = { "toura", page = "Toura (langue océanienne)" },
dop = { "lokpa", page = "Lokpa (langue)" },
doq = { "langue des signes dominicaine", signe = true },
dos = { "dogosé" },
dow = { "dowayo", page = "Dowayo (langue)" },
drs = { "gedeo", page = "Gedeo (langue)" },
dsb = { "bas sorabe", "bas-sorabe" },
dse = { "langue des signes néerlandaise", signe = true },
dsh = { "daasanach" },
dsl = { "langue des signes danoise", signe = true },
dta = { "daur", page = "Daur (langue)" },
dtd = { "ditinaht" },
dtp = { "dusun" },
dty = { "dotyali" },
dua = { "duala", page = "Duala (langue)" },
duf = { "drubea" },
dum = { "moyen néerlandais" },
dv = { "maldivien", "div", rtl = true },
dya = { "dyan", page = "Dyan (langue)" },
dyi = { "djimini", page = "Djimini (langue)" },
dyo = { "diola-fogny" },
dyu = { "dioula", page = "Dioula (langue)" },
dz = { "dzongkha" },
-- e
ebo = { "téké du centre" },
ebr = { "tchaman" },
ecs = { "langue des signes équatorienne", signe = true },
ee = { "éwé", "ewe", page = "Éwé (langue)" },
efi = { "efik", "Efik (langue)" },
egl = { "émilien", page = "Émilien (langue)" },
egy = { "égyptien ancien" },
ekk = { "estonien standard", page = "Estonien" },
ekp = { "ekpeye" },
eky = { "kayah de l'Est", page = "Kayah (langue)" },
el = { "grec moderne" },
eme = { "émérillon" },
eml = { "émilien-romagnol" }, -- eml.Wikipédia
emp = { "emberá darién" },
emx = { "erromintxela" },
en = { "anglais", "english" },
["en-CA"] = { "anglais canadien" },
["en-GB"] = { "anglais britannique" },
["en-US"] = { "anglais américain" },
enb = { "markweta" },
enf = { "énètse des forêts"},
enh = { "énètse de la toundra"},
enm = { "moyen anglais" },
enn = { "egene" },
eo = { "espéranto" },
es = { "espagnol", "spanish" },
["es-419"] = { "espagnol d'Amérique latine", page = "Espagnol" },
["es-formal"] = { "espagnol formel", page = "Espagnol", invalide = "es" },
["es-MX"] = { "espagnol du Mexique", page = "Espagnol" },
esl = { "langue des signes égyptienne", signe = true },
esn = { "langue des signes salvadorienne", signe = true },
eso = { "langue des signes estonienne", signe = true },
et = { "estonien" },
etc = { "malécite-passamaquoddy" },
eth = { "langue des signes éthiopienne", signe = true },
eto = { "eton", page = "Eton (langue bantoue)" },
ets = { "etsako" },
ett = { "étrusque" },
etu = { "ejagham", page = "Ejagham (langue)" },
eu = { "basque" },
eve = { "évène" },
evn = { "evenki" },
ext = { "estrémègne" },
-- f
fa = { "persan", "farsi", rtl = true },
fan = { "fang", page = "Fang (langue)" },
fat = { "fanti", page = "Fanti (langue)" },
fcs = { "langue des signes québécoise", signe = true },
ff = { "peul" },
ffm = { "peul de Maasina" },
fi = { "finnois", "finnish", "finlandais" },
fia = { "nobiin" },
fil = { "philippin", "filipino" },
fit = { "meänkieli" },
fj = { "fidjien" },
fkv = { "kvène" },
fla = { "kalispel" },
fli = { "fali de Mubi", page = "Langues fali" },
flr = { "fuliru" },
fo = { "féroïen" },
fon = { "fon", page = "Fon (langue)" },
fr = { "français", "française", "french", "francais" },
["fr-gallo"] = { "gallo" },
["fra-gal"] = { "gallo", invalide = "fr-gallo" },
["fr-BE"] = { "français de Belgique" },
["fr-CA"] = { "français canadien" },
["fr-CH"] = { "français de Suisse" },
["fr-FR"] = { "français de France" },
["fr1835"] = { "françois (1600-1835)", "françois", page = "Réforme de l'orthographe française de 1835", invalide = "fr" }, -- code non standard
frc = { "français louisianais" },
frk = { "vieux-francique" },
frm = { "moyen français (1400-1600)", page = "Moyen français" },
fro = { "ancien français (842-1400)", page = "Ancien français" },
frp = { "francoprovençal", "arpitan", "franco-provençal" },
frr = { "frison septentrional" },
frs = { "bas saxon de Frise orientale" },
fse = { "langue des signes finnoise", signe = true },
fsl = { "langue des signes française", signe = true, invalide = "lsf" },
fss = { "langue des signes finno-suédoise", signe = true },
fub = { "peul de l'Adamaoua" },
fuc = { "pulaar" },
fud = { "futunien" },
fue = { "peul de Borgou" },
fuf = { "pular" },
fuh = { "peul du Niger occidental" },
fui = { "peul de Bagirmi" },
fuq = { "peul du Niger centre-oriental" },
fur = { "frioulan" },
fuv = { "peul nigérian" },
fvr = { "four", page = "Four (langue)" },
fy = { "frison occidental", "frison" },
-- g
ga = { "irlandais", "gaélique irlandais" },
gaa = { "ga", "gã", page = "Ga (langue)" },
gag = { "gagaouze" },
gal = { "galoli" },
gan = { "gan", "kan", page = "Gan (langue)" },
["gan-Hans"] = { "gan en caractères chinois simplifiés", page = "Gan (langue)" },
["gan-Hant"] = { "gan en caractères chinois traditionnels", page = "Gan (langue)" },
gaw = { "nobonob" },
gay = { "gayo", page = "Gayo (langue)" },
gbp = { "gbeya" },
gbq = { "bozom" },
gbw = { "gubbi gubbi" },
gcf = { "créole guadeloupéen" },
gcr = { "créole guyanais" },
gd = { "gaélique écossais", "écossais" },
gde = { "gude", page = "Gude (langue)" },
gds = { "langue des signes de Ghandruk", signe = true },
gej = { "gen" },
gem = { "langues germaniques" },
gev = { "geviya", page = "Geviya (langue)" },
gez = { "guèze" },
gid = { "guidar", page = "Guidar (langue)" },
gil = { "gilbertin" },
git = { "gitksan" },
gju = { "gojri", page="Gojri" },
gl = { "galicien" },
gld = { "nanaï" },
glk = { "guilaki", rtl = true },
gmh = { "moyen haut allemand" },
["gmh-hes"] = { "hessois", invalide = "de" }, -- code linguistlist, gmh=middle high german (ca. 1050-1500), hes=invalide
gmy = { "mycénien" },
gn = { "guarani", page = "Guarani (langue)" },
gog = { "gogo", page = "Gogo (langue)" },
goh = { "vieux haut allemand" },
gom = { "konkani" },
["gom-Deva"] = { "konkani en écriture devanagari", page = "Konkani" },
["gom-Latn"] = { "konkani en écriture latine", page = "Konkani" },
gor = { "gorontalo", page = "Gorontalo (langue)" },
gos = { "groningois" },
got = { "gotique" },
gpe = { "pidgin ghanéen" },
gr = { "grec", invalide = "el" },
grb = { "grebo", page = "Grebo (langue)" },
grc = { "grec ancien" },
grk = { "grec" },
gse = { "langue des signes ghanéenne", signe = true },
gsg = { "langue des signes allemande", signe = true },
gsm = { "langue des signes guatémaltèque", signe = true },
gss = { "langue des signes grecque", signe = true },
gsw = { "alémanique" },
["gsw-CH"] = { "suisse allemand" },
["gsw-FR"] = { "alsacien" },
gu = { "gujarati" },
guc = { "wayuu", page = "Wayuu (langue)" },
guh = { "sikuani" },
guk = { "gumuz", page = "Gumuz (langue)" },
guo = { "guayabero" },
gus = { "langue des signes guinéenne", signe = true },
gux = { "gourmantché", page = "Gourmantché (langue)" },
guu = { "yanomamö" },
guw = { "gun-gbe" },
guz = { "gusii", page = "Gusii (langue)" },
gv = { "mannois", "manx" },
gvl = { "gulay" },
gwe = { "gweno" },
gwi = { "gwichʼin", page = "Gwich'in (langue)" },
gwt = { "gawar-bati" },
gya = { "gbaya du Nord-Ouest" },
-- h
ha = { "haoussa" },
hab = { "langue des signes de Hanoï", "langue des signes de hanoi", signe = true },
haf = { "langue des signes de Haïphong", "langue des signes de haiphong", signe = true },
hai = { "haïda", page = "Haïda (langue)" },
hak = { "hakka", page = "Hakka (langue)" },
han = { "hangaza" },
har = { "harari", page = "Harari (langue)" },
has = { "haisla" },
haw = { "hawaïen", "hawaien" },
hay = { "haya", page = "Haya (langue)" },
haz = { "hazara" },
hbo = { "hébreu biblique" },
hds = { "langue des signes hondurienne", signe = true },
he = { "hébreu", "iw", rtl = true },
hei = { "heiltsuk-oowekyala" },
hem = { "hemba", "kihemba", page = "Hemba (langue)" },
hess = { "hessois", invalide = "de" }, -- code non IETF ni ISO 639, code linguistlist gmh-hes
hi = { "hindi" },
hif = { "hindi des Fidji" },
["hif-Latn"] = { "hindi des Fidji en écriture latine", page = "Hindi des Fidji" },
hil = { "hiligaïnon" },
hit = { "hittite", page = "Hittite (langue)" },
hiw = { "hiw", page = "Hiw (langue)" },
hka = { "kahe", page = "Kahe (langue)" },
hks = { "langue des signes de Hong Kong", signe = true },
hmd = { "a hmao" },
hmk = { "ye-maek", page = "Ye-maek (langue)" },
hnd = { "hindko du Sud", page = "hindko" },
hno = { "hindko du Nord", page = "hindko" },
ho = { "hiri motu" },
hoc = { "ho", page = "Ho (langue)" },
hoo = { "holoholo", page = "Holoholo (langue)" },
hop = { "hopi", page = "Hopi (langue)" },
hos = { "langue des signes de Ho Chi Min Ville", signe = true },
hps = { "langue des signes hawaïenne", signe = true },
hr = { "croate", "croatian" },
hrx = { "hunsrik" },
hsb = { "haut sorabe" },
hsh = { "langue des signes hongroise", signe = true },
hsl = { "langue des signes haoussa", signe = true },
hsn = { "xiang", page = "Xiang (langue)" },
ht = { "créole haïtien" },
hu = { "hongrois", "hungarian" },
["hu-formal"] = { "hongrois formel", page = "Hongrois" },
hur = { "halkomelem" },
hus = { "huastèque", page = "Huastèque (langue)" },
hwc = { "créole hawaïen" },
hy = { "arménien" },
hyx = { "arménien" , invalide = "hy" },
hyw = { "arménien occidental" },
hz = { "héréro", page = "Héréro (langue)" },
-- i
ia = { "interlingua", page = "Interlingua (IALA)" },
ibb = { "ibibio", page = "Ibibio (langue)" },
iby = { "ibani", page = "Kalabari (langue)" },
ica = { "ede ica", "itcha" },
icl = { "langue des signes islandaise", signe = true },
id = { "indonésien" },
ie = { "interlingue", "occidental (interlingue)", "occidental" , page = "Interlingue" },
ife = { "ifè", page = "Ifè (langue)" },
ig = { "igbo" },
igl = { "igala", page = "Igala (langue)" },
ii = { "yi de Shichuan", page = "Yi (langue)" },
ijc = { "izon", page = "Izon (langue)" },
ijn = { "kalabari", page = "Kalabari (langue)" },
ijo = { "langues ijo", "langues ijaw", "ijaw" },
ik = { "inupiaq", "inupiak" },
ike = { "inuktitut" },
["ike-Cans"] = { "inuktitut en syllabaire inuktitut", page = "Inuktitut" },
["ike-Latn"] = { "inuktitut en écriture latine", page = "Inuktitut" },
iks = { "langue des signes inuit", signe = true },
ikw = { "ikwere" },
ikx = { "ik", "icetod", page = "Ik (langue)" },
ikz = { "ikizu", page = "Ikizu (langue)" },
ili = { "ili turki" },
ilo = { "ilocano" },
ine = { "indo-européen", page = "Langues indo-européennes" },
inh = { "ingouche" },
inl = { "langue des signes indonésienne", signe = true },
ins = { "langue des signes indienne", signe = true },
io = { "ido" },
["in"] = { "indonésien", invalide = "id" }, -- in est un mot clé lua : ne pas retirer les crochets - guillemets
ira = { "iranien", page = "Langues iraniennes" },
iro = { "iroquois", page = "Langues iroquoiennes" },
is = { "islandais" },
ise = { "langue des signes italienne", signe = true },
isg = { "langue des signes irlandaise", signe = true },
isr = { "langue des signes israélienne", signe = true },
it = { "italien", "italian" },
iu = { "inuktitut" },
-- j
ja = { "japonais", "japanese" },
["ja-Latn"] = { "japonais romanisé", page = "Japonais" }, -- avec n’importe quelle méthode de romanisation
["ja-Latn-alalc97"] = { "japonais romanisé avec la méthode Hepburn modifiée", page = "Méthode Hepburn" },
["ja-Latn-hepburn"] = { "japonais romanisé avec la méthode Hepburn traditionnelle", page = "Méthode Hepburn" },
jam = { "créole jamaïcain" },
jbo = { "lojban" },
jcs = { "langue des signes jamaïcaine rurale", signe = true },
jeu = { "jonkor"},
jge = { "judéo-géorgien" },
jhs = { "langue des signes de Jhankot", signe = true },
jic = { "jicaque de la Flor" },
jit = { "jita", page = "Jita (langue)" },
jje = { "jeju", page = "Jeju (langue)" },
jls = { "langue des signes jamaïcaine", "langue des signes jamaicaine", signe = true },
jmc = { "mashami" },
jos = { "langue des signes jordanienne", signe = true },
jp = { "japonais", invalide = "ja" },
jqr = { "jaqaru" },
jsl = { "langue des signes japonaise", signe = true },
juc = { "jurchen", page = "Jurchen (langue)" },
jud = { "worodugukakan" },
jum = { "jumjum" },
jup = { "hupda" },
jus = { "langue des signes de Jumla", signe = true },
jut = { "jute", page = "Jute (langue)" },
jv = { "javanais" },
jw = { "javanais", invalide = "jv" },
-- k
ka = { "géorgien" },
kaa = { "karakalpak" },
kab = { "kabyle" },
kai = { "karekare" },
kam = { "kamba", page = "Kamba (langue du Kenya)" },
kao = { "khassonké" },
kap = { "bejta", page = "Bejta (langue)" },
kaw = { "kawi" },
kbc = { "kadiwéu" },
kbd = { "kabarde" },
["kbd-Cyrl"] = { "kabarde en écriture cyrillique", page = "Kabarde" },
kbh = { "camsá" },
kbl = { "kanembou", page = "Kanembou (langue)" },
kbp = { "kabiyè", page = "Kabiyè (langue)" },
kbt = { "abadi", page = "Abadi (langue)" },
kca = { "khanty" },
kcy = { "korandjé", "kwarandzyey" },
kde = { "makondé", page = "Makondé (langue)" },
kdk = { "nââ numèè" },
kdh = { "tem", page = "Tem (langue)" },
kdx = { "kam", page = "Kam (langue nigéro-congolaise)" },
ke = { "koinè", page = "Koinè (grec)", invalide = "grc" },
kea = { "créole du Cap-Vert" },
keu = { "akébou", page = "Akébou (langue)" },
kg = { "kikongo" },
kgf = { "kube", page = "Tobo-kube" },
kgi = { "langue des signes de Selangor", signe = true },
khb = { "taï lü" },
khi = { "langues khoïsan" },
khk = { "khalkha" },
["khk-Cyrl"] = { "khalka en écriture cyrillique", page = "khalkha" },
kht = { "khamti" },
khw = { "khowar", rtl = true },
ki = { "kikuyu", page = "Kikuyu (langue)" },
kia = { "kim", page = "Kim (langue)" },
kib = { "koalib" },
kic = { "kickapou" },
kiu = { "kirmanjki", page = "Zazaki" },
kj = { "kuanyama" },
kjb = { "q'anjob'al" },
kjh = { "khakasse" },
kjj = { "khinalug", page = "Khinalug (langue)" },
kjp = { "pwo de l'Est" },
kjt = { "pwo de Phrae" },
kk = { "kazakh" },
["kk-Arab"] = { "kazakh en écriture arabe", page = "Kazakh" },
["kk-CN"] = { "kazakh de Chine", page = "Kazakh" },
["kk-Cyrl"] = { "kazakh en écriture cyrillique", page = "Kazakh" },
["kk-KZ"] = { "kazakh du Kazakhstan", page = "Kazakh" },
["kk-Latn"] = { "kazakh en écriture latine", page = "Kazakh" },
["kk-TR"] = { "kazakh de Turquie", page = "Kazakh" },
kkj = { "kako", page = "Kako (langue)" },
kkz = { "kaska" },
kl = { "groenlandais" },
klr = { "khaling" },
km = { "khmer" },
kma = { "konni", "koma", page = "Konni (langue)" },
kmb = { "kimbundu", "kimboundou" },
kmg = { "kâte" },
kmq = { "kwama", page = "Kwama (langue)" },
kmr = { "kurmandji" },
kmw = { "komo", page = "Komo (langue bantoue)" },
kn = { "kannada" },
knb = { "lilubuagen", "lubuagan", "kalinga de Lubuagan" },
knf = { "mancagne", page = "Mancagne (langue)" },
kno = { "kono", page = "Kono (langue de Sierra Leone)" },
kny = { "kanyok", page = "Kanyok (langue)" },
ko = { "coréen", "korean" },
["ko-KP"] = { "coréen de Corée du Nord", page = "Coréen" },
["ko-Latn"] = { "coréen romanisé", page = "Coréen" }, -- avec n’importe quelle méthode de romanisation
["ko-Hani"] = { "coréen" }, -- Hangeul
kog = { "kogui" },
koi = { "komi-permiak" },
kok = { "konkani" },
kos = { "kosrae", page = "Kosrae (langue)" },
kot = { "lagwan" },
koy = { "koyukon" },
kpe = { "kpèllé", page = "Kpèllé (langue)" },
kpo = { "ikposso", "kposso" },
kpt = { "karata" },
kpy = { "koriak" },
kpz = { "sapiny" },
kqn = { "kaonde", "chikaonde", "kiikaonde", page = "Kaonde (langue)" },
kr = { "kanouri", page = "Kanouri (langue)" },
krc = { "karatchaï balkar" },
kri = { "krio", page = "Krio (langue)" },
krj = { "kinaray-a" },
krl = { "carélien" },
ks = { "cachemiri" },
["ks-Arab"] = { "cachemiri en écriture arabe", page = "Cachemiri" },
["ks-Deva"] = { "cachemiri en écriture devanagari", page = "Cachemiri" },
ksh = { "kölsch", "francique ripuaire", page = "Kölsch (langue)" },
ksk = { "kanza", page = "Kanza (langue)" },
kst = { "winyé" },
ktu = { "kituba" },
ktw = { "cahto" },
ksw = { "karen s'gaw" },
ku = { "kurde" },
["ku-Arab"] = { "kurde en écriture arabe", page = "Kurde" },
["ku-Latn"] = { "kurde en écriture latine", page = "Kurde" },
kuf = { "katu", page = "Katu (langue)" },
kuj = { "kuria", page = "Kuria (langue)" },
kum = { "koumyk" },
kus = { "kusaal" },
kut = { "kutenai" },
kv = { "komi", page = "Komi (langue)" },
kvj = { "psikye" },
kvk = { "langue des signes coréenne", signe = true },
kvl = { "kayaw" },
kw = { "cornique" },
kwk = { "kwak'wala" },
kxf = { "manumanaw" },
ky = { "kirghize" },
kya = { "kwaya" },
kye = { "krache" },
kyf = { "kouya", page = "Bété (langue)" },
kyu = { "kayah", page = "Kayah (langue)" },
kzg = { "kikaï" },
kzr = { "karang", page = "Karang (langue)" },
-- l
la = { "latin", "lat" },
["la-peano"] = { "latino sine flexione", "interlingua de Peano", "interlingua de l'API", "latin sans flexions" },
lac = { "lacandon", page = "Lacandon (langue)" },
lad = { "judéo-espagnol", "ladino" },
lam = { "lamba", page = "Lamba (langue)" },
lb = { "luxembourgeois" },
lbe = { "lak" },
lbi = { "la'bi" },
lbj = { "ladakhi" },
lbr = { "lohorung", page = "Lohorung (langue)" },
lbs = { "langue des signes libyenne", signe = true },
ldi = { "lari", page = "Lari (langue)" },
ldm = { "landoma", page = "Landoma (langue)" },
ldn = { "láadan" },
led = { "lendu", page = "Lendu (langue)" },
lef = { "lelemi" },
lep = { "lepcha" },
lez = { "lezghien" },
lfn = { "Lingua Franca Nova" },
lg = { "luganda", "ganda" },
li = { "limbourgeois" },
lia = { "limba", page = "Limba (langue)" },
lib = { "likum" },
lif = { "limbou", "limbu", page = "Limbou (langue)" },
lij = { "ligure" },
["lij-MC"] = { "monégasque" },
lik = { "lika", page = "Lika (langue)" },
lil = { "st'at'imcets", "stʼatʼimcets", "lillooet", "st̓át̓imcets" },
liv = { "live", "livonien", page = "Live (langue)" },
lki = { "laki",page = "Laki (langue)" },
lkt = { "lakota", page = "Lakota (langue)" },
lld = { "ladin" },
lls = { "langue des signes lituanienne", signe = true },
lmo = { "lombard", page = "Lombard (langue romane)" },
ln = { "lingala" },
lna = { "langbasi", page = "Ngbugu-langbasi" },
lnl = { "ngbugu", "banda sud central", page = "Ngbugu-langbasi" },
lns = { "lamnso'", "lamnso’", "lamnsoʼ" },
lo = { "lao", page = "Lao (langue)" },
lob = { "lobiri" },
log = { "logoti" },
lol = { "lomongo" },
loq = { "lobala" },
lor = { "téén", "lorhon" },
lou = { "créole louisianais" },
loz = { "lozi", page = "Lozi (langue)" },
lrc = { "lori du Nord" },
lsf = { "langue des signes française", signe = true },
lsg = { "langue des signes lyonnaise", signe = true },
lsl = { "langue des signes lettone", signe = true },
lso = { "langue des signes laotienne", signe = true },
lsp = { "langue des signes panaméenne", signe = true },
lst = { "langue des signes trinidadienne", signe = true },
lsy = { "langue des signes mauricienne", signe = true },
lt = { "lituanien" },
ltc = { "chinois médiéval" },
ltg = { "latgalien" },
lu = { "luba-katanga", "luba-shaba", "kiluba" },
lua = { "luba-kasaï", "tshiluba" },
luc = { "aringa" },
lui = { "luiseño", page = "Luiseño (langue)" },
luo = { "luo", page = "Luo (langue)" },
lup = { "lumbu", page = "Lumbu (langue)" },
lus = { "mizo", "lushai" },
lut = { "lushootseed" },
luz = { "lori du Sud" },
lv = { "letton" },
lzh = { "chinois classique", "zh-classical" },
lzz = { "laze", page = "Laze (langue caucasienne)" },
-- m
ma = { "arabe dialectal marocain", invalide = "ary" },
mad = { "madurais", page = "Madurais (langue)" },
mai = { "maïthili", "maithili", "mazatèque de jalapa", "mazatèque de jalapa de díaz" },
maj = { "mazatèque de Jalapa" },
mam = { "mam" },
man = { "mandingue", "maninka", "malinke", page = "Langues mandingues" },
map = { "langues austronésiennes" },
["map-bms"] = { "banyumasan", invalide = "jv" }, -- code non standard, map=austronesian languages, bms=bilma kanuri (langue nilo-saharienne)
mat = { "matlatzinca" },
mav = { "mavé", page = "Mawé (langue)" },
maz = { "mazahua central", page = "Mazahua" },
mbp = { "damana" },
mbr = {"nukak", page = "Nukak (langue)"},
mca = { "maká", page = "Maká (langue mataguayo)" },
mch = { "maquiritari" },
mcp = { "maka", page = "Maka (langue bantoue)" },
mda = { "mada", page = "Mada (langue du Nigeria)" },
mde = { "maba", page = "Maba (langue du Tchad)" },
mdf = { "mokcha", "moksa", "mokṣa", "moksha", page = "Mokcha (langue)" },
mdj = { "mangbetu", page = "Mangbetu (langue)" },
mdl = { "langue des signes maltaise", signe = true },
mdm = { "mayogo" },
mdp = { "mbala", "kimbala", "gimbala", page = "Mbala (langue)" },
mdw = { "mbochi", "mbosi", "mboshi", "embɔ́si", page = "Mbochi (langue)" },
men = { "mendé", page = "Mendé (langue)" },
mer = { "meru", "kimeru", page = "Meru (langue)" },
meu = { "motu", page = "Motu (langue)" },
mew = { "maka", "maha", "maaka", "makaa", page = "Maka (langue tchadique)" },
mey = { "hassanya" },
mfe = { "créole mauricien", "mauricien" },
mfg = { "mogofin" },
mfq = { "moba", page = "Moba (langue)" },
mfs = { "langue des signes mexicaine", signe = true },
mg = { "malgache", "malagasy" },
mga = { "moyen irlandais" },
mgp = { "magar oriental", page = "Magar (langue)" },
mh = { "marshallais" },
mhr = { "mari oriental", "mari", "mari de l'est", page = "Mari (langue)" },
mi = { "maori de Nouvelle-Zélande", "maori" },
mic = { "micmac" },
mig = { "bas mixtèque du sud" },
min = { "minangkabau", page = "Minangkabau (langue)" },
miq = { "miskito", "miskitu" },
mis = { "langue qui n'a aucun code langue", page = "" },
mjg = { "monguor" },
mjt = { "sauria paharia" },
mk = { "macédonien" },
["mk-Cyrl"] = { "macédonien (écriture cyrillique)", page = "macédonien" },
["mk-Latn"] = { "macédonien (écriture latine)", page = "macédonien" },
mkh = { "langues môn-khmer", "môn-khmer" },
mkl = { "mokolé", page = "Mokolé (langue)" },
mkv = { "mavea", page = "Mavea (langue)" },
ml = { "malayalam" },
mls = { "masalit", "massalit" },
mlv = { "mwotlap" },
mmc = { "mazahua occidental", page = "Mazahua" },
mmz = { "mabale" },
mn = { "mongol" },
["mn-Cyrl"] = { "mongol (écriture cyrillique)", page = "mongol" },
["mn-Latn"] = { "mongol (écriture latine)", page = "mongol" },
["mn-Mong"] = { "mongol (écriture mongole)", page = "mongol" },
mnc = { "mandchou" },
mni = { "meitei", "meithei" },
mnk = { "mandinka"},
mnp = { "minbei" },
mnw = { "môn", "mon", page = "Môn (langue)" },
mo = { "moldave", invalide = "ro-MD" },
moa = { "monan", "mwan" },
moe = { "innu-aimun", "montagnais" },
moh = { "mohawk", "agnier", page = "Mohawk (langue)" },
mor = { "moro", page = "Moro (langue)" },
mot = { "barí", "bari", page = "Barí (langue)" },
mov = { "mojave", page = "Mojave (langue)" },
moz = { "mokulu", page = "Mokulu (langue)" },
mqb = { "moloko", page = "Moloko (langue)" },
mql = { "mbèlimè", "mbɛlimɛ", "mbelime" },
mqm = { "marquisien du Sud", page = "Marquisien" },
mr = { "marathi", "marāthī", "marathe", "marâthî", page = "Marathi (langue)" },
mrd = { "magar occidental", page = "Magar (langue)" },
mre = { "langue des signes de Martha's Vineyard", signe = true },
mrj = { "mari des montagnes", "mari occidental" },
mrn = { "cheke holo" },
mrq = { "marquisien du Nord", "marquisien", page = "Marquisien" },
mrv = { "mangarévien" },
ms = { "malais", page = "Malais (langue)" },
msc = { "sankaran" },
msd = { "langue des signes maya yucatèque", signe = true },
mse = { "moussey", "musey", page = "Moussey (langue)" },
msn = { "vurës" },
msr = { "langue des signes mongole", signe = true },
mt = { "maltais" },
mtq = { "muong", page = "Muong (langue)" },
mtt = { "mota", page = "Mota (langue)" },
mua = { "moundang", page = "Moundang (langue)" },
mug = { "mousgoum", page = "Mousgoum (langue)" },
muh = { "mundu", "mündü", page = "Mundu (langue)" },
mul = { "multilingue", page = "Multilinguisme" },
mur = { "murle", page = "Murle (langue)" },
mus = { "creek", page = "Creek (langue)" },
muz = { "mursi", page = "Mursi (langue)" },
mvf = { "mongol périphérique", page = "Mongol (langue de Chine)" },
mvi = { "miyako", page = "Miyako (langue)" },
mwl = { "mirandais" },
mwr = { "marwari", page = "Marwari (langue)" },
mxu = { "mada", page = "Mada (langue du Cameroun)" },
my = { "birman", page = "Birman (langue)" },
mye = { "myènè", "omyènè", page = "Myènè (langue)" },
myh = { "makah" },
myk = { "mamara" },
mym = { "me’en" },
myn = { "langues mayas", "langue maya", "maya" },
myp = { "pirahã", page = "Pirahã (langue)" },
myv = { "erzya" },
mzc = { "langue des signes malgache", signe = true },
mzg = { "langue des signes monastique", signe = true },
mzi = { "mazatèque d'Ixcatlán" },
mzn = { "mazandarani", "tabari", rtl = true },
mzv = { "manza" },
mzy = { "langue des signes mozambicaine", signe = true },
-- n
na = { "nauruan" },
nab = { "nambikwara du sud", "nambikwara", "nambiquara", "nambikuára" },
nah = { "nahuatl" },
nan = { "minnan", "zh-min-nan" },
nap = { "napolitain", "tarentin" },
naq = { "khoïkhoï", "nama" },
nb = { "bokmål", "bokmal", "norvégien classique" },
nba = { "nyemba", "ngangela", page = "Nyemba (langue)" },
nbh = { "ngamo" },
nbs = { "langue des signes namibienne", signe = true },
ncg = { "nisgha", "nisg̱a'a" },
nci = { "nahuatl classique", "aztèque", page = "Nahuatl" },
ncs = { "langue des signes nicaraguayenne", signe = true },
nd = { "ndébélé du Nord", "ndébélé du zimbabwe", "sindebele", page = "Ndébélé du Zimbabwe" },
ndb = { "kenswei nsei", "kenswey nsei", "bamessing" },
ndc = { "ndau" },
nds = { "bas allemand" },
["nds-NL"] = { "bas saxon des Pays-Bas", "bas saxon néerlandais" },
ndv = { "ndut", page = "Ndut (langue)" },
ne = { "népalais" },
neb = { "toura", "tura", page = "Toura (langue mandée)" },
neg = { "néguidale" , page = "Néguidale" },
neu = { "neo", page = "Neo (langue construite)" },
new = { "nepalbhasha" },
nez = { "nez-percé", page = "Nez-percé (langue)" },
ng = { "ndonga" },
ngc = { "lingombe" },
ngh = { "nǁng", "nǀu" },
ngi = { "ngizim", page = "Ngizim (langue)" },
ngo = { "ngoni", page = "Ngoni (langue)" },
nhb = { "beng", page = "Beng (langue)" },
nhd = { "ava-guarani" },
nia = { "niha", "nias" },
nih = { "nyiha" },
nio = { "nganassane" },
niu = { "niuéen" },
niv = { "nivkhe", page = "Nivkhe (langue)" },
niy = { "ndruna" },
nl = { "néerlandais", "dutch" },
["nl-BE"] = { "néerlandais de Belgique", page = "Néerlandais" },
["nl-informal"] = { "néerlandais informel", page = "Néerlandais", invalide = "nl" },
nlo = { "ngwi" },
nmg = { "kwasio" },
nn = { "nynorsk" },
nnb = { "kinande" },
nnw = { "nuni du Sud", page = "Nuni" },
no = { "norvégien", "norwegian" },
["no-nin"] = { "nynorsk", invalide = "nynorsk" },
nod = { "thaï du Nord" },
nok = { "nooksack" },
non = { "vieux norrois", "norrois" },
["not"] = { "nomatsiguenga" }, -- not est un mot clé lua : ne pas retirer les crochets - guillemets
nov = { "novial" },
now = { "nyambo", page = "Nyambo (langue)" },
nr = { "ndébélé du Transvaal", "ndébélé du Sud", "nrebele", "ndébélé du transvaal" },
nrf = { "guernesiais" },
["nrf-JE"] = { "jersiais" },
nrm = { "narum", "narom" }, -- nrm.wikipedia est en normand, qui n'a pas de code IETF valide
nsi = { "langue des signes nigériane", signe = true },
nsl = { "langue des signes norvégienne", signe = true },
nso = { "sotho du Nord", "pedi", "sesotho sa leboa" },
nsp = { "langue des signes népalaise", signe = true },
nsr = { "langue des signes maritime", signe = true },
ntp = { "tepehuan du Nord" },
nua = { "yuanga-zuanga" },
nuj = { "lunyole" },
nuk = { "nuuchahnulth" },
num = { "niuafoʻou", page = "Niuafoʻou (langue)" },
nuv = { "nuni du Nord", page = "Nuni" },
nv = { "navajo", "nav", page = "Navajo (langue)" },
nwi = { "tanna du Sud-Ouest" },
ny = { "chewa" },
nyb = { "nyangbo" },
nyd = { "lunyore" },
nyf = { "giriama", page = "Giriama (langue)" },
nyi = { "nyimang" },
nyo = { "nyoro", page = "Nyoro (langue)" },
nys = { "nyungar" },
nyy = { "nyakyusa", "kinyakyusa", page = "Nyakyusa (langue)" },
nzd = { "nzadi", page = "Nzadi (langue)" },
nzi = { "nzema", page = "Nzema (langue)" },
nzk = { "nzakara", "nzakala", page = "Nzakara (langue)" },
nzs = { "langue des signes néo-zélandaise", signe = true },
-- o
oaa = { "orok" },
oac = { "orotche" },
oar = { "araméen ancien", page = "Araméen" },
obt = { "vieux breton" },
oc = { "occitan", "oci", },
['oc-aranes'] = { "aranais" },
['oc-auvern'] = { "auvergnat" },
['oc-cisaup'] = { "cisalpin", page = "Occitan" },
['oc-gascon'] = { "gascon" },
['oc-lemosin'] = { "limousin", page = "Limousin (dialecte)" },
['oc-lengadoc'] = { "languedocien" },
['oc-nicard'] = { "niçois" },
['oc-provenc'] = { "provençal" },
['oc-vivaraup'] = { "vivaro-alpin" },
och = { "chinois archaïque" },
ocm = { "vieux cham" },
oco = { "cornique" },
ocu = { "tlahuica" },
odk = { "od", "odki", page = "Od (langue)" },
odt = { "vieux néerlandais" },
odu = { "odual" },
ofr = { "francique oriental" },
ofs = { "vieux frison" },
ogc = { "ogba" },
oj = { "ojibwé", page = "Ojibwé (langue)" },
ojw = { "saulteaux", "ojibwé des plaines", "ojibwé occidental", page = "Saulteaux (langue)" },
oka = { "colville-okanagan" },
okc = { "kobo", "kikobo", page = "Kobo (langue)" },
okl = { "vieille langue des signes kentoise", signe = true },
okm = { "moyen coréen" },
okn = { "oki-no-erabu" },
oko = { "vieux coréen" },
okr = { "kirike", "okrika", page = "Kalabari (langue)" },
old = { "mochi", page = "Mochi (langue)" },
olo = { "olonetsien" },
om = { "oromo", page = "Oromo (langue)" },
omi = { "omi", "omiti", page = "Omi (langue)" },
oml = { "ombo", page = "Ombo (langue)" },
omy = { "vieux malais" },
one = { "oneida", page = "Oneida (langue)" },
ono = { "onondaga", page = "Onondaga (langue)" },
ood = { "o'odham", "papago", "pima" },
["or"] = { "odia", "oriya" }, -- or est un mot clé lua : ne pas retirer les crochets - guillemets
ore = { "orejón", "orejon", "maijiki" },
orh = { "oroqen", page = "Oroqen (langue)" },
["orv-olr"] = { "ruthène ancien", "ruthène", invalide = "rue" }, -- code linguist list, orv=old russian, olr=olrat (Vanuatu)
orv = { "vieux russe" },
os = { "ossète" },
osa = { "osage", page = "Osage (langue)" },
osc = { "osque" },
osn = { "vieux soundanais" },
osp = { "castillan ancien", "vieil espagnol" },
osx = { "vieux saxon", "vieux bas allemand" },
ota = { "turc ottoman", rtl = true },
otk = { "vieux turc", "vieux-turc", rtl = true },
otw = { "outaouais", page = "Outaouais (langue)" },
owl = { "vieux gallois" },
oym = { "wayãpi", page = "Wayãpi (langue)" },
-- p
pa = { "pendjabi" },
pae = { "pagibete", "pagabete" },
pag = { "pangasinan", page = "Pangasinan (langue)" },
pal = { "moyen perse", "pehlevi", "moyen-perse" },
pam = { "pampangue", "pampangan" },
pap = { "papiamento" },
pau = { "paluan", page = "Palau (langue)" },
pay = { "paya", "pech", page = "Paya (langue)" },
pbb = { "paez", page = "Paez (langue)" },
pbs = { "pame central" },
pcc = { "bouyei" },
pcd = { "picard" },
pce = { "palaung palé" },
pcm = { "pidgin nigérian" },
pdc = { "allemand de Pennsylvanie", "pennsilfaanisch" },
pdt = { "bas allemand mennonite" },
pdu = { "kayan", "padaung", page = "Kayan (langue)" },
pei = { "jonaz", "chichimèque jonaz" },
pem = { "kipende", page = "Kipende (langue)" },
peo = { "vieux perse" },
pfl = { "palatin", page = "Palatin (langue)" },
phk = { "tai phake", "phake" },
phl = { "phalura" },
phn = { "phénicien" },
pi = { "pali" },
pic = { "apindji", page = "Apindji (langue)" },
pid = { "piaroa", page = "Piaroa (langue)" },
pih = { "norfolk", "norfuk", page = "Norfolk (langue)" },
pkb = { "pokomo", page = "Pokomo (langue)" },
pkc = { "han-baekje", page = "Mahan (langue)" },
pko = { "pökot", "pokot" },
pks = { "langue des signes pakistanaise", signe = true },
pl = { "polonais", "polish" },
plg = { "pilagá", "pilaga", page = "Pilagá (langue)" },
pll = { "palaung shwe" },
plo = { "popoluca d'Oluta", "olutèque" },
plu = { "palikur", page = "Palikur (langue)" },
pma = { "paama", page = "Paama (langue)" },
pmq = { "pame du Nord" },
pms = { "piémontais" },
pmt = { "paumotu" },
pnb = { "pendjabi occidental", page = "Pendjabi", rtl = true },
pnk = { "paunaka" },
pnt = { "pontique", "grec pontique", page = "Pontique (langue)" },
poi = { "popoluca de la Sierra", "soteapanèque" },
pon = { "pohnpei", page = "Pohnpei (langue)" },
pos = { "popoluca de Sayula", "sayultèque" },
pov = { "créole de Guinée-Bissau" },
prg = { "vieux-prussien", "vieux prussien" },
prk = { "parauk" },
prl = { "langue des signes péruvienne", signe = true },
pro = { "ancien occitan" },
prs = { "dari" },
prz = { "langue des signes de Providencia", signe = true },
ps = { "pachto", rtl = true },
psc = { "langue des signes perse", signe = true },
psd = { "langues des signes des Indiens des Plaines", signe = true },
psg = { "langue des signes de Penang", signe = true },
psl = { "langue des signes portoricaine", signe = true },
pso = { "langue des signes polonaise", signe = true },
psp = { "langue des signes philippine", signe = true },
psr = { "langue des signes portugaise", signe = true },
pt = { "portugais", "portuguese" },
["pt-BR"] = { "portugais brésilien" },
pua = { "purépecha occidental", page = "Purépecha" },
pug = { "puguli" },
pui = { "puinave", page = "Puinave (langue)" },
puw = { "puluwat", page = "Puluwat (langue)" },
pwo = { "pwo de l'Ouest", "pwo occidental" },
pww = { "pwo du Nord", "pwo septentrional" },
pye = { "kroumen piè", page = "Kroumen (langue)" },
pys = { "langue des signes paraguayenne", signe = true },
pyu = { "puyuma", page = "Puyuma (langue)" },
-- q
qu = { "quechua" },
qug = { "kichwa" },
qun = { "quinault", page = "Quinault (langue)" },
quy = { "quechua d'Ayacucho", page = "Quechua" },
quz = { "quechua de Cuzco", page = "Quechua" },
qya = { "quenya" },
-- r
rad = { "rhade", page = "Rhade (langue)" },
rag = { "logooli", "lulogooli", "ragoli", page = "Logooli (langue)" },
raj = { "rajasthani" },
rap = { "rapanui", page = "Rapanui (langue)" },
rar = { "maori des îles Cook", "maori des iles cook" },
raw = { "rawang" },
ray = { "rapa", page = "Rapa (langue)" },
rbb = { "palaung rumai" },
rcf = { "créole réunionnais" },
rde = { "allemand de la Ruhr", invalide = "de" }, -- code non standard
rgn = { "romagnol" },
rhg = { "rohingya " },
rif = { "rifain" },
rin = { "nungu", page = "Nungu (langue)" },
rki = { "arakanais", page = "Arakanais (langue)" },
rkt = { "rangpuri", "kamta", "bahe" },
rm = { "romanche", "rhéto-roman" },
rmc = { "romani central" },
rmf = { "romani finlandais" },
rmg = { "romani norvégien", page = "Scandoromani" },
rms = { "langue des signes roumaine", signe = true },
rmu = { "romani suédois", page = "Scandoromani" },
rmy = { "romani vlax" },
rn = { "kirundi", "run" },
ro = { "roumain" },
["ro-MD"] = { "moldave" },
roa = { "langues romanes" },
["roa-tara"] = { "tarentin", invalide = "nap" }, -- code non standard, roa=langues romanes, tara=invalide
rom = { "romani" },
rsi = { "langue des signes rennellienne", "langue des signes de rennell", signe = true },
rsl = { "langue des signes russe", signe = true },
ru = { "russe", "russian" },
rue = { "rusyn" },
ruo = { "istro-roumain", "valaque d’istrie", "istrien" },
rup = { "aroumain", "roa-rup" },
ruq = { "mégléno-roumain" },
["ruq-Cyrl"] = { "mégléno-roumain en écriture cyrillique", page = "Mégléno-roumain" },
["ruq-Latn"] = { "mégléno-roumain en écriture latine", page = "Mégléno-roumain" },
rw = { "kinyarwanda" },
rwk = { "rwa" },
ry = { "ruthène ancien", invalide = "rue" }, -- code non standard, voir orv-olr
ryn = { "amami du Nord" },
rys = { "yaeyama" },
ryu = { "okinawaïen" },
rzh = { "razihi" },
-- s
sa = { "sanskrit" },
saf = { "safaliba" },
sah = { "iakoute" },
sat = { "santali", "santâlî" },
sbd = { "samo maka", page = "Samo (langue)" },
sc = { "sarde" },
scl = { "shina" },
scn = { "sicilien" },
sco = { "scots" },
["sco-ulster"] = { "scots d'Ulster" },
sd = { "sindhi" },
sdc = { "sassarais" },
sdh = { "kurde du Sud" },
sdl = { "langue des signes saoudienne", signe = true },
se = { "same du Nord" },
["se-FI"] = { "same du Nord" },
["se-NO"] = { "same du Nord" },
["se-SE"] = { "same du Nord" },
sec = { "seneca", "sénéca", page = "Seneca (langue)" },
sei = { "seri", page = "Seri (langue)" },
sef = { "cebaara", page = "Cebaara" },
sel = { "selkoupe" },
sem = { "langues sémitiques" },
ses = { "koyraboro senni" },
sev = { "niarafolo", "nyarafolo", page = "Niarafolo (langue)" },
sey = { "secoya", page = "Secoya (langue)" },
sfb = { "langue des signes de Belgique francophone", signe = true },
sfs = { "langue des signes sud-africaine", signe = true },
sfw = { "sehwi", "esahie" },
sg = { "sango" },
sga = { "vieil irlandais" },
sgg = { "langue des signes suisse alémanique", signe = true },
sgh = { "shugni" },
sgn = { "langue des signes", signe = true },
sgs = { "samogitien", "samogitian" },
sgx = { "langue des signes sierra-léonaise", signe = true },
sh = { "serbo-croate" },
shb = { "ninam", "yanam" },
shi = { "chleuh", "tachelhit", "chelha" },
["shi-Latn"] = { "chleuh en écriture latine", page = "Chleuh" },
["shi-Tfng"] = { "chleuh en écriture tifinagh", page = "Chleuh" },
shk = { "shilluk", page = "Shilluk (langue)" },
shn = { "shan", page = "Shan (langue)" },
shy = { "chaoui" },
["shy-Latn"] = { "chaoui en écriture latine", page = "Chaoui" },
si = { "singhalais" },
sif = { "siamou", "sèmè" },
sig = { "paasaal" },
simple = { "anglais simple", "simple english", page = "Simplifications de l'anglais", invalide = "en" }, -- code non standard
sip = { "sikkimais" },
sja = { "epena saija" },
sjd = { "same de Kildin" },
sje = { "same de Pite" },
sjn = { "sindarin" },
sjo = { "xibe", page = "Xibe (langue)" },
sju = { "same d'Ume" },
sk = { "slovaque" },
ska = { "skagit", page = "Lushootseed" },
ski = { "sika", page = "Sika (langue)" },
skr = { "saraiki" },
["skr-Arab"] = { "seraiki en écriture arabe", page = "Seraiki" },
sl = { "slovène" },
sla = { "langues slaves" },
slc = { "sáliva" },
slf = { "langue des signes suisse italienne", signe = true },
slh = { "salish du Puget Sound du sud", page = "Lushootseed" },
sli = { "silésien", page = "Silésien (langue germanique)" },
slr = { "salar", page = "Salar (langue)" },
sls = { "langue des signes de Singapour", signe = true },
sm = { "samoan" },
sma = { "same du Sud" },
smg = { "simbali" },
smi = { "same", page = "Langues sames" },
smj = { "same de Lule" },
smn = { "same d'Inari" },
sms = { "same skolt" },
smw = { "sumbawa", page = "Sumbawa (langue)" },
sn = { "shona", page = "Shona (langue)" },
sng = { "sanga", "kisanga", "luba-sanga", "kiluba-sanga", page = "Sanga (langue)" },
snk = { "soninké", page = "Soninké (langue)" },
sno = { "snohomish", page = "Lushootseed" },
snw = { "santrokofi", "selee" },
so = { "somali" },
sog = { "sogdien" },
son = { "songhaï" },
soo = { "nsong", "tsong" },
sov = { "sonsorolais" },
sox = { "swo" },
spp = { "supyiré" },
spr = { "saparua", page = "Saparua (langue)" },
spx = { "sud-picène", "picène du sud" },
sq = { "albanais" },
sqk = { "langue des signes albanaise", signe = true },
sqs = { "langue des signes sri-lankaise", signe = true },
sqt = { "soqotri" },
squ = { "squamish", "Squamish (langue)" },
sr = { "serbe" },
srd = { "sarde", invalide = "sc" },
["sr-ec"] = { "serbe en écriture cyrillique", invalide = "sr-Cyrl" },
["sr-Cyrl"] = { "serbe en écriture cyrillique", page = "Serbe" },
["sr-el"] = { "serbe en écriture latine", invalide = "sr-Latn" },
["sr-Latn"] = { "serbe en écriture latine", page = "Serbe" },
srh = { "sariqoli" },
srn = { "sranan", "sranan tongo" },
sro = { "campidanais" },
srr = { "sérère", "seereer", page = "Sérère (langue)" },
ss = { "swati" },
ssf = { "thao", page = "Thao (langue)" },
ssp = { "langue des signes espagnole", signe = true },
ssr = { "langue des signes suisse romande", signe = true },
st = { "sotho du Sud", "sot" },
stj = { "samo matya", page = "Samo (langue)" },
stp = { "tepehuan du Sud-Est" },
stq = { "frison oriental" },
str = { "saanich", page = "Saanich (langue)" },
stw = { "satawal", page = "Satawal (langue)" },
sty = { "tatar sibérien", "себертатар", page ="Tatar de Sibérie" },
su = { "soundanais", "sondonésien" },
sus = { "soso", "soussou", "sosso", "susu", page = "Soso (langue)" },
suw = { "sumbwa", page = "Sumbwa (langue)" },
sux = { "sumérien" },
sv = { "suédois", "swedish" },
sva = { "svane", "svan" },
svk = { "langue des signes slovaque", signe = true },
sw = { "swahili" },
swb = { "mahorais" },
swg = { "souabe", page = "Souabe (dialecte)" },
swl = { "langue des signes suédoise", signe = true },
sxu = { "haut saxon" },
sxw = { "saxwe" },
syc = { "syriaque" },
syl = { "sylheti" },
sym = { "samo maya", page = "Samo (langue)" },
syr = { "syriaque", rtl = true },
syy = { "langue des signes bédouine d'Al-Sayyid", signe = true },
szg = { "sengele", "kesengele", page = "Sengele (langue)" },
szl = { "silésien", page = "Silésien (langue slave)" },
-- t
ta = { "tamoul" },
tao = { "yami" },
tap = { "tabwa", "kitabwa", "taabwa", page = "Tabwa (langue)" },
taq = { "tamasheq" },
tay = { "atayal" },
tbk = { "tagbanwa calamian" },
tbl = { "t'boli", "tboli", "tagabili" },
tbt = { "tembo", "chitembo", "kitembo", page = "Tembo (langue)" },
tbv = { "tobo", page = "Tobo-kube" },
tbz = { "ditammari", "tammari" },
tca = { "ticuna" },
tcy = { "toulou", "tulu" },
tdc = { "emberá tadó" },
tdd = { "tai nüa" },
te = { "télougou" },
ted = { "kroumen tépo", page = "Kroumen (langue)" },
tek = { "téké-ibali" },
teo = { "ateso", "teso", page = "Teso (langue)" },
tet = { "tétoum" },
tfn = { "dena'ina", "tanaina", page = "Dena'ina (langue)" },
tfr = { "teribe" },
tg = { "tadjik" },
["tg-Cyrl"] = { "tadjik en écriture cyrillique", page = "Tadjik" },
["tg-Latn"] = { "tadjik en écriture latine", page = "Tadjik" },
tgp = { "tangoa", page = "Tangoa (langue)" },
th = { "thaï", "thai" },
thk = { "tharaka", page = "Tharaka (langue)" },
thp = { "thompson", "nłeʔkepmxcin", page = "Thompson (langue)" },
thv = { "tamahaq", "tamahak" },
thz = { "tamajeq de l'Aïr" },
ti = { "tigrigna", "tigrinya" },
tji = { "Tujia du Nord", page = "Tujia" },
tjl = { "tai laing" },
tjs = { "tujia du Sud", page = "Tujia" },
tk = { "turkmène" },
tkl = { "tokelau", page = "Tokelau (langue)" },
tkn = { "toku-no-shima" },
tl = { "tagalog" },
tla = { "tepehuan du Sud-Ouest" },
tlh = { "klingon", page = "Klingon (langue)" },
tli = { "tlingit" },
tll = { "tetela", "otetela", page = "Tetela (langue)" },
tly = { "talysh", "talyche", page = "Talysh (langue)" },
tmh = { "touareg", "tamacheq", page = "Langues touarègues" },
tmr = { "judéo-araméen babylonien", rtl = true },
tn = { "tswana" },
tnk = { "kwamera" },
tnq = { "taïno", "taïnos", page = "Taïno (langue)" },
to = { "tongien" },
tob = { "toba", "qom", page = "Toba (langue)" },
toj = { "tojolabal" },
tpi = { "tok pisin" },
tpm = { "tampulma", "tamprusi" },
tpn = { "tupinambá", "tupinamba", page = "Tupinambá (langue)" },
tr = { "turc" },
trk = { "langues turciques" },
trs = { "trique de Chicahuaxtla", "triqui de Chicahuaxtla" },
tru = { "touroyo", "turoyo" },
trv = { "seediq" },
trw = { "torwali" },
ts = { "tsonga", page = "Tsonga (langue)" },
tsd = { "tsakonien", "tsaconien" },
tse = { "langue des signes tunisienne", signe = true },
tsi = { "tsimshian" },
tsm = { "langue des signes turque", signe = true },
tsq = { "langue des signes thaï", signe = true },
tss = { "langue des signes taïwanaise", signe = true },
tsu = { "tsou", page = "Tsou (langue)" },
tsy = { "langue des signes de Tebul", signe = true },
tsz = { "purépecha", "p'urhépecha", "tarasque" },
tt = { "tatar" },
["tt-Cyrl"] = { "tatar en écriture cyrillique", page = "Tatar" },
["tt-Latn"] = { "tatar en écriture latine", page = "Tatar" },
ttq = { "tawellemmet" },
["ttq-Latn"] = { "tawellemmet en écriture latine", page = "Tawellemet" },
["ttq-Tfng"] = { "tawellemmet en écriture tifinagh", page = "Tawellemet" },
tts = { "isan" , page = "Isan (langue)" },
ttt = { "tat" },
tum = { "tumbuka", page = "Tumbuka (langue)" },
tun = { "tunica", page = "Tunica (langue)" },
tus = { "tuscarora", page = "Tuscarora (langue)" },
tut = { "langues altaïques" },
tuw = { "langues toungouses" },
tuz = { "tchourama" },
tvl = { "tuvaluan" },
tw = { "twi" },
twa = { "twana", "skokomish" },
twm = { "monba", page = "Monba (langue)" },
twq = { "tasawaq", page = "Tasawaq (langue)" },
txb = { "koutchéen", "tokharien b", "tokharien occidental" },
txg = { "tangoute" },
ty = { "tahitien" },
tyv = { "touvain" },
tza = { "langue des signes tanzanienne", signe = true },
tzl = { "talossien", page = "Talossa#La langue" },
tzm = { "tamazight du Maroc central", "braber" },
tzo = { "tzotzil" },
-- u
uba = { "ubang" },
ude = { "oudihé" },
udm = { "oudmourte" },
udu = { "uduk", page = "Uduk (langue)" },
ug = { "ouïghour", rtl = true },
["ug-Arab"] = { "ouïghour en écriture arabe", page = "Ouïghour", rtl = true },
["ug-Latn"] = { "ouïghour en écriture latine", page = "Ouïghour" },
uga = { "ougaritique" },
ugn = { "langue des signes ougandaise", signe = true },
ugy = { "langue des signes uruguayenne", signe = true },
uhn = { "damal" , page = "Damal (langue)" },
uk = { "ukrainien" },
ukl = { "langue des signes ukrainienne", signe = true },
ukp = { "ukpe-bayobiri" },
uks = { "langue des signes urubú-kaapor", "langue des signes urubu-kaapor", signe = true },
ulc = { "oultche" },
uli = { "ulithi", page = "Ulithi (langue)", signe = true },
uma = { "umatilla", page = "Umatilla (langue)" },
und = { "langue indéterminée", page = "" },
ur = { "ourdou", rtl = true },
uve = { "fagauvea" },
uz = { "ouzbek" },
["uz-Cyrl"] = { "ouzbek en écriture cyrillique", page = "Ouzbek" },
["uz-Latn"] = { "ouzbek en écriture latine", page = "Ouzbek" },
-- v
ve = { "venda", page = "Venda (langue)" },
vec = { "vénitien" },
vep = { "vepse" },
ver = { "mom jango" },
vgt = { "langue des signes flamande", signe = true },
vi = { "vietnamien" },
vin = { "vinza", page = "Langues rwanda-rundi" },
vls = { "flamand occidental" },
vmf = { "francique oriental" },
vmw = { "makua", page = "Makua (langue)" },
vo = { "volapük" },
vot = { "vote", page = "Vote (langue)" },
vro = { "võro", "fiu-vro" },
vsi = { "langue des signes moldave", signe = true },
vsl = { "langue des signes vénézuélienne", signe = true },
vsv = { "langue des signes valencienne", signe = true },
vut = { "vute", "vútè", page = "Vute (langue)" },
-- w
wa = { "wallon" },
war = { "waray-waray" },
was = { "washo" },
way = { "wayana", page = "Wayana (langue)" },
wbi = { "vwanji" },
wca = { "yanomam" },
wci = { "waci", page = "Waci (langue)" },
wen = { "sorabe" },
wes = { "pidgin camerounais" },
win = { "winnebago", page = "Winnebago (langue)" },
wlm = { "moyen gallois" },
wls = { "wallisien" },
wo = { "wolof", page = "Wolof (langue)" },
woe = { "woléaïen" },
wuu = { "wu", page = "Wu (langue)" },
wwa = { "waama", page = "Waama (langue)" },
wxa = { "waxiang" },
wya = { "wendat", "wyandot", page = "Wendat (langue)" },
-- x
xal = { "kalmouk" },
xam = { "ǀxam" },
xbc = { "bactrien" },
xbm = { "moyen breton" },
xby = { "butchulla", "batjala" },
xcb = { "cambrien" },
xcg = { "gaulois cisalpin" },
xcl = { "arménien classique", "krapar", "grabar", "arménien ancien" },
xcu = { "couronien" },
xh = { "xhosa", page = "Xhosa (langue)" },
xki = { "langue des signes kényane", signe = true },
xku = { "kaamba" },
xlu = { "louvite" },
xmf = { "mingrélien", "mégrélien" },
xml = { "langue des signes malaisienne", signe = true },
xmm = { "malais de Manado", "manadonais" },
xms = { "langue des signes marocaine", signe = true },
xng = { "moyen mongol" },
xno = { "anglo-normand", page = "Anglo-normand (langue)" },
xpe = { "kpèllé du Liberia", page = "Kpèllé (langue)" },
xpp = { "buyeo-baekje", page = "Baekje (langue)" },
xpr = { "parthe", page = "Parthe (langue)" },
xpy = { "buyeo", page = "Buyeo (langue)" },
xsm = { "kassem", "kasim", "kasɩm", page = "Kassem (langue)" },
xsr = { "Sherpa", page = "Sherpa (langue)" },
xsu = { "sanumá" },
xsy = { "saisiyat", page = "Saisiyat (langue)" },
xrb = { "karaboro oriental", "karaboro est", "kar" },
xtc = { "katcha", "kadugli", "miri", page = "Katcha-kadugli-miri" },
xtg = { "gaulois transalpin", "gaulois", page = "Gaulois (langue)" },
xto = { "agnéen", "tokharien", "tokharien a" },
xug = { "kunigami" },
-- y
yad = { "yagua", page = "Yagua (langue)" },
yaf = { "yaka", page = "Yaka (langue)" },
yag = { "yagan", "yámana" },
yah = { "yazgoulami" },
yai = { "yaghnobi" },
yak = { "sahaptin yakama", "yakima", "yakama", page = "Sahaptin" },
yao = { "chiyao", "yao" },
yap = { "yap", page = "Yap (langue)" },
yaz = { "lokaa", "yakö" },
yba = { "yala", page = "Yala (langue)" },
ybe = { "yugur occidental" },
ycr = { "créole de Yilan" },
yds = { "langue des signes yiddish", signe = true }, -- obsolète, ne pas utiliser.
ygs = { "langue des signes yolngu", "langue des signes yolŋu", signe = true },
yhs = { "langue des signes yan-nhangu", "langue des signes yan-nhaŋu", signe = true },
yi = { "yiddish", "ji", rtl = true },
ykg = { "youkaguir du nord" },
ykh = { "khamnigan mongol" },
yns = { "yansi", page = "Yansi (langue)" },
yo = { "yoruba", page = "Yoruba (langue)" },
yoi = { "yonaguni", page = "Yonaguni (langue)" },
yox = { "yoron" },
ypk = { "langues yupik" },
yrl = { "nheengatu" },
yro = { "yaroamë", "jawari" },
yrk = { "nénètse" },
ysl = { "langue des signes yougoslave", signe = true },
yua = { "maya yucatèque" },
yue = { "cantonais", "zh-yue" },
["yue-jyutping"] = { "romanisation Jyutping du cantonais", page = "Jyutping" },
["yue-Hans"] = { "cantonais en caractères chinois simplifiés", page = "Cantonais" },
["yue-Hant"] = { "cantonais en caractères chinois traditionels", page = "Cantonais" },
yuf = { "langues yumanes du Nord", "walapai", "yavapai", "havasupai", page = "Langues yumanes" },
yux = { "youkaguir du sud" },
-- z
za = { "zhuang", page = "Zhuang (langue)" },
zaa = { "zapotèque de la Sierra de Juárez" },
zai = { "zapotèque de l'Isthme" },
zap = { "zapotèque", page = "Langues zapotèques" },
zaw = { "zapotèque de Mitla" },
zdj = { "grand comorien" },
zea = { "zélandais" },
zga = { "kinga", page = "Kinga (langue)" },
zgh = { "amazighe standard marocain" },
zh = { "chinois", "hui", "chinese", page = "Langues chinoises" },
["zh-Hans"] = { "chinois simplifié", page = "Sinogramme simplifié" },
["zh-Hant"] = { "chinois traditionnel", page = "Sinogramme traditionnel" },
["zh-Latn"] = { "chinois romanisé", page = "Langues chinoises" }, -- avec n’importe quelle méthode de romanisation
["zh-Latn-pinyin"] = { "chinois romanisé avec la méthode Pinyin", "pinyin", page = "Hanyu pinyin" },
["zh-Latn-wadegile"] = { "chinois romanisé avec la méthode Wade-Giles", page = "Romanisation Wade-Giles" },
["zh-CN"] = { "chinois de Chine continentale", page = "Langues chinoises" },
["zh-HK"] = { "chinois de Hong Kong", page = "Langues chinoises" },
["zh-MO"] = { "chinois de Macao", page = "Langues chinoises" },
["zh-MY"] = { "chinois de Malaisie", page = "Langues chinoises" },
["zh-SG"] = { "chinois de Singapour", page = "Langues chinoises" },
["zh-TW"] = { "chinois de Taïwan", page = "Langues chinoises" },
zib = { "langue des signes zimbabwéenne", signe = true },
zim = { "mesmé" },
zin = { "zinza", page = "Zinza (langue)" },
ziw = { "zigula", page = "Zigula (langue)" },
zkg = { "goguryeoan" },
zls = { "langues slaves méridionales" },
zne = { "zandé", "zande", "pazande", page = "Zandé (langue)" },
zoc = { "zoque du Chiapas", page = "Zoque du Chiapas"},
zoh = { "zoque de Chimalpa" },
zoq = { "ayapaneco" },
zor = { "zoque de Rayón", page = "Zoque du Chiapas" },
zos = { "zoque de Francisco León", page = "Zoque du Chiapas" },
zra = { "gaya", page = "Gaya (langue)" },
zsl = { "langue des signes zambienne", signe = true },
zsm = { "malaisien", page = "Malaisien (langue)" },
ztu = { "zapotèque de Güilá", "zapotèque de San Pablo Güilá", "zapotèque de San Dionisio Ocotepec" },
zu = { "zoulou" },
zum = { "kumzari" },
zun = { "zuñi", "zuni", page = "Zuñi (langue)" },
zxx = { "pas de contenu linguistique (non applicable)", page = "" },
zza = { "zazaki" },
-- noms de modèles utilisés par le modèle:Documentation modèle d'indication de langue
["lang:mi"] = { "maori de Nouvelle-Zélande", invalide = "mi" }, -- nom du modèle:Lang:mi, utilisé par le modèle:Documentation modèle d'indication de langue
["lang:mr"] = { "marathi", page = "Marathi (langue)", invalide = "mr" }, -- nom du modèle:Lang:mr, utilisé par le modèle:Documentation modèle d'indication de langue
["lang:pid"] = { "piaroa", page = "Piaroa (langue)", invalide = "pid" }, -- nom du modèle:Lang:pid, utilisé par le modèle:Documentation modèle d'indication de langue
["Lang:nb"] = { "bokmål", invalide = "nb" }, -- nom du modèle:Lang:nb, utilisé par le modèle:Documentation modèle d'indication de langue
["Lang:non"] = { "vieux norrois", invalide = "non" }, -- nom du modèle:Lang:non, utilisé par le modèle:Documentation modèle d'indication de langue
["Lang:nv"] = { "navajo", page = "Navajo (langue)", invalide = "nv" }, -- nom du modèle:Lang:nv, utilisé par le modèle:Documentation modèle d'indication de langue
["Lang:prs"] = { "dari", invalide = "prs" }, -- nom du modèle:Lang:prs, utilisé par le modèle:Documentation modèle d'indication de langue
["Lang:ve"] = { "venda", page = "Venda (langue)", invalide = "ve" }, -- nom du modèle:Lang:ve, utilisé par le modèle:Documentation modèle d'indication de langue
}

-- code pour transformer la liste de code en table plus facilement utilisable par le module:Langue
local p = {}

local ustringLower = mw.ustring.lower

for k, v in pairs( data ) do
local clef = k:lower()
p[ clef ] = v

-- ajout du nom
v.nom = v[ 1 ]

-- ajout du code
if v.invalide then
v.code = v.invalide
else
v.code = k
end

-- ajout des alias (en lowercase : le nom, d'éventuels noms supplémentaires)
local cible
if v.invalide then
cible = data[ v.invalide ] or v
else
cible = v
end
for i = #v, 1, -1 do -- backward iteration
local alias = v[ i ]

-- préfiltrage pour économiser le mw.ustring.lower() dans la majorité des cas
if alias:find( '[^a-z ]' ) then -- attention, ne pas mettre de caractère multibyte dans cette regex
alias = ustringLower( alias )
end

if not p[ alias ] then
p[ alias ] = cible
end

-- ces éléments sont supprimés de la table de la langue (d'où la backward iteration)
v[ i ] = nil
end
end

local mwLangOriginal = mw.language.fetchLanguageNames()
local mwLangFr = mw.language.fetchLanguageNames( 'fr' )

p.langueMediaWikiManquantes = {}

for k, v in pairs( mwLangFr ) do
if not p[ k ] then
p[ k ] = { code = k, nom = v }
table.insert( p.langueMediaWikiManquantes, k )
end

-- mwLangOriginal et mwLangFr ont les mêmes keys, du coup on peut traiter les deux dans cette itération

local nomOriginal = ustringLower( mwLangOriginal[ k ] )
if not p[ nomOriginal ] then
p[ nomOriginal ] = p[ k ]
end

local nomFr = ustringLower( v )
if not p[ nomFr ] then
p[ nomFr ] = p[ k ]
end
end

-- -------------------------------------------------------------------------------- --
-- liste des étiquettes d'écritures (script subtag) s'écrivant de droite à gauche --
-- -------------------------------------------------------------------------------- --
p[ "rtl script" ] = {
Arab = true,
Armi = true,
Avst = true,
Cprt = true,
Hebr = true,
Khar = true,
Lydi = true,
Mand = true,
Nkoo = true,
Orkh = true,
Phli = true,
Phlp = true,
Phlv = true,
Phnx = true,
Prti = true,
Samr = true,
Sarb = true,
Syrc = true,
Syre = true,
Syrj = true,
Syrn = true,
Thaa = true,
}

return p

Module:Math

2024-09-20T14:26:27Z

Jaggerwock : Page créée avec « -- This module provides a number of basic mathematical operations. local z = {} -- Generate random number function z.random( frame ) local first = tonumber(frame.args[1]) -- if it doesn't exist it's NaN, if not a number it's nil local second = tonumber(frame.args[2]) if first then -- if NaN or nil, will skip down to final return if first <= second then -- could match if both nil, but already checked that first is a number in last line... »

--[[

This module provides a number of basic mathematical operations.

]]
local z = {}

-- Generate random number
function z.random( frame )
local first = tonumber(frame.args[1]) -- if it doesn't exist it's NaN, if not a number it's nil
local second = tonumber(frame.args[2])

if first then -- if NaN or nil, will skip down to final return
if first <= second then -- could match if both nil, but already checked that first is a number in last line
return math.random(first, second)
end
return math.random(first)
end
return math.random()
end

--[[
order

Determine order of magnitude of a number

Usage:
{{#invoke: Math | order | value }}
]]
function z.order(frame)
local input_string = (frame.args[1] or frame.args.x or '0');
local input_number;

input_number = z._cleanNumber( frame, input_string );
if input_number == nil then
return 'Formatting error: Order of magnitude input appears non-numeric'
else
return z._order( input_number )
end
end
function z._order(x)
if x == 0 then return 0 end
return math.floor(math.log10(math.abs(x)))
end

--[[
precision

Detemines the precision of a number using the string representation

Usage:
{{ #invoke: Math | precision | value }}
]]
function z.precision( frame )
local input_string = (frame.args[1] or frame.args.x or '0');
local trap_fraction = frame.args.check_fraction or false;
local input_number;

if type( trap_fraction ) == 'string' then
trap_fraction = trap_fraction:lower();
if trap_fraction == 'false' or trap_fraction == '0' or
trap_fraction == 'no' or trap_fraction == '' then
trap_fraction = false;
else
trap_fraction = true;
end
end

if trap_fraction then
local pos = string.find( input_string, '/', 1, true );
if pos ~= nil then
if string.find( input_string, '/', pos + 1, true ) == nil then
local denominator = string.sub( input_string, pos+1, -1 );
local denom_value = tonumber( denominator );
if denom_value ~= nil then
return math.log10(denom_value);
end
end
end
end

input_number, input_string = z._cleanNumber( frame, input_string );
if input_string == nil then
return 'Formatting error: Precision input appears non-numeric'
else
return z._precision( input_string )
end
end
function z._precision( x )
x = string.upper( x )

local decimal = string.find( x, '.', 1, true )
local exponent_pos = string.find( x, 'E', 1, true )
local result = 0;

if exponent_pos ~= nil then
local exponent = string.sub( x, exponent_pos + 1 )
x = string.sub( x, 1, exponent_pos - 1 )
result = result - tonumber( exponent )
end

if decimal ~= nil then
result = result + string.len( x ) - decimal
return result
end

local pos = string.len( x );
while x:byte(pos) == string.byte('0') do
pos = pos - 1
result = result - 1
if pos <= 0 then
return 0
end
end

return result
end

--[[
max

Finds the maximum argument

Usage:
{{#invoke:Math| max | value1 | value2 | ... }}
OR
{{#invoke:Math| max }}

When used with no arguments, it takes its input from the parent
frame. Note, any values that do not evaluate to numbers are ignored.
]]
function z.max( frame )
local args = frame.args;

if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
local max_value = nil;

local i = 1;
while args[i] ~= nil do
local val = z._cleanNumber( frame, args[i] );
if val ~= nil then
if max_value == nil or val > max_value then
max_value = val;
end
end
i = i + 1;
end

return max_value
end

--[[
min

Finds the minimum argument

Usage:
{{#invoke:Math| min | value1 | value2 | ... }}
OR
{{#invoke:Math| min }}

When used with no arguments, it takes its input from the parent
frame. Note, any values that do not evaluate to numbers are ignored.
]]
function z.min( frame )
local args = frame.args;

if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
local min_value = nil;

local i = 1;
while args[i] ~= nil do
local val = z._cleanNumber( frame, args[i] );
if val ~= nil then
if min_value == nil or val < min_value then
min_value = val;
end
end
i = i + 1;
end

return min_value
end

--[[
round

Rounds a number to specified precision

Usage:
{{#invoke:Math | round | value | precision }}

--]]
function z.round(frame)
local value, precision;

value = z._cleanNumber( frame, frame.args[1] or frame.args.value or 0 );
precision = z._cleanNumber( frame, frame.args[2] or frame.args.precision or 0 );

if value == nil or precision == nil then
return 'Formatting error: Round input appears non-numeric'
else
return z._round( value, precision );
end
end
function z._round( value, precision )
local rescale = math.pow( 10, precision );
return math.floor( value * rescale + 0.5 ) / rescale;
end

--[[
precision_format

Rounds a number to the specified precision and formats according to rules
originally used for {{template:Rnd}}. Output is a string.

Usage:
{{#invoke: Math | precision_format | number | precision }}
]]
function z.precision_format( frame )
-- For access to Mediawiki built-in formatter.
local lang = mw.getContentLanguage();

local value_string, value, precision;
value, value_string = z._cleanNumber( frame, frame.args[1] or 0 );
precision = z._cleanNumber( frame, frame.args[2] or 0 );

-- Check for non-numeric input
if value == nil or precision == nil then
return 'Formatting error: invalid input when rounding'
end

local current_precision = z._precision( value );

local order = z._order( value );

-- Due to round-off effects it is neccesary to limit the returned precision under
-- some circumstances because the terminal digits will be inaccurately reported.
if order + precision >= 14 then
local orig_precision = z._precision( value_string );
if order + orig_precision >= 14 then
precision = 13 - order;
end
end

-- If rounding off, truncate extra digits
if precision < current_precision then
value = z._round( value, precision );
current_precision = z._precision( value );
end

local formatted_num = lang:formatNum( math.abs(value) );
local sign;

-- Use proper unary minus sign rather than ASCII default
if value < 0 then
sign = '−';
else
sign = '';
end

-- Handle cases requiring scientific notation
if string.find( formatted_num, 'E', 1, true ) ~= nil or math.abs(order) >= 9 then
value = value * math.pow( 10, -order );
current_precision = current_precision + order;
precision = precision + order;
formatted_num = lang:formatNum( math.abs(value) );
else
order = 0;
end
formatted_num = sign .. formatted_num;

-- Pad with zeros, if needed
if current_precision < precision then
local padding;
if current_precision <= 0 then
if precision > 0 then
local zero_sep = lang:formatNum( 1.1 );
formatted_num = formatted_num .. zero_sep:sub(2,2);

padding = precision;
if padding > 20 then
padding = 20;
end

formatted_num = formatted_num .. string.rep( '0', padding );
end
else
padding = precision - current_precision
if padding > 20 then
padding = 20;
end
formatted_num = formatted_num .. string.rep( '0', padding );
end
end

-- Add exponential notation, if necessary.
if order ~= 0 then
-- Use proper unary minus sign rather than ASCII default
if order < 0 then
order = '−' .. lang:formatNum( math.abs(order) );
else
order = lang:formatNum( order );
end

formatted_num = formatted_num .. '×10' .. order .. ''
end

return formatted_num;
end

--[[
Helper function that interprets the input numerically. If the
input does not appear to be a number, attempts evaluating it as
a parser functions expression.
]]

function z._cleanNumber( frame, number_string )
if number_string == nil or number_string:len() == 0 then
return nil, nil;
end

-- Attempt basic conversion
local number = tonumber( number_string )

-- If failed, attempt to evaluate input as an expression
if number == nil then
local attempt = frame:preprocess( '{{#expr: ' .. number_string .. '}}' );
attempt = tonumber( attempt );
if attempt ~= nil then
number = attempt;
number_string = tostring( number );
else
number = nil;
number_string = nil;
end
else
-- String is valid but may contain padding, clean it.
number_string = number_string:match( "^%s*(.-)%s*$" );
end

return number, number_string;
end

return z

Module:Utilitaire

2024-09-20T14:26:11Z

Jaggerwock : Page créée avec «  local utils = {} -- Nombre d'élément dans un dictionnaire -- function utils.tablelength(T) local count = 0 for _ in pairs(T) do count = count + 1 end return count end -- Nouveau tableau sans le premier élément -- function utils.tail(list) return { select(2, unpack(list)) } end function utils.tableConcat(t1,t2) for i=1,#t2 do t1[#t1+1] = t2[i] end return t1 end -- trouve l’index d’une valeur si présente d... »

local utils = {}

--[[

Nombre d'élément dans un dictionnaire

--]]

function utils.tablelength(T)
local count = 0
for _ in pairs(T) do count = count + 1 end
return count
end

--[[

Nouveau tableau sans le premier élément

--]]

function utils.tail(list)
return { select(2, unpack(list)) }
end

function utils.tableConcat(t1,t2)
for i=1,#t2 do
t1[#t1+1] = t2[i]
end
return t1
end

-- trouve l’index d’une valeur si présente dans la table (index numérique)
function utils.table_ifind(t, v)
for i, val in ipairs(t) do
if v == val then
return i
end
end
return nil
end

-- trouve l’index d’une valeur si présente dans la table, index numérique ou chaine

function utils.table_find(t, v)
for i, val in pairs(t) do
if v == val then
return i
end
end
return nil
end

--[[

Une classe destinée à servir d'ensemble pour tester rapidement l'appartenance d'un élément à une liste ou un ensemble

--]]

local Set = {} -- the table representing the class, which will double as the metatable for the instances
Set.__index = Set -- failed table lookups on the instances should fallback to the class table, to get methods

function Set:new(init, o)
local obj = o or {}
setmetatable(obj, self)

obj.value = init
obj.prop_set = {}

for _, val in pairs(init) do
obj.prop_set[val] = true
end

return obj
end

function Set:is_in(key)
return self.prop_set[key] ~= nil
end

utils.Set = Set

-- table.filter({"a", "b", "c", "d"}, function(o, k, i) return o >= "c" end) --> {"c","d"}
--
-- @FGRibreau - Francois-Guillaume Ribreau
-- @Redsmin - A full-feature client for Redis http://redsmin.com

-- https://gist.github.com/fnchooft/77779d80d6668e8eeb3043dad215575a

local function filter (t, filterIter)
local out = {}

for k, v in pairs(t) do
if filterIter(v, k, t) then out[k] = v end
end

return out
end

utils.filter = filter

--[[
Programmation fonctionnelle, application d'une fonction sur chaque élément d'un tableau
map(f,{a, b, c, ...}) = {f(a), f(b), f(c), ...}
--]]

local function map(func, array)
local new_array = {}
for i,v in ipairs(array) do
new_array[i] = func(v)
end
return new_array
end

utils.map = map

function utils.formatTableWithLastSep(vector, sep, lastsep)
local descr = table.concat(vector, sep, 1, #vector-1)
if #vector > 1 then
descr = descr .. lastsep .. vector[#vector]
else
descr = vector[1]
end
return descr
end

local function dump_to_console(val, indent)
indent = indent or ""
if type(val) == "table" then
for a, b in pairs(val) do
mw.log(indent .. a .. "=>")
dump_to_console(b, indent .. " ")
end
else
mw.log(indent .. tostring(val))
end
end

utils.dump_to_console = dump_to_console
utils.dump = dump_to_console

-- some functions useful in lua

local function splitStr(val) -- transforme en table les chaînes venant du Wikitexte qui utilisent des virgules de séparatin
if type(val) == 'string' then
val = mw.text.split(val, ",")
end
return val
end

utils.splitStr = splitStr

-- utility : stack manipulation functions
-- Console tests :
-- plop = {} ; p.append(plop, "a") ; p.append(plop, "a") ; p.push(plop, "b") ; p.append(plop, "c") ; p.push(plop, "a") ; mw.log(p. dump_to_console(plop)) ; p.shove_off(plop) ; p.pop(plop) ; mw.log(plop)

local function pop(list)
local ind=1
if list[0] then
ind = 0
end
local elem = list[ind]
table.remove(list, ind)
return elem, list
end

utils.pop = pop

local function push(list, elem)
if elem[0] then
table.insert(list, 0, elem)
else
table.insert(list, 1, elem)
end
end

utils.push = push

utils.append = function(list, elem)
table.insert(list, #list+1, elem)
end

utils.shove_off = function(list, elem)
table.remove(list, elem, #list+1)
end
utils.remove_last = utils.shove_off

return utils

Module:Coordinates

2024-09-20T14:24:55Z

Jaggerwock : Page créée avec « local math_mod = require( "Module:Math" ) local p = {} local NBSP = '\194\160' -- espace insécable (code UTF-8 sur deux octets) local i18n = { N = 'N', Nlong = 'nord', W = 'O', Wlong = 'ouest', E = 'E', Elong = 'est', S = 'S', Slong = 'sud', degrees = '°' .. NBSP, minutes = '′' .. NBSP, seconds = '″' .. NBSP, geohackurl = 'http://tools.wmflabs.org/geohack/geohack.php?language=fr', tooltip = 'Cartes, vues aériennes, etc.', errorcat = 'Page... »

local math_mod = require( "Module:Math" )

local p = {}

local NBSP = '\194\160' -- espace insécable (code UTF-8 sur deux octets)

local i18n = {
N = 'N',
Nlong = 'nord',
W = 'O',
Wlong = 'ouest',
E = 'E',
Elong = 'est',
S = 'S',
Slong = 'sud',
degrees = '°' .. NBSP,
minutes = '′' .. NBSP,
seconds = '″' .. NBSP,
geohackurl = 'http://tools.wmflabs.org/geohack/geohack.php?language=fr',
tooltip = 'Cartes, vues aériennes, etc.',
errorcat = 'Page avec des balises de coordonnées mal formées',
sameaswikidata = 'Page avec coordonnées similaires sur Wikidata',
notaswikidata = 'Page avec coordonnées différentes sur Wikidata',
nowikidata = 'Page sans coordonnées Wikidata',
throughwikidata = 'Page géolocalisée par Wikidata',
invalidFormat = 'format invalide', -- 'invalid coordinate format',
invalidNSEW = 'orientation invalide, devrait être "N", "S", "E" or "W"', -- 'invalid direction should be "N", "S", "E" or "W"',
invalidNS = 'orientation de latitude invalide, devrait être "N" ou "S"', -- 'could not find latitude direction (should be N or S)',
invalidEW = 'orientation de longitude invalide, devrait être "E" ou "W"', -- 'could not find longitude direction (should be W or E) ',
noCardinalDirection = 'orientation cardinale non trouvée', -- 'no cardinal direction found in coordinates',
invalidDirection = 'direction invalide', -- 'invalid direction',
latitude90 = 'latitude > 90',
longitude360 = 'longitude > 360',
minSec60 = 'minutes ou secondes > 60',
negativeCoode = 'en format dms les degrés doivent être positifs', -- 'dms coordinates should be positive',
dmIntergers = 'degrés et minutes doivent être des nombres entiers', -- 'degrees and minutes should be integers',
tooManyParam = 'trop de paramètres pour la latitude ou la longitude', -- 'too many parameters for coordinates',
coordMissing = 'latitude ou longitude absente', -- 'latitude or longitude missing',
invalidGlobe = 'globe invalide' .. NBSP .. ': ', -- 'invalid globe:',
}
local coordParse = {
NORTH = 'N',
NORD = 'N',
EAST = 'E',
EST = 'E',
WEST = 'W',
O = 'W',
OUEST = 'W',
SOUTH = 'S',
SUD = 'S',
}

local globedata = {
--[[ notes:
radius in kilometers (especially imprecise for non spheric bodies)
defaultdisplay is currently disabled, activate it ?
]]--
ariel = {radius = 580, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
callisto = {radius = 2410, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
ceres = {radius = 470, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
charon = {radius = 1214, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
deimos = {radius = 7, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
dione = {radius = 560, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
enceladus = {radius = 255, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
ganymede = {radius = 2634, defaultdisplay = 'dec west', trackingcat = 'sur Ganymède'},
earth = {radius = 6371, defaultdisplay = 'dms', trackingcat = 'sur Terre'},
europa = {radius = 1561, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
hyperion = {radius = 140, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
iapetus = {radius = 725, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
['io'] = {radius = 1322, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
jupiter = {radius = 68911, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
mars = {radius = 3389.5, defaultdisplay = 'dec east', trackingcat = 'sur Mars'},
mercury = {radius = 2439.7, defaultdisplay = 'dec west', trackingcat = 'sur Mercure'},
mimas = {radius = 197, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
miranda = {radius = 335, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
moon = {radius = 1736, defaultdisplay = 'dec', trackingcat = 'sur la Lune'},
neptune = {radius = 24553, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
oberon = {radius = 761, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
phoebe = {radius = 110, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
phobos = {radius = 11, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
pluto = {radius = 1185, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
rhea = {radius = 765, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
saturn = {radius = 58232, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
titan = {radius = 2575.5, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
tethys = {radius = 530, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
titania = {radius = 394, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
triton = {radius = 1353, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
umbriel = {radius = 584, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
uranus = {radius = 25266, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
venus = {radius = 6051.8, defaultdisplay = 'dec east', trackingcat = 'sur Vénus'},
vesta = {radius = 260, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'}
}
globedata[''] = globedata.earth

local wikidatathreshold = 10 -- si la distance entre coordonnées Wikipédia et Wikidata dépasse ce seuil (en kilomètres), une catégorie de maintenance est ajoutée
local lang = mw.language.getContentLanguage()
local default_zoom = 13

local function makecat(cat, sortkey)
if type( sortkey ) == 'string' then
return '[[Category:' .. cat .. '|' .. sortkey .. ']]'
else
return '[[Category:' .. cat .. ']]'
end
end

----------------------------------------
--Error handling
--[[ Notes:
when errors occure a new error message is concatenated to errorstring
an error message contains an error category with a sortkey
For major errors, it can also display an error message (the error message will the usually be returned and the function terminated)
More minor errors do only add a category, so that readers are not bothered with error texts
sortkeys:
* A: invalid latitude, longitude or direction
* B: invalid globe
* C: something wrong with other parameters
* D: more than one primary coord
]]--

local errorstring = ''

local function makeerror(args)
local errormessage = ''
if args.message then
errormessage = ' Coordonnées' .. NBSP .. ': ' .. args.message .. ''
end
local errorcat = ''
if mw.title.getCurrentTitle().namespace == 0 then
errorcat = makecat(i18n.errorcat, args.sortkey)
end
errorstring = errormessage .. errorcat -- reinitializes the string to avoid absurdly long messages
return nil
end

local function showerrors()
return errorstring
end

-- Distance computation
function p._distance(a, b, globe) -- calcule la [[distance orthodromique]] en kilomètres entre deux points du globe

globe = string.lower(globe or 'earth')

-- check arguments and converts degreees to radians
local latA, latB, longA, longB = a.latitude, b.latitude, a.longitude, b.longitude
if (not latA) or (not latB) or (not longA) or (not longB) then return
error('coordinates missing, can\'t compute distance')
end
if type(latA) ~= 'number' or type(latB) ~= 'number' or type(longA) ~= 'number' or type(longB) ~= 'number' then
error('coordinates are not numeric, can\'t compute distance')
end
if not globe or not globedata[globe] then
return error('globe: ' .. globe .. 'is not supported')
end

-- calcul de la distance angulaire en radians
local convratio = math.pi / 180 -- convertit en radians
latA, latB, longA, longB = convratio * latA, convratio * latB, convratio * longA, convratio * longB
local cosangle = math.sin(latA) * math.sin(latB) + math.cos(latA) * math.cos(latB) * math.cos(longB - longA)
if cosangle >= 1 then -- may be above one because of rounding errors
return 0
end
local angle = math.acos(cosangle)
-- calcul de la distance en km
local radius = globedata[globe].radius
return radius * angle
end

function p.distance(frame)
local args = frame.args
return p._distance(
{latitude = tonumber(args.latitude1), longitude = tonumber(args.longitude1)},
{latitude = tonumber(args.latitude2), longitude = tonumber(args.longitude2)},
args.globe)
end

local function geoHackUrl(decLat, decLong, globe, displayformat, objectname, extraparams)
extraparams = extraparams or ''
local geohacklatitude, geohacklongitude
-- format latitude and longitude for the URL
if tonumber(decLat) < 0 then
geohacklatitude = tostring(-tonumber(decLat)) .. '_S'
else
geohacklatitude = decLat .. '_N'
end
if tonumber(decLong) < 0 then
geohacklongitude = tostring(-tonumber(decLong)) .. '_W'
elseif globedata[globe].defaultdisplay == 'dec west' then
geohacklongitude = decLong .. '_W'
else
geohacklongitude = decLong .. '_E'
end
-- prepares the 'paramss=' parameter
local geohackparams = geohacklatitude .. '_' .. geohacklongitude .. '_' ..extraparams
-- concatenate parameteres for geohack
return i18n.geohackurl ..
"&pagename=" .. mw.uri.encode(mw.title.getCurrentTitle().prefixedText, "WIKI") ..
"&params=" .. geohackparams ..
(objectname and ("&title=" .. mw.uri.encode(objectname)) or "")
end

--HTML builder for a geohack link
local function buildHTML(decLat, decLong, dmsLat, dmsLong, globe, displayformat, displayinline, displaytitle, objectname, extraparams)
-- geohack url
local url = geoHackUrl(decLat, decLong, globe, displayformat, objectname, extraparams)

-- displayed coordinates
local displaycoords
if string.sub(displayformat, 1, 3) == 'dec' then
displaycoords = p.displaydec(decLat, decLong, displayformat)
else
displaycoords = {
p.displaydmsdimension(dmsLat, displayformat),
p.displaydmsdimension(dmsLong, displayformat),
}
end

-- build coordinate in h-geo / h-card microformat
local globeNode
if globe and globe ~= 'earth' then
globeNode = mw.html.create('data')
:addClass('p-globe')
:attr{ value = globe }
:done()
end

local coordNode = mw.html.create('')
if objectname then
coordNode = mw.html.create('span')
:addClass('h-card')
:tag('data')
:addClass('p-name')
:attr{ value = objectname }
:done()
end
coordNode
:tag('span')
:addClass('h-geo')
:addClass('geo-' .. string.sub(displayformat, 1, 3))
:tag('data')
:addClass('p-latitude')
:attr{ value = decLat }
:wikitext( displaycoords[1] )
:done()
:wikitext(", ")
:tag('data')
:addClass('p-longitude')
:attr{ value = decLong }
:wikitext( displaycoords[2] )
:done()
:node( globeNode )
:done()

-- buid GeoHack link
local root = mw.html.create('span')
:addClass('plainlinks nourlexpansion')
:attr('title', i18n.tooltip)
:wikitext('[' .. url )
:node(coordNode)
:wikitext("]")
:done()

-- format result depending on args["display"] (nil, "inline", "title", "inline,title")
local inlineText = displayinline and tostring(root) or ''
local titleText = ''
if displaytitle then
local htmlTitle = mw.html.create('span')
:attr{ id = 'coordinates' }
:addClass( displayinline and 'noprint' or nil )
:node( root )
local frame = mw.getCurrentFrame()
titleText = frame:extensionTag( 'indicator', tostring(htmlTitle), { name = 'coordinates' } )
end

return inlineText .. titleText
end

local function zoom( extraparams )
local zoomParam = extraparams:match( '%f[%w]zoom: ?(%d+)' )
if zoomParam then
return zoomParam
end

local scale = extraparams:match( '%f[%w]scale: ?(%d+)' )
if scale then
return math.floor(math.log10( 1 / tonumber( scale ) ) * 3 + 25)
end

local extraType = extraparams:match( '%f[%w]type: ?(%w+)' )
if extraType then
local zoomType = {
country = 5,
state = 6,
adm1st = 7,
adm2nd = 8,
city = 9,
isle = 10,
mountain = 10,
waterbody = 10,
airport = 12,
landmark = 13,
}
return zoomType[ extraType ]
end
end

--HTML builder for a geohack link
local function buildMaplinkHTML( decLat, decLong, dmsLat, dmsLong, globe, displayformat, displayinline, displaytitle, objectname, extraparams )
-- displayed coordinates
local displaycoords
if string.sub(displayformat, 1, 3) == 'dec' then
displaycoords = p.displaydec(decLat, decLong, displayformat)
else
displaycoords = {
p.displaydmsdimension(dmsLat, displayformat),
p.displaydmsdimension(dmsLong, displayformat),
}
end

-- JSON for maplink
local jsonParams = {
type = 'Feature',
geometry = {
type ='Point',
coordinates = {
math_mod._round( decLong, 6 ), -- max precision in GeoJSON format
math_mod._round( decLat, 6 )
}
},
properties = {
['marker-color'] = "228b22",
}
}
if objectname then
jsonParams.properties.title = objectname
end
-- ajout de geoshape via externaldata
local geoshape = extraparams:match( '%f[%w]geoshape: ?(Q%d+)' )
if not geoshape and displaytitle and mw.wikibase.getEntity() then
geoshape = mw.wikibase.getEntity().id
end
if geoshape then
jsonParams = {
jsonParams,
{
type = 'ExternalData',
service = 'geoshape',
ids = geoshape,
properties = {
['fill-opacity'] = 0.2
}
}
}
end

local maplink = mw.getCurrentFrame():extensionTag{
name = 'maplink',
content = mw.text.jsonEncode( jsonParams ),
args = {
text = displaycoords[1] .. ", " .. displaycoords[2],
zoom = zoom( extraparams ) or default_zoom,
latitude = decLat,
longitude = decLong,
}
}

-- format result depending on args["display"] (nil, "inline", "title", "inline,title")
local inlineText = displayinline and maplink or ''
local titleText = ''
if displaytitle then
local htmlTitle = mw.html.create('span')
:attr{ id = 'coordinates' }
:addClass( displayinline and 'noprint' or nil )
:wikitext( maplink )
local frame = mw.getCurrentFrame()
titleText = frame:extensionTag( 'indicator', tostring(htmlTitle), { name = 'coordinates' } )
end

return inlineText .. titleText
end

-- dms specific funcions

local function twoDigit( value )
if ( value < 10 ) then
value = '0' .. lang:formatNum( value )
else
value = lang:formatNum( value )
end
return value
end

function p.displaydmsdimension(valuetable, format) -- formate en latitude ou une longitude dms
local str = ''
local direction = valuetable.direction
local degrees, minutes, seconds = '', '', ''
local dimension

if format == 'dms long' then
direction = i18n[direction .. 'long']
else
direction = i18n[direction]
end
degrees = lang:formatNum( valuetable.degrees ) .. i18n.degrees

if valuetable.minutes then
minutes = twoDigit( valuetable.minutes ) .. i18n.minutes
end
if valuetable.seconds then
seconds = twoDigit( valuetable.seconds ) .. i18n.seconds
end
return degrees .. minutes .. seconds .. direction
end

local function validdms(coordtable)
local direction = coordtable.direction
local degrees = coordtable.degrees or 0
local minutes = coordtable.minutes or 0
local seconds = coordtable.seconds or 0
local dimension = coordtable.dimension
if not dimension then
if direction == 'N' or direction == 'S' then
dimension = 'latitude'
elseif direction == 'E' or direction == 'W' then
dimension = 'longitude'
else
makeerror({message = i18n.invalidNSEW, sortkey = 'A'})
return false
end
end

if type(degrees) ~= 'number' or type(minutes) ~= 'number' or type(seconds) ~= 'number' then
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
return false
end

if dimension == 'latitude' and direction ~= 'N' and direction ~= 'S' then
makeerror({message = i18n.invalidNS, sortkey = 'A'})
return false
end
if dimension == 'longitude' and direction ~= 'W' and direction ~= 'E' then
makeerror({message = i18n.invalidEW, sortkey = 'A'})
return false
end

if dimension == 'latitude' and degrees > 90 then
makeerror({message = i18n.latitude90, sortkey = 'A'})
return false
end

if dimension == 'longitude' and degrees > 360 then
makeerror({message = i18n.longitude360, sortkey = 'A'})
return false
end

if degrees < 0 or minutes < 0 or seconds < 0 then
makeerror({message = i18n.negativeCoode, sortkey = 'A'})
return false
end

if minutes > 60 or seconds > 60 then
makeerror({message = i18n.minSec60, sortkey = 'A'})
return false
end
if (math.floor(degrees) ~= degrees and minutes ~= 0) or (math.floor(minutes) ~= minutes and seconds ~= 0) then
makeerror({message = i18n.dmIntergers, sortkey = 'A'})
return false
end
return true
end

local function builddmsdimension(degrees, minutes, seconds, direction, dimension)
-- no error checking, done in function validdms
local dimensionobject = {}

-- direction and dimension (= latitude or longitude)
dimensionobject.direction = direction
if dimension then
dimensionobject.dimension = dimension
elseif direction == 'N' or direction == 'S' then
dimensionobject.dimension = 'latitude'
elseif direction == 'E' or direction == 'W' then
dimensionobject.dimension = 'longitude'
end

-- degrees, minutes, seconds
dimensionobject.degrees = tonumber(degrees)
dimensionobject.minutes = tonumber(minutes)
dimensionobject.seconds = tonumber(seconds)
if degrees and not dimensionobject.degrees then dimensionobject.degrees = 'error' end
if minutes and not dimensionobject.minutes then dimensionobject.minutes = 'error' end
if seconds and not dimensionobject.seconds then dimensionobject.seconds = 'error' end
return dimensionobject
end

function p._parsedmsstring( str, dimension ) -- prend une séquence et donne des noms aux paramètres
-- output table: { latitude=, longitude = , direction = }
if type( str ) ~= 'string' then
return nil
end
str = mw.ustring.gsub( mw.ustring.upper( str ), '%a+', coordParse )
if not tonumber( str ) and not str:find( '/' ) and str:find( '°' ) then
local str2 = mw.ustring.gsub( str, '[°″′\"\'\194\160 ]+', '/' )
-- avoid cases were there is degree ans seconds but no minutes
if not mw.ustring.find( str, '[″"]' ) or mw.ustring.find( str, '%d[′\'][ \194\160%d]' ) then
str = str2
end
end
if not tonumber(str) and not string.find(str, '/') then
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
return nil
end
local args = mw.text.split(str, '/', true)
if #args > 4 then
makeerror({message = i18n.tooManyParam, sortkey = 'A'})
end
local direction = mw.text.trim(args[#args])
table.remove(args)
local degrees, minutes, seconds = args[1], args[2], args[3]
local dimensionobject = builddmsdimension(degrees, minutes, seconds, direction, dimension)
if validdms(dimensionobject) then
return dimensionobject
else
return nil
end
end

--- decimal specific functions
function p.displaydec(latitude, longitude, format)
local lat = lang:formatNum( latitude )
local long = lang:formatNum( longitude )

if format == 'dec west' or format == 'dec east' then
local symbolNS, symbolEW = i18n.N, i18n.E
if latitude < 0 then
symbolNS = i18n.S
lat = lang:formatNum( -latitude )
end
if format == 'dec west' then
symbolEW = i18n.W
end
if longitude < 0 then
long = lang:formatNum( 360 + longitude )
end

return { lat .. i18n.degrees .. symbolNS, long .. i18n.degrees .. symbolEW }

else
return { lat, long }
end
end

local function parsedec(dec, coordtype, globe) -- coordtype = latitude or longitude
dec = mw.text.trim(dec)
if not dec then
return nil
end
if coordtype ~= 'latitude' and coordtype ~= 'longitude' then
makeerror({'invalid coord type', sortkey = "A"})
return nil
end
local numdec = tonumber(dec) -- numeric value, kept separated as it looses significant zeros
if not numdec then -- tries the decimal + direction format
dec = mw.ustring.gsub( mw.ustring.upper( dec ), '%a+', coordParse )
local direction = mw.ustring.sub(dec, mw.ustring.len(dec), mw.ustring.len(dec))
dec = mw.ustring.sub(dec, 1, mw.ustring.len(dec)-2) -- removes the /N at the end
if not dec or not tonumber(dec) then
return nil
end
if direction == 'N' or direction == 'E' or direction == 'W' and globedata[globe].defaultdisplay == 'dec west' then
numdec = tonumber( dec )
elseif direction == 'W' or direction == 'S' then
dec = '-' .. dec
numdec = tonumber( dec )
else
if coordtype == 'latitude' then
makeerror({message = i18n.invalidNS, sortkey = 'A'})
else
makeerror({message = i18n.invalidEW, sortkey = 'A'})
end
return nil
end
end

if coordtype == 'latitude' and math.abs(numdec) > 90 then
makeerror({message = i18n.latitude90 , sortkey = 'A'})
return nil
end
if coordtype == 'longitude' and math.abs(numdec) > 360 then
makeerror({message = i18n.longitude360 , sortkey = 'A'})
return nil
end
return dec
end

-- dms/dec conversion functions
local function convertprecision(precision) -- converts a decimal precision like "2" into "dm"
if precision >= 3 then
return 'dms'
elseif precision >=1 then
return 'dm'
else
return 'd'
end
end

local function determinedmsprec(decs) -- returns the most precision for a dec2dms conversion, depending on the most precise value in the decs table
local precision = 0
for d, val in ipairs(decs) do
precision = math.max(precision, math_mod._precision(val))
end
return convertprecision(precision)
end

local function dec2dms_d(dec)
local degrees = math_mod._round( dec, 0 )
return degrees
end

local function dec2dms_dm(dec)
dec = math_mod._round( dec * 60, 0 )
local minutes = dec % 60
dec = math.floor( (dec - minutes) / 60 )
local degrees = dec % 360
return degrees, minutes
end

local function dec2dms_dms(dec)
dec = math_mod._round( dec * 60 * 60, 0 )
local seconds = dec % 60
dec = math.floor( (dec - seconds) / 60 )
local minutes = dec % 60
dec = math.floor( (dec - minutes) / 60 )
local degrees = dec % 360
return degrees, minutes, seconds
end

function p._dec2dms(dec, coordtype, precision, globe) -- coordtype: latitude or longitude
local degrees, minutes, seconds

-- vérification du globe
if not ( globe and globedata[ globe ] ) then
globe = 'earth'
end

-- precision
if not precision or precision == '' then
precision = determinedmsprec({dec})
end
if precision ~= 'd' and precision ~= 'dm' and precision ~= 'dms' then
return makeerror({sortkey = 'C'})
end
local dec = tonumber(dec)

-- direction
local direction
if coordtype == 'latitude' then
if dec < 0 then
direction = 'S'
else
direction = 'N'
end
elseif coordtype == 'longitude' then
if dec < 0 or globedata[globe].defaultdisplay == 'dec west' then
direction = 'W'
else
direction = 'E'
end
end

-- conversion
dec = math.abs(dec) -- les coordonnées en dms sont toujours positives
if precision == 'dms' then
degrees, minutes, seconds = dec2dms_dms(dec)
elseif precision == 'dm' then
degrees, minutes = dec2dms_dm(dec)
else
degrees = dec2dms_d(dec)
end
return builddmsdimension(degrees, minutes, seconds, direction)
end

function p.dec2dms(frame) -- legacy function somewhat cumbersome syntax
local args = frame.args
local dec = args[1]
if not tonumber(dec) then
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
return showerrors()
end
local dirpositive = string.lower(args[2] or '')
local dirnegative = string.lower(args[3] or '')
local precision = string.lower(args[4] or '')
local displayformat, coordtype

if dirpositive == 'n' or dirpositive == 'nord' then
coordtype = 'latitude'
else
coordtype = 'longitude'
end
if dirpositive == 'nord' or dirpositive == 'est' or dirnegative == 'ouest' or dirnegative == 'sud' then
displayformat = 'dms long'
end
local coordobject = p._dec2dms(dec, coordtype, precision)
if coordobject then
return p.displaydmsdimension(coordobject, displayformat) .. showerrors()
else
return showerrors()
end
end

function p._dms2dec(dmsobject) -- transforme une table degré minute secondes en nombre décimal
local direction, degrees, minutes, seconds = dmsobject.direction, dmsobject.degrees, dmsobject.minutes, dmsobject.seconds
local factor = 0
local precision = 0
if not minutes then minutes = 0 end
if not seconds then seconds = 0 end

if direction == "N" or direction == "E" then
factor = 1
elseif direction == "W" or direction == "S" then
factor = -1
elseif not direction then
makeerror({message = i18n.noCardinalDirection, sortkey = 'A'})
return nil
else
makeerror({message = i18n.invalidDirection, sortkey = 'A'})
return nil
end

if dmsobject.seconds then -- vérifie la précision des données initiales
precision = 5 + math.max( math_mod._precision(tostring(seconds), 0 ) ) -- passage par des strings assez tarabiscoté ?
elseif dmsobject.minutes then
precision = 3 + math.max( math_mod._precision(tostring(minutes), 0 ) )
else
precision = math.max( math_mod._precision(tostring(degrees), 0 ) )
end

local decimal = factor * (degrees+(minutes+seconds/60)/60)
return math_mod._round(decimal, precision)
end

function p.dms2dec(frame) -- legacy function, somewhat bizarre syntax
local args = frame.args
if tonumber(args[1]) then
return args[1] -- coordonnées déjà en décimal
elseif not args[2] then
local dmsobject = p._parsedmsstring(args[1])
if dmsobject then
return p._dms2dec(dmsobject) -- coordonnées sous la fore 23/22/N
else
local coordType
if args[1]:match( '[NS]' ) then
coordType = 'latitude'
elseif args[1]:match( '[EWO]') then
coordType = 'longitude'
end
if coordType then
local result = parsedec( args[1], coordType, args.globe or 'earth' )
if result then
return result
end
end
return showerrors()
end
else
return p._dms2dec({direction = args[1], degrees = tonumber(args[2]), minutes = tonumber(args[3]), seconds = tonumber(args[4])})
end
end

-- Wikidata
local function convertwikidataprecision(precision) -- converts a decima like "0.1" into "dm"
if precision < 0.016 then
return 'dms'
elseif precision < 1 then
return 'dm'
else
return 'd'
end
end

local function wikidatacoords(query)
query = query or {property = 'p625'}
query.formatting = 'raw'
local wd = require('Module:Wikidata')
local claim = wd.getClaims(query)
if claim and claim[1] then -- redundant but more robust in case of a change in the code of Module:Wikidata
local coords = wd.formatSnak(claim[1].mainsnak) -- todo: check for special values
-- Wikidata does not handle correctly +West longitudes
if globedata[ coords.globe ] and globedata[ coords.globe ].defaultdisplay == 'dec west' then
coords.longitude = math.abs( coords.longitude )
end
return coords.latitude, coords.longitude, coords.globe or 'earth', convertwikidataprecision(coords.precision or .001)
end
return nil
end

local function wikidatacat(globe)
--catbase= Article géolocalisé sur Terre
local entitycat = mw.wikibase.getEntity()

local basecat = 'Article géolocalisé'
local finalcat = {}
--BADGES
if entitycat then
--BADGES
for i, badgeId in ipairs( entitycat.sitelinks['frwiki'].badges ) do
if badgeId == 'Q17437796' then
basecat = string.gsub(basecat, "Article géolocalisé", "Article de qualité géolocalisé")
end
if badgeId == 'Q17437798' then
basecat = string.gsub(basecat, "Article géolocalisé", "Bon article géolocalisé")
end
end
end

if globe == 'earth' then
if entitycat and entitycat.claims then
local country = entitycat.claims['P17']
if not country then
--pas pays à récupérer
basecat = basecat .. ' sur Terre'
table.insert(finalcat, basecat)
else
--parfois plusieurs pays
for i, paysId in ipairs( country ) do
--on fait confiance au label wikidata
local gdataone, qid

if paysId.mainsnak.snaktype == 'value' then
qid = paysId.mainsnak.datavalue.value['numeric-id']
gdataone = mw.loadData("Module:Drapeau/Data").data[qid]
else
--Bir Tawil n'a pas de pays connu
qid = '?'
end
if gdataone ~= nil then
local genre = mw.loadData("Module:Drapeau/Domaine").genre
local prep = genre[gdataone['genre']]['en'] or 'en '
local thecat = basecat .. ' '..prep ..mw.wikibase.label('Q'.. qid)
if mw.title.new('category:'..thecat).exists then
table.insert(finalcat, thecat)
else
--Dommage!
mw.log(thecat .. ' à créer')
end
else
--pas d'id?
mw.log(qid .. ' à paramétrer')
end
end
if #finalcat == 0 then
--pas pays à récupérer
basecat = basecat .. ' sur Terre'
table.insert(finalcat, basecat)
end
end
else
--pas wikidata
basecat = basecat .. ' sur Terre'
table.insert(finalcat, basecat)
end
elseif globedata[globe] then
basecat = basecat .. ' ' .. globedata[globe].trackingcat
table.insert(finalcat, basecat)
else
basecat = basecat .. ' extraterrestre'
table.insert(finalcat, basecat)
end
return finalcat
end

-- main function for displaying coordinates
function p._coord(args)

-- I declare variable
local displayformat = args.format -- string: one of: 'dms', 'dms long', 'dec', 'dec east' and 'dec west'
local displayplace = string.lower(args.display or 'inline') --string: one of 'inline', 'title' or 'inline,title'
local displayinline = string.find(displayplace, 'inline') and true or false
local displaytitle = string.find(displayplace, 'title') and true or false
local objectname = (args.name ~= '') and args.name -- string: name of the title displayed in geohack
local notes = (' ' and args.notes) or '' -- string: notes to de displayed after coordinates
local wikidata = args.wikidata -- string: set to "true" if needed
local wikidataquery = args.wikidataquery -- table: see [[Module:Wikidata]] see function wikidatacoords
local dmslatitude, dmslongitude -- table (when created)
local extraparams = args.extraparams or '' -- string (legacy, corresponds to geohackparams)
local trackingstring = '' -- tracking cats except error cats (already in errorstring)
local rawlat, rawlong = args.latitude, args.longitude
if rawlat == '' then rawlat = nil end
if rawlong == '' then rawlong = nil end
local globe = string.lower( args.globe or extraparams:match('globe:(%a+)') or '' ) -- string: see the globedata table for accepted values
local latitude, longitude, precision, dmslatitude, dmslongitude -- latitude and longitude in decimal / dmslatitude and dmslongitude: tables withdms coords
local maplink = true -- use maplink whenever it is possible
local savegeodata = nil
if args.geodata ~= nil and args.geodata ~= '' then
savegeodata = require('Module:Yesno')(args.geodata)
end
if savegeodata == nil then -- args.geodata non renseigné ou valeur non reconnue
savegeodata = (displaytitle and mw.title.getCurrentTitle():inNamespaces(0, 14, 100))
end

-- II extract coordinates from Wikitext
if (rawlat or rawlong) then
if (not rawlat) or (not rawlong) then -- if latitude is provided so should be longitude
makeerror({message = i18n.coordMissing, sortkey = 'A'})
return showerrors()
end
latitude = parsedec(rawlat, 'latitude', globe)

if latitude then -- if latitude is decimal
longitude = parsedec(rawlong, 'longitude', globe) -- so should be longitude
precision = determinedmsprec({latitude, longitude}) -- before conversion from string to number for trailing zeros
if not latitude or not longitude then
if errorstring == '' then
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
end
return showerrors()
end
dmslatitude, dmslongitude = p._dec2dms(latitude, 'latitude', precision), p._dec2dms(longitude, 'longitude', precision, globe)
latitude, longitude = tonumber(latitude), tonumber(longitude)
else -- if latitude is not decimal try to parse it as a dms string
dmslatitude, dmslongitude = p._parsedmsstring(args.latitude, 'latitude'), p._parsedmsstring(args.longitude, 'longitude')
if not dmslatitude or not dmslongitude then
return showerrors()
end
latitude, longitude = p._dms2dec(dmslatitude), p._dms2dec(dmslongitude)
end
end

-- III extract coordinate data from Wikidata and compare them to local data
local wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision
if wikidata == 'true' then
wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision = wikidatacoords(wikidataquery)

if wikidatalatitude and latitude and longitude then
local maxdistance = tonumber(args.maxdistance) or wikidatathreshold
if p._distance({latitude = latitude, longitude = longitude}, {latitude = wikidatalatitude, longitude = wikidatalongitude}, wikidataglobe) < maxdistance then
trackingstring = trackingstring .. makecat(i18n.sameaswikidata)
else
trackingstring = trackingstring .. makecat(i18n.notaswikidata)
end
end
if wikidatalatitude and not latitude then
latitude, longitude, globe, precision = wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision
dmslatitude, dmslongitude = p._dec2dms(latitude, 'latitude', precision), p._dec2dms(longitude, 'longitude', precision, globe)
trackingstring = trackingstring .. makecat(i18n.throughwikidata)
end

if latitude and not wikidatalatitude then
if mw.title.getCurrentTitle().namespace == 0 then
trackingstring = trackingstring .. makecat(i18n.nowikidata)
end
end
end

-- exit if stil no latitude or no longitude
if not latitude and not longitude then
return nil -- ne rien ajouter ici pour que l'appel à cette fonction retourne bien nil en l'absence de données
end

-- IV best guesses for missing parameters

--- globe
if globe == '' then
globe = 'earth'
end
if not globedata[globe] then
makeerror({message = i18n.invalidGlobe .. globe})
globe = 'earth'
end
if globe ~= 'earth' then
extraparams = extraparams .. '_globe:' .. globe -- pas de problème si le globe est en double
maplink = false
end

--- diplayformat
if not displayformat or displayformat == '' then
displayformat = globedata[globe].defaultdisplay
end

-- displayinline/displaytitle
if not displayinline and not displaytitle then
displayinline = true
if displayplace ~= '' then
makeerror({sortkey = 'C'}) --error if display not empty, but not a major error, continue
end
end
if displaytitle and mw.title.getCurrentTitle().namespace == 0 then
--local cattoappend = globedata[globe].trackingcat
--Récupération des badges
local cats = wikidatacat(globe)
for i, cat in ipairs( cats ) do
trackingstring = trackingstring .. makecat(cat)
end

end

-- V geodata
local geodata = ''
if savegeodata and latitude and longitude then
local latstring, longstring = tostring(latitude), tostring(longitude)
local primary = ''

local frame = mw.getCurrentFrame()
local geodataparams = {[1] = latstring, [2] = longstring, [3] = extraparams}
if displaytitle then
geodataparams[4] = 'primary'
end
if objectname then
geodataparams.name = objectname
end
geodata = frame:callParserFunction('#coordinates', geodataparams)
if string.find(geodata, 'error') then -- the only error that has not been caught yet is primary key
geodata = ''
makeerror({sortkey='D'})
end
end
-- VI final output
local mainstring = ''
if maplink then
mainstring = buildMaplinkHTML(latitude, longitude, dmslatitude, dmslongitude, globe, displayformat, displayinline, displaytitle, objectname, extraparams)
else
mainstring = buildHTML(latitude, longitude, dmslatitude, dmslongitude, globe, displayformat, displayinline, displaytitle, objectname, extraparams)
end

return mainstring .. notes .. trackingstring .. geodata .. showerrors()
end

function p.coord(frame) -- parses the strange parameters of Template:Coord before sending them to p.coord
local args = frame.args
local numericargs = {}
for i, j in ipairs(args) do
args[i] = mw.text.trim(j)
if args[i] ~= '' then
table.insert(numericargs, args[i])
end
end

if #numericargs %2 == 1 then -- if the number of args is odd, the last one provides formatting parameters
args.extraparams = numericargs[#numericargs]
if #numericargs == 1 and tonumber(numericargs[1]) then
makeerror({message = i18n.coordMissing, sortkey = 'A'})
return showerrors()
end
table.remove(numericargs)
end
for i, j in ipairs(numericargs) do
if i <= (#numericargs / 2) then
if not args.latitude then
args.latitude = j
else
args.latitude = args.latitude .. '/' .. j
end
else
if not args.longitude then
args.longitude = j
else
args.longitude = args.longitude .. '/' .. j
end
end
end

if string.find(args.latitude or '', 'E') or string.find(args.latitude or '', 'W') then
args.latitude, args.longitude = args.longitude, args.latitude
end
return p._coord(args)
end

function p.Coord(frame)
return p.coord(frame)
end

function p.latitude(frame) -- helper function pour infobox, à déprécier
local args = frame.args
local latitude = frame.args[1]
if latitude and mw.text.trim(latitude) ~= '' then
return latitude
elseif frame.args['wikidata'] == 'true' then
local lat, long = wikidatacoords()
return lat
end
end
function p.longitude(frame) -- helper function pour infobox, à déprécier
local args = frame.args
local longitude = frame.args[1]
if longitude and mw.text.trim(longitude) ~= '' then
return longitude
elseif frame.args['wikidata'] == 'true' then
local lat, long = wikidatacoords()
return long
end
end

return p

Module:Langue

2024-09-20T14:24:40Z

Jaggerwock : Page créée avec « -- luacheck: globals mw, no max line length local Langue = { } local dataLangue = mw.loadData( 'Module:Langue/Data' ) -- attention, plusieurs modules cherchent « class="error" » pour détecter si ce module a retourné une erreur -- pour trouver ces codes, on peut rechercher dans le namespace Module : insource:Langue insource:/(find|match)\([^)]+error/ local langErrorMess = 'langue non reconnue : %s' -- premierParametre renvoie le... »

-- luacheck: globals mw, no max line length

local Langue = { }

local dataLangue = mw.loadData( 'Module:Langue/Data' )

-- attention, plusieurs modules cherchent « class="error" » pour détecter si ce module a retourné une erreur
-- pour trouver ces codes, on peut rechercher dans le namespace Module : insource:Langue insource:/(find|match)\([^)]+error/
local langErrorMess = 'langue non reconnue : %s'

-- premierParametre renvoie le premier paramètre de Frame, que celui-ci ait été passé au module par invoke, directement au modèle,
-- ou à l'intérieur d'un module sous forme de string dans un tableau ou directement de string.
-- 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 subcodes
-- 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
-- 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
-- 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

-- Voir Modèle:Direction langue
-- 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 subcodes.
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'écriture, 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 subcode 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

local function getDataLangue( frame )
-- Obtenir le code de la langue
local codeLangue = premierParametre( frame, true )
-- Si le paramètre est incorrect, retourner un message d'erreur
if type( codeLangue ) ~= 'string' or codeLangue == '' then
return nil, 'langue non précisée'
end

-- Obtenir le tableau contenant les informations sur la langue
local tabLangue = dataLangue[ codeLangue ]
-- Si le code étendu n'est pas trouvé, chercher à nouveau avec le code racine
if not tabLangue then
tabLangue = dataLangue[ mw.ustring.match( codeLangue, '^(%a-)%-' ) ]
end
-- Si on n'a toujours rien trouvé, retourner un message d'erreur
if not tabLangue then
return nil, langErrorMess:format( codeLangue )
end

return tabLangue
end

-- Fonction fournissant un wikilien vers l'article
-- traitant d'une langue à partir de son code.
-- Voir Modèle:Lien langue
-- Paramètre :
-- 1 : code IETF de langue.
function Langue.lienLangue( frame )
local tabLangue, erreur = getDataLangue( frame )
if not tabLangue then
return erreur
end

-- Créer un lien pour la langue depuis le tableau
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

-- Fonction permettant de récupérer le nom d'une langue à partir de son code.
-- Voir Modèle:Nom langue
-- Paramètre :
-- 1 : code IETF de langue.
-- Retourne :
-- Le nom de la langue, un message d'erreur sinon.
function Langue.nomLangue( frame )
local tabLangue, erreur = getDataLangue( frame )
if not tabLangue then
return erreur
end

-- Extraire le nom de la langue depuis le tableau
return tabLangue.nom
end

-- Fonction permettant de récupérer le nom de l'article
-- portant sur une langue à partir de son code.
-- Voir Modèle:Article langue
-- Paramètre :
-- 1 : code IETF de langue.
-- Retourne :
-- Le nom de l'article portant sur la langue
-- si le code est trouvé, un message d'erreur sinon.
function Langue.articleLangue( frame )
local tabLangue, erreur = getDataLangue( frame )
if not tabLangue then
return erreur
end

-- Extraire le titre de l'article depuis le tableau
if type( tabLangue.page ) == 'string' and tabLangue.page ~= '' then
return tabLangue.page
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 namespaceCategorisation = { [0] = true, [4] = true, [10] = true, [12] = true, [14] = true, [100] = true }
local categorisation = namespaceCategorisation[ mw.title.getCurrentTitle().namespace ] and not args.nocat

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

-- sortie immédiate s'il n'y a pas de texte
if texte == '' then
if categorisation then
return 'erreur du modèle [[modèle:Langue|{{langue}}]] : texte absent[[Catégorie:Page utilisant un modèle avec une syntaxe erronée|Langue]]'
else
return ''
end
end

-- récursion si texte contient des blocs
if texte:match('\n *\n') or texte:match('\n[*#:]') then
-- les parenthèses permettent d'éliminer la seconde valeur retournée par gsub (nombre de remplacements)
return ( texte:gsub(
'(\n?[*#:]?%s*)([^\n]+)',
function ( init, ligne )
return init .. Langue.langue{ code, ligne }
end
) )
end

-- 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éparation 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

-- Compilation du texte à retourner.
local html = mw.html.create( '' )
if code == '' then
html:wikitext( texte )
else
local span = mw.html.create( 'span' )
:addClass( 'lang-' .. code )
:attr( 'lang', code )
:attr( 'dir', dir )
:wikitext( texte )

if args.class and args.class ~= '' then
span:addClass( args.class )
end

html:node( span )

-- Translittération.
if ( args.trans or '' ) ~= '' then
local trans = args.trans:gsub( "^''%f[^'](.+)%f[']''$", "%1" )
html:wikitext( " (''" )
:tag( 'span' )
:addClass( 'transcription lang-' .. code )
:attr( 'lang', code .. '-Latn' )
:attr( 'dir', 'ltr' )
:wikitext( trans )
:done()
:wikitext( "'')" )
end

end

-- Ajout de la catégorie Page avec code de langue invalide si le code langue non reconnu ou invalide.
if categorisation and ( type( tabLangue ) ~= 'table' or tabCode.invalide ) then
local erreur = string.format( langErrorMess, codeArg )
if codeArg == '' then
erreur = 'langue non précisée'
end
html:wikitext( '[[Catégorie:Page avec code de langue invalide|Langue]] ' .. erreur )
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 = mw.text.trim( args[1] or '' )
local code = mw.text.trim( args[2] or '' )
local texte = args.texte
local dir = args.dir

-- Cas où le premier et/ou le deuxième paramètre est vide.
if code == '' and 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 = '\194\160' .. 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( 'abbr' )
:addClass( 'abbr' )
:addClass( 'indicateur-langue' )
:attr( 'title', 'Langue : ' .. nomLangue )
:wikitext( '(' .. code .. ')' )
: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 = { }

-- Valeur par défaut du premier paramètre = 'mul'.
local code = mw.text.trim( args[1] or '' )
if code == '' then
code = 'mul'
end
local maxLang = tonumber(args.maxLang) or nil

if not args[2] and not dataLangue[ mw.ustring.lower( code ) ] then
local split = mw.text.split( code, '[+,;:/ .]+' )
if #split > 1 then
split.maxLang = maxLang
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 )
else
table.insert( listeNom, '???' )
local erreur = string.format( langErrorMess, code )
table.insert( listeCode, erreur )
end
i = i + 1
code = mw.text.trim( args[i] or '' )
until code == ''

-- Préparation et renvoi du texte.
local n = #listeCode
if n == 0 then
return ''
end
if maxLang and n > maxLang then
listeCode = {'mul'}
end
local plusieurs = ( n > 1 )

local html = mw.html.create( 'abbr' )
:addClass( 'abbr' )
:addClass( 'indicateur-langue' )
:attr( 'title', 'Langue' .. ( plusieurs and 's' or '' ) .. ' : ' .. mw.text.listToText( listeNom ) )
:wikitext( '(' .. table.concat( listeCode, '\194\160+\194\160' ) .. ')' )

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

-- 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.lienLangue{ code }

if texte ~= '' then
texte = ' ' .. Langue.lang{ code, dir = dir, texte = texte, trans = trans }
end

return nom .. ' :' .. texte
end

---
-- latinOnly détermine si la chaine fournie contient uniquement des caractères 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 type( dataLangue ) ~= 'table' then
local message = [[Le chargement du module Langue/Data génère une erreur. 

Cette erreur doit être corrigée au plus vite car des milliers de pages ne s'affichent pas correctement.
]]
return message
end
end

-- tableauLangues génère un tableau triable de la liste des langues disponible dans Module:langue/Data.
function Langue.tableauLangues()
local tableau = { }
local entete = [[{| class="wikitable alternance sortable"
|-
!scope=col|Alias
!scope=col|Code IETF
!scope=col|Nom principal
!scope=col|Titre de l'article (si différent du nom)
!scope=col|Lien vers l'article
!scope=col|RTL
!scope=col|Invalide]]

local ligneTab, ligneSrt
for k, v in pairs( dataLangue ) do
if v.code then
ligneTab = {
k,
v.code,
v.nom,
v.page or '',
Langue.lienLangue(v.code),
v.rtl and '[[Fichier:Yes check.svg|15px|oui|lien=]]' or '',
v.invalide and '[[Fichier: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()
local languesTab, listeCodesAlias = { }, { }
local code, alias, codeAlias
for k, 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 k ~= mw.ustring.lower( code ) then
table.insert( languesTab[code], k )
end
end
end
for k, 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>' .. k .. '</code>'
else
codeAlias = '* <code>' .. k .. '</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()
local languesTab = { }
local code
for k, 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 k ~= code and not v.invalide then
table.insert( languesTab, '* ' .. k .. ' = ' .. code )
end
end
table.sort( languesTab )

return table.concat( languesTab, '\n' )
end

return Langue

Module:Wikidata/Chemin/parser

2024-09-20T14:24:23Z

Jaggerwock : Page créée avec « local tool = require("Module:Utilitaire") local path = require "Module:Wikidata/Chemin/Path" local parser = require "Module:FParser" local pparser = {} --[[ grammar : letter ::= "A" | "B" | "C" | "D" | "E" | "F" | "G" | "H" | "I" | "J" | "K" | "L" | "M" | "N" | "O" | "P" | "Q" | "R" | "S" | "T" | "U" | "V" | "W" | "X" | "Y" | "Z" | "a" | "b"... »

local tool = require("Module:Utilitaire")
local path = require "Module:Wikidata/Chemin/Path"
local parser = require "Module:FParser"

local pparser = {}

--[[

grammar :

letter ::= "A" | "B" | "C" | "D" | "E" | "F" | "G"
| "H" | "I" | "J" | "K" | "L" | "M" | "N"
| "O" | "P" | "Q" | "R" | "S" | "T" | "U"
| "V" | "W" | "X" | "Y" | "Z" | "a" | "b"
| "c" | "d" | "e" | "f" | "g" | "h" | "i"
| "j" | "k" | "l" | "m" | "n" | "o" | "p"
| "q" | "r" | "s" | "t" | "u" | "v" | "w"
| "x" | "y" | "z" ;
digit ::= "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" ;
space ::= " " ;

Pid ::= "P" , digit, { digit } ;
Pname ::= letter, { letter | digit | space | "'" } ;

PathFirstLevel ::= pathFirstAlternative

-- Rules specific to allow to start from a statement instead of an item on the highest level of a path, variant of PathAlternative and PathSequence

pathFirstAlternative ::= PathFirstSequence ( '|' PathFirstSequence )*
PathFirstSequence
::= ('>' PathQualifier | PathEltOrInverse ) ( '/' PathEltOrInverse | '^' PathElt )*

Path ::= PathAlternative
PathAlternative ::= PathSequence ( '|' PathSequence )*
PathSequence ::= PathEltOrInverse ( '/' PathEltOrInverse | '^' PathElt )*
PathElt ::= PathPrimary PathMod?
PathEltOrInverse ::= PathElt | '^' PathElt
PathMod ::= ( '*' | '?' | '+' | '{' ( Integer ( ',' ( '}' | Integer '}' ) | '}' ) ) )
PathPrimary ::= ( Prop | 'a' | '(' Path ')'
| ( Prop | '!' PathNegatedPropertySet ) '>' PathQualifier
| '!' PathNegatedPropertySet )
PathQualifier ::= ( Prop | '!' PathNegatedPropertySet | PathPropertySet )

Prop ::= IRIref | Pid | Pname

rules 95 and 96 in https://www.w3.org/TR/2013/REC-sparql11-query-20130321/#rPathNegatedPropertySet

PathNegatedPropertySet ::= PathOneInPropertySet | '(' ( PathOneInPropertySet ( '|' PathOneInPropertySet )* )? ')'
PathOneInPropertySet ::= iri | 'a' | '^' ( iri | 'a' )

PathPropertySet ::= '(' Path ( '|' Path )+ ')'

For information, SPARQL property path grammar :

https://www.w3.org/TR/sparql11-property-paths/#path-syntax

TriplesSameSubjectPath ::= VarOrTerm PropertyListNotEmptyPath | TriplesNode PropertyListPath
PropertyListPath ::= PropertyListNotEmpty?
PropertyListNotEmptyPath::= ( VerbPath | VerbSimple ) ObjectList ( ';' ( ( VerbPath | VerbSimple ) ObjectList )? )*
VerbPath ::= Path
VerbSimple ::= Var
Path ::= PathAlternative
PathAlternative ::= PathSequence ( '|' PathSequence )*
PathSequence ::= PathEltOrInverse ( '/' PathEltOrInverse | '^' PathElt )*
PathElt ::= PathPrimary PathMod?
PathEltOrInverse ::= PathElt | '^' PathElt
PathMod ::= ( '*' | '?' | '+' | '{' ( Integer ( ',' ( '}' | Integer '}' ) | '}' ) ) )
PathPrimary ::= ( IRIref | 'a' | '(' Path ')' )

--]]

local lexer = parser.lexer

local chain = parser.chain
local alternative = parser.alternative
local plus = parser.plus
local idop = parser.idop
local nary_op_parser = parser.nary_op_parser
local lex_char = lexer.lex_char
local parse_epsilon = lexer.lex_epsilon
local lex_integer = lexer.lex_integer

----------------------------------------------------------------------
-- grammar base lexer functions
----------------------------------------------------------------------

local lex_pid = function(state)
local res = lexer.lex_regex(state, "P[0-9]+")
if res then res.type="Pid" return res end
end

local lex_sparql_prefix = function(state)
local res = lexer.lex_regex(state, "[a-z_]*")
if res then res.type="prefix" return res end
end

local lex_property_name = function(state)
local res = lexer.lex_regex(state, "[a-zA-Z][a-z A-Z'-]*")
if res then res.type="Plabel" return res end
end

-------------------------------------------------------------------

-- PathElt ::= PathPrimary PathMod?
-- PathMod ::= ( '*' | '?' | '+' | '{' ( Integer ( ',' ( '}' | Integer '}' ) | '}' ) ) )

function pparser.pathElt(state)
local node
local prime_node

local min_bound = nil
local max_bound = nil

local function create_node(type)
return idop(
function(state)
node = type:create(prime_node, min_bound, max_bound)
end
)
end

local res = chain{
pparser.pathPrimary,
idop(function(state) prime_node = state.node end),
alternative{
chain{
lex_char("*"),
create_node(path.StarNode)
},
chain{
lex_char("+"),
create_node(path.PlusNode)
},
chain{
lex_char("?"),
create_node(path.MaybeNode)
},
chain{
lex_char("^"),
create_node(path.InverseNode)
},
chain{
lex_char("{"),
lex_integer,
idop(function(state) min_bound = tonumber(state.lexed) end),
alternative{
chain{
lex_char(","),
lex_integer,
idop(function(state) max_bound = tonumber(state.lexed) end)
},
chain{
parse_epsilon,
idop(function(state) max_bound = nil end)
}
},
create_node(path.BetweenNode, min_bound, max_bound),
lex_char("}"),
},
chain{
parse_epsilon,
idop(function(state) node = prime_node end)
}
}
}(state)

if res then
res.node = node
return res
end
end

-- PathEltOrInverse ::= PathElt | '^' PathElt
pparser.pathEltOrInverse = function(state)
return alternative{
pparser.pathElt,
chain{
lex_char("^"),
pparser.pathElt,
function(state)
state.node = path.InverseNode(state.node)
return state
end
}
}(state)
end

--[[

Tests :

plop=p.parse("P31",p.pathElt) ; t = require "Module:Tools" ; t.dump_to_console(plop)
yes
property=>
P31

plop=p.parse("P31>P279", p.pathElt) ; t = require "Module:Tools" ; t.dump_to_console(plop)
yes
property=>
P279
node=>
P31

plop=p.parse("P31{1,6}",p.pathElt) ; t = require "Module:Tools" ; t.dump_to_console(plop)

plop=p.parse("(P31|P17>P31)",p.pathElt) ; t = require "Module:Tools" ; t.dump_to_console(plop)
yes
nodes=>
1=>
property=>
P31
2=>
property=>
P31
node=>
P17

--]]

pparser.pathSequence = nary_op_parser(
pparser.pathEltOrInverse,
alternative{
chain{
lexer.lex_char("/"),
pparser.pathEltOrInverse,
},
chain{
lexer.lex_char("\^"),
pparser.pathElt,
function(state)
state.node = path.InverseNode:create(state.node)
return state
end
}
},
function(acc) return path.SequenceNode:create(acc) end
)

--[[
Tests:

plop=p.parse("P31/P31+",p.pathSequence) ; t = require "Module:Tools" ; t.dump_to_console(plop)
yes
nodes=>
1=>
property=>
P31
2=>
node=>
property=>
P31
--]]

-- PathAlternative ::= PathSequence ( '|' PathSequence )*

pparser.pathAlternative = nary_op_parser(
pparser.pathSequence,
chain{
lex_char("[|]"),
pparser.pathSequence
},
function(acc) return path.AlternativeNode:create(acc) end
)

--[[
plop=p.parse("P31|P17/P279+",p.pathAlternative) ; t = require "Module:Tools" ; t.dump_to_console(plop)
yes
nodes=>
1=>
property=>
P31
2=>
nodes=>
1=>
property=>
P17
2=>
node=>
property=>
P279

plop=p.parse("P31|P17>P31/P279+",p.pathAlternative) ; t = require "Module:Tools" ; t.dump_to_console(plop)
yes
nodes=>
1=>
property=>
P31
2=>
nodes=>
1=>
property=>
P31
node=>
P17
2=>
node=>
property=>
P279

--]]

-- PathSequence ::= PathEltOrInverse ( '/' PathEltOrInverse | '^' PathElt )*

local instance = function()
-- P31/P279*
return path.SequenceNode:create(
{
path.PropertyNode:create("P31"),
path.StarNode:create(path.PropertyNode:create("P279"))
}
)
end

-- PathPrimary ::= ( Prop | '!' NegatedPropertySet ) ( '>' ( Prop | '!' NegatedPropertySet ) ) ? | 'a' | '(' Path ')'

pparser.pathPrimary = function(state)
local node

local res = alternative{
chain{
lex_char('a'),
lex_char(' '),
idop(function(state) node = instance() end)
},
chain{
chain{
alternative{
pparser.prop,
chain {lex_char('!'), pparser.negatedPropertySet}
},
idop(function(state) node = state.node end)
},
alternative{
chain{
pparser.pathQualifier,
idop(
function(state)
node = path.QualifiedStatementNode:create(
node,
state.node
)
end
)
},
parse_epsilon
}
},
chain{
lexer.open_parenthesis,
pparser.path,
idop(
function(state)
node = state.node
end
),
lexer.close_parenthesis
},
chain{
lexer.lex_char('!'),
pparser.negatedPropertySet,
idop(
function(state)
node = state.node
end
)
}
}(state)
if res then
res.node = node
return res
end
end

--[[
Tests :

p.parse("a ", p.pathPrimary) => yes
p.parse("!P31", p.pathPrimary) => yes
p.parse("!(P31|instance of)", p.pathPrimary) => yes

--]]

-- stupid function to be eliminated soon (hum)
local function parsePropAndWrap(wrapper)
return chain{
pparser.prop,
function (state)

local node = state.node
local nodes = {}
nodes[1] = {}
nodes[1].node = node -- TODO: understand why this is needed instead of just "nodes[1] = node"
state.node = wrapper(nodes)
return state
end
}
end

pparser.pathPropertySetParser = function(final_node_creator)
return function(state)
return chain{
lexer.open_parenthesis,
alternative{
nary_op_parser(
pparser.pathOneInPropertySet,
chain{
lexer.lex_char("|"),
pparser.pathOneInPropertySet
},
final_node_creator,
function (node)

local singlenodes = {}
singlenodes[1] = node -- mmm
-- singlenodes[1].node = node

return final_node_creator(singlenodes)
end
),
-- parsePropAndWrap(final_node_creator), -- case for "!(P31)" like patterns, naryopparser or something needs to be fixed to better handle this
-- here the solution for negation is to create a negated set with only one property.
chain{
parse_epsilon,
function(state)
state.node = final_node_creator({})
return state
end
} -- allows emty set (to mimic any qualifer allowed, equiv of «*»)
},
lexer.close_parenthesis
}(state)
end
end

pparser.propOrSetParser = function(creator)
return function(state)
return alternative{
parsePropAndWrap(creator), -- case for the pattern !P31 , in case it’s negated this stills need to be wrapped on a negated set
pparser.pathPropertySetParser(function(nodes) return creator(nodes) end),
}(state)
end
end

-- '>' ( Prop | '!' NegatedPropertySet | PropertySet )
pparser.pathQualifier = chain{
lex_char(">"),
alternative{
chain{
lex_char("!"),
pparser.propOrSetParser(function(nodes) return path.NegatedPropertySetNode:create(nodes) end)
},
pparser.propOrSetParser(function(nodes) return path.PropertySetNode:create(nodes) end)
},
function(state)
state.node = path.QualifierSnakNode:create(state.node)
return state
end
}
--[[
=p.parse(">!(P31|P31)",p.pathQualifier)
=p.parse(">(P31|P31)",p.pathQualifier)
=p.parse(">P31",p.pathQualifier)
=p.parse(">!P31",p.pathQualifier)
--]]

-- PathNegatedPropertySet ::= PathOneInPropertySet | '(' ( PathOneInPropertySet ( '|' PathOneInPropertySet )* )? ')'

pparser.negatedPropertySet = pparser.pathPropertySetParser(
function(nodes)
return path.NegatedPropertySetNode:create(nodes)
end
)

--[[
Tests :

p.parse("!P31",p.negatedPropertySet)
p.parse("(P31|P32)",p.negatedPropertySet) => yes
p.parse("P31",p.negatedPropertySet) => yes
p.parse("^P31",p.negatedPropertySet) => yes
p.parse("^(P31)",p.negatedPropertySet) => nope
p.parse("(P31)",p.negatedPropertySet) => yes
p.parse("(^P31)",p.negatedPropertySet) => yes
p.parse("(^P31|a|plop)",p.negatedPropertySet) => yes

All good(?)

--]]

-- PathOneInPropertySet ::= iri | 'a' | '^' ( iri | 'a' )

pparser.pathOneInPropertySet = function(state)
local node = {}

local pElement = alternative{
chain{
lexer.lex_char('a'),
idop(function(state) elem = instance() end)
},
chain{
pparser.prop,
idop(function(state) elem = state.node end)
}
}

local res = alternative{
chain{
lexer.lex_char("^"),
pElement,
idop(function(state) node = state.node end)
},
chain{
pElement,
idop(function(state) node = path.InverseNode:create(state.node) end)
}
}(state)

if res then res.node = node end
return res
end

-- Prop ::= IRIref | Pid | Pname
pparser.prop = function(state)
local res = alternative{
chain{
parser.questionmark(
chain{
lex_sparql_prefix,
lex_char(":")
}
),
lex_pid
},
lex_property_name
}(state)

if res then
res.node = path.PropertyNode:create(res.lexed)
return res
end
end
--[[

Tests :

p.parse("a ", p.primary) => yes
p.parse("P31@", p.prop) => nope
p.parse("P31", p.prop) => nope
p.parse("P31>P279", p.prop) => nope

--]]

-- PathFirstSequence ::= '>' PathQualifier ( '/' PathEltOrInverse | '^' PathElt )*
pparser.pathFirstSequence = nary_op_parser(
-- chain{
pparser.pathQualifier,
-- function(state)
-- state.node = path.QualifierSnakNode:create(state.node)
-- return state
-- end
-- },
chain{
lex_char("/"),
pparser.pathEltOrInverse
},
function (acc)
return path.SequenceNode:create(acc)
end
)

pparser.path = function(state)
return pparser.pathAlternative(state)
end

-- PathFirstAlternative ::= PathFirstSequence ( '|' PathFirstSequence )* | Path
pparser.pathFirstAlternative = alternative{
pparser.path,
nary_op_parser(
pparser.pathFirstSequence,
chain{
lex_char("|"),
pparser.pathFirstSequence
},
function(acc) return path.AlternativeNode:create(acc) end
),
}

-- plop = p.parse_path("P31/P31/P31>P31/P31")

pparser.parse_path = function (property_path)
local res = parser.parse(property_path, pparser.pathFirstAlternative)
assert(res, "parsing returned a nil obj on path : «" .. property_path .. "»")
return res
end

-- to test in console
pparser.parse = parser.parse

return pparser

Module:Infobox/Fonctions/Géolocalisation

2024-09-20T14:23:43Z

Jaggerwock : Page créée avec « local localdata = require( 'Module:Infobox/Localdata' ) local item = localdata.item local id if item then id = item.id end local wd = require "Module:Wikidata" -- Modules chargés si necessaire : -- local countrymodule = require "Module:Country data" -- local coord = require "Module:Coordinates" local p = {} function p.country() local function formatCountry(country) if not country then return nil end local countrymodule = require "Module:Country data"... »

local localdata = require( 'Module:Infobox/Localdata' )
local item = localdata.item
local id
if item then
id = item.id
end
local wd = require "Module:Wikidata"
-- Modules chargés si necessaire :
-- local countrymodule = require "Module:Country data"
-- local coord = require "Module:Coordinates"
local p = {}

function p.country()
local function formatCountry(country)
if not country then
return nil
end
local countrymodule = require "Module:Country data"
local val, success = countrymodule.standarddisplay(country) -- val = nil si country n'est pas reconnu
if success then
return val
end
end

return {
type = 'mixed',
label = 'Pays',
value = function() return formatCountry(localdata['pays']) or localdata['pays'] end,
wikidata = {
property = 'P17',
conjtype = 'new line',
displayformat = function(snak)
local id = wd.getId(snak)
return formatCountry(id) or wd.formatSnak(snak)
end
}
}
end

function p.coordvalue(moduleparams) -- valeurs des coordonnées, sans mise en infoboîte
local coord = require "Module:Coordinates"
if not moduleparams then
moduleparams = {}
end

local function toboolean(val) -- transforme un "-" en false au moment voulu
if val == '-' or val == 'non' then
return false
end
return true
end

-- paramètres Wikidata
local wikidata = tostring(toboolean(localdata['wikidata'] or true)) -- doit être string dans Module:Coordinates
local maxdistance = moduleparams.maxdistance
local wikidataquery = moduleparams.wikidataquery or {property = 'P625'}
if not wikidataquery.entity then
wikidataquery.entity = item
end

-- paramètres d'affichage
local displayformat = localdata['format coordonnées'], moduleparams.displayformat

local displayplace = ''
local displayinline = toboolean(localdata['coords en ligne'] or moduleparams.displayinline or true)
-- par défaut : on met dans les coordonnées de l'infobox principale en titre
local displaytitle = localdata['coords en titre']
or moduleparams.displaytitle
or (localdata['infoboxrank'] == 'main')
if displayinline and (displayinline ~= '-') then
displayplace = displayplace .. 'inline'
end
if displaytitle and (displaytitle ~= '-') then
displayplace = displayplace .. 'title,'
end

-- données sur géograhiques
local globe = localdata['globe'] or localdata['planète'] or moduleparams['globe'] or 'earth'
local latitude = moduleparams['latitude'] or localdata['latitude']
local longitude = moduleparams['longitude'] or localdata['longitude']

local parameterlist = {
latitude = latitude,
longitude = longitude,
format = displayformat,
display= displayplace,
globe = globe,
wikidata = wikidata,
wikidataquery = wikidataquery,
maxdistance = maxdistance,
}

local val = coord._coord(parameterlist)
if (not val) and moduleparams.fallbackquery then -- si pas de valeur, essayer la query de sustitution
parameterlist.wikidataquery = moduleparams.fallbackquery
parameterlist.wikidataquery.entity = item
val = coord._coord(parameterlist)
end
if val and latitude and longitude and localdata['référence géolocalisation'] then
val = val .. ' ' .. localdata['référence géolocalisation']
end
if val and not localdata['latitude'] then
val = wd.addLinkBack(val, item, wikidataquery.property)
end
if displayinline == false then
return -- type: external text pour ne pas avoir de ligne vide en infobox
{
type = 'external text',
sortkey = sortkey,
value = val
}
else
return val
end
end

function p.coordinates(moduleparams)
if not moduleparams then
moduleparams = {}
end
-- paramètre coordonnées a la priorité sur "géolocalisation" (=carte)
local relevant = localdata['coordonnées'] or localdata['géolocalisation']
if relevant == '-' or relevant == 'non' or relevant == 'pas pertinent' or relevant == 'non pertinent' then
return nil
end
-- initialise les paramètres avec les valeurs du module d'infobox (moduleparams)
return {
type = 'mixed',
label = 'Coordonnées',
maintenancecat = moduleparams.maintenancecat or 'Page géolocalisable sans coordonnées paramétrées',
sortkey = moduleparams.sortkey,
value = function (localdata) return p.coordvalue(moduleparams) end
}
end

function p.geoloc(params)

if not params then
params = {}
end
if (localdata['géolocalisation'] == '-') or (localdata['géolocalisation'] == 'pas pertinent') then
return nil
end

return {
type = 'map',
latitude = 'latitude',
longitude = 'longitude',
wikidata = params.wikidata or {{property = 'P625'}},
entity = item,
maps = function() return localdata['géolocalisation'] or params.defaultmaps or "interactive" end, -- paramètre pour la liste des cartes à utiliser
staticmaps = 'carte', -- carte en mode image simple
staticmapsWD = {property = "P242", numval = 1}, -- p
width = params.width,
pointtype = params.pointtype,
maptype = params.maptype,
globe = localdata.globe or localdata['planète'] or params.globe,
marker = params.marker,
markercolor = params.markercolor,
shapecolor = params.shapecolor,
default_zoom = localdata['zoom'] or params.default_zoom,
ids = params.ids or id,
params = {guessmaps = params.guessmaps} -- = quelles cartes utiliser en l'absence de données fournies dans |gélocalisation
}
end

function p.locationmap(upright)
return {
type = 'images',
imageparameters = {'carte','imageloc'},
sizeparameter = 'taille carte',
captionparameter = {'légende carte','légende imageloc'},
defaultsize = size,
defaultupright = upright or '1',
property = 'P242',
numval = 1,
}
end

function p.detailedmap(defaultsize)
return {
type = 'images',
imageparameters = {'carte'},
sizeparameter = 'taille carte',
captionparameter = {'légende carte'},
defaultsize = defaultsize,
defaultupright = '1',
property = 'P1621',
numval = 1,
}
end

return p

Module:Propriétés

2024-09-20T14:23:28Z

Jaggerwock : Page créée avec « local p = { instance_de= "P31", sous_classe_de = "P279", prenom = "P735", nomdefamille = "P734", isbn10 = "P957", publie_dans = "P1433", langue = "P407" } -- this module gives solutions to get the Pnumber of a property by its name -- could be automatized, but for now just defining a muanual mapping p.p_from_name = { ["country"] = 17 ; ["gender"] = 21 ; ["instance of"] = 31 ; ["field"] = 101 ; ["occupation"] = 106 ; ["gen... »

local p = {
instance_de= "P31",
sous_classe_de = "P279",
prenom = "P735",
nomdefamille = "P734",
isbn10 = "P957",
publie_dans = "P1433",
langue = "P407"
}
-- this module gives solutions to get the Pnumber of a property by its name

-- could be automatized, but for now just defining a muanual mapping

p.p_from_name = {
["country"] = 17 ;
["gender"] = 21 ;

["instance of"] = 31 ;

["field"] = 101 ;
["occupation"] = 106 ;

["genre"] = 136 ;

["named after"] = 138 ;

["preceded by"] = 155;
["succeeded by"] = 156;
["collection"] = 195;
["subclass of"] = 279 ;

["category's topic"] = 301;

["list of"] = 360 ;
["part of"] = 361 ;

["commons category"] = 373;

["terminus"] = 559;
["direction"] = 560;

["start date"] = 580 ;
["begin date"] = 580 ;

["end date"] = 582 ;

["date"] = 585 ;

["of"] = 642 ;

["participant"] = 710 ;

["edition"] = 747 ;
["edition of"] = 629 ;

['key event'] = 793 ;
['significant event'] = 793 ;

["topic's category"] = 910;
["subject"] = 921; -- work subject
["inspired by"] = 941 ;

["fictional analog of"] = 1074 ;

["statement disputed by"] = 1310 ;
["disputed by"] = 1310 ;

["of"] = 642 ;

["history"] = 2184 ;

["property for this type"] = 1963 ;
["metasubclass of"] = 2445 ;

["number"] = 1114 ;

["union of"] = 2737;
["disjoint union of"] = 2738;

["has part of the type"] = 2670 ;
}

local function string_to_propnumber(label)
local res = p.p_from_name[label] ;
if res ~= nil then
return tostring( res) ;
else
res = mw.wikibase.resolvePropertyId(label)
if res then
return string.sub(res, 2)
else
return nil
end
end
end

p.numberFromPropertylabel = function(frame)
local label = frame.args[1] ;
mw.log(label)
return string_to_propnumber(label)
end;

-- returns a pid of the form "Pnnn..." where n is a character in "123456789"
--from either
--* a number representing a property wikidata number
--* a string number representing a property wikidata number
--* a pid of the form "Pnnn"
--* a "property name" corresponding to a property, where the names are listed in the array p.p_from_name
-- or "nil" if the id does not match to any of the cases above
p.normalize = function(input_pid)
local input_pid = tostring(input_pid)
if mw.ustring.match(input_pid, "P%d+") then
return input_pid
elseif mw.ustring.match(input_pid, "%d+") then
return "P" .. input_pid
else
return "P" .. tostring(string_to_propnumber(input_pid))
end
end

-- function that takes a string with a set of pids and returns an array of properties
p.expandPropList = function(plist)
local props = mw.text.split(plist,",")
for ind, val in ipairs(props) do
props[ind] = p.normalize(val)
end
return props
end

function p.datatype(property)
if type(property) ~= "table" then
property = mw.wikibase.getEntityObject(p.normalize(property))
end
return property.datatype
end

---------------------------------------------------------------
-- wikitemplate interface
---------------------------------------------------------------

p.Pid = function(frame)
local label = frame.args[1] ;
return p.normalize(label)
end;

p.Pdatatype = function(frame)
return p.datatype(frame.args[1])
end;

p.of = p.normalize("of")
p.union_of = p.normalize("union of")
p.disjoint_union_of = p.normalize("disjoint union of")

return p

Module:TableBuilder

2024-09-20T14:23:09Z

Jaggerwock : Page créée avec « --Module appliquant aux fonctions de la librairie Table une inteface fluide. local meta = { insert = function ( t, ... ) table.insert( t, ... ) return t end, remove = function ( t, ... ) table.remove( t, ... ) return t end, sort = function ( t, ... ) table.sort( t, ... ) return t end, maxn = function ( t ) return table.maxn( t ) end, concat = function... »

--Module appliquant aux fonctions de la librairie Table une inteface fluide.

local meta = {

insert = function ( t, ... )
table.insert( t, ... )
return t
end,

remove = function ( t, ... )
table.remove( t, ... )
return t
end,

sort = function ( t, ... )
table.sort( t, ... )
return t
end,

maxn = function ( t )
return table.maxn( t )
end,

concat = function ( t, ... )
return table.concat( t, ... )
end,

minsert = function( t, ... )
for i = 1, select( '#', ... ) do
local sel = select( i, ... )
if sel then
t[#t+1] = sel
end
end
return t
end,

tinsert = function( t, tab, first, last )
if type( tab ) == 'table' then
for i = ( tonumber( first ) or 1 ), ( tonumber( last ) or #tab ) do
t[#t+1] = tab[i]
end
end
return t
end,
}

meta.__index = function ( t, key )
local metafunc = meta[key]
if type( metafunc ) == 'function' then
return function ( ... ) return metafunc( t, ... ) end
end
end

-- fin des fonctions de la meta-table

local TableBuilder = {
new = function( ... )
local t = { ... }
setmetatable( t, meta )
return t
end,

set = function( t )
if type( t ) == 'table' then
setmetatable( t, meta )
end
return t
end,

clone = function ( t )
local tableRefs = { }
local function recursiveClone( val )
if type( val ) == 'table' then
-- Encode circular references correctly
if tableRefs[val] ~= nil then
return tableRefs[val]
end

local retVal = { }
tableRefs[val] = setmetatable( retVal, meta )

for key, elt in pairs( val ) do
retVal[key] = recursiveClone( elt )
end
return retVal
else
return val
end
end
return recursiveClone( t )
end,
}

return TableBuilder

Module:Wikidata/Chemin/Path

2024-09-20T14:22:12Z

Jaggerwock : Page créée avec « local path = {} local propt = require "Module:Propriétés" path.Node = {} function path.Node:new (o) o = o or {} setmetatable(o, self) self.__index = self return o end path.AlternativeNode = path.Node:new() function path.AlternativeNode:create(nodes) local newinst = {["nodes"] = nodes} setmetatable(newinst, self) self.__index = self return newinst end function path.AlternativeNode:type() return "alternativenode" end path.SequenceNode = path.No... »

local path = {}
local propt = require "Module:Propriétés"

path.Node = {}

function path.Node:new (o)
o = o or {}
setmetatable(o, self)
self.__index = self
return o
end

path.AlternativeNode = path.Node:new()

function path.AlternativeNode:create(nodes)
local newinst = {["nodes"] = nodes}
setmetatable(newinst, self)
self.__index = self
return newinst
end

function path.AlternativeNode:type()
return "alternativenode"
end

path.SequenceNode = path.Node:new()

function path.SequenceNode:create(nodes)
local newinst = {["nodes"] = nodes}
setmetatable(newinst, self)
self.__index = self
return newinst
end

function path.SequenceNode:type()
return "sequencenode"
end

path.StarNode = path.Node:new()
function path.StarNode:create(node)
assert(node, "(Some) Node : no node provided on creation")
local newinst = {["node"] = node}
setmetatable(newinst, self)
self.__index = self
return newinst
end

path.PlusNode = path.Node:new()
function path.PlusNode:create(node)
assert(node, "(Some) Node : no node provided on creation")

local newinst = {["node"] = node}
setmetatable(newinst, self)
self.__index = self
return newinst
end

path.MaybeNode = path.Node:new()
function path.MaybeNode:create(node)
assert(node, "(Some) Node : no node provided on creation")
local newinst = {["node"] = node}
setmetatable(newinst, self)
self.__index = self
return newinst
end

path.BetweenNode = path.Node:new()
function path.BetweenNode:create(node, min, max)
assert(node, "(Some) Node : no node provided on creation")

local newinst = {
["node"] = node,
["min"] = min,
["max"] = max,
}
setmetatable(newinst, self)
self.__index = self
return newinst
end

path.InverseNode = path.Node:new()
function path.InverseNode:create(node)
assert(node, "(Some) Node : no node provided on creation")
local newinst = {["node"] = node}
setmetatable(newinst, self)
self.__index = self
return newinst
end

path.QualifiedStatementNode = path.Node:new()
function path.QualifiedStatementNode:create(main_prop_node, qual_node)
assert(main_prop_node, "(Some) Node : no node provided on creation")
assert(qual_node, "(Some) Node : no node provided on creation")

local newinst = {
["property"] = main_prop_node,
["qualifier"] = qual_node
}
setmetatable(newinst, self)
self.__index = self
return newinst
end

path.PseudoPropertyNode = path.Node:new()

path.PropertyNode = path.PseudoPropertyNode:new()

function path.PropertyNode:create(property)
assert(property, "(Prop Node : a property must be provided on creation")
local newinst = {
["property"] = propt.normalize(property)
}
setmetatable(newinst, self)
self.__index = self
return newinst
end

function path.PropertyNode:matches(property_str)
return propt.normalize(property_str) == self.property
end

-- see https://www.w3.org/2009/sparql/docs/property-paths/Overview.xml

path.NegatedPropertySetNode = path.PseudoPropertyNode:new()
function path.NegatedPropertySetNode:create(negated_nodes)
assert(negated_nodes, "NegPSet Node : no nodeset provided on creation")
local newinst = {
["negated_nodes"] = negated_nodes
}
setmetatable(newinst, self)
self.__index = self
self.props = {}

for _, val in pairs(negated_nodes) do
self.props[val.node.property] = true
end

return newinst
end

function path.NegatedPropertySetNode:inset(pid)
return self.props[pid] ~= nil
end

function path.NegatedPropertySetNode:matches(property_str)
return not self:inset(propt.normalize(property_str))
end

path.PropertySetNode = path.PseudoPropertyNode:new()
function path.PropertySetNode:create(nodes)

assert(nodes, "PseudoProp Node : no nodes provided on creation")
local newinst = {
["nodes"] = nodes
}
setmetatable(newinst, self)
self.__index = self
self.props = {}

for _, val in pairs(nodes) do
self.props[val.node.property] = true
end

return newinst
end

function path.PropertySetNode:inset(pid)
return self.props[pid] ~= nil
end

function path.PropertySetNode:matches(property_str)
return self:inset(propt.normalize(property_str))
end

path.QualifierSnakNode = path.Node:new()

function path.QualifierSnakNode:create(pseudopnode)
local newinst = {["pseudopnode"] = pseudopnode}
setmetatable(newinst, self)
self.__index = self
return newinst
end

function path.QualifierSnakNode:type()
return "qualifiersnaknode"
end

function path.QualifierSnakNode:matches(property_str)
return self.pseudopnode:matches(property_str)
end

return path

Module:Nombre2texte

2024-09-20T14:21:46Z

Jaggerwock : Page créée avec « local p = { } -- ordinal renvoie une chaine correspondant à l'abréviation de l'adjectif ordinal du nombre. Paramètres : 1 = nombre (string ou number) 2 = true pour avoir première au lieu de premier su nombre = 1 -- function p.ordinal( nombre, feminin ) local num = tonumber( nombre ) if num == nil then return mw.text.trim( tostring( nombre ) or '' ) else local nom = p.nombre2texte_reel( nombre, nil, 'ordinal', 'réformée', feminin and 'fém... »

local p = { }

--[[
ordinal renvoie une chaine correspondant à l'abréviation de l'adjectif ordinal du nombre.
Paramètres :
1 = nombre (string ou number)
2 = true pour avoir première au lieu de premier su nombre = 1
--]]
function p.ordinal( nombre, feminin )
local num = tonumber( nombre )
if num == nil then
return mw.text.trim( tostring( nombre ) or '' )
else
local nom = p.nombre2texte_reel( nombre, nil, 'ordinal', 'réformée', feminin and 'féminin' )
local exposant
if num == 1 then
exposant = (feminin and 're' or 'er')
else
exposant = 'e'
end
return '<abbr class="abbr" title="' .. nom .. '">' .. num .. '' .. exposant .. '</abbr>'
end
end

--[[
Fonction de traitement d'une "tranche" de nombres entre 0 et 999.
Retourne la forme texturelle (5 → cinq, 46 → quarante six, 432 → quatre cent trente deux…)
Les paramètres sont les chiffres, du plus grand au plus petit (centaine, dizaine, unité).
La valeur nil signifie "0" (pour n'importe lequel des paramètres)
La fonction retourne le texte ou 'nil' si la valeur est zéro (pour gérer les 0 millier…)
Le paramètre 'langue' indique la variante de langue (fr, be, ch ou ch2).
Data est la table des données (issue de loadData())
--]]
function p.traite_tranche(_c1, _c2, _c3, langue, Data)
local c1, c2, c3
if (_c1 == nil) then c1 = 0 else c1 = tonumber(_c1) or 0 end
if (_c2 == nil) then c2 = 0 else c2 = tonumber(_c2) or 0 end
if (_c3 == nil) then c3 = 0 else c3 = tonumber(_c3) or 0 end

if (c1 == 0 and c2 == 0 and c3 == 0) then
return nil -- sil signifie "zéro" (mais à traiter spécialement quand entouré)
end
local resu = ""

-- on calcule la valeur restante (sans les centaines)
local val = 10*c2 + c3
-- présence d'une centaine ?
if (c1 ~= 0) then
if (c1 == 1) then
resu = "cent " -- séparateur
else
-- plusieurs centaines : on ajoute l'unité
resu = Data.infcent[c1] .. " cent"
-- si pas d'unité 100 prend un 's'
if (val == 0) then
resu = resu .. "s "
else
resu = resu .. " "
end
end
end
-- reste = 0 ?
if (val == 0) then
-- on retourne directement la centaine
return resu
end
-- c'est forcément un nombre pré-défini
local vvv
if (langue == "fr") then
vvv = Data.infcent[val]
elseif (langue == "be") then
vvv = Data.infcent_be[val] or Data.infcent[val]
elseif (langue == "ch") then
vvv = Data.infcent_ch[val] or Data.infcent_be[val] or Data.infcent[val]
else
vvv = Data.infcent_ch2[val] or Data.infcent_be[val] or Data.infcent[val]
end
return resu .. vvv .. " "
-- note : cette fonction retourne *toujours* un " " à la fin du terme
end

--[[
Fonction principale
Reçoit en paramètre (premier non nommé) le nombre à traiter.
Retourne la forme textuelle de ce nombre.
--]]
function p.nombre2texte_reel(pnombre, plangue, ptype, porthographe, pgenre, pmajuscule, pordinal)
-- le nombre à convertir (vient toujours du modèle)
if (pnombre == nil) then
return 'Il faut un paramètre non nommé numérique.'
end

local valeur = tonumber(pnombre)
if (valeur == nil) then
return 'Le paramètre doit être un nombre.'
end
if (valeur ~= math.floor(valeur)) then
return 'Le paramètre doit être un nombre entier.'
end
-- limites
if (valeur < -999999999999 or valeur > 999999999999) then
return 'Nombre trop grand ou trop petit.'
end

-- on extrait le moins si présent
local signe = false
if (valeur < 0) then
valeur = -valeur
signe = true
end

-- option : choix de la langue
local langue = plangue
if (langue == nil) then
langue = "fr"
else
langue = mw.text.trim(langue)
end
-- validation des valeurs permises
if (langue ~= "fr" and langue ~= "be" and langue ~= "ch" and langue ~= "ch2") then
return 'Paramètre langue non reconnu (fr, be, ch ou ch2).'
end

-- type de résultat : seule valeur autorisée : 'ordinal'
local style = ptype
if (style ~= nil and style ~= "ordinal") then
style = nil
end

-- type d'orthographe
local ortho = porthographe
if (ortho ~= nil and ortho ~= "réformée") then
ortho = nil
end

-- genre : uniquement pour l'ordinal "premier / première"
local genre = pgenre
if (genre ~= nil and genre ~= "féminin") then
genre = nil
end

-- majuscule : mettre une majuscule au premier mot
local maj = pmajuscule
if (maj ~= nil and maj ~= "oui") then
maj = nil
end

-- cas (très) simple : 0
if (valeur == 0) then
if (style == "ordinal") then
if (maj) then
return "Zéroième"
else
return "zéroième"
end
else
if (maj) then
return "Zéro"
else
return "zéro"
end
end
end

-- on charge les données
local Data = mw.loadData( 'Module:Nombre2texte/Data' )

-- on traite les autres cas simples : le nombre est pré-codé
local val
if (langue == "fr") then
val = Data.infcent[valeur]
elseif (langue == "be") then
val = Data.infcent_be[valeur] or Data.infcent[valeur]
elseif (langue == "ch") then
val = Data.infcent_ch[valeur] or Data.infcent_be[valeur] or Data.infcent[valeur]
else
val = Data.infcent_ch2[valeur] or Data.infcent_be[valeur] or Data.infcent[valeur]
end

local res = val or ""
if (val == nil) then
-- pas de résultat, on fait le "calcul"

-- on l'éclate en une table des différents caractères
local tvaleur = mw.text.split(tostring(valeur), "")
local nb = #tvaleur -- nombre d'éléments

-- on boucle sur les triplets de chiffres et on stocke le résultat dans une table
local tbl = {}
while (true) do
-- on prend les 3 valeurs concernées
local p1 = tvaleur[nb-2]
local p2 = tvaleur[nb-1]
local p3 = tvaleur[nb]
-- si les 3 sont 'nil' on a terminé
if (p1 == nil and p2 == nil and p3 == nil) then
break
end
-- on calcule la valeur du bloc concerné (rangé dans la table)
local tmp = mw.text.trim(p.traite_tranche(p1, p2, p3, langue, Data) or "zéro")
table.insert(tbl, tmp)
-- décalage
nb = nb - 3
end

-- on construit le résultat final en combinant les éléments
-- et en ajoutant les milliers/millions/...
local pos = 1
while (tbl[pos] ~= nil) do
local el = ""
-- on l'ajoute, s'il existe
if (tbl[pos] ~= "zéro " and tbl[pos] ~= "zéro") then
if (pos == 1) then
-- rang "1", on ajoute simplement la valeur
el = tbl[pos] .. " "
else
-- si la valeur est "un" on ajoute seulement le rang
if (tbl[pos] == "un " or tbl[pos] == "un") then
el = Data.sup[pos] .. " "
else
-- on ajoute X + rang
el = tbl[pos] .. " " .. Data.sup[pos]
-- le pluriel, sauf pour 1000, et le séparateur
if (pos ~= 2) then
el = el .. "s "
else
el = el .. " "
end
end
end
end
-- on insert
res = el .. res

-- on passe au suivant
pos = pos + 1
end

-- suppression espaces
res = mw.text.trim(res)

end -- fin (si on n'avait pas trouvé en pré-défini)

if (style ~= nil) then
-- ordinal : on cherche la fin du nombre pour ajouter le "ième" qui convient
if (res == "zéro") then
res = "zéroième" -- eurk!
elseif (res == "un") then
if (genre == nil) then
res = "premier"
else
res = "première"
end
else
-- on sépare du reste le dernier mot
local debut, fin = mw.ustring.match(res, "(.-)(%a*)$")

-- on génère la fin en ordinal
local nfin = Data.iemes[fin]
if (nfin == nil) then
nfin = 'erreur interne d\'ordinal.'
end
res = debut .. nfin
end
end

-- si orthographe réformée on remplace les espaces par des tirets
if (ortho == "réformée") then
res = mw.ustring.gsub(res, "[ ]", "-")
else
-- sinon on remplace les espaces par des insécables
res = mw.ustring.gsub(res, "[ ]", " ")
end
if (style == nil) then
-- traitement de signe éventuel (sauf ordinaux)
if (signe) then
res = "moins " .. res
end
end

-- si demandé on passe la première lettre en majuscule
if (maj) then
local langage = mw.getContentLanguage()
res = langage:ucfirst(res)
end

-- on retourne
return res
end

--[[
Fonction principale
Reçoit en paramètre (premier non nommé) le nombre à traiter.
Retourne la forme textuelle de ce nombre.
--]]
function p.nombre2texte(frame)
local pframe = frame:getParent()

return p.nombre2texte_reel(
pframe.args[1] or frame.args[1], -- pas obligé. Pour permettre des exemples, avec priorité au modèle
frame.args["langue"] or pframe.args["langue"],
frame.args["type"] or pframe.args["type"],
frame.args["orthographe"] or pframe.args["orthographe"],
frame.args["genre"] or pframe.args["genre"],
frame.args["majuscule"] or pframe.args["majuscule"],
frame.args["ordinal"] or pframe.args["ordinal"]);
end

return p

Module:Date complexe

2024-09-20T14:21:26Z

Jaggerwock : Page créée avec « -- TODO: améliorer les synergies avec Module:Date (gestion par module:Date de dates sans lien et de "XIe siècle en astronautique" local datemodule = require 'Module:Date' local linguistic -- = require 'Module:Linguistique' -- chargé uniquement si nécessaire local roman -- = require 'Module:Romain' -- chargé uniquement si nécessaire local p = {} local numericprecision = { -- convertir les précisions en valeurs numériques = à celles utilisées par Wikida... »

-- TODO: améliorer les synergies avec Module:Date (gestion par module:Date de dates sans lien et de "XIe siècle en astronautique"

local datemodule = require 'Module:Date'
local linguistic -- = require 'Module:Linguistique' -- chargé uniquement si nécessaire
local roman -- = require 'Module:Romain' -- chargé uniquement si nécessaire
local p = {}

local numericprecision = { -- convertir les précisions en valeurs numériques = à celles utilisées par Wikidata
gigayear = 0,
megayear = 3,
millenium = 6,
century = 7,
decade = 8,
year = 9,
month = 10,
day = 11,
hour = 12,
minute = 13,
second = 14,
}

local avJC = '<abbr class="abbr nowrap" title="avant Jésus-Christ"> av. J.-C.</abbr>'

local function vowelfirst(str)
linguistic = linguistic or require 'Module:Linguistique'
return linguistic.vowelfirst(str)
end

function p.dateObject(orig, params)
--[[ transforme un snak en un nouvel objet utilisable par des fonctions comme p.setprecision
{type = 'dateobject', timestamp = str, era = '+' ou '-', year = number, month = number, day = number, calendar = calendar}
]]--
if not params then
params = {}
end

local newobj = p.splitDate(orig.time, orig.calendarmodel)

newobj.precision = params.precision or orig.precision
newobj.type = 'dateobject'
return newobj
end

function p.rangeObject(begin, ending, params)
--[[
objet comportant un timestamp pour le classement chronologique et deux dateobject (begin et ending)
]]--
local timestamp
if begin then
timestamp = begin.timestamp
else
timestamp = ending.timestamp
end
return {begin = begin, ending = ending, timestamp = timestamp, type = 'rangeobject'}
end

function p.objectToText(obj, params)
if obj.type == 'dateobject' then
return p.simplestring(obj, params)
elseif obj.type == 'rangeobject' then
return p.daterange(obj.begin, obj.ending, params)
end
end

local function setprecision(obj, maxprecision)
local precision
if type(obj) == "string" then
precision = tonumber(obj)
elseif type(obj) == "number" then
precision = obj
elseif type(obj) == "table" then
precision = tonumber(obj.precision) or numericprecision[obj.precision]
end
if not precision then
precision = 0
end
-- maxprecision, surtout pour données Wikidata quand on veut afficher avec moins de précision que l'input (par exemple afficher seulement l'année)
if maxprecision then
maxprecision = tonumber(maxprecision) or numericprecision[maxprecision]
end
if maxprecision then
return math.min(precision, maxprecision)
end
return precision
end

local function bigDate(year, precision) -- TODO : gestion de la précision
local val, unit = 0, ""
if year > 999999999 then
unit = " [[giga|G]][[Année julienne|a]]"
val = year / 1000000000
elseif year > 999999 then
unit = " [[méga|M]][[Année julienne|a]]"
val = year / 1000000
end
val = mw.getContentLanguage():formatNum(val)
return val .. unit
end

local function milleniumString(millenium, era, hideera)
roman = roman or require 'Module:Romain'
local str = roman.toRoman(millenium) .. 'e millénaire'
if era == '-' and (not hideera) then
str = str .. avJC
end
return str
end

local function centuryString(century, era, hideera)
roman = roman or require 'Module:Romain'
local str = roman.toRoman(century) .. 'e siècle'
if era == '-' and (not hideera) then
str = str .. avJC
end
return str
end

local function decadeString(decade, era, hideera)
local str = 'années ' .. decade .. '0'
if era == '-' and (not hideera) then
str = str .. ' av. J.-C.|' .. str .. avJC
end
return '[[' .. str .. ']]'
end

function p.simplestring(dateobject, displayformat)

-- transforme un object date ponctuel en texte
-- les dates de type ISO devraient passer par Module:Date, mais il faut pouvoir désactiver les liens
if type(dateobject) == 'string' or type(dateobject) == 'nil' then
return dateobject
end

-- si le date object comporte déjà le texte souhaité on le retourne
if dateobject.string then
return dateobject.string
end

if (not dateobject.year) and (not dateobject.month) and dateobject.day then -- si seul le jour est passé, par exemple à cause de removeclutter, le format n'est pas pris en charge par module:Date
if displayformat.precision and numericprecision[displayformat.precision] < 11 then
return ''
else
return tostring(dateobject.day)
end
end

local era = dateobject.era

if not displayformat then
displayformat = {}
end
local linktopic = displayformat.linktopic
local nolinks
if linktopic == '-' then
nolinks = true
end

local str
local precision = setprecision(dateobject, displayformat.precision)

-- formats gérés par ce module
local year = tonumber(dateobject.year) or 0

if year > 999999 then -- grosses dates pour l'astronomie, la paléontologie
return bigDate(year, precision)
end

local hideera = displayformat.hideera

if precision == 6 then
local millenium = math.floor((year - 1)/1000) + 1
str = milleniumString(millenium, era, hideera)
elseif precision == 7 then
local century = math.floor((year - 1)/100) + 1
str = centuryString(century, era, hideera)
elseif precision == 8 then
local decade = tostring(math.floor(year/10))
str = decadeString(decade, era, hideera)
end
if str then
return str
end

-- formats gérés par Module:Date
local year = dateobject.year
if year and (era == '-') then
year = 0 - year
end
local month, day

if precision > 9 then
month = dateobject.month
if precision > 10 then
day = dateobject.day
end
end

local avJC -- équivalent de hideera pour modeleDate
if displayformat.hideera then
avJC = 'non'
end
str = datemodule.modeleDate{jour = day, mois = month, annee = year, qualificatif = linktopic, nolinks = nolinks, avJC = avJC, liens = true}
return str or ''
end

local function fromToNow(datestr, precision) -- retourne "depuis" plutôt que "à partir de" quand ce n'est pas terminé
if (precision >= 11) or (precision == 7) or (precision == 6) then -- on dit "depuis le" pour les dates avec jour, les siècles, les millénaires
if vowelfirst(datestr) then -- suppose l'absence de lien interne
return "depuis l'" .. datestr
else
return "depuis le " .. datestr
end
end
if (precision == 8) then -- on dit "depuis les" pour les décennies ("années ...")
return "depuis les " .. datestr
end
return "depuis " .. datestr
end

local function fromdate(d, displayformat) -- retourne "à partir de date" en langage naturel
displayformat = displayformat or {}
local precision = setprecision(d, displayformat.precision)
local datestr = p.simplestring(d, displayformat)
if displayformat and displayformat.textformat == 'minimum' then
return datestr -- par exemple pour les classements MH, juste afficher la date de début
end
if displayformat and displayformat.textformat == 'short' then
return datestr .. ' – ' -- pour certaines infobox (footballeur par exemple), afficher date de début et un tiret
end
if p.before(os.date("!%Y-%m-%dT%TZ"), d) and (displayformat.stilltrue ~= "?") and (displayformat.stilltrue ~= false) then
return fromToNow(datestr, precision)
end
if (precision >= 11) or (precision == 7) or (precision == 6) then -- on dit "à partir du" pour les dates avec jour, les siècles, les millénaires
return 'à partir du ' .. datestr
end
if (precision == 10) and (vowelfirst(datemodule.determinationMois(d.month))) then
return "à partir d'" .. datestr
end
if (precision == 8) then -- on dit "à partir des" pour les décennies
return 'à partir des ' .. datestr
end
return 'à partir de ' .. datestr
end

local function upto(d, displayformat) -- retourne "jusqu'à date' en langage naturel
displayformat = displayformat or {}
local datestring = p.simplestring(d, displayformat)
local precision = setprecision(d, displayformat.precision)
if displayformat and displayformat.textformat == 'infobox' then
return ' – '.. datestring -- pour certaines infobox (footballeur par exemple), afficher date de début et un tiret
end
if displayformat and displayformat.textformat == 'short' then
return' – ' .. datestring -- pour certaines infobox (footballeur par exemple), afficher date de début et un tiret
end
if (precision >= 11) or (precision == 7) or (precision == 6) then -- on dit "jusqu'au" pour les dates avec jour, et pour les siècles
return "jusqu'au " .. datestring
elseif (precision > 9) then
return "jusqu'à " .. datestring
elseif (precision == 8) then
return "jusqu'aux " .. datestring
else
return "jusqu'en " .. datestring
end
end

local function fromuntillong(startstr, endstr, era, startprecision, endprecision)
-- on dit "du 3 au 14 janvier" mais "de septembre à octobre"
local longstartstr
if startprecision >= 11 then -- >= day
longstartstr = "du " .. startstr
elseif startprecision == 8 then -- == décennie ("années")
longstartstr = "des " .. startstr
else
if vowelfirst(startstr) then
longstartstr = "d'" .. startstr
else
longstartstr = "de " .. startstr
end
end
local longendstr
if endprecision >= 11 then -- >= day
longendstr = " au " .. endstr .. era
elseif endprecision == 8 then -- == décennie ("années")
longendstr = " aux " .. endstr .. era
else
longendstr = " à " .. endstr .. era
end
return longstartstr .. longendstr
end

local function removeclutter(startpoint, endpoint, precision, displayformat) -- prépare à rendre la date plus jolie : "juin 445 av-JC-juillet 445 av-JC -> juin-juillet 445-av-JC"
if (type(startpoint) ~= 'table') or (type(endpoint) ~= 'table') then
return startpoint, endpoint, precision, displayformat
end
local era = endpoint.era
local sameera = false
if startpoint.era == endpoint.era then
sameera = true
end
if sameera and (endpoint.year == startpoint.year) then
startpoint.year = nil
if (startpoint.month == endpoint.month) then
startpoint.month = nil
if (startpoint.day == endpoint.day) then
startpoint.day = nil
end
end
end
return startpoint, endpoint, era, displayformat, sameera
end

function p.between(startpoint, endpoint, displayformat)
displayformat = displayformat or {}
local precision = setprecision(endpoint, displayformat.precision) or 9

local startpoint = p.simplestring(startpoint, displayformat)
local endpoint = p.simplestring(endpoint, displayformat)

if not (startpoint or endpoint) then
return nil
end
if not endpoint then
if precision <= 10 then
return "après " .. startpoint
else
return "après le " .. startpoint
end
end
if not startpoint then
if precision <= 10 then
return "avant " .. endpoint
else
return "avant le " .. endpoint
end
end

-- analyse les paramètres pour éviter les redondances

local startpoint, endpoint, era, displayformat, sameera = removeclutter(startpoint, endpoint, precision, displayformat)

local startstr, endstr = p.simplestring(startpoint, displayformat), p.simplestring(endpoint, displayformat)
displayformat.hideera = true

if (startstr == '') or (startstr == endstr) then
if (not sameera) then
displayformat.hideera = false -- sinon c'est incompréhensible
return p.simplestring(endpoint, displayformat)
end
return endstr
end
-- pour éviter les tournures répétitives comme "du 13 septembre 2006 au 18 septembre 2006"
if era == "-" then
era = avJC
else
era = ""
end

if precision <= 10 then
return "entre " .. startstr .. " et " .. endstr .. era
else
return "entre le " .. startstr .. " et le " .. endstr .. era
end
end

local function fromuntil(startpoint, endpoint, displayformat)
displayformat = displayformat or {}
local startprecision = setprecision(startpoint, displayformat.precision)
local endprecision = setprecision(endpoint, displayformat.precision)

-- analyse les paramètres pour éviter les redondances

local startpoint, endpoint, era, displayformat, sameera = removeclutter(startpoint, endpoint, endprecision, displayformat)

local hideera= displayformat.hideera
displayformat.hideera = true -- pour les chaînes intermédiaires

local startstr, endstr = p.simplestring(startpoint, displayformat), p.simplestring(endpoint, displayformat)

if (startstr == '') or (startstr == endstr) then
displayformat.hideera = hideera -- on va faire une chaîne simple, on reprend donc le format initialement demandé
if (not sameera) then
displayformat.hideera = false -- sinon c'est incompréhensible
end
return p.simplestring(endpoint, displayformat)
end
-- pour éviter les tournures répétitives comme "du 13 septembre 2006 au 18 septembre 2006"
local hasStartera = false
if era == '-' then
era = avJC
else
era = ''
if not (sameera == nil) and not sameera then
startstr = startstr .. avJC
hasStartera = true
end
end
if displayformat.textformat == 'long' then
return fromuntillong(startstr, endstr, era, startprecision, endprecision)
elseif (type(startprecision) == "number") and (startprecision > 9) or (type(endprecision) == "number") and (endprecision > 9) or hasStartera then -- si les date contiennent des mois ou jours, ou si il y a un era avant, il vaut mieux un espace
return startstr .. ' - ' .. endstr .. era
else
return startstr .. '-' .. endstr .. era
end
end

function p.daterange(startpoint, endpoint, displayformat)
local result
if startpoint and endpoint then
result = fromuntil(startpoint, endpoint, displayformat)
elseif startpoint then
result = fromdate(startpoint, displayformat)
elseif endpoint then
result = upto(endpoint, displayformat)
else
result = nil
end
if result and displayformat and displayformat.ucfirst and displayformat.ucfirst ~= '-' then
linguistic = linguistic or require 'Module:Linguistique'
result = linguistic.ucfirst(result)
end
return result
end

function p.duration(start, ending)
if (not start) or (not ending) then
return nil -- ?
end
return datemodule.age(start.year, start.month, start.day, ending.year, ending.month, ending.day)
end

local function splitWDdate(str) -- depuis datavalue.value.time de Wikidata, fonctionnerait aussi en utilisant simplement splitISO
local pattern = "(%W)(%d+)%-(%d+)%-(%d+)"
local era, year, month, day = str:match(pattern)
return era, year, month, day
end

local function splitISO(str)
str = mw.text.trim(str)
local era, year, month, day
era = string.sub(str, 1, 1)
if tonumber(era) then
era = '+'
end
local f = string.gmatch(str, '%d+')
year, month, day = f(), f(), f()
return era, year, month, day

end
function p.splitDate(orig, calendar)
if not orig then
return nil
end
if type(orig) == 'table' then
return orig
end
if type(orig) ~= 'string' then
return error("bad datatype for date, string expected, got " .. type(orig))
end
local era, y, m, d = splitWDdate(orig)
if not era then
era, y, m, d = splitISO(orig)
end

y, m, d = tonumber(y or 1), tonumber(m or 1), tonumber(d or 1)
return {day = d, month = m, year = y, era = era, type = 'dateobject', calendar = calendar}
end

function p.before(a, b) -- return true if b is before a or if at least one of a or b is missing
a = p.splitDate(a)
b = p.splitDate(b)
if (not a) or (not b) then
return true
end
local order = {'year', 'month', 'day'}
if a['era'] == '+' then
if b['era'] == '+' then
for i, j in ipairs(order) do
if b[j] < a[j] then
return true
elseif b[j] > a[j] then
return false
end
end
else -- b -
return true
end
else -- a -
if b['era'] == '+' then
return false
else -- b -
for i, j in ipairs(order) do
if b[j] > a[j] then
return true
elseif b[j] < a[j] then
return false
end
end
end
end
return true
end

function p.equal(a, b, precision)
a = p.splitDate(a)
b = p.splitDate(b)

if type(precision) == "string" then
precision = tonumber(precision) or numericprecision[mw.text.trim(precision)]
end

if not precision then
precision = 11 -- day by default ?
end

if (not a) or (not b) then
return true
end

if a.era and b.era and (b.era ~= a.era) then
return false
end

if (precision >= 11) then
if a.day and b.day and (b.day ~= a.day) then
return false
end
end

if (precision >= 10) then
if a.month and b.month and (b.month ~= a.month) then
return false
end
end

if (precision >= 9) then
if a.year and b.year and (b.year ~= a.year) then
return false
end
end

return true
end

return p

Module:Wikidata/Chemin

2024-09-20T14:20:22Z

Jaggerwock : Page créée avec « local datastructure = require "Module:Wikidata/Chemin/Path" local parser = require "Module:Wikidata/Chemin/parser" local results = require "Module:Wikidata/Chemin/Resultat" local iter = require "Module:Iterateurs" local props = require "Module:Propriétés" local path = {} -------------- -- TODO : -- * Update the "between" path to handle it better epsilon paths -- * Test full path rendering -- * -------------- -- Definition of a Propert... »

local datastructure = require "Module:Wikidata/Chemin/Path"
local parser = require "Module:Wikidata/Chemin/parser"
local results = require "Module:Wikidata/Chemin/Resultat"

local iter = require "Module:Iterateurs"
local props = require "Module:Propriétés"

local path = {}

--------------
-- TODO :
-- * Update the "between" path to handle it better epsilon paths
-- * Test full path rendering
-- *
--------------

-- Definition of a PropertyPath class

local PropertyPath = {}
PropertyPath.__index = PropertyPath

--[[ Datastructure for the paths that will match a path pattern
A path matching the pattern "subclass of*" will be a chain of statements and snaks nodes.
If we got statements of the form (no qualifiers here, just subject with the main statement snak) :
* <human> <subclass of> <ape>
* <ape> <subclass of> <mammal>
* <mammal> <subclass of> <animal>

a matching path like "<human> -> <ape> -> <mammal> -> <animal>" will be reprensented by a linked list of "ResultNode" objects.
A result node object is a mw.wikibase "statement" standard object augmented with a few methods and a link that goes from the statement or snak to the previous node in the path.
{
<mammal> <subclass of> <animal>
"parent" = {
<ape> <subclass of> <mammal>
"parent" = {
<human> <subclass of> <ape>
"parent" = EpsilonRNode(<human>, "parent" = nil)
}
}
}

--]]

local ResultNode = results.ResultNode
local StatementRNode = results.StatementRNode
local QualifierRNode = results.QualifierRNode
local EpsilonRNode = results.EpsilonRNode

------------------------------------------------------------------------------------------------------

local function iterate_on_snaks(
start_rnode,
property_filter_criteria,
snak_map_iterator,
rnode_type)
assert(snak_map_iterator)
return iter.pair_map(
iter.flatten(
iter.select_vals(
iter.pair_filter(
snak_map_iterator,
property_filter_criteria
)
),
iter.on_vals
),
function(value) return rnode_type:create(value, start_rnode) end
)
end

-- creates an iterator that will iterate over all the statements
-- of a specific property of an item

local function iterate_on_statement(start_rnode, property_filter_criteria)
local item = mw.wikibase.getEntity(start_rnode:item_value())
return iterate_on_snaks(
start_rnode,
property_filter_criteria,
iter.on_pairs(item.claims),
StatementRNode
)
end

local function iterate_on_statement_qualifier(statement, qualifier_filter_criteria)
if statement.qualifiers then
return iterate_on_snaks(
statement,
qualifier_filter_criteria,
iter.on_pairs(statement.qualifiers),
QualifierRNode
)
else
-- no qualifier table when the statement has no qualifiers
return function() return nil end
end
end

local iterate_on_statement_from_property = function(start_rnode, pid)
local claims = mw.wikibase.getBestStatements(
start_rnode:item_value(),
props.normalize(pid)
) or {}

return iter.pair_map(
iter.pair_filter(iter.on_pairs(claims), function(key, val) return true end),
function(key, value) return StatementRNode:create(value, start_rnode) end
)
end

local function iterate_on_star(start_rnode, child_pnode, depth, iterated, max)

-- start_rnode : the result node from which we will iterate
-- child_pnode : the path within the star operator (for example P31/P31 if our node is (P31/P31)*
iterated = iterated or {} -- iterated is the store of already iterated starting points items to avoid infinite loops
-- max : the max number of iteration depth to go, nil for no limit

depth = depth or 1

--[[
In pseudo code using a « yield » operator, the algorithm would be

algo star(startnode)
for each value v which match child_pnode from startnode
yield v
for each value vchild in star(v)
yield vchild
end for
end
end

But we can’t use a yield operator if the « coroutine » module on lua is not activated.
So we must translate this into something more complicated.

Luckily the approach to write iterators in term of composition seems to pay off and
it seem possible to write code structurally similar to this algorithm thanks to the
« flatten » iterator and a recursive closure that creates iterator to handle the
recursivity implied by the « star » operator nature.

--]]

function creator()
return function(start_rnode)
local depth_overflow = not (not max or depth < max)

if not iterated[start_rnode:item_value()] and not depth_overflow then
iterated[start_rnode:item_value()] = true
return iterate_on_star(start_rnode, child_pnode, depth + 1, iterated, max)
else
return function() end
end
end
end

return iter.chain(
iter.singleton(start_rnode),
iter.flatten(
child_pnode:iterate(start_rnode),
creator()
)
)
end

local iterate_on_plus = function(start_rnode, child_pnode, max_depth)
local first = true
iterated = iterated or {}

return iter.flatten(
child_pnode:iterate(start_rnode),
function(rnode)
return iterate_on_star(rnode, child_pnode, 1, iterated, max_depth)
end
)

end

--[[
Test :
p.test("Q5", "subclass of+") -- at the time writing, "Q215627" is the only direct superclass of human. It does not show up, but there is numerous superclass in the result
--]]

--[[ an iteraton to handle "/" operator sequences, for example « P31/P279* »
"creators" is a table of functions that needs to create iterators of child nodes.
In our example, the first cretors element will be a function that takes an item object and
will return an iterator over P31-statements of this item
the second one will create an iterator over the path « P279* » and so on.
The resulting iteratior will iterate on each elements of the second iterator starting from each iterator over the second one
for each elements in the first one.
--]]

local function iterate_on_iterator_creators(start_rnode, creators, i)
i = i or 1
if not(tonumber(i)) then i = 1 end
-- main iterator : the iterator that will iterate on the values on this node of the path
local main_iterator = creators[i]:iterate(start_rnode)

if i < #creators then
--trying to initialize the iterator for the next node with a value of the current one, if we can
local rnode = main_iterator()

while rnode and not(rnode:has_an_item()) do
rnode = main_iterator()
end

-- could not initialize the next iterator with a proper item ; returnun the empty iterator function
if not rnode then return function() return end end

-- we found a proper value to iterate on for the next node in the path

-- final iterator : the iterator that will iterate
-- on elems that will be returned by each iterations
-- on the iterator created by the main client

local final_iterator = iterate_on_iterator_creators(rnode, creators, i+1)
return function()
while final_iterator ~= nil do
-- pulling the element from the next node iterator in the sequence
local final_elem = final_iterator()
if final_elem then
return final_elem
else
-- we pulled the last elem for this value, getting a new value
-- for this node path and regenerate the next node iterator to pull new final values

local rnode_value = main_iterator()

-- return the element pulled from the next node iterator
-- if the property has item datatype is not a special value and has the right snaktype
-- as we can't continue path on other kind of values

if rnode_value then
if rnode_value:has_an_item() then
final_iterator = iterate_on_iterator_creators(rnode_value, creators, i+1)
end
else
--we're over, no next value for this node to continue the path
return
end
end
end
end
elseif i == #creators then
return main_iterator
end
end

--[[ JSBach : Q1339 ;
Testing with :
test("Q1339", "child/child")

wikidata query equivalent query :
select ?grandchild where {
wd:Q1339 wdt:P40/wdt:P40 ?grandchild
}

Adam : wd:Q70899
test("Q70899", "child/child/child")
wikidata query equivalent query :
select ?grandgrandchild where {
wd:Q70899 wdt:P40/wdt:P40/wdt:P40 ?grandgrandchild
}
--]]

local iterate_on_alternatives = function(start_rnode, pnodes)
local i=1
local current_iter = pnodes[i]:iterate(start_rnode)

return function ()
-- loop to go to next iterator if there is empty one in the list
while true do
local res = current_iter()
-- res is an iterator itself ; getting its result
if res then
return res
else
i = i + 1
if i <= #pnodes then
-- following to next iterator and resume loop
current_iter = pnodes[i]:iterate(start_rnode)
else
-- no current iterator : ending
return nil
end
end
end
end
end

--[[
Adam's father or mother : no value of course
p.test('Q70899', "P22|P25")

JS Bach's
p.test("Q1339", "P22|P25")

--]]

local function iterate_on_nodes_beetween(start_rnode, pnode, min, max)
local seq = {}
local i = 1

while i <= min do
table.insert(seq, pnode)
i = i + 1
end

local sequence_obj = {}
function sequence_obj:iterate(next_rnode)
return iterate_on_iterator_creators(next_rnode, seq, min)
end
if max then
local star_obj = {}
function star_obj:iterate(next_rnode)
return iterate_on_star(next_rnode, pnode, 1, iterated, max-min)
end
return iterate_on_iterator_creators(
start_rnode,
{
sequence_obj,
star_obj
}
)
else
return sequence_obj:iterate()
end
end

local function iterate_maybe(start_rnode, pnode)
local iterator = pnode:iterate(start_rnode)
local self_done = false
return function()
if not self_done then
local val = iterator()
if val then return val else
self_done = true
return start_rnode
end
end
end
end

function PropertyPath:new(str)
local obj = {["path"]=str}
setmetatable(obj, self)

local ast = parser.parse_path(str)
assert(ast, "parser did not return a node")
obj.node = ast

return obj
end

local function entityId(entity)
if type(entity) == 'string' then
return entity
end
return entity.id
end

local function norm_start_point(start_point)
if type(start_point) == "string" then
return EpsilonRNode:create(start_point)
elseif type(start_point) == "table" then
if start_point["claims"] ~= nil then
-- assume this is an item or entity object
return EpsilonRNode:create(start_point.id)
elseif start_point["is_RNode"] then
return start_point
elseif start_point["qualifiers"] or start_point["mainsnak"] then
local itemid = string.gmatch(start_point.id, "^.*[^$]")() -- extract the item id from the starting statement
return StatementRNode:create(start_point, EpsilonRNode:create(itemid))
end
end
mw.logObject(start_point)
error("from function norm_start_point of module PropertyPath : wrong type for start_point", tostring(start_point)) -- TODO : Log a better error
end

function PropertyPath:iterate(start_point)
start_point = norm_start_point(start_point)
return self.node:iterate(start_point)
end

local PropertyNode = datastructure.PropertyNode
local AlternativeNode = datastructure.AlternativeNode
local SequenceNode = datastructure.SequenceNode
local QualifiedStatementNode = datastructure.QualifiedStatementNode
local NegatedPropertySetNode = datastructure.NegatedPropertySetNode
local PlusNode = datastructure.PlusNode
local StarNode = datastructure.StarNode
local BetweenNode = datastructure.BetweenNode
local MaybeNode = datastructure.MaybeNode
local QualifierSnakNode = datastructure.QualifierSnakNode

function PropertyNode:iterate(rnode)
return iterate_on_statement_from_property(rnode, self.property)
end

--[[
test("Q5", "subclass of")
--]]

function AlternativeNode:iterate(rnode)
return iterate_on_alternatives(rnode, self.nodes)
end

function NegatedPropertySetNode:iterate(rnode)
return iterate_on_statement(rnode,
function (property, val) return self:matches(property) end
)
end

--[[
test("Q90, ""!(P150)")
--]]

function SequenceNode:iterate(rnode)
return iterate_on_iterator_creators(rnode, self.nodes)
end

function QualifiedStatementNode:iterate(rnode)
local statement_iterator = iterate_on_statement(
rnode,
function (key, value)
return self.property:matches(key)
end
)
local qualifier_iterator_creator = function(statement)
return iterate_on_statement_qualifier(
statement,
function (key, value) return self.qualifier:matches(key) end
)
end

return iter.flatten(statement_iterator, qualifier_iterator_creator)
end

--[[ to test with :
p.test("Q79529", "union of>of")
p.test("Q105019",'P22{1,6}'
--]]

function QualifierSnakNode:iterate(statementnode)
return iterate_on_statement_qualifier(
statementnode,
function (key, value) return self:matches(key) end
)
end

--[[ to test with :
for x in p.iterate("Q79529", "union of") do p.test(x, ">of") end
--]]

function StarNode:iterate(rnode)
return iterate_on_star(rnode, self.node)
end

function PlusNode:iterate(rnode)
return iterate_on_plus(rnode, self.node)
end

function BetweenNode:iterate(rnode)
return iterate_on_nodes_beetween(rnode, self.node, self.min, self.max)
end

function MaybeNode:iterate(rnode)
return iterate_maybe(rnode, self.node)
end

-- returns an iterator on the result set of a path from a specific node
-- ppath acn either be a string representing a path or a compiled path
function path.iterate(start_node, ppath)
if start_node == nil then error("the start node is mandatory to get result on a path, it is nil") end

if type(ppath) == "table" then
return ppath:iterate(start_node)
else
return path.PropertyPath:new(ppath):iterate(start_node)
end
end

-- function that return a boolean
-- true if there is a path matching ppath from start_node that ends with the value "value"
-- (currently only works if "value" is a Qid string)
function path.matches(start_node, ppath, value)
for val in path.iterate(start_node, ppath) do
if val:item_value() == value then
return true
end
end
return false
end

----------------------------

--[[
p.test("Q5", "P279")
p.test(mw.wikibase.getEntity("Q5"), "P279")
for x in p.iterate(mw.wikibase.getEntity("Q5"), "P279") do p.test(x, "P279") end -- test if we can continue iteration of an RNode object
Complex test :
p.test("Q27929033","P1552>!()/P31") => OK
p.test("Q27929033","subclass of/P1552>!()/P31") => NOK

--]]
function path.test(start_point, ppath)
for x in path.iterate(start_point, ppath) do
mw.log("woot")
if x then
mw.log(x:item_value())
end
end
end

-----------------
-- fonctions retournant une déclaration ou un snak qualificatif en fonction d’un chemin de propriété
-- utilisé pour les tris, retourner une clé de tri pour une déclaration choisie par un chemin ou un ensemble de chemins

function path.snak_key_by_path(path)
local path_to_key = path.PropertyPath:new(path)
return function(claim)
return (path_to_key:iterate(claim)())
end
end

-- takes several property paths and creates a function that returns
-- the first value with a match

-- example : local get_key = wd.snak_key_by_paths{">P80","P800|P801"}
-- get_key(claim)
-- returns the qualifier value of P80 of the claim if it exists, if not returns the main statement value
-- of P800 of the main value of the « claim » statement, if not the P801 one
-- (used in Module:Infobox/fonctions/personne)

-- Note on the example : TODO : would be equivalent to a single path ">P80|P800|P801" but it’s not possible yet

function path.snak_key_by_paths(paths)
local paths_to_key = {}
for k, pat in ipairs(paths) do
paths_to_key[#paths_to_key + 1] = path.PropertyPath:new(pat)
end
return function(claim)
-- returns the first value of the first matching path starting from « claim »
for k, path_to_key in ipairs(paths_to_key) do
local res = path_to_key:iterate(claim)()
if res then return res end
end
end
end

----------------------------

path.PropertyPath = PropertyPath

return path

Module:Date/Data

2024-09-20T14:20:05Z

Jaggerwock : Page créée avec « -- base de donnée répertoriant pour différentes thématique -- les plages de chronologique existant ou qui ont très peu de chance d'exister. local data = { } data[""] = { qualificatif = "", cat = "générique", jour = true, mois = { aucun = "1761", tous = {"1773", "2021"}, seul = { "Mars 1058", "Avril 1180", "Juillet 1185", "Juillet 1224", "Août 1248", "Mars 1315", "Janvier 1384", "Janvier 1430", "Février 1514", "Avril 1... »

-- base de donnée répertoriant pour différentes thématique
-- les plages de chronologique existant ou qui ont très peu de chance d'exister.
local data = { }
data[""] = {
qualificatif = "",
cat = "générique",
jour = true,
mois = {
aucun = "1761",
tous = {"1773", "2021"},
seul = {
"Mars 1058",
"Avril 1180", "Juillet 1185",
"Juillet 1224", "Août 1248",
"Mars 1315", "Janvier 1384",
"Janvier 1430",
"Février 1514", "Avril 1521", "Mai 1521", "Juin 1521", "Juillet 1558", "Février 1567", "Mai 1574", "Août 1588",
"Octobre 1621", "Juin 1636", "Septembre 1649", "Août 1656", "Mai 1668", "Mai 1676", "Octobre 1698", "Décembre 1700",
"Janvier 1701", "Février 1701", "Mars 1701", "Avril 1701", "Mai 1701", "Juin 1701", "Mars 1704",
"Juin 1711", "Décembre 1718", "Mars 1725", "Novembre 1728", "Décembre 1731", "Mars 1738", "Décembre 1740", "Octobre 1741", "juin 1747", "Juin 1753", "Mars 1760",
},
},
}

-- ----------- --
-- Sport --
-- ----------- --

data["sport"] = {
qualificatif = "en sport",
cat = "sport",
tri = "-sport",
jour = true,
mois = { aucun = 2004, tous = {2005, 2016}, },
annee = { aucun = 1849, tous = {1850, 2021}, },
}
data["en sport"] = data["sport"]

data["en athlétisme"] = {
qualificatif = "en athlétisme",
cat = "sport",
tri = "athletisme",
annee = { aucun = 2001, tous = {2002, 2021}, },
}
data["en baseball"] = {
qualificatif = "en baseball",
cat = "sport",
tri = "baseball",
annee = { aucun = 1868, tous = {2006, 2014}, },
}
data["en basket-ball"] = {
qualificatif = "en basket-ball",
cat = "sport",
tri = "basket-ball",
annee = { aucun = 1928, tous = {1929, 2021}, seul = {1891, 1892, 1893}, },
}
data["en boxe anglaise"] = {
qualificatif = "en boxe anglaise",
cat = "sport",
tri = "boxe anglaise",
annee = { aucun = 2006, tous = {2009, 2021}, },
}
data["en canoë-kayak"] = data["sport"]
data["en combiné nordique"] = {
qualificatif = "en combiné nordique",
cat = "sport",
tri = "combiné nordique",
annee = { aucun = 1878, tous = {1879, 2021}, },
}
data["en cricket"] = data["sport"]

data["en cyclisme"] = {
qualificatif = "en cyclisme",
cat = "sport",
tri = "cyclisme",
annee = { aucun = 1879, tous = {1880, 2021}, },
}
data["en escalade"] = {
qualificatif = "en escalade",
cat = "sport",
tri = "escalade",
annee = { aucun = 2015, tous = {2016},},
}
data["en escrime"] = data["sport"]

data["en football"] = {
qualificatif = "en football",
cat = "sport",
tri = "football",
annee = { aucun = 1870, tous = {1871, 2021}, },
}
data["en football américain"] = {
qualificatif = "en football américain",
cat = "sport",
tri = "football americain",
annee = { aucun = 2005, tous = {2006, 2008}, },
}
data["en golf"] = data["sport"]

data["en gymnastique"] = {
qualificatif = "en gymnastique",
cat = "sport",
tri = "gymnastique",
annee = { aucun = 1979, tous = {1980, 2018}, },
}
data["en handball"] = {
qualificatif = "en handball",
cat = "sport",
tri = "handball",
annee = { aucun = 1979, tous = {1991, 2021}, },
}
data["en hockey sur glace"] = {
qualificatif = "en hockey sur glace",
cat = "sport",
tri = "hockey sur glace",
annee = { aucun = 1899, tous = {1900, 2021}, },
}
data["en judo"] = data["sport"]

data["en natation"] = {
qualificatif = "en natation",
cat = "sport",
tri = "natation",
annee = { aucun = 2007, tous = {2008, 2017}, },
}
data["en rink hockey"] = {
qualificatif = "en rink hockey",
cat = "sport",
tri = "rink hockey",
annee = { aucun = 2016, seul = {2009}, },
}

data["en rugby à XIII"] = {
qualificatif = "en rugby à XIII",
cat = "sport",
tri = "rugby a XIII",
annee = { aucun = 2009, tous = {2010, 2021}, },
}
data["en rugby à XV"] = {
qualificatif = "en rugby à XV",
cat = "sport",
tri = "rugby a XV",
annee = { aucun = 1870, tous = {1871, 2021}, },
}
data["en ski"] = {
qualificatif = "en ski",
cat = "sport",
tri = "ski",
annee = { aucun = 2006, tous = {2007, 2009}, },
}
data["en snooker"] = data["sport"]

data["en sport automobile"] = {
qualificatif = "en sport automobile",
cat = "sport",
tri = "sport automobile",
annee = { aucun = 1886, tous = {1894, 2016}, },
}
data["en sports équestres"] = {
qualificatif = "en sports équestres",
cat = "sport",
tri = "sports equestres",
annee = { aucun = 1899, tous = {1971, 2019}, },
}
data["en tennis"] = {
qualificatif = "en tennis",
cat = "sport",
tri = "tennis",
annee = { aucun = 1983, tous = {1998, 2021}, },
}
data["en triathlon"] = {
qualificatif = "en triathlon",
cat = "sport",
tri = "triathlon",
annee = { aucun = 2015, tous = {2017, 2020}, },
}
data["en volley-ball"] = data["sport"]

-- ---------- --
-- Science --
-- ---------- --

data["en science"] = {
qualificatif = "en science",
cat = "science",
tri = "_science",
annee = { aucun = 1499, tous = {1500, 2021}, seul = {783, 850}, },
}
data["science"] = data["en science"]

data["en astronomie"] = {
qualificatif = "en astronomie",
cat = "science",
tri = "astronomie",
annee = { aucun = 1968, tous = {1993, 2022} },
}
data["en santé et médecine"] = {
qualificatif = "en santé et médecine",
cat = "science",
tri = "santé et médecine",
annee = { aucun = 999, tous = {1870, 2021} },
}
data["en santé"] = data["en santé et médecine"]
data["en médecine"] = data["en santé et médecine"]

data["en sociologie"] = {
qualificatif = "en sociologie",
cat = "science",
tri = "sociologie",
annee = { aucun = 1850, tous = {1986, 2007}, },
}

-- -------------- --
-- Thématiques --
-- -------------- --

data["thématique"] = { qualificatif = "" }

data["en aéronautique"] = {
qualificatif = "en aéronautique",
cat = "thématique",
tri = "aeronautique",
annee = { aucun = 1898, tous = {1899, 2021}, },
}
data["en animation asiatique"] = {
qualificatif = "en animation asiatique",
cat = "thématique",
tri = "animation asiatique",
annee = { aucun = 1978, tous = {1979, 2021}, seul = {1945} },
}
data["en architecture"] = {
qualificatif = "en architecture",
cat = "thématique",
tri = "architecture",
annee = { aucun = 1189, tous = {1397, 2021}, },
} -- les pages avant 1190 sont des redirections vers la page annuelle sans qualificatif
data["en arts plastiques"] = {
qualificatif = "en arts plastiques",
cat = "thématique",
tri = "arts plastiques",
annee = { aucun = 1400, tous = {1499, 2021}, },
}
data["en astronautique"] = {
qualificatif = "en astronautique",
cat = "thématique",
tri = "astronautique",
annee = { aucun = 1940, tous = {1956, 2025}, },
}
data["en automobile"] = {
qualificatif = "en automobile",
cat = "thématique",
tri = "automobile",
annee = { aucun = 2009, tous = {2010, 2014}, seul = {1941, 1948, 1983, 1998, 2005}, },
}
data["en bande dessinée"] = {
qualificatif = "en bande dessinée",
cat = "thématique",
tri = "bande dessinée",
annee = { aucun = 1890, tous = {1895, 2021}, },
}
data["en catch"] = {
qualificatif = "en catch",
cat = "thématique",
tri = "catch",
annee = { aucun = 1997, tous = {2006, 2021}, },
}
data["dans les chemins de fer"] = {
qualificatif = "dans les chemins de fer",
cat = "thématique",
tri = "chemins de fer",
jour = true,
annee = { aucun = 1799, tous = {1800, 2021}, },
}
data["au cinéma"] = {
qualificatif = "au cinéma",
cat = "thématique",
tri = "cinema",
annee = { aucun = 1887, tous = {1888, 2022}, },
}
data["dans les croisades"] = {
qualificatif = "dans les croisades",
cat = "thématique",
tri = "croisades",
annee = { aucun = 1094, tous = {1095, 1302}, },
}
data["chez Disney"] = {
qualificatif = "chez Disney",
cat = "thématique",
tri = "disney",
annee = { aucun = 1921, tous = {1922, 2021}, },
}
data["en droit"] = {
qualificatif = "en droit",
cat = "thématique",
tri = "droit",
annee = { aucun = 1600, tous = {1682, 2021}, },
}
data["aux échecs"] = {
qualificatif = "aux échecs",
cat = "thématique",
tri = "echecs",
annee = { aucun = 1400, tous = {1782, 2021}, },
}
data["en économie"] = {
qualificatif = "en économie",
cat = "thématique",
tri = "economie",
annee = { aucun = 1899, tous = {2004, 2015} }
}
data["en fantasy"] = {
qualificatif = "en fantasy",
cat = "thématique",
tri = "fantasy",
annee = { aucun = 1920, tous = {1950, 2021}, seul = {1896}, },
}
data["en informatique"] = {
qualificatif = "en informatique",
cat = "thématique",
tri = "informatique",
annee = { aucun = 1940, tous = {1962, 2021}, },
}
data["en jeu"] = {
qualificatif = "en jeu",
cat = "thématique",
tri = "jeu",
annee = { aucun = 1957, tous = {1974, 2020}, },
}
data["au go"] = {
qualificatif = "au go",
cat = "thématique",
tri = "jeu de go",
annee = { aucun = 2016, seul = {2012} },
}
data["en jeu vidéo"] = {
qualificatif = "en jeu vidéo",
cat = "thématique",
tri = "jeu vidéo",
annee = { aucun = 1957, tous = {1958, 2022} },
}
data["en littérature"] = {
qualificatif = "en littérature",
cat = "thématique",
tri = "litterature",
annee = {aucun = 1371, tous = {1468, 2022}, },
}
data["en musique"] = {
qualificatif = "en musique",
cat = "thématique",
tri = "musique",
annee = { aucun = 1796, tous = {1797, 2022}, },
}
data["en musique classique"] = {
qualificatif = "en musique classique",
cat = "thématique",
tri = "musique classique",
annee = { aucun = 1399, tous = {1400, 2022}, seul = {1375}, },
}
data["en numismatique"] = {
qualificatif = "en numismatique",
cat = "thématique",
tri = "numismatique",
annee = { aucun = 1930, tous = {1990, 2021}, },
}
data["dans les parcs de loisirs"] = {
qualificatif = "dans les parcs de loisirs",
cat = "thématique",
tri = "parcs de loisirs",
annee = { aucun = 1869, tous = {1870, 2021}, },
}
data["en parfumerie"] = {
qualificatif = "en parfumerie",
cat = "thématique",
tri = "parfumerie",
annee = { aucun = 2100, seul = {1995, }, },
}
data["en philosophie"] = {
qualificatif = "en philosophie",
cat = "thématique",
tri = "philosophie",
annee = { aucun = 1450, tous = {1849, 2020}, seul = {1327, 1328, 1329}, },
}
data["en photographie"] = {
qualificatif = "en photographie",
cat = "thématique",
tri = "photographie",
annee = { aucun = 1785, tous = {1800, 2021}, },
}
data["en politique"] = {
qualificatif = "en politique",
cat = "thématique",
tri = "politique",
annee = { aucun = 2100, seul = {2015, 2016 ,2019}, },
}
data["à la radio"] = {
qualificatif = "à la radio",
cat = "thématique",
tri = "radio",
annee = { aucun = 2012, tous = {2013, 2020}, },
}
data["en science-fiction"] = {
qualificatif = "en science-fiction",
cat = "thématique",
tri = "science-fiction",
annee = { aucun = 1880, tous = {1898, 2022}, seul = {1826, 1828, 1862, 1872}, },
}
data["à la télévision"] = {
qualificatif = "à la télévision",
cat = "thématique",
tri = "television",
annee = { aucun = 1880, tous = {1884, 2021}, },
}
data["au théâtre"] = {
qualificatif = "au théâtre",
cat = "thématique",
tri = "theâtre",
annee = { aucun = 1500, tous = {1596, 2021}, },
}
data["guerre mondiale"] = {
qualificatif = "(guerre mondiale)",
cat = "thématique",
tri = "guerre mondiale",
mois = {
aucun = 9999,
seul = {"Juillet 1914", "Août 1914","Septembre 1914", "Octobre 1914","Novembre 1914", "Décembre 1914",
"Janvier 1915", "Février 1915", "Mars 1915", "Avril 1915", "Mai 1915", "Juin 1915","Juillet 1915", "Août 1915","Septembre 1915", "Octobre 1915","Novembre 1915", "Décembre 1915",
"Janvier 1916", "Février 1916", "Mars 1916", "Avril 1916", "Mai 1916", "Juin 1916","Juillet 1916", "Août 1916","Septembre 1916", "Octobre 1916","Novembre 1916", "Décembre 1916",
"Janvier 1917", "Février 1917", "Mars 1917", "Avril 1917", "Mai 1917", "Juin 1917","Juillet 1917", "Août 1917","Septembre 1917", "Octobre 1917","Novembre 1917", "Décembre 1917",
"Janvier 1918", "Février 1918", "Mars 1918", "Avril 1918", "Mai 1918", "Juin 1918","Juillet 1918", "Août 1918","Septembre 1918", "Octobre 1918","Novembre 1918", "Décembre 1918",
"Août 1939","Septembre 1939", "Octobre 1939","Novembre 1939", "Décembre 1939",
"Janvier 1940", "Février 1940", "Mars 1940", "Avril 1940", "Mai 1940", "Juin 1940","Juillet 1940", "Août 1940","Septembre 1940", "Octobre 1940","Novembre 1940", "Décembre 1940",
"Janvier 1941", "Février 1941", "Mars 1941", "Avril 1941", "Mai 1941", "Juin 1941","Juillet 1941", "Août 1941","Septembre 1941", "Octobre 1941","Novembre 1941", "Décembre 1941",
"Janvier 1942", "Février 1942", "Mars 1942", "Avril 1942", "Mai 1942", "Juin 1942","Juillet 1942", "Août 1942","Septembre 1942", "Octobre 1942","Novembre 1942", "Décembre 1942",
"Janvier 1943", "Février 1943", "Mars 1943", "Avril 1943", "Mai 1943", "Juin 1943","Juillet 1943", "Août 1943","Septembre 1943", "Octobre 1943","Novembre 1943", "Décembre 1943",
"Janvier 1944", "Février 1941", "Mars 1944", "Avril 1944", "Mai 1944", "Juin 1944","Juillet 1944", "Août 1944","Septembre 1944", "Octobre 1944","Novembre 1944", "Décembre 1944",
"Janvier 1945", "Février 1945", "Mars 1945", "Avril 1945", "Mai 1945", "Juin 1945","Juillet 1945", "Août 1945","Septembre 1945",
},
},
annee = { aucun = 9999, },
}
data["(guerre mondiale)"] = data["guerre mondiale"]

-- -------------- --
-- Géographie --
-- -------------- --

-- Afrique --

data["Afrique"] = {
qualificatif = "par pays en Afrique",
cat = "Afrique",
tri = "-Afrique",
annee = { aucun = 2003, tous = {2004, 2021}, },
}
data["par pays en Afrique"] = data["Afrique"]

data["en Afrique"] = {
qualificatif = "en Afrique",
cat = "Afrique",
tri = "-Afrique ",
mois = { aucun = 2004, tous = {2005, 2007}, },
annee = { aucun = 2003, tous = {2004, 2021}, seul = {1982}, },
}
data["en Afrique du Sud"] = {
qualificatif = "en Afrique du Sud",
cat = "Afrique",
tri = "Afrique du Sud",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["en Algérie"] = {
qualificatif = "en Algérie",
cat = "Afrique",
tri = "Algérie",
annee = { aucun = 2008, tous = {2009, 2011}, },
}
data["en Angola"] = data["Afrique"]
data["au Bénin"] = data["Afrique"]
data["au Botswana"] = data["Afrique"]
data["au Burkina Faso"] = data["Afrique"]

data["au Burundi"] = {
qualificatif = "au Burundi",
cat = "Afrique",
tri = "Burundi",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["au Cameroun"] = {
qualificatif = "au Cameroun",
cat = "Afrique",
tri = "Cameroun",
annee = { aucun = 2008, tous = {2009, 2013}, },
}
data["au Cap-Vert"] = data["Afrique"]

data["en République centrafricaine"] = {
qualificatif = "en République centrafricaine",
cat = "Afrique",
tri = "Centrafrique",
annee = { aucun = 2016, seul = {2010}, },
}
data["aux Comores"] = {
qualificatif = "aux Comores",
cat = "Afrique",
tri = "Comores",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["au Congo Brazzaville"] = data["Afrique"]
data["au Congo"] = data["Afrique"]

data["en République démocratique du Congo"] = {
qualificatif = "en République démocratique du Congo",
cat = "Afrique",
tri = "Congo, République démocratique",
annee = { aucun = 1996, tous = {2009, 2011}, },
}
data["au Congo démocratique"] = data["en République démocratique du Congo"]

data["en Côte d'Ivoire"] = {
qualificatif = "en Côte d'Ivoire",
cat = "Afrique",
tri = "Cote d'Ivoire",
annee = { aucun = 2008, tous = {2009, 2011}, },
}
data["à Djibouti"] = data["Afrique"]

data["en Égypte"] = {
qualificatif = "en Égypte",
cat = "Afrique",
tri = "Egypte",
annee = { aucun = 2007, tous = {2008, 2011}, },
}
data["en Érythrée"] = data["Afrique"]
data["en Éthiopie"] = data["Afrique"]

data["au Gabon"] = {
qualificatif = "au Gabon",
cat = "Afrique",
tri = "Gabon",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Ghana"] = data["Afrique"]

data["en Guinée"] = {
qualificatif = "en Guinée",
cat = "Afrique",
tri = "Guinee",
annee = { aucun = 2008, tous = {2009, 2011}, seul = {1984}, },
}
data["en Guinée-Bissau"] = {
qualificatif = "en Guinée-Bissau",
cat = "Afrique",
tri = "Guinee-Bissau",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Guinée équatoriale"] = data["Afrique"]

data["au Kenya"] = {
qualificatif = "au Kenya",
cat = "Afrique",
tri = "Kenya",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["au Lesotho"] = data["Afrique"]
data["au Liberia"] = data["Afrique"]

data["en Libye"] = {
qualificatif = "en Libye",
cat = "Afrique",
tri = "Libye",
annee = { aucun = 2016, seul = {2009, 2011}, },
}
data["à Madagascar"] = {
qualificatif = "à Madagascar",
cat = "Afrique",
tri = "Madagascar",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["au Malawi"] = data["Afrique"]

data["au Mali"] = {
qualificatif = "au Mali",
cat = "Afrique",
tri = "Mali",
annee = { aucun = 2004, tous = {2005, 2013}, },
}
data["au Maroc"] = {
qualificatif = "au Maroc",
cat = "Afrique",
tri = "Maroc",
annee = { aucun = 1900, tous = {2001, 2012}, },
}
data["à l'Île Maurice"] = data["Afrique"]

data["en Mauritanie"] = {
qualificatif = "en Mauritanie",
cat = "Afrique",
tri = "Mauritanie",
annee = { aucun = 2007, tous = {2008, 2010}, },
}
data["à Mayotte"] = data["Afrique"]
data["au Mozambique"] = data["Afrique"]
data["en Namibie"] = data["Afrique"]

data["au Niger"] = {
qualificatif = "au Niger",
cat = "Afrique",
tri = "Niger",
annee = { aucun = 2008, tous = {2009, 2011}, },
}
data["au Nigeria"] = {
qualificatif = "au Nigeria",
cat = "Afrique",
tri = "Nigeria",
annee = { aucun = 2008, tous = {2009, 2011}, },
}
data["en Ouganda"] = {
qualificatif = "en Ouganda",
cat = "Afrique",
tri = "Ouganda",
annee = { aucun = 2016, seul = {2010}, },
}
data["au Rwanda"] = {
qualificatif = "au Rwanda",
cat = "Afrique",
tri = "Rwanda",
annee = { aucun = 2008, tous = {2009, 2011}, },
}
data["au Sahara occidental"] = data["Afrique"]

data["au Sénégal"] = {
qualificatif = "au Sénégal",
cat = "Afrique",
tri = "Senegal",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["aux Seychelles"] = data["Afrique"]
data["au Sierra Leone"] = data["Afrique"]

data["en Somalie"] = {
qualificatif = "en Somalie",
cat = "Afrique",
tri = "Somalie",
annee = { aucun = 2007, tous = {2008, 2011}, },
}
data["au Soudan"] = {
qualificatif = "au Soudan",
cat = "Afrique",
tri = "Soudan",
annee = { aucun = 2008, tous = {2009, 2011}, },
}
data["au Soudan du Sud"] = data["Afrique"]
data["en Tanzanie"] = data["Afrique"]

data["au Tchad"] = {
qualificatif = "au Tchad",
cat = "Afrique",
tri = "Tchad",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["au Togo"] = {
qualificatif = "au Togo",
cat = "Afrique",
tri = "Togo",
annee = { aucun = 2008, tous = {2010}, },
}

data["en Tunisie"] = {
qualificatif = "en Tunisie",
cat = "Afrique",
tri = "Tunisie",
annee = { aucun = 2005, tous = {2006, 2011}, },
}

data["au Zaïre"] = {
qualificatif = "au Zaïre",
cat = "Afrique",
tri = "Zaïre",
annee = { aucun = 1990, tous = {1991}, },
}

data["en Zambie"] = data["Afrique"]

data["au Zimbabwe"] = {
qualificatif = "au Zimbabwe",
cat = "Afrique",
tri = "Zimbabwe",
annee = { aucun = 2007, tous = {2008, 2010}, },
}

-- Amérique --

data["Amérique"] = {
qualificatif = "par pays en Amérique",
cat = "Amérique",
tri = "-Amerique",
annee = { aucun = 1999, tous = {2000, 2021}, },
}
data["par pays en Amérique"] = data["Amérique"]
data["en Amérique"] = data["Amérique"]

data["en Argentine"] = {
qualificatif = "en Argentine",
cat = "Amérique",
tri = "Argentine",
annee = { aucun = 2016, seul = {1945, 2009}, },
}
data["à la Barbade"] = data["Amérique"]
data["au Belize"] = data["Amérique"]
data["en Bolivie"] = data["Amérique"]

data["au Brésil"] = {
qualificatif = "au Brésil",
cat = "Amérique",
tri = "Bresil",
annee = { aucun = 1920, tous = {2011, 2014}, },
}
data["au Canada"] = {
qualificatif = "au Canada",
cat = "Amérique",
tri = "Canada",
mois = { aucun = 2100, seul = { "Novembre 2005", "Décembre 2005", "Janvier 2006", "Février 2006"}, },
annee = { aucun = 1690, tous = {1691, 2021}, seul = {1534}, },
}
data["Canada"] = data["au Canada"]
data["en Alberta"] = {
qualificatif = "en Alberta",
cat = "Canada",
tri = "Canada - Alberta",
annee = { aucun = 1904, tous = {1905, 2021}, },
}
data["en Colombie-Britannique"] = {
qualificatif = "en Colombie-Britannique",
cat = "Canada",
tri = "Canada - Colombie-Britannique",
annee = { aucun = 1870, tous = {1871, 2021}, },
}
data["au Manitoba"] = {
qualificatif = "au Manitoba",
cat = "Canada",
tri = "Canada - Manitoba",
annee = { aucun = 1869, tous = {1870, 2021}, },
}
data["au Nouveau-Brunswick"] = {
qualificatif = "au Nouveau-Brunswick",
cat = "Canada",
tri = "Canada - Nouveau-Brunswick",
annee = { aucun = 1783, tous = {1784, 2021}, },
}
data["en Nouvelle-Écosse"] = {
qualificatif = "en Nouvelle-Écosse",
cat = "Canada",
tri = "Canada - Nouvelle-Ecosse",
annee = { aucun = 1866, tous = {1867, 2021}, },
}
data["au Nunavut"] = {
qualificatif = "au Nunavut",
cat = "Canada",
tri = "Canada - Nunavut",
annee = { aucun = 1998, tous = {1999, 2021}, },
}
data["en Ontario"] = {
qualificatif = "en Ontario",
cat = "Canada",
tri = "Canada - Ontario",
annee = { aucun = 1866, tous = {1867, 2021}, },
}
data["au Québec"] = {
qualificatif = "au Québec",
cat = "Canada",
tri = "Canada - Quebec",
annee = { aucun = 1762, tous = {1866, 2021}, seul = {1710}, },
}
data["en Saskatchewan"] = {
qualificatif = "en Saskatchewan",
cat = "Canada",
tri = "Canada - Saskatchewan",
annee = { aucun = 1904, tous = {1905, 2021}, },
}
data["à Terre-Neuve-et-Labrador"] = {
qualificatif = "à Terre-Neuve-et-Labrador",
cat = "Amérique",
tri = "Canada - Terre-Neuve-et-Labrador",
annee = { aucun = 1948, tous = {1949, 2021}, },
}
data["aux Territoires du Nord-Ouest"] = {
qualificatif = "aux Territoires du Nord-Ouest",
cat = "Amérique",
tri = "Canada - Territoires du Nord-Ouest",
annee = { aucun = 1869, tous = {1870, 2021}, },
}
data["au Yukon"] = {
qualificatif = "au Yukon",
cat = "Amérique",
tri = "Canada - Yukon",
annee = { aucun = 1897, tous = {1898, 2021}, },
}
data["au Chili"] = data["Amérique"]

data["en Colombie"] = {
qualificatif = "en Colombie",
cat = "Amérique",
tri = "Colombie",
annee = { aucun = 2007, tous = {2008, 2010}, },
}
data["au Costa Rica"] = data["Amérique"]

data["à Cuba"] = {
qualificatif = "à Cuba",
cat = "Amérique",
tri = "Cuba",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Équateur"] = data["Amérique"]

data["aux États-Unis"] = {
qualificatif = "aux États-Unis",
cat = "Amérique",
tri = "Etats-Unis",
mois = { aucun = 2100, seul = {"Janvier 2009", "Février 2009", "Mars 2009", "Avril 2009", "Mai 2009", "Juin 2009" }, }, -- les autres mois sont vides ou presque
annee = { aucun = 1775, tous = {1776, 2021}, },
}
data["au Groenland"] = data["Amérique"]
data["au Guatemala"] = data["Amérique"]
data["en Guyane"] = data["Amérique"]
data["à Haïti"] = data["Amérique"]

data["au Honduras"] = {
qualificatif = "au Honduras",
cat = "Amérique",
tri = "Honduras",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Jamaïque"] = data["Amérique"]

data["au Mexique"] = {
qualificatif = "au Mexique",
cat = "Amérique",
tri = "Mexique",
annee = { aucun = 2004, tous = {2019, 2021}, },
}
data["aux Nations unies"] = {
qualificatif = "aux Nations unies",
cat = "Amérique",
tri = "Nations unies",
annee = { aucun = 2005, tous = {2006, 2009}, },
}
data["au Nicaragua"] = data["Amérique"]
data["au Panama"] = data["Amérique"]
data["au Paraguay"] = data["Amérique"]
data["au Pérou"] = data["Amérique"]
data["à Porto Rico"] = data["Amérique"]
data["à Saint-Pierre-et-Miquelon"] = data["Amérique"]
data["au Salvador"] = data["Amérique"]
data["en Uruguay"] = data["Amérique"]

data["au Venezuela"] = {
qualificatif = "au Venezuela",
cat = "Amérique",
tri = "Venezuela",
annee = { aucun = 2016, seul = {2009}, },
}

-- Asie --
data["Asie"] = {
qualificatif = "par pays en Asie",
cat = "Asie",
tri = "-Asie",
annee = { aucun = 2004, tous = {2005, 2021}, },
}
data["par pays en Asie"] = data["Asie"]

data["en Asie"] = {
qualificatif = "en Asie",
cat = "Asie",
tri = "-Asie ",
annee = { aucun = 2004, tous = {2005, 2018}, },
}
data["en Afghanistan"] = {
qualificatif = "en Afghanistan",
cat = "Asie",
tri = "Afghanistan",
annee = { aucun = 2007, tous = {2008, 2010}, },
}
data["au Bangladesh"] = data["Asie"]
data["en Birmanie"] = data["Asie"]
data["au Bhoutan"] = data["Asie"]
data["au Cambodge"] = data["Asie"]

data["en Chine"] = {
qualificatif = "en Chine",
cat = "Asie",
tri = "Chine",
annee = { aucun = 2000, tous = {2005, 2010}, },
}
data["en Corée"] = {
qualificatif = "en Corée",
cat = "Asie",
tri = "Coree",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Corée du Nord"] = data["Corée"]
data["en Corée du Sud"] = data["Corée"]

data["en Inde"] = {
qualificatif = "en Inde",
cat = "Asie",
tri = "Inde",
annee = { aucun = 1899, tous = {1900, 1963} },
}
data["en Indonésie"] = {
qualificatif = "en Indonésie",
cat = "Asie",
tri = "Indonesie",
annee = { aucun = 2008, },
}
data["au Japon"] = {
qualificatif = "au Japon",
cat = "Asie",
tri = "Japon",
annee = { aucun = 2008, },
}
data["au Kazakhstan"] = data["Asie"]

data["au Kurdistan"] = {
qualificatif = "au Kurdistan",
cat = "Asie",
tri = "Kurdistan",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Laos"] = {
qualificatif = "au Laos",
cat = "Asie",
tri = "Laos",
annee = { aucun = 2008, tous = {2009, 2012} },
}
data["en Malaisie"] = data["Asie"]
data["au Népal"] = data["Asie"]
data["en Ouzbékistan"] = data["Asie"]

data["au Pakistan"] = {
qualificatif = "au Pakistan",
cat = "Asie",
tri = "Pakistan",
annee = { aucun = 2007, tous = {2008, 2009}, },
}
data["aux Philippines"] ={
qualificatif = "aux Philippines",
cat = "Asie",
tri = "Philippines",
annee = { aucun = 2016, seul = {2007}, },
}
data["à Singapour"] = data["Asie"]

data["au Sri Lanka"] = {
qualificatif = "au Sri Lanka",
cat = "Asie",
tri = "Sri Lanka",
annee = { aucun = 2016, seul = {2008, 2009}, },
}
data["à Taïwan"] = data["Asie"]

data["en Thaïlande"] = {
qualificatif = "en Thaïlande",
cat = "Asie",
tri = "Thaïlande",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Tibet"] = {
qualificatif = "au Tibet",
cat = "Asie",
tri = "Tibet",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Timor oriental"] = data["Asie"]
data["au Turkménistan"] = data["Asie"]
data["au Viêt Nam"] = data["Asie"]

-- Europe --

data["Europe"] = {
qualificatif = "par pays en Europe",
cat = "Europe",
tri = "-Europe",
annee = { aucun = 1989, tous = {1999, 2021}, seul = {1976}, },
}
data["par pays en Europe"] = data["Europe"]

data["en Europe"] = {
qualificatif = "en Europe",
cat = "Europe",
tri = "-Europe ",
annee = { aucun = 1979, tous = {2004, 2021}, },
}
-- Un certain nombre de lien sur l'année 2009 sont des redirections vers "par pays en Europe"
data["en Albanie"] = {
qualificatif = "en Albanie",
cat = "Europe",
tri = "Albanie",
annee = { aucun = 2016, seul = {2014}, },
}
data["en Allemagne"] = {
qualificatif = "en Allemagne",
cat = "Europe",
tri = "Allemagne",
annee = { aucun = 1990, tous = {1991, 2011}, },
}
data["en Andorre"] = data["Europe"]
-- data["en Angleterre"] -- voir "au Royaume-Uni"
data["en Arménie"] = data["Europe"]

data["en Autriche"] = {
qualificatif = "en Autriche",
cat = "Europe",
tri = "Autriche",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Belgique"] = {
qualificatif = "en Belgique",
cat = "Europe",
tri = "Belgique",
annee = { aucun = 1811, tous = {1825, 2021}, },
}
data["en Biélorussie"] = data["Europe"]
data["en Bosnie-Herzégovine"] = data["Europe"] --2009 est une redirection
data["en Bosnie"] = data["Europe"]
data["en Bulgarie"] = data["Europe"]

data["dans le Caucase"] = {
qualificatif = "dans le Caucase",
cat = "Europe",
tri = "Caucase",
annee = { aucun = 2008, tous = {2009, 2010}, },
}
data["à Chypre"] = data["Europe"]
data["en Croatie"] = data["Europe"]

data["au Danemark"] = {
qualificatif = "au Danemark",
cat = "Europe",
tri = "Danemark",
annee = { aucun = 1990, tous = {2008, 2016}, },
}

-- data["en Écosse"] -- voir "au Royaume-Uni"

data["en Espagne"] = {
qualificatif = "en Espagne",
cat = "Europe",
tri = "Espagne",
annee = { aucun = 2007, tous = {2008, 2009}, },
}
data["en Estonie"] = data["Europe"]
data["en Finlande"] = data["Europe"]

data["en France"] = {
qualificatif = "en France",
cat = "Europe",
tri = "France",
mois = { aucun = 2004, tous = {2008, 2009}, seul = { "Octobre 2004", "Mai 1968"}, },
annee = { aucun = 1536, tous = {1537, 2022}, seul = {1419}, },
}
data["France"] = data["en France"]
data["en Bretagne"] = {
qualificatif = "en Bretagne",
cat = "France",
tri = "France - Bretagne",
annee = { aucun = 1789, tous = {1893, 2016}, },
}
data["en Lorraine"] = {
qualificatif = "en Lorraine",
cat = "France",
tri = "France - Lorraine",
annee = { aucun = 1788, tous = {1789, 2020}, },
}
data["à Paris"] = {
qualificatif = "à Paris",
cat = "France",
tri = "France - Paris",
annee = { aucun = 1847, tous = {2006, 2008}, },
}

data["en Géorgie"] = {
qualificatif = "en Géorgie",
cat = "Europe",
tri = "Georgie",
annee = { aucun = 2016, tous = {2017, 2020}, seul = {1991, 1992, 2001, 2002, 2009}, },
}
data["en Grèce"] = {
qualificatif = "en Grèce",
cat = "Europe",
tri = "Grece",
annee = { aucun = 1870, tous = {1877, 2021}, },
}
data["en Hongrie"] = data["Europe"]

data["en Irlande"] = {
qualificatif = "en Irlande",
cat = "Europe",
tri = "Irlande",
annee = { aucun = 1976, },
}
data["en Islande"] = {
qualificatif = "en Islande",
cat = "Europe",
tri = "Islande",
annee = { aucun = 2008, },
}
data["en Italie"] = {
qualificatif = "en Italie",
cat = "Europe",
tri = "Italie",
annee = { aucun = 1786, tous = {1787, 2021}, },
}
data["au Kosovo"] = data["Europe"]
data["au Liechtenstein"] = data["Europe"]
data["en Lettonie"] = data["Europe"]
data["en Lituanie"] = data["Europe"]
data["au Luxembourg"] = data["Europe"]
data["en Macédoine"] = data["Europe"]
data["à Malte"] = data["Europe"]

data["en Moldavie"] = {
qualificatif = "en Moldavie",
cat = "Europe",
tri = "Moldavie",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Monténégro"] = data["Europe"]
data["en Norvège"] = data["Europe"]

data["aux Pays-Bas"] = {
qualificatif = "aux Pays-Bas",
cat = "Europe",
tri = "Pays-Bas",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Royaume uni des Pays-Bas"] = {
qualificatif = "au Royaume uni des Pays-Bas",
cat = "Europe",
tri = "Pays-Bas ",
annee = { aucun = 1814, tous = {1825, 1829}, },
}
data["en Pologne"] = {
qualificatif = "en Pologne",
cat = "Europe",
tri = "Pologne",
annee = { aucun = 2016, seul = {2009}, },
}
data["au Portugal"] = data["Europe"]

data["en Roumanie"] = {
qualificatif = "en Roumanie",
cat = "Europe",
tri = "Roumanie",
annee = { aucun = 2008, },
}
data["au Royaume-Uni"] = {
qualificatif = "au Royaume-Uni",
cat = "Europe",
tri = "Royaume-Uni",
annee = { aucun = 2007, tous = {2008, 2009}, },
}
data["au pays de Galles"] = {
qualificatif = "au pays de Galles",
cat = "Europe",
tri = "Royaume-Uni - pays de Galles",
annee = { aucun = 2007, tous = {2008, 2011}, },
}
data["en Angleterre"] = data["au Royaume-Uni"] -- doit être placé après le création de "au Royaume-Uni"
data["en Écosse"] = data["au Royaume-Uni"]

data["en Russie"] = {
qualificatif = "en Russie",
cat = "Europe",
tri = "Russie",
annee = { aucun = 2007, tous = {2008, 2009}, seul = {2001}, },
}
data["en Serbie"] = {
qualificatif = "en Serbie",
cat = "Europe",
tri = "Serbie",
annee = { aucun = 2007, tous = {2008, 2009}, },
}
data["en Slovaquie"] = data["Europe"]
data["en Slovénie"] = data["Europe"]

data["en Suède"] = {
qualificatif = "en Suède",
cat = "Europe",
tri = "Suede",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Suisse"] = {
qualificatif = "en Suisse",
cat = "Europe",
tri = "Suisse",
annee = { aucun = 1847, tous = {1851, 2021}, },
}
data["en République tchèque"] = {
qualificatif = "en République tchèque",
cat = "Europe",
tri = "Tchequie",
annee = { aucun = 2008, },
}
data["en Tchéquie"] = data["en République tchèque"]
data["en Turquie"] = {
qualificatif = "en Turquie",
cat = "Europe",
tri = "Turquie",
annee = { aucun = 2016, seul = {2009}, },
}
data["en Ukraine"] = {
qualificatif = "en Ukraine",
cat = "Europe",
tri = "Ukraine",
annee = { aucun = 2016, seul = {2009}, },
}
data["dans l'Union européenne"] = {
qualificatif = "dans l'Union européenne",
cat = "Europe",
tri = "Union européenne",
annee = { aucun = 2005, tous = {2006, 2015}, },
}
data["au Vatican"] = {
qualificatif = "au Vatican",
cat = "Europe",
tri = "Vatican",
annee = { aucun = 2005, tous = {2011, 2021}, seul = {1993}, },
}

-- Proche-Orient
data["Proche-Orient"] = {
qualificatif = "par pays au Proche-Orient",
cat = "Proche-Orient",
tri = "-Proche-Orient",
annee = { aucun = 2004, tous = { 2005, 2017 } },
}
data["par pays au Proche-Orient"] = data["Proche-Orient"]

data["en Arabie saoudite"] = {
qualificatif = "en Arabie saoudite",
cat = "Proche-Orient",
tri = "Arabie saoudite",
annee = { aucun = 2016, seul = {2009} },
}
data["aux Émirats arabes unis"] = {
qualificatif = "aux Émirats arabes unis",
cat = "Proche-Orient",
tri = "Emirats arabes unis",
annee = { aucun = 2016, seul = {2009} },
}
data["en Irak"] = {
qualificatif = "en Irak",
cat = "Proche-Orient",
tri = "Irak",
annee = { aucun = 2007, tous = {2008, 2014}, },
}
data["en Iran"] = {
qualificatif = "en Iran",
cat = "Proche-Orient",
tri = "Iran",
annee = { aucun = 2005, tous = {2006, 2010}, },
}
data["en Israël"] = {
qualificatif = "en Israël",
cat = "Proche-Orient",
tri = "Israel",
annee = { aucun = 2007, tous = {2008, 2009}, },
}
data["en Jordanie"] = data["Proche-Orient"]

data["au Liban"] = {
qualificatif = "au Liban",
cat = "Proche-Orient",
tri = "Liban",
annee = { aucun = 2007, tous = {2014, 2015} },
}
data["en Palestine"] = {
qualificatif = "en Palestine",
cat = "Proche-Orient",
tri = "Palestine",
annee = { aucun = 2007, tous = {2008, 2009}, },
}
data["en Syrie"] = data["Proche-Orient"]

data["au Yémen"] = {
qualificatif = "au Yémen",
cat = "Proche-Orient",
tri = "Yémen",
annee = { aucun = 2016, seul = {2009} },
}

-- Océanie --

data["Océanie"] = {
qualificatif = "par pays en Océanie",
cat = "Océanie",
tri = "-Oceanie",
annee = { aucun = 2005, tous = {2006, 2021}, },
}
data["par pays en Océanie"] = data["Océanie"]

data["en Océanie"] = {
qualificatif = "en Océanie",
cat = "Océanie",
tri = "-Oceanie ",
annee = { aucun = 2005, tous = {2006, 2021}, },
}
data["en Australie"] = {
qualificatif = "en Australie",
cat = "Océanie",
tri = "Australie",
annee = { aucun = 2008, tous = {2013, 2019}, },
}
data["en Micronésie"] = data["Océanie"]

data["en Nouvelle-Calédonie"] = {
qualificatif = "en Nouvelle-Calédonie",
cat = "Océanie",
tri = "Nouvelle-Caledonie",
annee = { aucun = 1959, tous = {1960, 2009}, },
}

data["en Nouvelle-Zélande"] = {
qualificatif = "en Nouvelle-Zélande",
cat = "Océanie",
tri = "Nouvelle-Zelande",
annee = { aucun = 2016, seul = {2011} },
}
data["en Papouasie-Nouvelle-Guinée"] = {
qualificatif = "en Papouasie-Nouvelle-Guinée",
cat = "Océanie",
tri = "Papouasie-Nouvelle-Guinee",
annee = { aucun = 2016, seul = {2012} },
}

-- -------------------------- --
-- alias pour les chartes --
-- -------------------------- --
data["abda"] = data["en bande dessinée"]
data["bd"] = data["en bande dessinée"]
data["chef d'état"] = data[""]
data["chef de gouvernement"] = data[""]
data["classique"] = data["en musique classique"]
data["conseiller fédéral suisse"] = data["en Suisse"]
data["danse"] = data[""]
data["défaut"] = data[""]
data["defaut"] = data[""]
data["écrivain"] = data["en littérature"]
data["football"] = data["en football"]
data["gouverneur"] = data[""]
data["instrumentiste"] = data["en musique"]
data["jazz"] = data["en musique"]
data["littérature"] = data["en littérature"]
data["monarque"] = data[""]
data["monde"] = data["en musique"]
data["musical"] = data["en musique"]
data["pharaon"] = data["en Égypte"]
data["pluridisciplinaire"] = data[""]
data["politicien"] = data[""]
data["pornographie"] = data[""]
data["presse"] = data[""]
data["théâtre"] = data["au théâtre"]

return data

Module:Country data/liste

2024-09-20T14:19:48Z

Jaggerwock : Page créée avec « return { --noms utilisés dans les noms des sous-modules Country_data/... q16 = 'canada', q17 = 'japon', q20 = 'norvège', q21 = 'angleterre', q22 = 'écosse', q25 = 'pays de galles', q26 = 'irlande du nord', q27 = 'irlande', q28 = 'hongrie', q29 = 'espagne', q30 = 'états-unis', q31 = 'belgique', q32 = 'luxembourg', q33 = 'finlande', q34 = 'suède', q35 = 'danemark', q36 = 'pologne', q37 = 'lituanie', q38 = 'italie', q39 = 'suisse', q40 = 'a... »

return { --noms utilisés dans les noms des sous-modules Country_data/...
q16 = 'canada',
q17 = 'japon',
q20 = 'norvège',
q21 = 'angleterre',
q22 = 'écosse',
q25 = 'pays de galles',
q26 = 'irlande du nord',
q27 = 'irlande',
q28 = 'hongrie',
q29 = 'espagne',
q30 = 'états-unis',
q31 = 'belgique',
q32 = 'luxembourg',
q33 = 'finlande',
q34 = 'suède',
q35 = 'danemark',
q36 = 'pologne',
q37 = 'lituanie',
q38 = 'italie',
q39 = 'suisse',
q40 = 'autriche',
q41 = 'grèce',
q43 = 'turquie',
q45 = 'portugal',
q51 = 'antarctique',
q55 = 'pays-bas',
q77 = 'uruguay',
q79 = 'égypte',
q96 = 'mexique',
q114 = 'kenya',
q115 = 'éthiopie',
q117 = 'ghana',
q142 = 'france',
q145 = 'royaume-uni',
q148 = 'chine',
q155 = 'brésil',
q159 = 'russie',
q176 = 'québec',
q183 = 'allemagne',
q184 = 'biélorussie',
q189 = 'islande',
q191 = 'estonie',
q211 = 'lettonie',
q212 = 'ukraine',
q213 = 'république tchèque',
q214 = 'slovaquie',
q215 = 'slovénie',
q217 = 'moldavie',
q218 = 'roumanie',
q219 = 'bulgarie',
q221 = 'macédoine',
q222 = 'albanie',
q223 = 'groenland',
q224 = 'croatie',
q225 = 'bosnie-herzégovine',
q227 = 'azerbaïdjan',
q228 = 'andorre',
q229 = 'chypre',
q230 = 'géorgie',
q232 = 'kazakhstan',
q233 = 'malte',
q235 = 'monaco',
q236 = 'monténégro',
q237 = 'vatican',
q238 = 'saint-marin',
q241 = 'cuba',
q242 = 'belize',
q244 = 'barbade',
q252 = 'indonésie',
q258 = 'afrique du sud',
q262 = 'algérie',
q265 = 'ouzbékistan',
q298 = 'chili',
q334 = 'singapour',
q347 = 'liechtenstein',
q398 = 'bahreïn',
q399 = 'arménie',
q403 = 'serbie',
q408 = 'australie',
q414 = 'argentine',
q419 = 'pérou',
q423 = 'corée du nord',
q424 = 'cambodge',
q574 = 'timor oriental',
q657 = 'tchad',
q664 = 'nouvelle-zélande',
q668 = 'inde',
q672 = 'tuvalu',
q678 = 'tonga',
q683 = 'samoa',
q685 = 'salomon',
q686 = 'vanuatu',
q691 = 'papouasie-nouvelle-guinée',
q695 = 'palaos',
q697 = 'nauru',
q702 = 'micronésie',
q709 = 'îles marshall',
q710 = 'kiribati',
q711 = 'mongolie',
q712 = 'fidji',
q717 = 'venezuela',
q730 = 'suriname',
q733 = 'paraguay',
q734 = 'guyana',
q736 = 'équateur',
q739 = 'colombie',
q750 = 'bolivie',
q754 = 'trinité-et-tobago',
q757 = 'saint-vincent-et-les-grenadines',
q760 = 'sainte-lucie',
q763 = 'saint-christophe-et-niévès',
q766 = 'jamaïque',
q769 = 'grenade',
q774 = 'guatemala',
q778 = 'bahamas',
q781 = 'antigua-et-barbuda',
q783 = 'honduras',
q784 = 'dominique',
q785 = 'jersey',
q786 = 'république dominicaine',
q790 = 'haïti',
q792 = 'salvador',
q794 = 'iran',
q796 = 'irak',
q800 = 'costa rica',
q801 = 'israël',
q804 = 'panama',
q805 = 'yémen',
q810 = 'jordanie',
q811 = 'nicaragua',
q813 = 'kirghizistan',
q817 = 'koweït',
q819 = 'laos',
q822 = 'liban',
q826 = 'maldives',
q833 = 'malaisie',
q836 = 'birmanie',
q837 = 'népal',
q842 = 'oman',
q843 = 'pakistan',
q846 = 'qatar',
q851 = 'arabie saoudite',
q854 = 'sri lanka',
q858 = 'syrie',
q863 = 'tadjikistan',
q865 = 'taïwan',
q869 = 'thaïlande',
q874 = 'turkménistan',
q878 = 'émirats arabes unis',
q881 = 'viêt nam',
q884 = 'corée du sud',
q889 = 'afghanistan',
q902 = 'bangladesh',
q912 = 'mali',
q916 = 'angola',
q917 = 'bhoutan',
q921 = 'brunei',
q924 = 'tanzanie',
q928 = 'philippines',
q929 = 'république centrafricaine',
q945 = 'togo',
q948 = 'tunisie',
q953 = 'zambie',
q954 = 'zimbabwe',
q958 = 'soudan du sud',
q962 = 'bénin',
q963 = 'botswana',
q965 = 'burkina faso',
q967 = 'burundi',
q970 = 'comores',
q971 = 'république du congo',
q974 = 'république démocratique du congo',
q977 = 'djibouti',
q983 = 'guinée équatoriale',
q986 = 'érythrée',
q1000 = 'gabon',
q1005 = 'gambie',
q1006 = 'guinée',
q1007 = 'guinée-bissau',
q1008 = 'côte d\'ivoire',
q1009 = 'cameroun',
q1011 = 'cap-vert',
q1013 = 'lesotho',
q1014 = 'liberia',
q1016 = 'libye',
q1019 = 'madagascar',
q1020 = 'malawi',
q1025 = 'mauritanie',
q1027 = 'maurice',
q1028 = 'maroc',
q1029 = 'mozambique',
q1030 = 'namibie',
q1032 = 'niger',
q1033 = 'nigeria',
q1036 = 'ouganda',
q1037 = 'rwanda',
q1039 = 'sao tomé-et-principe',
q1041 = 'sénégal',
q1042 = 'seychelles',
q1044 = 'sierra leone',
q1045 = 'somalie',
q1049 = 'soudan',
q1050 = 'eswatini',
q1055 = 'hambourg',
q1183 = 'porto rico',
q1246 = 'kosovo',
q1410 = 'gibraltar',
q2184 = 'russie',
q3769 = 'guyane',
q4040 = 'aragon',
q4628 = 'îles féroé',
q4948 = 'république de Venise',
q5689 = 'åland',
q5705 = 'catalogne',
q5785 = 'îles caïmans',
q7318 = 'troisième reich',
q8646 = 'hong kong',
q8733 = 'chine', -- dynastie Qing, utilisée comme nationalité sur Wikidata (?!)
q9648 = 'îles malouines',
q9676 = 'île de man',
q11703 = 'îles vierges des états-unis',
q12560 = 'empire ottoman',
q13353 = 'montserrat',
q14773 = 'macao',
q15180 = 'union des républiques socialistes soviétiques',
q15864 = 'royaume uni des pays-bas', --(1815-1839)
q16635 = 'guam',
q16641 = 'samoa américaines',
q16644 = 'îles mariannes du nord',
q16957 = 'république démocratique allemande',
q17012 = 'guadeloupe',
q17054 = 'martinique',
q17063 = 'mayotte',
q17070 = 'la réunion',
q18221 = 'îles turques-et-caïques',
q20135 = 'grand-duché de hesse',
q21203 = 'aruba',
q23635 = 'bermudes',
q25228 = 'anguilla',
q25230 = 'guernesey',
q25279 = 'curaçao',
q25305 = 'îles vierges britanniques',
q25362 = 'saint-barthélemy',
q26273 = 'sint maarten',
q26988 = 'îles cook',
q27306 = 'royaume de prusse',
q27561 = 'pays-bas caribéens',
q28513 = 'autriche-hongrie',
q29520 = 'chine', -- "monde chinois"...
q29999 = 'pays-bas', -- "royaume"..
q30971 = 'polynésie française',
q31057 = 'île norfolk',
q31063 = 'île christmas',
q31747 = 'État libre dIrlande',
q33788 = 'nouvelle-calédonie',
q33946 = 'tchécoslovaquie',
q34020 = 'niue',
q34266 = 'empire russe',
q34617 = 'saint-pierre-et-miquelon',
q35086 = 'géorgie du sud-et-les îles sandwich du sud',
q35555 = 'wallis-et-futuna',
q35672 = 'îles pitcairn',
q36004 = 'îles cocos',
q36704 = 'yougoslavie',
q36823 = 'tokelau',
q37024 = 'serbie-et-monténégro',
q40362 = 'république arabe sahraouie démocratique',
q41304 = 'république de weimar',
q42585 = 'royaume de bohême',
q43287 = 'empire allemand',
q43448 = 'territoire britannique de l\'océan indien',
q45670 = 'portugal', -- Royaume de Portugal (1139-1910)
q83286 = 'yougoslavie',
q126125 = 'saint-martin',
q129003 = 'terres australes et antarctiques françaises',
q129286 = 'raj britannique', -- Raj britannique
q131198 = 'îles heard-et-macdonald',
q131964 = 'autriche', -- Empire d'Autriche (1804-1867)
q153015 = 'royaume de saxe',
q154195 = 'royaume de bavière',
q155570 = 'grand-duché de saxe-weimar-eisenach',
q157013 = 'principauté de hohenzollern-sigmaringen',
q159631 = 'royaume de wurtemberg',
q161885 = 'royaume de grande-bretagne',
q164079 = 'royaume de hanovre',
q165154 = 'royaume de sardaigne', -- (1324-1861)
q172579 = 'royaume d\'italie', -- Royaume d'Italie (1861-1946)
q174193 = 'royaume-uni de grande bretagne et d\'irlande',
q186320 = 'grand-duché de bade',
q191077 = 'yougoslavie',
q192184 = 'sainte-hélène, ascension et tristan da cunha',
q217169 = 'rhodésie',
q219060 = 'palestine',
q310293 = 'sarre',
q326029 = 'duché de brunswick',
q533534 = 'autriche', -- Cisleithanie
q673865 = 'principauté de hohenzollern-hechingen',
q693669 = 'grand-duché d\'oldenbourg',
q700283 = 'pays-bas autrichiens', --(1713-1795)
q713750 = 'allemagne', -- RFA : faut-il prévoir un modèle distinct ?
q756617 = 'danemark', -- Royaume du Danemark en entier
q1140152 = 'République irlandaise',
q1206012 = 'allemagne', -- Reich allemand (1871-1943)
q1775277 = 'dominion de l\'inde', -- dominion britannique (1947-1950)
q2305208 = 'russie', -- Russie soviétique (1917-1922)
q2577303 = 'royaume de sardaigne', -- (1720-1861)
q13426199 = 'république de chine', -- République de Chine (1912-1949)
q25395037 = 'royaume de hongrie', --(1867-1918)
q107258515 = 'iran' --État impérial d'Iran (1925-1979)
}

Module:Biblio/Références

2024-09-20T14:19:34Z

Jaggerwock : Page créée avec « -- Les fonctions de ce module sont destinées à être utilisées par un autre module. -- Leur paramètre d'entrée est une table simple (args), voire une chaine (oclc, bnf...) local References = { } local Outils = require( 'Module:Outils' ) local validTextArg = Outils.validTextArg local Commun = require 'Module:Biblio/Commun' -- local Date = require( 'Module:Date' ) -- chargé uniquement si nécessaire --[[ ISBN-10 and ISSN validator code calculates checksu... »

-- Les fonctions de ce module sont destinées à être utilisées par un autre module.
-- Leur paramètre d'entrée est une table simple (args), voire une chaine (oclc, bnf...)

local References = { }

local Outils = require( 'Module:Outils' )
local validTextArg = Outils.validTextArg
local Commun = require 'Module:Biblio/Commun'
-- local Date = require( 'Module:Date' ) -- chargé uniquement si nécessaire

--[[
ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn().
If the number is valid the result will be 0. Before calling this function, issbn/issn must be checked for length and stripped of dashes,
spaces and other non-isxn characters.
]]
function References.is_valid_isxn( isxn_str, len )
local temp = 0
isxn_str = isxn_str:gsub( 'x', 'X' )
isxn_str = { isxn_str:byte(1, len) } -- make a table of bytes
len = len+1 -- adjust to be a loop counter
for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum
if v == string.byte( 'X' ) then -- if checkdigit is X
temp = temp + 10 * ( len - i ) -- it represents 10 decimal
else
temp = temp + tonumber( string.char( v ) ) * ( len - i )
end
end
return temp % 11 == 0 -- returns true if calculation result is zero
end

function References.isValidIsmn10( ismn )
local temp = 9
if ismn:match( 'M%d%d%d%d%d%d%d%d%d' ) then
for i = 2, 10 do
temp = temp + ( 1 + 2 * ( i % 2 ) ) * ismn:sub( i, i )
end
end
return temp % 10 == 0
end

-- Teste si une chaine ISBN est valide
function References.checkisbn( isbn_str )
if type( isbn_str ) == 'string' then
isbn_str = isbn_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces

if isbn_str:len() == 10 then
if isbn_str:match( '^%d+[xX]?$' ) then
return References.is_valid_isxn( isbn_str, 10 )
end
elseif isbn_str:match( '^97[89]' ) then
return References.checkean13( isbn_str )
end
end
return false
end

-- Teste si une chaine EAN 13 est valide
function References.checkean13( ean_str )
if type( ean_str ) == 'string' then
ean_str = ean_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces
if ean_str:len() == 13 and ean_str:match( '^%d+$' ) then
local temp, strVal = 0
ean_str = { ean_str:byte( 1, 13 ) }
for i = 1, #ean_str do
strVal = tonumber( string.char( ean_str[i] ) )
temp = temp + ( 3 - 2 * ( i % 2 ) ) * strVal
end
return temp % 10 == 0
end
end
return false
end

function References.checkissn( issn_str )
if type( issn_str ) == 'string' then
issn_str = issn_str:gsub( '[%s]', '' )
if issn_str:match( '^%d%d%d%d%-%d%d%d[%dxX]$' ) then
issn_str = issn_str:gsub( '-', '' ) -- supprime les traits d’union et espaces
return References.is_valid_isxn( issn_str, 8 )
end
end
return false
end

-- Teste si une chaine ISMN est valide
function References.checkismn( ismn_str )
if type( ismn_str ) == 'string' then
ismn_str = ismn_str:gsub( '[-%s]', '' ) -- supprime les traits d’union et espaces

if ismn_str:len() == 10 then
return References.isValidIsmn10( ismn_str, 10 )
elseif ismn_str:match( '^9790' ) then
return References.checkean13( ismn_str )
end
end
return false
end

local function isbn13to9( isbn_str )
if type( isbn_str ) == 'string' then
local isbn = isbn_str:gsub( '[-%s]', '' )
if isbn:len() == 13 and isbn:sub( 1, 3 ) == '978' then
isbn = isbn:sub( 4, 12 )
return isbn
elseif isbn:len() == 10 then
return isbn:sub( 1, -2 )
end
end
return isbn_str
end

local function isbn13to10( isbn_str )
local isbn = isbn13to9( isbn_str )
if isbn ~= isbn_str and isbn_str:len() ~= 10 then
for i = 0, 9 do
if References.checkisbn( isbn .. i ) then
return isbn .. i
end
end
return isbn .. 'X'
end
return isbn_str
end

function References.isbn13to10( frame )
local args = Outils.extractArgs( frame )
return isbn13to10( args[1] )
end

function References.same_isbn( isbn1, isbn2 )
if type( isbn1 ) ~= 'string' or type( isbn2 ) ~= 'string' then
return false
end
-- remove dash and spaces
isbn1 = isbn1:gsub( '[-%s]', '' )
isbn2 = isbn2:gsub( '[-%s]', '' )
-- check if both isbn are valid
if not ( References.checkisbn(isbn1) and References.checkisbn(isbn2) ) then
return false
end
-- compare isbn
return isbn13to9( isbn1 ) == isbn13to9( isbn2 )
end

local function doublonIsxn( isxn, liste2, xnCode)
if type( References[ 'same_' .. xnCode ] ) == 'function' then
for k, v in ipairs( liste2 ) do
if References[ 'same_' .. xnCode ]( isxn, v ) then
return true
end
end
end
end

local function formatIsxn( args, validArg, xnCode, invalideCateg, checkFunction, formatLien, page )
local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end

local liste = { }
local liste2 = { }
local i = 1
local invalide = '[à vérifier : ' .. invalideCateg .. ']'

local isxnErr = validArg( xnCode .. ' erroné' )
local XN = xnCode:upper()
local isxn = validArg( xnCode, XN, xnCode .. '1', XN .. '1' )
if isxnErr or isxn then
local isxnErrSanitised = isxnErr and isxnErr:match( '%d[%d -]+[%dXx]' )
if isxnErrSanitised then
local lien = formatLien:format( isxnErrSanitised, isxnErr )
table.insert( liste, lien .. ' (édité erroné)' )
end

-- boucle sur les isxn2, 3...
while isxn do
-- vérification de la validité de l'ISXN
local isxnValid = checkFunction( isxn )

-- préparation du texte à afficher
if isxnValid then
local lien = formatLien:format( isxn, isxn )
table.insert( liste, lien )
if type( args.categ ) == 'table' and doublonIsxn( isxn, liste2, xnCode) then
args.categ[ xnCode .. 'Dupliqué' ] = isxn
end
table.insert( liste2, isxn )
else
table.insert( liste, isxn .. invalide )
if type( args.categ ) == 'table' then
-- pour les propriétés isbnInvalid, issnInvalid et eanInvalid
args.categ[ xnCode .. 'Invalid' ] = true
end
end

i = i + 1
isxn = validArg( xnCode .. i, XN .. i )
end

if args['sansLabel'] then
page = ''
else
page = page .. ' '
end
return page .. mw.text.listToText( liste )
end
end

-- voir Modèle:ISBN
-- renvoie une liste de chaines formant le résultat du modèle une fois concaténées
function References.isbn( args, validArg )
return formatIsxn(
args,
validArg,
'isbn',
'[[:Catégorie:Page avec ISBN invalide|ISBN invalide]]',
References.checkisbn,
'[[Spécial:Ouvrages de référence/%s|%s]]',
'[[International Standard Book Number|ISBN]]'
)
end

-- voir Modèle:EAN
-- renvoie une liste de chaines formant le résultat du modèle une fois concaténées
function References.ean( args, validArg )
return formatIsxn(
args,
validArg,
'ean',
'[[:Catégorie:Page avec EAN invalide|EAN invalide]]',
References.checkean13,
'[[Spécial:Ouvrages de référence/%s|%s]]',
'[[EAN 13|EAN]]'
)
end

-- voir Modèle:ISSN
-- renvoie une liste de chaines formant le résultat du modèle une fois concaténées
function References.issn( args, validArg )
return formatIsxn(
args,
validArg,
'issn',
'[[:Catégorie:Page avec ISSN invalide|ISSN invalide]]',
References.checkissn,
'[https://portal.issn.org/resource/issn/%s %s]',
'[[International Standard Serial Number|ISSN]]'
)
end

function References.eissn( args, validArg )
return formatIsxn(
args,
validArg,
'e-issn',
'[[:Catégorie:Page avec ISSN invalide|ISSN invalide]]',
References.checkissn,
'[https://portal.issn.org/resource/issn/%s %s]',
'[[International Standard Serial Number#ISSN électronique|e-ISSN]]'
)
end

-- voir Modèle:ISMN
-- renvoie une liste de chaines formant le résultat du modèle une fois concaténées
function References.ismn( args, validArg )
return formatIsxn(
args,
validArg,
'ismn',
'[[:Catégorie:Page avec ISMN invalide|ISMN invalide]]',
References.checkismn,
'%s',
'[[International Standard Music Number|ISMN]]'
)
end

-- fonctions liant des bases de données externes
local function databaseExterne( num, lienIinterne, lienExterne, complement, texteAffiche )
if Outils.notEmpty( num ) then
local numEncoded
if num:find( '[^a-zA-Z0-9/_.~-]' ) then
numEncoded = mw.uri.encode( num, 'PATH' ):gsub( '%%2F', '/' )
else
numEncoded = num
end
local adresse =
lienIinterne
.. ' ['
.. 'https://' .. lienExterne .. numEncoded .. ( complement or '' )
.. ' '
.. mw.text.nowiki( texteAffiche or num )
.. ']'

return adresse
end
end

function References.arkId( base )
-- Nice Opaque Identifiern utilisé par les formats Ark pour générer une clé
base = tostring( base )
if base then
local xdigits = '0123456789bcdfghjkmnpqrstvwxz'
local sum = 0
local position
for i = 1, base:len() do
position = xdigits:find( base:sub( i, i ), 1, true ) or 1
sum = sum + i * ( position - 1 )
end
local index = sum % 29 + 1
return xdigits:sub( index, index )
end
end

function References.arxiv( arxiv )
if Outils.trim( arxiv ) then
return databaseExterne(
arxiv,
'[[arXiv]]',
'arxiv.org/abs/'
)
end
end

function References.asin( asin )
return databaseExterne(
asin,
'[[Amazon Standard Identification Number|ASIN]]',
'www.amazon.fr/s/?url=search-alias&lang=fr&field-keywords='
)
end

function References.bibcode( bibcode )
return databaseExterne( bibcode, '[[Bibcode]]', 'ui.adsabs.harvard.edu/abs/' )
end

function References.bnf( bnf )
bnf = Outils.trim( bnf )
if bnf then
local texte = ''
local category = ''
local bnfId = bnf:upper():match( 'BNF(%d+%w)' ) or
bnf:lower():match( 'cb(%d+%w)' ) or
bnf:match( '^%d+%w' )

if bnfId then
-- bnf contient une suite de chiffres qui peut être un ark valide
local base = bnfId:sub( 1, 8 )
local arkId = References.arkId( 'cb' .. base )
if bnfId:len() == 8 then
-- il manque la clé, on l'ajoute
bnf = base .. arkId
texte = base
elseif bnfId:len() > 8 and bnfId:sub( 9, 9 ) == arkId then
-- ark valide
bnf = bnfId:sub( 1, 9 )
texte = base
else
-- ark qui semble non valide
bnf = bnfId
texte = bnfId
category = '[[Catégorie:Recension temporaire pour le modèle Ouvrage|bnf]]'
end
else
-- le paramètre ne semble pas un ark valide
texte = bnf
category = '[[Catégorie:Recension temporaire pour le modèle Ouvrage|bnf]]'
end

-- dans tous les cas on renvoie l'adresse, on catégorise juste pour vérifier ce qui ne va pas
local lien = databaseExterne(
bnf,
'[[Bibliothèque nationale de France|BNF]]',
'catalogue.bnf.fr/ark:/12148/cb',
'.public',
texte
)

return lien .. category
end
end

function References.citeseerx( citeseerx )
return databaseExterne(
citeseerx,
'[[CiteSeerX|CiteSeerx]]',
'citeseerx.ist.psu.edu/viewdoc/summary?doi='
)
end

function References.dnb( dnb )
return databaseExterne(
dnb,
'[[Bibliothèque nationale allemande|DNB]]',
'd-nb.info/'
)
end

function References.doi( doi, paywall )
local result = databaseExterne(
doi,
'[[Digital Object Identifier|DOI]]',
'dx.doi.org/'
)
if result and paywall then
result = result .. ( References.indicationIconeAcces( paywall ) or '' )
end
return result
end

function References.jfm( jfm )
return databaseExterne( jfm, '[[zbMATH|JFM]]', 'zbmath.org/?format=complete&q=an:' )
end

function References.jstor( jstor )
return databaseExterne( jstor, '[[JSTOR]]', 'jstor.org/stable/' )
end

function References.hal( hal )
if Outils.trim( hal ) then
if not hal:match( '^%w+%-%d' ) then
hal = 'hal-' .. hal
end
return databaseExterne(
hal,
'[[HAL (archive ouverte)|HAL]]',
'hal.science/'
)
end
end

function References.hdl( hdl, paywall )
local result = databaseExterne( hdl, '[[Handle System|hdl]]', 'hdl.handle.net/' )
if result and paywall then
result = result .. ( References.indicationIconeAcces( paywall ) or '' )
end
return result
end

function References.lccn( lccn )
return databaseExterne(
lccn,
'[[Numéro de contrôle de la Bibliothèque du Congrès|LCCN]]',
'lccn.loc.gov/'
)
end

function References.libris( libris )
return databaseExterne( libris, '[[LIBRIS]]', 'libris.kb.se/bib/' )
end

function References.mathreviews( mathreviews )
return databaseExterne(
mathreviews,
'[[Mathematical Reviews|MR]]',
'www.ams.org/mathscinet-getitem?mr='
)
end

function References.oclc( oclc )
return databaseExterne(
oclc,
'[[Online Computer Library Center|OCLC]]',
'worldcat.org/fr/title/'
)
end

function References.pmcid( pmcid )
return databaseExterne(
pmcid,
'[[PubMed Central|PMCID]]',
'www.ncbi.nlm.nih.gov/pmc/articles/'
)
end

function References.pmid( pmid )
return databaseExterne(
pmid,
'[[PubMed|PMID]]',
'www.ncbi.nlm.nih.gov/pubmed/'
)
end

function References.s2cid( s2cid )
return databaseExterne( s2cid, '[[Semantic Scholar|S2CID]]', 'api.semanticscholar.org/CorpusID:' )
end

function References.sbn( sbn )
local id = ( sbn or '' ):upper():gsub( '\\', '' ):gsub( '^ITICCU', '' )
return databaseExterne(
id,
'[[Service bibliothécaire national]]',
'opac.sbn.it/bid/'
)
end

function References.sudoc( sudoc )
return databaseExterne(
sudoc,
'[[Système universitaire de documentation|SUDOC]]',
'www.sudoc.fr/'
)
end

function References.wikisource( wikisource )
if Outils.notEmpty( wikisource ) then
return '[[s:' .. wikisource .. '|lire sur Wikisource]]'
end
end

function References.zbl( zbl )
return databaseExterne( zbl, '[[Zentralblatt MATH|zbMATH]]', 'zbmath.org/?q=an:' )
end

-- enLigne est destiné à remplacer "lire en ligne", "écouter en ligne", "présentation en ligne"
function References.enLigne( args, validArg )
local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end
local lang, esp = '', ''
if args.langue then
local Langue = require( 'Module:Langue' )
lang = Langue.indicationMultilingue{ args.langue, args.langue2, args.langue3 }
esp = ' '
end

local url = validArg( 'lien', 'url' )
local urlSimple = true

if url then
if url:match( '^https?://' ) or url:match( '^ftp://' ) or url:match( '^//' ) then
url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' ):gsub( ' ', '%%20' )
else
urlSimple = false
end
elseif validArg( 'doi' ) then
url = 'https://dx.doi.org/' .. mw.uri.encode( args.doi )
else
return
end

local lien
if urlSimple then
local texte = validArg( 'texte' ) or 'en ligne'
lien = '[' .. url .. ' ' .. texte .. ']'
else
lien = url
end

local date = validArg( 'date', 'consulté le' )

if date then
return lang .. esp .. lien .. ' (consultée le' .. date .. ')'
else
return lang .. esp .. lien
end
end

function References.affichageLiensExternes( args, validArg, lireEnLigne, consulteLe )
local validArg = validArg or function ( ... ) return validTextArg( args, ... ) end

local liensExternes = {}
local function minsert( ... )
for i = 1, select( '#', ... ) do
local sel = select( i, ... )
if sel then
liensExternes[#liensExternes+1] = sel
end
end
end

-- isbn et issn
minsert(
References.isbn( args, validArg ),
References.ean( args, validArg ),
References.issn( args, validArg ),
References.eissn( args, validArg ),
References.ismn( args, validArg )
)

minsert(
References.oclc( args.oclc ),
References.bnf ( args.bnf ),
References.sbn ( args.sbn ),
References.lccn( args.lccn ),
References.dnb ( args.dnb ),
References.pmid( validArg( 'pmid', 'PMID' ) ),
References.pmcid ( validArg( 'pmcid', 'pmc' ) ),
References.doi( validArg( 'doi', 'DOI' ), validArg( 'accès doi' ) ),
References.jstor( args.jstor ),
References.bibcode( args.bibcode ),
References.mathreviews( validArg( 'math reviews', 'mathreviews', 'mr' ) ),
References.zbl( validArg( 'zbl', 'zbmath' ) ),
References.arxiv( args.arxiv ),
References.hal( args.hal ),
References.hdl( args.hdl, validArg( 'accès hdl') ),
References.s2cid( args.s2cid ),
References.libris( args.libris ),
References.citeseerx( args.citeseerx ),
References.jfm( args.jfm ),
References.asin( args.asin ),
References.sudoc( args.sudoc ),
References.wikisource( args.wikisource )
)

minsert(
References.enLigne{ url = args['résumé'], texte = 'résumé' },
References.enLigne{ url = args['présentation en ligne'], texte = 'présentation en ligne' },
References.enLigne{ url = args['écouter en ligne'], texte = 'écouter en ligne' }
)

local url = validArg( 'lire en ligne', 'url texte', 'url', 'texte' )
local paywall = validArg( 'accès url' )
if url and lireEnLigne then
local archiveUrl = validArg( 'archive-url', 'archiveurl' )
if archiveUrl then
if not ( string.match( archiveUrl, '^http' ) or string.match( archiveUrl, '^//' ) ) then
archiveUrl = 'http://' .. archiveUrl
end
local textArchive = 'archive'
local dateArchive = validArg( 'archive-date', 'archivedate' )
if dateArchive then
textArchive = 'archive du ' .. Commun.inscriptionDate{ date = dateArchive }
end

minsert(
''
.. References.enLigne{ url = url, texte = 'lire en ligne' }
.. ' [['
.. archiveUrl .. ' ' .. textArchive
.. ']]'
.. ( paywall and References.indicationIconeAcces( paywall ) or '' )
.. ''
.. ( References.indicationDeFormat( args['format électronique'] ) or '' )
)
else
minsert(
References.enLigne{ url = url, texte = 'lire en ligne' }
.. ( paywall and References.indicationIconeAcces( paywall ) or '' )
.. ( References.indicationDeFormat( args['format électronique'] ) or '' )
)
end
end

-- consulté le
if consulteLe then
local consult = validArg( 'consulté le', 'accessdate', 'access-date', 'Consulté le', 'consulté', 'consultée le' )
if consult then
local prefixe = 'consulté le '

if consult:sub( -1, -1 ) == '.' then
consult = consult:sub( 1, -2 )
end
consult = consult:lower()

local Date = require( 'Module:Date' )
local dateWikifiee = Date.modeleDate{
consult,
nolinks = true,
afficherErreurs = true,
categoriserErreurs = 'Page contenant un paramètre « consulté le » avec une date invalide'
}

if dateWikifiee:match( 'datetime="%d%d%d%d"' ) or dateWikifiee:match( 'datetime="%d%d%d%d%-%d%d"' ) then
prefixe = 'consulté en '
end

minsert( prefixe .. dateWikifiee )
end
end

if #liensExternes > 0 then
return ' (' .. table.concat( liensExternes, ', ' ) .. ')'
end
end

function References.indicationDeFormat( format )
if not Outils.trim( format ) then
return
end
local listeFormat = {
audio = { "audio", "Fichiers audio au format MP3, Ogg..." },
bat = { "bat", "Script de traitement par lot (batch)" },
djvu = { "DjVu", "Document au format DjVu" },
doc = { "doc", "Document Microsoft Word" },
epub = { "EPUB", "Document au format Epub" },
flash = { "flash", "Animation vectorielle au format Macromedia Flash" },
hlp = { "hlp", "Fichier HeLP (aide) datant de Microsoft Windows 3.1" },
html = { "html", "Fichier au format Hypertext Markup Language (HTML)" },
image = { "image", "Image au format JPEG, PNG, GIF..." },
java = { "java", "Applet Java" },
mov = { "mov", "Vidéo au format Apple QuickTime" },
mp3 = { "MP3", "Fichier audio au format MP3" },
odt = { "odt", "Document au format OpenDocument" },
ogg = { "ogg", "Fichier au format conteneur Ogg" },
pdf = { "PDF", "Document au format Portable Document Format (PDF) d'Adobe" },
php = { "php", "Script PHP" },
pl = { "pl", "Script Practical Extraction and Report Language (Perl)" },
ppt = { "ppt", "Présentation Microsoft PowerPoint" },
ps = { "ps", "Fichier de description vectorielle au format PostScript" },
radio = { "radio", "Radio au format MPEG, AVI..." },
rar = { "rar", "Document compressé au format RAR" },
rm = { "rm", "Vidéo au format RealMedia, RealAudio..." },
rtf = { "RTF", "Document texte en Rich Text Format (RTF)" },
svg = { "SVG", "Image vectorielle au format Scalable Vector Graphics (SVG)" },
sxi = { "sxi", "Présentation OpenOffice.org Impress" },
sxw = { "sxw", "Document OpenOffice.org Writer" },
tex = { "TeX", "Document TeX" },
txt = { "txt", "Fichier au format texte brut" },
video = { "vidéo", "Vidéo au format MPEG, AVI..." },
xls = { "xls", "Classeur Microsoft Excel" },
xml = { "XML", "Document au format Extensible Markup Language (XML)" },
zip = { "zip", "Archive au format Zip" },
}
listeFormat['vidéo'] = listeFormat.video
listeFormat.vid = listeFormat.video
listeFormat.htm = listeFormat.html
listeFormat.excel = listeFormat.xls
listeFormat.powerpoint = listeFormat.ppt
listeFormat.word = listeFormat.doc
listeFormat.aud = listeFormat.audio

local tabFormat = listeFormat[ string.lower( format ) ]
if tabFormat then
return (
' <abbr class="abbr indicateur-format format-' .. tabFormat[1]:lower() .. '" '
.. 'title="' .. tabFormat[2] .. '">'
.. mw.text.nowiki( '[' .. tabFormat[1] .. ']' ) .. '</abbr>'
)
else
-- teste si le suffixe est suivi d'une précision (ex : pdf 6 Mo)
local ext, texte = string.match( format, "^([%S]+) (.+)$")
if ext and listeFormat[ string.lower( ext ) ] then
return References.indicationDeFormat( ext ) .. ' ' .. texte
else
return ' [' .. format .. ']' -- '[' = '<nowiki>[</nowiki>', ']' = '<nowiki>]</nowiki>',
end
end

end

function References.indicationIconeAcces( paywall )
local val = string.lower( paywall ) -- nettoyage qui devrait être suffisant

if val == 'payant' then
return ' [[File:Lock-red-alt-2.svg|9px|link=|alt=Accès payant|Accès payant au document]]'
elseif val == 'libre' then
return ' [[File:Lock-green.svg|9px|link=|alt=Accès libre|Accès libre au document]]'
elseif val == 'limité' then
return ' [[File:Lock-gray-alt-2.svg|9px|link=|alt=Accès limité|Accès limité au document]]'
elseif val == 'inscription' then
return ' [[File:Lock-gray-alt-2.svg|9px|link=|alt=Inscription nécessaire|Inscription nécessaire pour accéder au document]]'
else
return ''
end
end

return References

Modèle:Autres projets/styles.css

2024-09-20T14:18:37Z

Jaggerwock : Page créée avec « .autres-projets > .titre { text-align: center; margin: 0.2em 0; } .autres-projets > ul { margin: 0; padding: 0; } .autres-projets > ul > li { list-style: none; margin: 0.2em 0; text-indent: 0; padding-left: 24px; min-height: 20px; text-align: left; display: block; } .autres-projets > ul > li > a { font-style: italic; } @media (max-width: 720px) { .autres-projets { float:none; } } /* Catégorie:Sous-page de modèle feuille de style */ »

.autres-projets > .titre {
text-align: center;
margin: 0.2em 0;
}
.autres-projets > ul {
margin: 0;
padding: 0;
}
.autres-projets > ul > li {
list-style: none;
margin: 0.2em 0;
text-indent: 0;
padding-left: 24px;
min-height: 20px;
text-align: left;
display: block;
}
.autres-projets > ul > li > a {
font-style: italic;
}
@media (max-width: 720px) {
.autres-projets {
float:none;
}
}

/* [[Catégorie:Sous-page de modèle feuille de style]] */

Modèle:Espace

2024-09-20T14:18:20Z

Jaggerwock : Page créée avec « <nowiki> </nowiki><noinclude> {{Documentation}} </noinclude> »

<nowiki> </nowiki><noinclude>
{{Documentation}}
</noinclude>

Module:Bases

2024-09-20T14:17:49Z

Jaggerwock : Page créée avec « local p = {} local wikidata = require "Module:Wikidata" local wdpath = require "Module:Wikidata/Chemin" local langue = require "Module:Langue" local Outils = require "Module:Outils" local bases = {"architecture", "art", "astronomie", "audiovisuel", "bande dessinée", "géographie", "jeu", "jeu vidéo", "littérature", "militaire", "mode", "multidisciplinaires", "musique", "organisation", "pornographie", "recherche", "religion", "santé", "spectacle", "sport", "t... »

local p = {}
local wikidata = require "Module:Wikidata"
local wdpath = require "Module:Wikidata/Chemin"
local langue = require "Module:Langue"
local Outils = require "Module:Outils"

local bases = {"architecture", "art", "astronomie", "audiovisuel", "bande dessinée", "géographie", "jeu", "jeu vidéo", "littérature", "militaire", "mode", "multidisciplinaires", "musique", "organisation", "pornographie", "recherche", "religion", "santé", "spectacle", "sport", "tourisme", "transport", "vie publique", "vivant" }
local basesHeadername = {
["architecture"] = "à l'architecture",
["art"] = "aux beaux-arts",
["astronomie"] = "à l'astronomie",
["audiovisuel"] = "à l'audiovisuel",
["bande dessinée"] = "à la bande dessinée",
["géographie"] = "à la géographie",
["jeu"] = "au jeu",
["jeu vidéo"] = "au jeu vidéo",
["littérature"] = "à la littérature",
["militaire"] = "aux militaires",
["mode"] = "à la mode",
["multidisciplinaires"] = "à plusieurs domaines",
["musique"] = "à la musique",
["organisation"] = "aux organisations",
["pornographie"] = "à la pornographie",
["recherche"] = "à la recherche",
["religion"] = "à la religion",
["santé"] = "à la santé",
["spectacle"] = "au spectacle",
["sport"] = "au sport",
["tourisme"] = "au tourisme",
["transport"] = "au transport",
["vie publique"] = "à la vie publique",
["vivant"] = "au vivant"
}

--- fonctions internes ---

local function langs(property, frame, showfr)
local lang_set = {}
-- P1629 : élément de la base de la propriété d’identification ; P407 = langue de cette oeuvre ; P305 = code IETF de la langue
-- ou alors les qualificatifs de langue de la déclaration « format de l’url » de l’élément de la propriété.
for codelang in wdpath.iterate(property, "(P1629/P407|P1630>P407)/P305") do
local lang = codelang:snak().datavalue.value
if not showfr and lang == "fr" then
lang_set = {}
break
else
--ne pas insérer les doublons
lang_set[lang] = true
end
end

if #lang_set > 0 then
-- TODO : à trier par ordre de nom de langue ?? table.sort
local args = {}
for k, _ in pairs(lang_set) do
args[#args+1] = k
end
args.maxLang = 3
return langue.indicationMultilingue(args)
end
return ""
end

local function inBase(base, valueToFind)
for _, v in ipairs(base) do
if v[2] == valueToFind then
return true
end
end
return false
end

--- fonctions à ne pas utiliser dans l'espace encyclopédique ---

function p.contient(frame)
local property = frame.args["propriété"] or frame.args.property
local basesWithProperty = {}
for _, base in ipairs(bases) do
if inBase(require("Module:Bases/" .. base ), property) then
table.insert(basesWithProperty, base)
end
end
return table.concat(basesWithProperty, ",")
end

function p.count(frame)
local TableTools = require('Module:TableTools')
local name = frame.args.name
local bases = require("Module:Bases/" .. name)
return TableTools.size(bases)
end

function p.documentation(frame)
local name = frame.args.name
local headername = frame.args.headername or name
local namebis = frame.args.namebis or headername
local categorie = "Page pointant vers des bases relatives " .. headername
local bases = require("Module:Bases/" .. name)
local pagesincat = require("Module:Pagesincat")
local complet = not (frame.args.complet and frame.args.complet == "faux")
local restrict = frame.args.restrict
local lines = {}
local linesNonFr = {}

-- texte d'introduction
table.insert(lines , "Modèle à utiliser principalement dans la section [[WP:LE|Liens externes]] d'une page. Il affiche une liste de liens vers des bases de données en rapport avec " .. namebis .. ", associée à la page wikipédia dans laquelle il est appelé ou à l’'''id''' spécifique appelé par le modèle. Le paramètre optionnel <code>id=</code> peut être utilisé pour désigner un élément Wikidata autre que celui de la page de Wikipédia où le modèle est employé.")
table.insert(lines , "")
table.insert(lines , "La liste des liens vers les bases est affichée par ordre alphabétique. Les liens vers des bases francophones sont placés en premier.")
table.insert(lines , "")
table.insert(lines , "La liste est générée automatiquement à partir des données de l'élément Wikidata relié à la page ou à l’'''id''' spécifique appelé par le modèle.")
table.insert(lines , "")
table.insert(lines , "")
table.insert(lines , "Les liens affichables par la base " .. name .. " sont chacune des '''propriétés''' du tableau. Le '''sujet''' de ces bases est le lien vers la page wikipédia associée à cette base, ou par défaut d'un wiki d'une autre langue quand il existe. Le modèle cible l'élément dans la base de données depuis l’'''url''' de la base, dont le contenu est rédigé dans une ou plusieurs '''langues'''.")
table.insert(lines , "")
table.insert(lines , "Tout ajout ou suppression de liens dans la base doit passer par [[Wikipédia:Ateliers Bases]].")
table.insert(lines , "")
table.insert(lines , "La modification du module se fait à la page [[Module:Bases/" .. name .."]].")
table.insert(lines , "")
table.insert(lines , "")
table.insert(lines , "Les pages utilisant le modèle sont listées dans la catégorie [[:Catégorie:" .. categorie .. "|" .. categorie .. "]], qui contient actuellement " .. pagesincat.pagesincat{categorie, type='pages', mise_en_forme='oui'} .. " pages.")
table.insert(lines , "")

table.insert(lines , '{| class="wikitable"')
table.insert(lines , '|-')
table.insert(lines , '! Propriété')
table.insert(lines , '! Sujet')
table.insert(lines , '! Libellé')
table.insert(lines , '! URL')
table.insert(lines , '! Langue')

for i, base in pairs(bases) do
local texte = base[1]

local found
if restrict ~= nil then
local rawtext = texte
if type( rawtext ) == 'table' then
rawtext = rawtext[1]
end
local firstletter = string.sub(rawtext , 1, 1)

if firstletter == "'" then
firstletter = string.sub(rawtext , 3, 3)
end
found = string.find(restrict, string.upper(firstletter))
end

if restrict == nil or found ~= nil then
if type( texte ) == 'table' then
texte = langue.langue{texte[2], texte = texte[1]}
end
local propertie = string.sub(base[2], 2)

local val = base[2]
local label = wikidata.getLabel(base[2])
if not label then
val = '' .. base[2] .. ' : propriété inconnue'
elseif complet then
val = frame:expandTemplate{title='WD P', args = {propertie,'pages'} }
else
val = '[[d:P:' .. base[2] .. '|' .. base[2] ..' (« ' .. label .. ' »)]]  →  [[:Catégorie:Page utilisant ' .. base[2] ..'|catégorie]]'
end

local lang_str = label and langs(base[2], frame, true) or ""
local subject = wikidata.formatStatements{entity = base[2], property = 'P1629'} or ''

if string.find(lang_str, "fr") ~= nil then
table.insert(lines , '|-')
table.insert(lines , '| ' .. val)
table.insert(lines , '| ' .. subject)
table.insert(lines , '| ' .. texte)
table.insert(lines , '| ' .. base[3])
table.insert(lines , '| ' .. lang_str )
else
table.insert(linesNonFr , '|-')
table.insert(linesNonFr , '| ' .. val)
table.insert(linesNonFr , '| ' .. subject)
table.insert(linesNonFr , '| ' .. texte)
table.insert(linesNonFr , '| ' .. base[3])
table.insert(linesNonFr , '| ' .. lang_str )
end
end
end
-- fusion de bases fr en 1er, puis des autres bases
for i, v in ipairs(linesNonFr) do table.insert(lines, v) end
table.insert(lines , '|}')

return table.concat(lines, "\n" )
end

--- fonctions pour l'espace encyclopédique ---

function p.tout_comme_table(frame)
local args = Outils.extractArgs(frame)

local keysPrio = {}
local keys = {}
local valsPrio = {}
local vals = {}
local valsFinal = {}
local tri = args["tri"] or args["trie"] or args["sort"] or "none"
local sortBySize = tri == "taille max"
local sortBySizeInverse = tri == "taille min"
local sortByAlpha = tri == "alphabétique"

args.noarchive = true
args.noinactifcat = true

for _, base in ipairs(bases) do
if args[base] ~= "-" then
local baseArgs = args
baseArgs.name = base
baseArgs.headername = basesHeadername[base]
local texte, taille, len = p.main(baseArgs, true)
if taille then
if args[base] then
local key = args[base] * 100
while valsPrio[key] do
key = key+ 1
end
table.insert(keysPrio, key)
valsPrio[key] = texte
else
local key = taille * 1000 + len
while vals[key] do
key = key + 1
end
table.insert(keys, key)
vals[key] = texte
end
end
end
end

table.sort(keysPrio)
if sortByAlpha then
-- ne rien faire
elseif sortBySizeInverse then
table.sort(keys)
else -- par défaut : if sortBySize then
table.sort(keys, function(a,b) return a>b end)
end

for _, k in ipairs(keysPrio) do table.insert(valsFinal, valsPrio[k]) end
for _, k in ipairs(keys) do table.insert(valsFinal, vals[k]) end

return valsFinal
end

function p.tout(frame)
local valsFinal = p.tout_comme_table(frame)

local rendu = table.concat(valsFinal, "\n*")
if rendu == "" and mw.title.getCurrentTitle().namespace == 0 and not frame:getParent().args.nocat then
return "[[Catégorie:Page utilisant un modèle Bases inactif]]"
end

-- TODO : surveiller [[phab:T280260]], et lorsque le bug sera corrigé, défaire [[Spécial:Diff/181960530]]
-- discussion : [[Discussion Projet:Bases#Petite régression d'affichage : ligne à puce parasite]]

return rendu
end

function p.main(frame , returnSize)
local args = Outils.extractArgs(frame)

-- Récupération des paramètres, soit ceux passés par le modèle,
-- soit ceux passés au modèle
local id = Outils.validTextArg(args , 'id', 'wikidata', 'entity', 1)
local name = args.name
local headername = args.headername or basesHeadername[name]
local noarchive = args.noarchive
local nocat = args.nocat or mw.title.getCurrentTitle().namespace ~= 0
local noinactifcat = nocat or args.noinactifcat
local len = 0

-- Chargement des données de la base souhaitée
local bases = require("Module:Bases/" .. name)

-- Récupération des propriétés wikidata de l'entité sélectionné
local entityId = id or mw.wikibase.getEntityIdForCurrentPage() or ''
if not (mw.wikibase.isValidEntityId(entityId) and mw.wikibase.entityExists(entityId)) then
if noinactifcat then
return ""
else
return "[[Catégorie:Page utilisant le modèle Bases " .. name .. " inactif]]"
end
end

-- Pour chaque base dans notre liste, on vérifie si notre entité la possède
-- si c'est le cas, on formate et ajoute un lien vers elle dans une liste
local vals = {}
local valsNonFr = {}
for i, base in pairs(bases) do
-- Pour gérer les cas comme sur Module:Bases/art où des tables sont dans
-- des tables => langue du titre de la base pour l'accessibilité
local nom
local texte
if type( base[1] ) == 'table' then
nom = base[1][1]
texte = langue.langue{ base[1][2], texte = base[1][1] }
else
nom = base[1]
texte = base[1]
end

local val
local value = args[nom] or args[base[2]]
if value ~= "-" then
if value then
val = wikidata.getDataValue({snaktype = 'value', excludespecial=true, datatype = 'external-id', datavalue = {value = value } }, {urlpattern = base[3], text = texte})
else
val = wikidata.formatStatements{entity = entityId, excludespecial=true, text = texte, property = base[2], urlpattern = base[3], numval = 1, addcat = not nocat, qualifier = 'P407', qualifiervalue = 'Q150'} or wikidata.formatStatements{entity = entityId, text = texte, property = base[2], urlpattern = base[3], numval = 1, addcat = not nocat}
end
end

if val and val:sub(1, 1) ~= "-" then
local lang_str = langs and langs(base[2], frame, false)

if lang_str ~= "" then
table.insert(valsNonFr, lang_str .. " " .. val)
else
table.insert(vals, val)
end
if returnSize then
len = len + string.len(nom)
end
end
end
-- fusion de bases fr en 1er, puis des autres bases
for i, v in ipairs(valsNonFr) do table.insert(vals, v) end

-- On catégorise si l'entité ne possède aucune des bases listés
if #vals == 0 then
if noinactifcat then
return ""
else
return "[[Catégorie:Page utilisant le modèle Bases " .. name .. " inactif]]"
end
end

-- Ajout du label si l'id wikidata a été précisé manuellement
local entityInfo = ''
if id then
local label = mw.wikibase.getLabel(entityId)
local link = wikidata.siteLink(entityId)
if label then
if link then
entityInfo = ' (pour [[' .. link .. '|' .. label .. ']])'
else
entityInfo = ' (pour ' .. label .. ')'
end
elseif link then
entityInfo = ' (pour [[' .. link .. ']])'
end
end

-- Concaténation des liens et formatage final
local header = ''
if #vals > 1 then
header = "Ressources relatives " .. headername .. entityInfo
else
header = "Ressource relative " .. headername .. entityInfo
end
local title = wikidata.addLinkBack(header, entityId, 'identifiers')

-- Ajout des catégories qui vont bien
local categories = ''
if not nocat then
categories = "[[Catégorie:Page pointant vers des bases externes]] [[Catégorie:Page pointant vers des bases relatives " .. headername .. "]]"
end

-- XXX: c'est invalide de mettre un <ul> (block-level) dans un (inline-level)
local elementsHtml = mw.html.create('span')
:addClass('liste-horizontale')
:addClass(noarchive and 'noarchive' or nil)
:wikitext(title .. ' : ')
:tag('ul')
for _, val in ipairs(vals) do
elementsHtml:tag('li'):wikitext(val):done():wikitext(' ')
end

if returnSize then
len = len + string.len(header)
return tostring(elementsHtml:allDone()) .. categories, #vals, len
else
return tostring(elementsHtml:allDone()) .. categories
end
end

return p

Module:Country data

2024-09-20T14:17:27Z

Jaggerwock : Page créée avec « -- This module is intended to replace the functionality of {{drapeau2}} and related templates. It provides several methods, including local p = {}; local gdata = mw.loadData ("Module:Country data/liste" ) local dates = require "Module:date complexe" local linguistic = require "Module:Linguistique" local function _getCompetition(c,aaaa) local gdomain = mw.loadData ( "Module:Drapeau/Domaine" ) -- chargé seulement sur les articles où ça sert, ça prend... »

--[[
This module is intended to replace the functionality of {{drapeau2}} and related
templates. It provides several methods, including
]]

local p = {};

local gdata = mw.loadData ("Module:Country data/liste" )
local dates = require "Module:date complexe"
local linguistic = require "Module:Linguistique"

local function _getCompetition(c,aaaa)
local gdomain = mw.loadData ( "Module:Drapeau/Domaine" ) -- chargé seulement sur les articles où ça sert, ça prend un peu de place

local symbs = {
['cm'] = "à la Coupe du monde",
['coupedumonde'] = "à la Coupe du monde",
['ce'] = "au championnat d'Europe",
['euro'] = "au championnat d'Europe",
['chm'] = "au championnat du monde",
['can'] = "à la Coupe des Confédérations",
['coupedesconfederations'] = "à la Coupe des Confédérations",
['en'] = "en",
['jo'] = "aux Jeux olympiques",
['jp'] = "aux Jeux paralympiques",
}

local str = symbs[string.lower(c or '')] or ""

--edition
if(aaaa ~= nil and aaaa ~= "") then
if(c=="jo" or c=="jp" ) then
local o=gdomain.jo["_"..aaaa];
if(o ~= nil) then
str = str .." "..o
end
else
str = str .." "..aaaa
end
end

return str
end

local function printFlag(flagfile, alt, displayformat)

displayformat = displayformat or {}
local size = displayformat.size or '20x15'
local border = 'border|'

if displayformat.border == '-' then
border = ''
end

if not alt then
alt = ''
end
return '' ..
'[[Fichier:' .. flagfile .. '|' .. size ..'px|' .. border .. alt ..'|class=noviewer]]' ..
'';
end

local function bestfordate(data, period) -- data contient une table dont les clés sont des dates au format ['2010'] = ou ['2010-05-04'] =
if type(data) == 'string' then
return data
end

-- très artisanal, à améliorer
if (not period) or (period == 'default') then
return data.default
end

local val = data.default
local bestdate = '-1000-01-01'
for i, j in pairs(data) do
if j ~= 'default' and dates.before(period, i) and dates.before(i, bestdate) then
val = j
bestdate = i
end -- bestdate est la date la plus récente antérieure ou égale à period, val est la donnée à cette date
end
return val
end

local function valueAtDate(data, period, topic) -- topic: type de drapeau, genre de l'adjectif, etc.
if type(data) == 'string' or type(data) == 'nil' then
return data
end
if type(data) ~= 'table' then
return error('mauvais datatabpe ' .. type(data))
end
topic = topic or "default"
if data[topic] then
return bestfordate(data[topic], period)
else
return bestfordate(data, period)
end
return error()
end

local function getData(datatable, typedata, topic, period) -- récupère la chaîne de caractère la plus appropriée dans la datatable
-- datatable: la table de sous module par exemple [[Module:Country data/grenade]]
-- typedata: "flag" / "name" / "adjective"
-- period: data in ISO format
-- topic: for instance "navy" for naval ensign
local val = datatable[typedata]

if not val then -- error handling ?
return nil
end

local val = valueAtDate(val, period, topic)

if type(val) ~= 'string' then -- error handling ?
return error(val)
end
return val
end

local function getAdjective(data, gender, number)
if not gender then
gender = 'm'
end
if not number then
number = 's'
end
if (gender ~= 'm' and gender ~= 'f') then
return error('gender devrait être m ou f mais est ' .. gender)
end
if (number ~= 's' and number ~= 'p') then
return error('number devrait être s ou p mais est ' .. number)
end
return getData(data, 'adjective', (gender .. number))
end

local function getDemonym (data, gender, number)
if data.demonym == nil then
return linguistic.ucfirst( getAdjective(data, gender, number) )
end
gender = gender or 'm'
number = number or 's'
if (gender ~= 'm' and gender ~= 'f') then
return error('gender devrait être m ou f mais est ' .. gender)
end
if (number ~= 's' and number ~= 'p') then
return error('number devrait être s ou p mais est ' .. number)
end
return getData(data, 'demonym', (gender .. number))
end

local function getLabel(data, topic, period, form)
local label
if (not form) or form == 'short' then
label = getData(data, 'shortname', topic, period)
end
if not label then
label = getData(data, 'name')
end
if (not label) and data.item then
label = mw.wikibase.label(getData(data, 'item'))
end
return label
end

local function getLink(data, topic, period)
local link = getData(data, 'link', topic, period)
if (not link) and data.item then
link = mw.wikibase.label(getData(data, 'item'))
end
return link
end

local function applyregex(str, areadata)
local cio = 'code CIO (en attente)' --require('Module:Wikidata')._formatStatements({entity= areadata.item, property= 'P984'}) or '??'

local label = getData(areadata, 'name')
local of = linguistic.of(label, areadata.genre)

str = mw.ustring.gsub(str, '$de$label', of)
str = mw.ustring.gsub(str, '$label', label)
str = mw.ustring.gsub(str, '$cio', 'cio')

if string.find(str, '$gentile') then
local function get(genre) return getData(areadata, 'adjective', genre) end
local gentileMS, gentileFS, gentileMP, gentileFP = get('ms'), get('fs'), get('mp'), get('fp')
str = mw.ustring.gsub(str, '$gentileMS', gentileMS)
str = mw.ustring.gsub(str, '$gentileFS', gentileFS)
str = mw.ustring.gsub(str, '$gentileMP', gentileMP)
str = mw.ustring.gsub(str, '$gentileFP', gentileFP)
end
return str
end

local function getDatatable(zone)
zone = mw.ustring.lower(zone)
if gdata[zone] then
return require('Module:Country data/' .. gdata[zone])
else -- si le module existe mais n'est pas dans la liste
return require('Module:Country data/' .. zone)
end
end

local function flagIcon(data, flagtype, period, displayformat)
local flagimage = getData(data, 'flag', flagtype, period)
if flagimage then
return printFlag(flagimage, '', displayformat)
end
end

function p.standarddisplay(zone, args)
if not zone then
return nil
end
-- nettoyage des paramètres
if not args then
args = {}
end
for i, j in pairs(args) do
args[i] = mw.text.trim(j) -- remove whitespaces
if args[i] == '' then args[i] = nil end
end

-- ajout des valeurs par défaut
local size = args.flagsize or '20x15'
local flagtype = args.type

local align = args.align or 'left'
local link = args.link
local period = args.date
local competition = args.competition
local edition = args.edition
local extra = ''

local success, data = pcall(getDatatable, zone)
if not success then
if args.strict then
return error('lieu non reconnu')
end
return nil
end

-- image
local flag = flagIcon(data, flagtype, period)
if (args.label == '-') then
return flag, true
end

-- text
local text
local label = getLabel(data, flagtype)
local link = getLink(data, flagtype)

if competition then
competition = _getCompetition(linguistic.toascii(competition),args["édition"])
end
if link and competition then
link = link .. ' ' .. competition
end

if link then
text = '[[' .. link .. '|' .. label .. ']]'
end

-- si les données sont extraites d'un formulaire standard comme module:Drapeau/domain, appliquer des regex
if string.match(text, '%$') then
text = applyregex(text, data)
end

local val
if align == 'right' then
val = text .. ' ' .. flag
else
val = flag .. ' ' .. text
end

return val, true -- true indique le succès
end

-- fonction appelable avec #invoke
function p.standarddisplay2(frame)
result, success = p.standarddisplay(frame.args['pays'],frame.args)
return result
end

function p.nationality(zone, gender, number, topic, period)
local success, data = pcall(getDatatable, zone)
if not success then return
zone
end

local str = getAdjective(data, gender, number)
if not str then
return zone
end
local link = getLink(data, topic, period)
if link then
str = '[[' .. link .. '|' .. str .. ']]'
end
return str, true-- true indique le succès
end

function p.getNationality(args) -- pour obtenir la nationalité d'une personne sur Wikidata sous forme d'adjectifs
if not args then
return nil
end
local wikidata = require "Module:Wikidata"
local complexdate = require "Module:Date complexe"

if type(args) == 'string' then -- si un seul argument, c'est l'entité à utiliser
args = {item = args}
end
if args.args then -- si vient de frame
args = args.args
end
local item = args.item or args[1]
local linkback = args.linkback

-- établit la variable gender pour l'élément
local vals = {
['Q6581072'] = 'f',
['Q6581097'] = 'm',
default = '?'
}
local gender = args.gender
if not gender then
gender = wikidata.formatStatements{entity = item, property = 'P21', displayformat = 'raw'}
gender = vals[gender] or vals.default
end
-- désactivation si date de naissance avant l'Ère contemporaine : trop d'imprécisions et d'anachronismes
local mindate = args.mindate or '1789'
if mindate ~= "-" then
local birthdate = wikidata.formatStatements{entity = item, property = 'P569', displayformat = 'raw', numval = 1}
local deathdate = wikidata.formatStatements{entity = item, property = 'P570', displayformat = 'raw', numval = 1}
if ((not birthdate) or complexdate.before(mindate, birthdate)) and ((not deathdate) or complexdate.before(mindate, deathdate)) then
return nil
end
end
return wikidata.formatStatements{
property = 'P27',
showdate = true,
entity = item,
conjtype = args.conjtype or 'and',
removedupes = true,
linktopic = '-',
linkback = linkback,
displayformat =
function(snak)
local g = gender -- genre de la personne, pour affichage du gentilé
if g == '?' then -- si inconnu, au masculin
g = 'm'
end
local val, success = p.nationality(wikidata.getId(snak), g)
if not success then
val = wikidata.formatSnak(snak)
end
return val
end
}
end

return p

Module:Date

2024-09-20T14:17:07Z

Jaggerwock : Page créée avec « -- luacheck: globals mw, no max line length local fun = {} local Outils = require 'Module:Outils' -- chargement de la base de données répertoriant certaines pages existant ou n'existant pas pour éviter les "ifexist". local dataLiens local success, resultat = pcall ( mw.loadData, 'Module:Date/Data' ) if success then dataLiens = resultat else -- protection au cas où le sous-module serait mal modifié dataLiens = { [''] = { mois = { aucun = 1000, tous = { 1... »

-- luacheck: globals mw, no max line length

local fun = {}

local Outils = require 'Module:Outils'
-- chargement de la base de données répertoriant certaines pages existant ou n'existant pas pour éviter les "ifexist".
local dataLiens
local success, resultat = pcall ( mw.loadData, 'Module:Date/Data' )
if success then
dataLiens = resultat
else
-- protection au cas où le sous-module serait mal modifié
dataLiens = { [''] = { mois = { aucun = 1000, tous = { 1773, 2014 } }, } }
end

-- nettoie un paramètre non nommé (vire les espaces au début et à la fin)
-- retourne nil si le texte est vide ou n'est pas du texte. Attention c'est important pour les fonctions qui l'utilisent.
local trim = Outils.trim

-- Fonction destinée à mettre la première lettre du mois en majuscule :
-- utilisation de string car aucun mois ne commence par une lettre non ascii en français ou anglais.
local function ucfirst( str )
return str:sub( 1, 1 ):upper() .. str:sub( 2 )
end

local modelePremier = '<abbr class="abbr" title="premier">1er</abbr>'

-- liste des mois, écriture exacte et alias, en minuscule
local listeMois = {
{ num = 1, nJour = 31, abrev = 'janv.', nom = 'janvier', alias = { 'jan.', 'janv.', 'jan', 'janv', 'january' } },
{ num = 2, nJour = 29, abrev = 'fév.', nom = 'février', alias = { 'fevrier', 'fev.', 'fev', 'fév.', 'fév', 'févr', 'févr.', 'february', 'feb', 'feb.' } },
{ num = 3, nJour = 31, abrev = 'mars', nom = 'mars', alias = { 'mar.', 'mar', 'march' } },
{ num = 4, nJour = 30, abrev = 'avr.', nom = 'avril', alias = { 'avr.', 'avr', 'apr', 'april'} },
{ num = 5, nJour = 31, abrev = 'mai', nom = 'mai', alias = { 'may' } },
{ num = 6, nJour = 30, abrev = 'juin', nom = 'juin', alias = { 'jun', 'june' } },
{ num = 7, nJour = 31, abrev = 'juill.', nom = 'juillet', alias = { 'juil.', 'juil', 'juill.', 'juill', 'jul', 'july' } },
{ num = 8, nJour = 31, abrev = 'août', nom = 'août', alias = { 'aoû', 'aug', 'august' } },
{ num = 9, nJour = 30, abrev = 'sept.', nom = 'septembre', alias = { 'sept.', 'sept', 'sep.', 'sep', 'september' } },
{ num = 10, nJour = 31, abrev = 'oct.', nom = 'octobre', alias = { 'oct.', 'oct', 'october' } },
{ num = 11, nJour = 30, abrev = 'nov.', nom = 'novembre', alias = { 'nov.', 'nov', 'november' } },
{ num = 12, nJour = 31, abrev = 'déc.', nom = 'décembre', alias = { 'decembre', 'déc.', 'dec.', 'dec', 'déc', 'december' } },
aout = { num = 8, nJour = 31, abrev = 'aout', nom = 'aout', alias = { 'aou' } },
}

-- ajoute les noms, abréviations et alias en tant que clés de listeMois
for i = 1, 12 do
local mois = listeMois[i]
listeMois[tostring( i )] = mois
if i < 10 then
listeMois['0' .. i] = mois
end
listeMois[mois.nom] = mois
listeMois[mois.abrev] = mois
for j = 1, #mois.alias do
listeMois[mois.alias[j]] = mois
end
end
for i = 1, #listeMois.aout.alias do
listeMois[listeMois.aout.alias[i]] = listeMois.aout
end

local liste_saisons = {
{ 'printemps', 'spring', },
{ 'été', 'summer', },
{ 'automne', 'autumn', },
{ 'hiver', 'winter', },
}

-- à partir d'un nom de saison (en français ou en anglais),
-- retourne son nom canonique (exemple : "été")
-- si non reconnu, retourne nil
function fun.determinationSaison( saison )
local s = trim( saison )
if s then
s = s:gsub( 'É', 'é' ):lower()
for i = 1, 4 do
for j = 1, #liste_saisons[i] do
if s == liste_saisons[i][j] then
return liste_saisons[i][1]
end
end
end
end
end

---
-- à partir d'un nom de mois (en français ou en anglais), de son numéro ou d'une abréviation,
-- retourne son nom canonique (exemple : "juin") et son numéro (exemple : 6)
-- si non reconnu, retourne nil, nil
function fun.determinationMois( mois )
local result

local num = tonumber( mois )
if num then
result = listeMois[num]
else
local str = trim( mois )
if str then
result = listeMois[str]
if not result then
result = listeMois[str:gsub( 'É', 'é' ):gsub( 'Û', 'û' ):lower()]
end
end
end

if result then
return result.nom, result.num
else
return nil, nil
end
end

-- fonction interne à modeleDate, pour déterminer si on peut se passer de faire un ifexist
local function existDate( dataQualificatif, annee, mois )
local data
if mois then
data = dataQualificatif.mois
else
data = dataQualificatif.annee
end
if type( data ) ~= 'table' then
-- si data n'existe pas c'est que l'on considère qu'il n'y a pas de lien.
return
end
-- le qualificatif est remplacé par celui de la base de données, ce qui permet des alias.
local lien = annee
if dataQualificatif.qualificatif ~= '' then
lien = lien .. ' ' .. dataQualificatif.qualificatif
end
local seul = annee
if mois then
lien = mois .. ' ' .. lien
seul = ucfirst( mois ) .. ' ' .. annee
end
local aucun = tonumber( data.aucun )
if aucun and annee <= aucun then
-- si l'année est dans la partie 'aucun' on teste s'il y a malgré tout un lien isolé
if type( data.seul ) == 'table' then
for i, v in ipairs( data.seul ) do
if seul == v or seul == tonumber( v ) then
return lien
end
end
end
-- partie aucun et pas de lien => nil
return nil
elseif type( data.tous ) == 'table' then
local tous1, tous2 = tonumber( data.tous[1] ), tonumber( data.tous[2] )
if tous1 and tous2 and annee >= tous1 and annee <= tous2 then
-- l'année est dans la partie 'tous' donc on retourne le lien
return lien
end
end
-- l'année n'est ni dans la partie aucun, ni dans la partie tous donc il faut tester si la page existe.
local cibleLien = mw.title.new( lien )
if cibleLien and cibleLien.exists then
return lien
end
end

---
-- Supprime le jour de la semaine, et "le" avant une date
function fun.nettoyageJour( jour )
if type( jour ) == 'string' then
local nomJour = { '[Ll]undi', '[Mm]ardi', '[Mm]ercredi', '[Jj]eudi', '[Vv]endredi',
'[Ss]amedi', '[Dd]imanche', '^ *[Ll]e' }
local premier = { '<abbr class="abbr *" title="[Pp]remier" *>1er</abbr>', '1er', '1er' }
for i = 1, #nomJour do
jour = jour:gsub( nomJour[i], '' )
end
for i = 1, #premier do
jour = jour:gsub( premier[i], '1' )
end
jour = trim( jour )
end
return jour
end

---
-- Sépare une chaine date en une table contenant les champs jour, mois et annee.
-- la date doit contenir le mois.
function fun.separationJourMoisAnnee( date )
date = trim( date )
if date then
local function erreur( periode, valeur )
return false, '' .. periode .. ' invalide (' .. valeur .. ')'
end

local dateAvantCleanup = date
local jour, mois, annee, masquerMois, masquerAnnee, separateur

-- variable pour construire les regex
local j = '([0-3]?%d)' -- jour
local m = '([01]?%d)' -- mois numérique
local mmm = '([^%s%p%d]+[.]?)' -- mois en toute lettre
local mmm2 = '([^%s%p%d]+[.]?[-/][^%s%p%d]+[.]?)' -- mois-mois en toute lettre
local aj = '(%-?%d+)' -- année ou jour
local s = '[ ./-]+' -- séparateur simple
local sep = '([ ./-]+)' -- séparateur avec capture, pour le détecter deux fois
local moins = '(%-?)' -- signe moins pour signifier qu'il ne faut pas afficher cette donnée

date = fun.nettoyageJour( date )
if date == nil then
return erreur( 'Date', dateAvantCleanup )
end
if date:find( '[[', nil, true ) then
date = date
-- suppression catégories (doit être exécuté avant le code de suppression des liens)
:gsub( '%[%[[Cc]atégorie:.-%]%]', '' )
:gsub( '%[%[[Cc]ategory:.-%]%]', '' )
-- suppression liens
:gsub( '%[%[([^%[%]|]*)|?([^%[%]]*)%]%]', function ( l, t ) return trim( t ) or l end )
end
date = date
-- suppression balises
:gsub( '%b<>', '' )
-- suppression des espaces insécables
-- nbsp
:gsub( '\194\160', ' ' )
:gsub( ' ', ' ' )
:gsub( ' ', ' ' )
-- narrow nbsp
:gsub( '\226\128\175', ' ' )
:gsub( ' ', ' ' )
-- thin space
:gsub( '\226\128\137', ' ' )
:gsub( ' ', ' ' )
:gsub( ' ', ' ' )
-- simple space
:gsub( ' ', ' ' )
-- plusieurs espaces (doit être exécuté après les autres remplacements)
:gsub( ' +', ' ' )
-- réduction av. J-C pour simplifier un peu les regex
:gsub( '(%d+) ?[Aa][Vv]%.? ?[Jj][ .-]*[Cc]%.?', '-%1' )
-- suppression de l'heure dans les dates ISO
:gsub( '^+?([%d-]*%d%d%-%d%d)T%d%d[%d:,.+-]*Z?$' , '%1')

-- test année seule
if date:match( '^'..aj..'$' ) then
annee = date:match( '^'..aj..'$' )
elseif date:match( '^'..aj..s..aj..moins..'$' ) then
-- jj/mm, mm/aaaa ou aaaa/mm
local a, separateur, b, sb = date:match( '^'..aj..sep..aj..moins..'$' )
a, b = tonumber( a ), tonumber( b )
if separateur:match( '^.+%-$' ) then
-- probablement mm/-aaaa, année av.JC
b = 0 - b
end
if a > 12 and ( b < 1 or b > 31 ) or
b > 12 and ( a < 1 or a > 31 ) then
return erreur( 'Date', dateAvantCleanup )
elseif b < 1 or b > 31 then
mois, annee, masquerAnnee = a, b, sb
elseif a < 1 or a > 31 then
annee, mois = a, b
elseif b > 12 then
return erreur( 'Mois', b )
else
jour, mois, masquerMois = a, b, sb
end
elseif date:match( '^'..aj..sep..m..moins..'%2'..aj..moins..'$' ) then
-- jj/mm/aaaa ou aaaa/mm/jj
jour, separateur, mois, masquerMois, annee, masquerAnnee = date:match( '^'..aj..sep..m..moins..'%2'..aj..moins..'$' )
if separateur == '-' and masquerMois == '-' and masquerAnnee == '' and tonumber( annee ) > 0 then
-- date au format jj-mm--aaaa type 17-06--44 pour 17 juin 44 av. JC
masquerMois = nil
annee = 0 - annee
end
elseif date:match( '^'..j..sep..mmm..moins..'%2'..aj..moins..'$' ) then
-- jj mmm aaaa
jour, separateur, mois, masquerMois, annee, masquerAnnee = date:match( '^'..j..sep..mmm..moins..'%2'..aj..moins..'$' )
elseif date:match( '^'..mmm..s..aj..moins..'$' ) then
-- mmm aaaa
mois, separateur, annee, masquerAnnee = date:match( '^'..mmm..sep..aj..moins..'$' )
if separateur:match( '^.+%-$' ) then
annee = '-' .. annee
end
elseif date:match( '^'..mmm2..s..aj..moins..'$' ) then
-- mmm-mmm aaaa
mois, separateur, annee, masquerAnnee = date:match( '^'..mmm2..sep..aj..moins..'$' )
if separateur:match( '^.+%-$' ) then
annee = '-' .. annee
end
elseif date:match( '^'..j..s..mmm..moins..'$' ) then
-- jj mmm
jour, mois, masquerMois = date:match( '^'..j..s..mmm..moins..'$' )
elseif date:match( '^'..mmm..s..j..', ?'..aj..'$') then
-- mmm jj, aaaa (format anglo-saxon)
mois, jour, annee = date:match( '^'..mmm..s..j..', ?'..aj..'$')
elseif date:match( '^'..mmm..'$' ) then
mois = date
else
return erreur( 'Date', dateAvantCleanup )
end
local jn, an = tonumber( jour ), tonumber( annee )
if jn and an and ( jn > 31 or jn < 0 or #jour >= 3 ) and an <= 31 then
-- cas notamment des date ISO 2015-06-17, -0044-06-17 et -0002-06-17
-- inversion du jour et de l'année
local temp = annee
annee = jour
jour = temp
end

return fun.validationJourMoisAnnee{
jour, mois, annee,
masquerAnnee = trim( masquerAnnee ) and true or nil,
masquerMois = ( trim( masquerAnnee ) or not annee ) and trim( masquerMois ) and true or nil,
-- or nil sert juste à éviter de trainer une valeur false dans tous les tests unitaires.
}
else
return true, {}
end
end

---
-- validationJourMoisAnnee vérifie que les paramètres correspondent à une date valide.
-- la date peut être dans les paramètres 1 à 3, ou dans des paramètres jour, mois et annee.
-- La fonction retourne true suivi d'une table avec la date en paramètres nommés (sans accent sur année)
-- ou false suivi d'un message d'erreur.
function fun.validationJourMoisAnnee( frame )
local args = Outils.extractArgs( frame )
local jour, mois, numMois, annee
local bjour = args[1] or args['jour'] or ''
local bmois = tostring( args[2] or args['mois'] or '' )
local bannee = args[3] or args['annee'] or args['année'] or ''

local function erreur( periode, valeur )
return false, '' .. periode .. ' invalide (' .. valeur .. ')'
end

-- on traite l'année
if Outils.notEmpty( bannee ) then
annee = tonumber( bannee )
if annee == nil and type( bannee ) == 'string' then
-- test si l'année contient av. J.-C.
annee = bannee:match( '^(%d+) ?[Aa][Vv]%.? ?[Jj][ .-]*[Cc]%.?' )
annee = tonumber( annee )
if annee then
annee = 0 - annee
else
return erreur( 'Année', bannee )
end
elseif annee == 0 then
return erreur( 'Année', 0 )
end
else
annee = nil
end

-- on traite le mois
if Outils.notEmpty( bmois ) then
mois, numMois = fun.determinationMois( bmois )
if mois == nil then
mois = fun.determinationSaison( bmois )
if mois == nil then
local mois1, sep, mois2 = bmois:match( '^([^%s%p%d]+[.]?)([-/])([^%s%p%d]+[.]?)$' )
if mois1 then
mois1 = fun.determinationMois( mois1 )
mois2 = fun.determinationMois( mois2 )
if mois1 == nil or mois2 == nil then
return erreur( 'Mois', bmois )
end
mois = mois1 .. sep .. mois2
else
return erreur( 'Mois', bmois )
end
end
end
-- on traite le jour si présent
if Outils.notEmpty( bjour ) then
if not numMois then
erreur( 'Date', 'jour avec saison ou plusieurs mois' )
end
jour = tonumber( bjour )
if jour == nil then
jour = tonumber( fun.nettoyageJour( bjour ) )
end
if jour == nil then
return erreur( 'Jour', bjour )
end
-- on valide que le jour est correct
if jour < 1 or jour > 31 then
return erreur( 'Jour', bjour )
elseif jour > listeMois[numMois].nJour then
return erreur( 'Jour', bjour .. ' ' .. mois )
elseif jour == 29 and numMois == 2 and annee and ( math.fmod( annee, 4 ) ~= 0 ) then
-- l'année bisextile sur les siècles est toujours acceptée pour être compatible avec les dates juliennes.
return erreur( 'Jour', '29 février ' .. annee )
end
else
-- S'il n'y a pas de jour on regarde si la première lettre du mois est en majuscule
if bmois:match( '^%u' ) then
-- oui, on passe la première lettre en majuscule
mois = ucfirst( mois )
end
-- s'il n'y a pas d'année non plus on retourne le mois simple
end
else
-- on teste le jour si présent
if Outils.notEmpty( bjour ) then
if annee then
return erreur( 'Mois', 'absent' )
else
bjour = fun.nettoyageJour( bjour )
jour = tonumber( bjour )
if jour then
if jour > 31 or jour < 1 then
annee = jour
jour = nil
else
return erreur( 'Date', 'jour seul : ' .. bjour )
end
else
return erreur( 'Jour', bjour )
end
end
end
end

-- vérification de l'absence d'un décalage
if annee and annee < 13 and annee > 0 and not jour and ( tonumber( bmois ) or ( not mois and tonumber( args[4] ) ) ) then
return false, 'année improbable (' .. annee .. ')'
end

local resultat = {
jour = jour,
mois = mois,
numMois = numMois,
annee = annee,
masquerAnnee = args.masquerAnnee,
masquerMois = args.masquerMois,
}
return true, resultat
end

---
-- émule le modèle {{m|Date}}.
-- Paramètres :
-- 1 : jour (numéro ou "1er") ou la date complète
-- 2 : mois (en toutes lettres) ou spécialité de l'année
-- 3 : année (nombre)
-- 4 : spécialité de l'année
-- julien : date dans le calendrier julien
-- compact : affiche le mois sous forme d'abréviation
-- avJC : non pour désactiver l'affichage de « av. J.-C. » pour les dates négatives
-- âge : ajoute la durée depuis cette date
-- agePrefix : préfixe pour l'age, 'à ' par défaut pour les décès
-- liens : active les liens par défaut
-- nolinks : ne met pas de lien sur la date (a précédence sur le paramètre "liens")
-- afficherErreurs : en cas d'erreur, si défini à "non" ne retourne pas un message d'erreur, mais le 1er argument inchangé
-- categoriserErreurs : en cas d'erreur, si défini à "non" ne catégorise pas ; peut aussi être défini avec une catégorie à utiliser à la place de celle par défaut
-- naissance : ajoute la class "bday"
-- mort : ajoute la class "dday"
function fun.modeleDate( frame )
local Yesno = require 'Module:Yesno'

local args = Outils.extractArgs( frame )
local resultat

local dateNaissanceMort

-- analyse des paramètres non nommés (ou paramètres de la date jour, mois, annee)
local test, params
local arg1, arg2, arg3 = fun.nettoyageJour( args[1] ), trim( args[2] ), trim( args[3] )
if type( arg1 ) == 'string' and arg3 == nil and ( arg1:match( '[^ ./-][ ./-]+[^ ./-]' ) or arg2 == nil or dataLiens[arg2] or mw.ustring.match( arg2, '%a %a' ) ) then
-- la date est dans le premier paramètre
test, params = fun.separationJourMoisAnnee( arg1 )
if test then
dateNaissanceMort = trim( arg2 )
if dataLiens[trim( arg2 )] then
params.qualificatif = trim( arg2 )
end
end
elseif type( arg1 ) == 'string' and type( arg2 ) == 'string' and arg3 ~= nil and ( arg1:match( '[^ ./-][ ./-]+[^ ./-]' ) or dataLiens[arg3] or mw.ustring.match( arg3, '%a %a' ) ) then
-- la date est dans le premier paramètre
test, params = fun.separationJourMoisAnnee( arg1 )
if test then
dateNaissanceMort = trim( arg2 )
if dataLiens[trim( arg3 )] then
params.qualificatif = trim( arg3 )
end
end
else
local function masquerParam( p )
-- sépare le signe moins final éventuel signifiant que le paramètre ne doit pas être affiché.
if type( p ) ~= 'string' then
return p, nil
end
local value, mask = p:match( '^%s*(.-)(%-?)%s*$' )
return value, ( mask == '-' or nil )
end
local cleanArgs = { arg1 or args.jour }
cleanArgs[2], cleanArgs.masquerMois = masquerParam( args[2] or args.mois )
cleanArgs[3], cleanArgs.masquerAnnee = masquerParam( args[3] or args.annee or args['année'] )

-- Si les paramètres ont été envoyés directement, ils ont précédence
if args.masquerMois then cleanArgs.masquerMois = args.masquerMois end
if args.masquerAnnee then cleanArgs.masquerAnnee = args.masquerAnnee end

test, params = fun.validationJourMoisAnnee( cleanArgs )
if test and dataLiens[trim( args[4] )] then
params.qualificatif = trim( args[4] )
end
end

-- analyse des paramètres nommés
if test then
params.agePrefix = args.agePrefix
if args.qualificatif and dataLiens[args.qualificatif] then
params.qualificatif = args.qualificatif
end

-- julien peut avoir trois valeurs : inactif, format standard (true), format court
params.julien = Yesno( args.julien, 'court', false )
params.avJC = Yesno( args.avJC )

if args['républicain'] and args['républicain'] ~= '' then
if args['républicain'] == 'liens' then
params.republicain = 'liens'
else
params.republicain = Yesno( args['républicain'], false )
end
else
params.republicain = false
end
if args.dateNaissanceMort and args.dateNaissanceMort ~= '' then
dateNaissanceMort = args.dateNaissanceMort
elseif args['dateNaissanceÉvénement'] and args['dateNaissanceÉvénement'] ~= '' then
dateNaissanceMort = args['dateNaissanceÉvénement']
end
if dateNaissanceMort then
local testNaissanceMort, paramsNaissanceMort = fun.separationJourMoisAnnee( dateNaissanceMort )
if testNaissanceMort then
params.anneeNaissanceMort, params.moisNaissanceMort, params.numMoisNaissanceMort, params.jourNaissanceMort = paramsNaissanceMort.annee, paramsNaissanceMort.mois, paramsNaissanceMort.numMois, paramsNaissanceMort.jour
end
end

local listeParam = {
age = 'âge',
['âge'] = 'âge',
naissance = 'naissance',
mort = 'mort',
['événement'] = 'événement',
evenement = 'evenement',
['décès'] = 'mort',
apJC = 'apJC',
nolinks = 'nolinks',
compact = 'compact',
compacte = 'compact',
}
for n, v in pairs( listeParam ) do
params[v] = params[v] or Yesno( args[n], true, false ) or nil
end

if not params.nolinks then
local liens = Yesno( args.liens )
if liens == nil then
-- liens actifs par défaut si qualificatif
liens = params.qualificatif and params.qualificatif ~= "" and true or false
end
params.nolinks = not liens
end

-- sortie pour les tests unitaire, ou pour débugger
if args.debug then
return params
end

resultat = fun._modeleDate( params )

else
local yn_afficherErreurs = Yesno( args.afficherErreurs )
if yn_afficherErreurs == nil or yn_afficherErreurs == true then
resultat = params
else
resultat = args[1]
end

local currentTitle = mw.title.getCurrentTitle()

if currentTitle:inNamespaces( 0, 4, 10, 14, 100 )
and not Outils.notEmpty( args.nocat )
and not currentTitle.prefixedText:match( '^Modèle:.+/Test$' ) then
local categorie
local yn_categoriserErreurs = Yesno( args.categoriserErreurs, 'custom', true )
if yn_categoriserErreurs == nil or yn_categoriserErreurs == true then
categorie = '[[Catégorie:Page utilisant le modèle date avec une syntaxe erronée]]'
elseif yn_categoriserErreurs == false then
categorie = ''
else
local nomCategorie = args.categoriserErreurs
:gsub( '^%[%[', '' )
:gsub( '%]%]$', '' )
:gsub( '^:?[Cc]atégorie:', '' )
:gsub( '^:?[Cc]atégory:', '' )
categorie = '[[Catégorie:' .. nomCategorie .. ']]'
end
resultat = resultat .. categorie
end
end

return resultat or ''
end

function fun._modeleDate( args )
local annee, mois, numMois, jour = args.annee, args.mois, args.numMois, args.jour
local qualificatif = args.qualificatif

if ( annee or mois or jour ) == nil then
return
end

-- on traite l'âge, naissance et mort
local agePrefix = args.agePrefix
local age = args['âge'] and fun.age( annee, numMois, jour )
local naissance = args.naissance
local mort = args.mort
local evenement = args['événement'] or args.evenement
if mort and args.anneeNaissanceMort then
age = fun.age( args.anneeNaissanceMort, args.numMoisNaissanceMort, args.jourNaissanceMort, annee, numMois, jour )
agePrefix = agePrefix or 'à ' -- faut-il mettre \194\160 ?
elseif evenement and args.anneeNaissanceMort then
if naissance then
age = fun.age( annee, numMois, jour, args.anneeNaissanceMort, args.numMoisNaissanceMort, args.jourNaissanceMort )
else
age = fun.age(args.anneeNaissanceMort, args.numMoisNaissanceMort, args.jourNaissanceMort, annee, numMois, jour )
end
end
agePrefix = agePrefix or ''

-- on traite le calendrier
local gannee, gmois, gjour = annee, numMois, jour -- date suivant le calendrier grégorien pour <time>
local jannee, jmois, jjour = annee, mois, jour -- date suivant le calendrier julien si necessaire
local julienDate, julienSup, julienSep -- servira éventuellement à afficher la date selon le calendrier julien
local gregAprMois, gregAprAn, gregFin -- message de calendrier grégorien lorsque la date est selon le calendrier julien
local dateRepublicaine
if annee and jour then
local amj = annee * 10000 + numMois * 100 + jour
if amj < 15821014 then
if annee > 0 then
gannee, gmois, gjour = fun.julianToGregorian( annee, numMois, jour )
else
-- calendrier grégorien proleptique avec année 0.
gannee, gmois, gjour = fun.julianToGregorian( annee + 1, numMois, jour )
end
args.julien = false

elseif args.julien then
gannee, gmois, gjour = fun.julianToGregorian( annee, numMois, jour )
annee, mois, jour = gannee, listeMois[gmois].nom, gjour
if jjour == 1 then
jjour = modelePremier
end
if args.compact then
jmois = listeMois[jmois].abrev
end
if args.julien == 'court' then
julienDate = jjour .. ' ' .. jmois .. ' '
julienSup = '[[calendrier julien|jul.]]'
if jannee == annee then
gregAprMois = '[[calendrier grégorien|grég.]]'
else
julienDate = julienDate .. jannee .. ' '
gregAprAn = '[[calendrier grégorien|grég.]]'
end
julienSep = ' / '
else
julienDate = jjour .. ' ' .. jmois .. ' ' .. jannee
julienSep = ' ('
gregFin = ' [[Passage du calendrier julien au calendrier grégorien|dans le calendrier grégorien]])'
end

elseif args.republicain then
local DateRep = require 'Module:Date républicaine'
local RepSansLiens
if args.republicain == 'liens' then
RepSansLiens = false
else
RepSansLiens = true
end
dateRepublicaine = DateRep._date_republicaine(
RepSansLiens,
{ fun.formatRepCal( fun.do_toRepCal{gannee, gmois, gjour} ) }
)
end
else
if annee and annee < 0 then
gannee = gannee + 1
end
args.julien = false
args.republicain = false
end

-- on génère le résultat

-- Déclarations des variables
local wikiListe = {} -- reçoit le texte affiché pour chaque paramètre
local iso = {} -- reçoit le format date ISO de ce paramètre
local texteMois = mois -- texte du mois qui sera affiché (éventuellement l'abréviation)
if args.compact then
if not numMois then
-- mois est autre chose qu'un simple mois : saison, mois-mois... auquel cas, pas d'abréviation (provoquait erreur Lua)
-- (les abréviations pour le cas "mois[-/]mois" seraient théoriquement possibles, mais ça reste à implémenter)
else
if args.nolinks then
texteMois = '<abbr class="abbr" title="' .. mois .. '">' .. listeMois[mois].abrev .. '</abbr>'
else
texteMois = listeMois[mois].abrev
end
end
end
mois = mois and mois:gsub( 'aout', 'août' )

local dataQualificatif, dataCat
if not args.nolinks then
dataQualificatif = dataLiens[qualificatif or '']
if type( dataQualificatif ) ~= 'table' then
-- si le qualificatif n'est pas dans la base de données, on crée une table minimum,
-- qui imposera un test sur l'année, mais considère qu'il n'y a pas de lien sur le jour ou le mois
dataQualificatif = { qualificatif = qualificatif, annee = { } }
end
dataCat = dataLiens[dataQualificatif.cat]
if type( dataCat ) ~= 'table' or dataCat == dataQualificatif then
dataCat = { qualificatif = '' }
end
end
local function wikiLien( lien, texte )
if lien == texte then
return '[[' .. texte .. ']]'
else
return '[[' .. lien .. '|' .. texte .. ']]'
end
end

-- le jour si présent
local qualifJour = ''
if jour then
if args.nolinks then
if jour == 1 then
jour = modelePremier
end
table.insert( wikiListe, jour )
else
qualifJour = dataQualificatif.jour and dataQualificatif.qualificatif
or dataCat.jour and dataCat.qualificatif
or ''
local texteJour, lien
if jour == 1 then
texteJour = '1er'
lien = '1er ' .. mois
else
texteJour = jour
lien = jour .. ' ' .. mois
end
if qualifJour ~= '' then
lien = lien .. ' ' .. qualifJour
end
-- s'il n'y a pas de lien sur le mois, il sera affiché avec le jour.
table.insert( wikiListe, wikiLien( lien, texteJour ) )
table.insert( wikiListe, wikiLien( lien, texteJour .. ' '.. texteMois ) )
end
table.insert( iso, 1, string.sub( '0' .. gjour, -2 ) )
end

-- le mois
if mois then
if #wikiListe == 0 and annee == nil then
return texteMois
end
if args.nolinks then
if not args.masquerMois then
table.insert( wikiListe, texteMois )
end
else
local lien
if annee then
if not numMois then
-- mois est autre chose qu'un simple mois : saison, mois-mois... auquel cas, pas de lien
else
lien = existDate( dataQualificatif, annee, mois ) or existDate( dataCat, annee, mois )
if lien == nil and qualificatif and qualifJour == '' then
-- nouveau test sans le qualificatif uniquement s'il n'y a pas d'éphémérides pour ce qualificatif.
lien = existDate( dataLiens[''], annee, mois )
end
end
end
if lien or args.masquerMois then
-- s'il y a un lien on retire le lien affichant 'jour mois' pour ajouter '[[mois annee|mois]]'
table.remove( wikiListe )
if not args.masquerMois then
table.insert( wikiListe, wikiLien( lien, texteMois ) )
end
elseif #wikiListe > 0 then
-- sinon on retire le lien affichant 'jour' pour ne garder que le lien 'jour mois'
table.remove( wikiListe, #wikiListe - 1 )
elseif args.masquerAnnee then
-- s'il n'y a pas de jour et que l'année n'est pas affichée, on insère le mois seul.
table.insert( wikiListe, texteMois )
end
end
if gmois then
table.insert( iso, 1, string.sub( '0' .. gmois, -2 ) )
end
table.insert( wikiListe, gregAprMois )
end

-- l'année
if annee and not (args.julien == true and args.nolinks and jannee == annee ) then
if not args.masquerAnnee then
local texteAnnee = annee
if annee < 0 then
local anneeAvJc = 0 - annee
if args.avJC == false then
texteAnnee = anneeAvJc
else
texteAnnee = anneeAvJc .. ' <abbr class="abbr" title="'
.. 'avant Jésus-Christ">av. J.-C.</abbr>'
end
elseif args.apJC then
texteAnnee = texteAnnee .. ' <abbr class="abbr" title="'
.. 'après Jésus-Christ">apr. J.-C.</abbr>'
end
if args.nolinks then -- seulement si on doit l'afficher
table.insert( wikiListe, texteAnnee )
else
local lien = existDate( dataQualificatif, annee ) or existDate( dataCat, annee )
if not lien then
if annee < 0 then
local anneeAvJc = 0 - annee
lien = anneeAvJc .. ' av. J.-C.'
else
lien = annee
end
end
if mois and #wikiListe == 0 then
-- si le mois n'a pas de lien et n'est pas affiché avec le jour, il est affiché avec l'année.
texteAnnee = texteMois .. ' ' .. texteAnnee
end
table.insert( wikiListe, wikiLien( lien, texteAnnee ) )
end
end
end
if annee then
if gannee > 999 then
table.insert( iso, 1, gannee )
elseif gannee > -1 then
table.insert( iso, 1, string.sub( '000' .. gannee , -4 ) )
elseif gannee > -999 then
-- calendrier grégorien proleptique avec année 0.
table.insert( iso, 1, 'U-' .. string.sub( '000' .. ( 0 - gannee ), -4 ) )
else
table.insert( iso, 1, 'U' .. gannee )
end
end
table.insert( wikiListe, gregAprAn )

-- l'age
if type( age ) == 'number' and age >= 0 and ( not naissance or age < 120 ) then
if age == 0 then
age = '(' .. agePrefix .. 'moins d’un\194\160an)'
elseif age == 1 then
age = '(' .. agePrefix .. '1\194\160an)'
else
age = '('.. agePrefix .. age .. '\194\160ans)'
end
else
age = false
end

-- compilation du résultat
local wikiTexte = table.concat( wikiListe, ' ' )
local isoTexte = table.concat( iso, '-' )

-- On ajoute un peu de sémantique.
local wikiHtml = mw.html.create( '' )

if julienDate then
wikiHtml:tag( 'span')
:addClass( 'nowrap' )
:attr( 'data-sort-value', isoTexte )
:wikitext( julienDate )
:node( julienSup )
:done()
:wikitext( julienSep )
end

local dateHtml = wikiHtml:tag( 'time' )
:wikitext( wikiTexte )
if wikiTexte:match( ' ' ) then
dateHtml:addClass( 'nowrap' )
end
if isoTexte ~= wikiTexte then
dateHtml:attr( 'datetime', isoTexte )
:attr( 'data-sort-value', isoTexte )
end
if not args.nolinks then
dateHtml:addClass( 'date-lien' )
end
if naissance then
dateHtml:addClass( 'bday' )
elseif mort then
dateHtml:addClass( 'dday' )
end

wikiHtml:wikitext( gregFin )

if dateRepublicaine then
wikiHtml:wikitext( ' (', dateRepublicaine, ')' )
end

if age then
wikiHtml:wikitext( ' ' )
:tag( 'span' )
:addClass( 'noprint')
:wikitext( age )
:done()
end

return tostring( wikiHtml )
end

-- isoJourMoisAnnee transforme une date iso en un tableau équivalent à celui retourné par separationJourMoisAnnee
local function isoJourMoisAnnee( dateiso )
if dateiso and dateiso:sub( 1, 2 ) == 'U-' then
dateiso = dateiso:sub( 2 )
end
local annee, mois, jour = dateiso:match( '^(%-?%d%d%d%d+)%-(%d+)%-(%d+)$' )
if not annee then
annee, mois = dateiso:match( '^(%-?%d%d%d%d+)%-(%d+)$' )
end
if not annee then
annee = dateiso:match( '^(%-?%d%d%d%d+)$' )
end
if annee and tonumber( annee ) <= 0 then
-- la date iso utilise une année 0
annee = tonumber( annee ) - 1
end
if not annee then
mois, jour = dateiso:match( '^(%d+)%-(%d+)$' )
end
return fun.validationJourMoisAnnee{ jour, mois, annee }
end

-- analyseDate sépare la date du contenu qui précède et suit, supprime les liens, et retourne si possible une table avec jour mois année
local function analyseDate( d )
if trim( d ) then
local datesMultiples = d:match( ' ou ' ) or d:match( '^[Ee]ntre ' ) or d:match( '<time.->.-<time.->' )
if datesMultiples then
return d
end
local approx = d:match( '^[Vv]ers ' ) or d:match( '^[Aa]près ' ) or d:match( '^[Aa]vant ' )
-- booléen qui indique que la date est approximative, empêchant l'affichage de l'âge ou de la durée
approx = approx and true or false

local analyse = d
-- s'il s'agit d'une date formattée avec {{date}}, on utilisera la valeur du datetime pour reconstruire la date
local dateiso = d:match( 'datetime="([U%d-]+)"' ) or d:match( '<time>(.-)</time>' )
local debut, strDate, fin
if dateiso then
-- supprime le formatage créé par {{date}}
debut, strDate, fin = analyse:match( '(.-)<time.->(.-)</time>(.*)' )
end
if not strDate then
-- sépare une date av. J.-C. du contenu qui suit
strDate, fin = analyse:match( '(.-%d av%. J%.%-C%.]*%-?)(.*)' )
end
if not strDate then
-- sépare la date (avec ses liens) d'une référence ou contenu commençant par un espace
strDate, fin = analyse:match( '(.-%d%d%d%]*%-?)([\127 ].+)' )
end
if not strDate then
-- sépare la date du contenu commençant par 
strDate, fin = analyse:match( '(.-%d%d%d%]*%-?)( .+)' )
end
analyse = strDate or analyse
-- supprime les liens
analyse = analyse:gsub(
'%[%[([^%[%]|]*)|?([^%[%]]*)%]%]',
function ( l, t )
return trim( t ) or l
end
)

local t, r
if dateiso then
-- Si la date était formatée avec {{date}}, on la reconstruit à partir de la valeur de datetime
t, r = isoJourMoisAnnee( dateiso )
end
if t then
local tTexte, rTexte = fun.separationJourMoisAnnee( analyse )
if r.annee and r.jour then
local amj = r.annee * 10000 + r.numMois * 100 + r.jour
-- Les dates avant le 14 octobre 1582 sont dans le calendrier julien mais utilisent un datetime grégorien
local gregToJul = amj < 15821014
if not gregToJul and amj < 15821024 then
-- Entre le 14 et le 23 octobre, on ne peut pas différencier entre julien et grégorien sans comparer avec le texte
gregToJul = tTexte and rTexte.jour ~= r.jour
end
if gregToJul then
local jannee, jmois, jjour = fun.gregorianToJulian( r.annee, r.numMois, r.jour )
r = {
annee = jannee,
numMois = jmois,
mois = listeMois[jmois].nom,
jour = jjour
}
end
end
if tTexte then
-- On analyse le texte de la date pour repérer les dates partiellement masquées
-- Si seul le jour est affiché, separationJourMoisAnnee l'interprète comme une année
if not rTexte.jour and not rTexte.mois and rTexte.annee == r.jour then
r.masquerMois = true
r.masquerAnnee = true
elseif rTexte.jour == r.jour and rTexte.mois == r.mois and not rTexte.annee then
r.masquerAnnee = true
end
end
else
t, r = fun.separationJourMoisAnnee( analyse )
end
if t then
return r, fin, debut, approx
else
return d, fin, debut, approx
end
end
end

---
-- fonction destinée aux infobox, notamment pour afficher les dates de naissance et de mort
-- les liens présent dans les dates fournies sont automatiquement supprimés pour gérer les cas où
-- le paramètre contient déjà un modèle date.
-- Paramètres :
-- 1 : type de date à afficher (naissance / n, mort / m, ou date / d)
-- 2 : Date ou date de naissance
-- 3 : Date de mort si type n ou m
-- qualificatif = suffixe des page de date à lier (exemple : en musique)
-- nolinks : n'affiche pas de lien
-- préfixe : préfixe à afficher s'il y a un jour (par défaut '')
-- préfixe sans jour : préfixe à afficher s'il n'y a pas de jour (par défaut : '')
function fun.dateInfobox( frame )
local args = frame.args
if type( args ) ~= 'table' or not ( args[1] and args[2] ) then
return
end
-- prefix ajoute un préfixe en fonction de la présence ou non du jour si le paramètre "préfixe sans jour" est défini
local function prefix( dateString )
if dateString then
local datetime = dateString:match( 'datetime="([U%d%-]+)"' )
if datetime and datetime:match('%-%d%d%-%d%d') and trim( args['préfixe'] ) then
return args['préfixe'] .. ' ' .. dateString
end
if trim( args['préfixe sans jour'] ) then
return args['préfixe sans jour'] .. ' ' .. dateString
end
end
return dateString
end

local naissance = args[1]:match( '^n' ) == 'n'
local mort = args[1]:match( '^m' ) or args[1]:match( 'décès' )
local evenement = args[1]:match( '^é' )
local affichageDate, qualificatif = args[2], args[4]
local affichageDateTab, resultatDate, complementDate, prefixeDate, approxDate
local dateNaissance, dateMort, approxNaissance, approxMort
if mort or evenement then
affichageDate = args[3]
end
if not trim( affichageDate ) then
return
end

if affichageDate:match( ']]</time>' ) or affichageDate:match( '</time>]]' ) then
-- S'il y a des liens il y a probablement déjà un modèle date, évitons de l'exécuter une 2e fois
if ( naissance or mort or evenement ) and ( affichageDate:match( 'wikidata%-linkback' )) then
local _
dateNaissance, _, _, approxNaissance = analyseDate( args[2] )
dateMort, _, _, approxMort = analyseDate( args[3] )
resultatDate = affichageDate
else
return prefix( affichageDate )
end
else
affichageDateTab, complementDate, prefixeDate, approxDate = analyseDate( affichageDate )
if type( affichageDateTab ) ~= 'table' then
return affichageDateTab
else
if naissance then
local _
dateNaissance, approxNaissance = affichageDateTab, approxDate
dateMort, _, _, approxMort = analyseDate( args[3] )
elseif mort then
local _
dateNaissance, _, _, approxNaissance = analyseDate( args[2] )
dateMort, approxMort = affichageDateTab, approxDate
else
qualificatif = args[3]
end
affichageDateTab.naissance = not approxNaissance and naissance
affichageDateTab.mort = not approxMort and mort
affichageDateTab.evenement = evenement
affichageDateTab.qualificatif = args.qualificatif or qualificatif
affichageDateTab.liens = true -- Dans les infobox, liens activés par défaut
affichageDateTab.nolinks = args.nolinks
affichageDateTab.nocat = args.nocat
affichageDateTab.julien = args.julien
end
end
resultatDate = resultatDate or fun.modeleDate( affichageDateTab )

local age, prefixAge, suffixAge, calculAge = '', ' (', ')', nil
if naissance and
dateNaissance and
not approxNaissance and
not dateMort and
type( dateNaissance ) == 'table'
then
calculAge = fun.age( dateNaissance.annee, dateNaissance.numMois, dateNaissance.jour )
if calculAge and calculAge > 120 then
calculAge = nil
end
elseif ( mort or evenement ) and
dateNaissance and
dateMort and
not approxNaissance and
not approxMort and
type( dateNaissance ) == 'table'
and type( dateMort ) == 'table'
then
calculAge = fun.age(
dateNaissance.annee,
dateNaissance.numMois,
dateNaissance.jour,
dateMort.annee,
dateMort.numMois,
dateMort.jour
)
prefixAge = ' (à '
suffixAge = ')'
end
if tonumber( calculAge ) then
if calculAge > 1 then
age = prefixAge .. calculAge .. '\194\160ans' .. suffixAge
elseif calculAge == 1 then
age = prefixAge .. 'un\194\160an' .. suffixAge
elseif calculAge == 0 then
age = prefixAge .. 'moins d’un\194\160an' .. suffixAge
end
if complementDate and complementDate:match( 'ans?%)' ) then
complementDate = ''
end
end

return ( prefixeDate or '' ) .. prefix( resultatDate ) .. ( complementDate or '' ) .. age
end

function fun.dureeInfobox( frame )
local args = frame.args
if type( args ) ~= 'table' or not args[1] then
return
end

-- vérifie si une chaîne semble contenir une durée
local function contientDuree( chaine )
return chaine and (
mw.ustring.match( chaine, '%f[%w]ans?%f[^%w]' ) or
mw.ustring.match( chaine, '%f[%w]mois%f[^%w]' ) or
mw.ustring.match( chaine, '%f[%w]jours?%f[^%w]' )
)
end

local jour1, mois1, annee1, jour2, mois2, annee2 = '', '', '', '', '', ''
local t1, fin1, _, approx1 = analyseDate( args[1] )
if approx1 or type( t1 ) ~= 'table' then
return
end
jour1 = t1.jour or ''
mois1 = t1.numMois or ''
annee1 = t1.annee or ''
if args[2] and args[2] ~= "" then
local t2, fin2, _, approx2 = analyseDate( args[2] )
if approx2 or type( t2 ) ~= 'table' then
return
end
if contientDuree( fin2 ) then
-- La durée semble déjà renseignée manuellement
return
end
jour2 = t2.jour or ''
mois2 = t2.numMois or ''
annee2 = t2.annee or ''
if annee1 == '' or annee2 == '' then
-- Mieux vaut ne pas extrapoler l'année
return
end
if ( jour1 ~= '' and jour2 == '' ) or
( mois1 ~= '' and mois2 == '' ) then
-- Si la deuxième date est moins précise que la première, mieux vaut ne rien afficher
return
end
elseif annee1 == '' or contientDuree( fin1 ) then
-- L'année n'est pas spécifiée ou la durée semble déjà renseignée
return
end
local duree = (require 'Module:Durée')._duree({ jour1, mois1, annee1, jour2, mois2, annee2, noerror = true })
if duree then
return ' (' .. duree .. ')'
end
end

---
-- la fonction dateISO renvoie un date au format aaaa-mm-jj (sans liens)
-- l'année peut être sous la forme 2013 ou [[2013 en litérature|2013]]
-- le mois peut être en lettres ou en chiffres
-- le jour peut être sous la forme '05', '{{1er}}' ou 'vendredi 13'
function fun.dateISO( frame )
local args = Outils.extractArgs( frame )
local annee = Outils.notEmpty( args['année'], args.annee, args.year, args.date )
-- extraction de l'année
if type( annee ) == 'string' then
annee = ( tonumber( annee ) -- match '2013'
or string.match ( annee, '%D(%d%d%d%d)%D' ) -- match '[[2013 en musique|2013]]'
or string.match ( annee, '%D(%d%d%d%d)$' ) -- match '17 septembre 2013'
or string.match ( annee, '^(%d%d%d%d)%D' ) -- match '2013-09-17'
)
end
annee = tonumber( annee )

-- le format de date iso est défini suivant le calendrier grégorien.
-- Avant l'année 1583 la date est calendrier est probablement du calendrier julien,
-- donc autant s'abstenir.
if annee and annee > 1582 then
local mois = Outils.notEmpty( args.mois, args.month )
-- num mois trouve le numéro du mois, qu'il soit numérique ou texte, complet ou abrégé.
local nomMois, numMois = fun.determinationMois( mois )
if numMois then
mois = '-' .. string.sub( '0' .. numMois, -2 )

local jour = Outils.notEmpty( args.jour, args.day, args['quantième'] )
if type( jour ) == 'string' then
jour = tonumber( jour ) or tonumber( string.match ( jour, '%d+') )
end
jour = tonumber( jour )
if jour and jour <= listeMois[numMois].nJour then
jour = '-' .. string.sub( '0' .. jour, -2 )
return annee .. mois .. jour
else
return annee .. mois
end
else
return tostring( annee )
end
end
end

---
-- Rang du jour dans l'année
-- Usage : do_dayRank{année,mois,jour}
function fun.do_dayRank(arguments)
local yr = tonumber(arguments.year or arguments[1]) or 1
local mt = tonumber(arguments.month or arguments[2]) or 1
local dy = tonumber(arguments.day or arguments[3]) or 1
-- Rangs des premiers des mois
local ranks = {0,31,59,90,120,151,181,212,243,273,304,334}

local rank = (ranks[mt] or 0) + dy - 1
if(fun.isLeapYear(yr) and (mt >= 3)) then
rank = rank+1
end
return rank
end

-- Nombre de jours entre deux années (du 1er janvier au 1er janvier)
-- Suit le calendrier grégorien
function fun.do_daysBetween(arguments)
local yr1 = tonumber(arguments[1]) or 0
local yr2 = tonumber(arguments[2]) or 0

return fun.daysSinceOrigin(yr2) - fun.daysSinceOrigin(yr1)
end

-- Nombre de jours depuis l'année 1 (du 1er janvier au 1er janvier)
function fun.daysSinceOrigin(year)
local yr = year-1
return 365*yr + math.floor(yr/4) - math.floor(yr/100) + math.floor(yr/400)
end

-- Test d'année bissextile (Suit le calendrier grégorien)
function fun.isLeapYear(year)
local yr = tonumber(year) or 1
return (yr%4 == 0) and ((yr%100 ~= 0) or (yr%400 == 0))
end

-- Conversion d'un nombre en chiffres romains
function fun.toRoman(number)
local n = math.floor(number)
local letters = {"I","V","X","L","C","D","M","",""}
local pattern = {"","0","00","000","01","1","10","100","1000","02"}
local result = ""
if(n<=0 or n>=4000) then
result = "---"
else
for i=1,7,2 do
local p = pattern[n%10 + 1]
for j=0,2 do
p = string.gsub(p,tostring(j),letters[i+j])
end
result = p .. result
n = math.floor(n/10)
end
end
return result
end

-- Conversion et affichage d'une date dans le calendrier républicain
function fun.dateRepublicain(frame)
local pframe = frame:getParent()
local arguments = pframe.args
return fun.formatRepCal(fun.do_toRepCal(arguments))
end

---
-- Calcul d'une date dans le calendrier républicain
-- On suppose que les années 4n+3 sont sextiles (3, 7, 11...)
function fun.do_toRepCal(arguments)
local yr = tonumber(arguments.year or arguments[1]) or 2000
-- rang absolu du jour demandé, le jour 0 étant le 22 septembre 1792 (1er jour de l'an I)
local repDays = fun.do_dayRank(arguments) + fun.do_daysBetween{1792,yr} - fun.do_dayRank{1792,9,22}
local repYear = math.floor((repDays+731)/365.25) - 1
local repDayRank = repDays - 365*(repYear-1) - math.floor(repYear/4)
local repMonth, repDay = math.floor(repDayRank/30)+1, (repDayRank%30)+1
return {repYear, repMonth, repDay}
end

---
-- Formatage d'une date selon le calendrier républicain
-- Usage : fun.formatRepCal{année,mois,jour}
function fun.formatRepCal(arguments)
local months = {"Vendémiaire","Brumaire","Frimaire","Nivôse","Pluviôse","Ventôse","Germinal","Floréal","Prairial","Messidor","Thermidor","Fructidor"}
local extras = {"de la vertu","du génie","du travail","des récompenses","de l'opinion","de la Révolution"}
local result = ""
if(arguments[2] < 13) then
result = result .. tostring(arguments[3]) .. "\194\160" .. months[arguments[2]]
else
result = result .. "jour " .. extras[arguments[3]]
end
result = result .. " de l'an " .. fun.toRoman(arguments[1])
return result
end

---
-- Voir Modèle:Âge
-- retourne l'âge en fonction de la ou les dates fournies. La valeur retournée est de type 'number'
-- Paramètres :
-- 1, 2, 3 : année, mois jour de naissance (supposé dans le calendrier grégorien)
-- 4, 5, 6 : année, mois, jour du calcul (facultatif, par défaut la date UTC courante).
function fun.age( an, mn, jn, ac, mc, jc )
if ac == nil then
local today = os.date( '!*t' )
ac = today.year
mc = today.month
jc = today.day
else
ac = tonumber( ac )
mc = tonumber( mc )
jc = tonumber( jc )
end

an = tonumber( an )
mn = tonumber( mn )
jn = tonumber( jn )

if an == nil or ac == nil or mn == nil or mc == nil then
-- pas de message d'erreur qui risque de faire planter la fonction appelante
-- à elle de gérer ce retour.
return
end

local age = ac - an

-- si l'intervalle traverse l'année zéro, il faut soustraire une année
-- parce que cette année n'existe pas dans les calendriers chrétiens
if an < 0 and ac > 0 then
age = age - 1
end

if mc == mn then
if jc == nil or jn == nil then
return
end
return age - ( jc < jn and 1 or 0 )
else
return age - ( mc < mn and 1 or 0 )
end
end

function fun.modeleAge( frame )
local args = Outils.extractArgs( frame )
local age = fun.age(
args[1] or args['année'],
args[2] or args['mois'],
args[3] or args['jour'],
args[4],
args[5],
args[6]
)
if age then
return age
else
return 'Paramètres incorrects ou insuffisants pour calculer l\'âge précis'
end
end

---
-- calcul du jour julien à partir d'une date du calendrier grégorien
function fun.julianDay( year, month, day, hour, min, sec )
local julian
julian = math.floor( math.floor( ( year * 12 + month + 57609 ) / 12 - 1 ) * 1461 / 4 )
- math.floor( math.floor( ( year * 12 + month + 57609 ) / 12 - 1 ) / 100 )
+ math.floor( math.floor( ( year * 12 + month + 57609 ) / 12 - 1 ) / 400 )
+ math.floor( ( math.fmod( month + 57609, 12 ) + 4 ) * 153 / 5 )
+ day + ( hour or 12 ) / 24 + ( min or 0 ) / 1440 + ( sec or 0 ) / 86400
- 32167.5
return julian
end

---
-- calcul du jour julien à partir d'une date du calendrier julien
function fun.julianDayJulian( year, month, day, hour, min, sec )
local julian
julian = math.floor( math.floor( ( year * 12 + month + 57609 ) / 12 - 1 ) * 1461 / 4 )
+ math.floor( ( math.fmod( month + 57609, 12 ) + 4 ) * 153 / 5 )
+ day + ( hour or 12 ) / 24 + ( min or 0 ) / 1440 + ( sec or 0 ) / 86400
- 32205.5
return julian
end

---
-- calcul d'une date dans le calendrier grégorien à partir du jour julien
function fun.julianDayToGregorian( julianDay )
local base = math.floor( julianDay + 32044.5 ) -- 1 March -4800 (proleptic Gregorian date)
local nCentury = math.floor( ( base * 4 + 3 ) / 146097 )
local sinceCentury = base - math.floor( nCentury * 146097 / 4 )
local nYear = math.floor( ( sinceCentury * 4 + 3 ) / 1461 )
local sinceYear = sinceCentury - math.floor( nYear * 1461 / 4 )
local nMonth = math.floor( ( sinceYear * 5 + 2 ) / 153 )

local day = sinceYear - math.floor( ( nMonth * 153 + 2 ) / 5 ) + 1
local month = nMonth - math.floor( nMonth / 10 ) * 12 + 3
local year = math.floor( sinceYear / 306 ) + nYear + 100 * nCentury - 4800

return year, month, day
end

---
-- calcul d'une date dans le calendrier julien à partir du jour julien
-- calcul basé sur l'algorithme de la page https://en.wikipedia.org/wiki/Julian_day#Julian_or_Gregorian_calendar_from_Julian_day_number
function fun.julianDayToJulian( julianDay )
local y = 4716
local v = 3
local j = 1401
local u = 5
local m = 2
local s = 153
local n = 12
local w = 2
local r = 4
local B = 274277
local p = 1461
local C = -38
local f = julianDay + j
local e = r * f + v
local g = math.modf( math.fmod( e, p ) / r )
local h = u * g + w
local D = math.modf( math.fmod( h, s ) / u ) + 1
local M = math.fmod( math.modf( h / s ) + m, n ) + 1
local Y = math.modf( e / p ) - y + math.modf( ( n + m - M ) / n )
return Y, M, D
end

---
-- calcul d'une date dans le calendrier grégorien à partir d'une date dans le calendrier julien
function fun.julianToGregorian( year, month, day )
return fun.julianDayToGregorian( fun.julianDayJulian( year, month, day ) )
end

---
-- calcul d'une date dans le calendrier julien à partir d'une date dans le calendrier grégorien
function fun.gregorianToJulian( year, month, day )
year = tonumber(year)
if month then month = tonumber(month) else month = 6 end --prend une valeur centrale pour donner un best "guess"
if day then day = tonumber(day) else day = 15 end
return fun.julianDayToJulian( fun.julianDay( year, month, day ) )
end

--[[
Cette fonction retourne "CET" ou "CEST" selon que dans la pseudo-timezone en cours
c'est l'heure d'été ou l'heure d'hiver.
Cette fonction n'a de sens a priori que pour des modèles utilisés en Europe

Paramètre optionnel non nommé : "sans lien" : retourne le texte CET/CEST. sinon
retourne ce même texte avec un wikilien vers les articles correspondants
--]]
function fun.CEST(frame)
-- option : ne pas créer de wikilien
local opt = trim(frame.args[1] or frame:getParent().args[1])
-- on récupère l'information dans la zone courante
local t = mw.getContentLanguage():formatDate("I", nil, true)

if (t == "1") then -- heure d'été
if (opt == "sans lien") then
return "CEST"
elseif (opt == "décalage") then
return "2"
else
return "[[Heure d'été d'Europe centrale|CEST]]"
end
else -- heure d'hiver (ou autre zone où ça ne s'applique pas)
if (opt == "sans lien") then
return "CET"
elseif (opt == "décalage") then
return "1"
else
return "[[Heure normale d'Europe centrale|CET]]"
end
end
end

return fun

Module:Dictionnaires

2024-09-20T14:16:47Z

Jaggerwock : Page créée avec « local p = {} local wikidata = require "Module:Wikidata" local Outils = require "Module:Outils" -- Who’s who in france -- Community wants to print this id only if the person is dead. -- Check to see if there is a « date of death » statement local function whoWhosWhoCondition(item) local deathPid = "P570" local deathClaims = mw.wikibase.getBestStatements( item, deathPid ) if deathClaims[1] then return true end return false end local bases = { -- { no... »

local p = {}
local wikidata = require "Module:Wikidata"
local Outils = require "Module:Outils"

-- Who’s who in france
-- Community wants to print this id only if the person is dead.
-- Check to see if there is a « date of death » statement
local function whoWhosWhoCondition(item)
local deathPid = "P570"
local deathClaims = mw.wikibase.getBestStatements( item, deathPid )
if deathClaims[1] then
return true
end
return false
end

local bases = {
-- { nom, propriété Wikidata, format URL}
{"''1000 célébrités de La Réunion''", "P6858", "https://www.reunionnaisdumonde.com/magazine/1001-celebrites/$1/"},
{"1914-1918-Online", "P8992", "https://encyclopedia.1914-1918-online.net/article/$1"},
{"American Battlefield Trust", "P8624", "https://www.battlefields.org/learn/biographies/$1"},
{"''American National Biography''", "P4823", "https://doi.org/10.1093/anb/9780198606697.article.$1"},
{"''Archives of Maryland Biographical Series''", "P6371", "https://tools.wmflabs.org/wikidata-externalid-url/?p=6371&url_prefix=https://msa.maryland.gov/msa/speccol/sc3500/sc3520/&id=$1"},
{"''Australian Dictionary of Biography''", "P1907", "http://adb.anu.edu.au/biography/$1"},
{"''The Australian Women's Register''", "P4186", "http://www.womenaustralia.info/biogs/$1.htm"},
{"Base de données des élites suisses", "P6231", "https://www2.unil.ch/elitessuisses/index.php?page=detailPerso&idIdentite=$1"},
{"''Biografisch Woordenboek van Nederland''", "P7941", "http://resources.huygens.knaw.nl/bwn1880-2000/BWN/lemmata/$1"},
{"''Biographie nationale de Belgique''", "P6234", "http://www.academieroyale.be/fr/la-biographie-nationale-personnalites-detail/personnalites/$1/Vrai/"},
{"Biographie vosgienne", "P6059", "https://www.ecrivosges.com/vosgiens/bio.php?id=$1&biochrono=Biographie"},
{"''Biografisch Portaal van Nederland''", "P651", "http://www.biografischportaal.nl/persoon/$1"},
{"''Biographical Dictionary of Georgia''", "P4991", "http://www.nplg.gov.ge/bios/en/$1/"},
{"''Biographical Dictionary of Iowa''", "P6851", "http://uipress.lib.uiowa.edu/bdi/DetailsPage.aspx?id=$1"},
{"''Biographisches Lexikon zur Geschichte Südosteuropas''", "P7928", "https://www.biolex.ios-regensburg.de/BioLexViewview.php?ID=$1"},
{"''BiographySampo''", "P9324", "https://biografiasampo.fi/henkilo/$1"},
{"BlackPast", "P6723", "https://www.blackpast.org/$1/"},
{"''Britannica''", "P1417", "https://www.britannica.com/$1"},
{"''Brockhaus''", "P5019", "https://brockhaus.de/ecs/enzy/article/$1"},
{"''CALS Encyclopedia of Arkansas''", "P7685", "https://encyclopediaofarkansas.net/entries/$1/"},
{"''China Biographical Database Project''", "P497", "http://db1.ihp.sinica.edu.tw/cbdbc/cbdbkmeng?~~AAA$1"},
{"''Collective Biographies of Women''", "P4539", "http://cbw.iath.virginia.edu/women_display.php?id=$1"},
{"''Colorado Encyclopedia''", "P7680", "https://coloradoencyclopedia.org/article/$1"},
{"''Dansk biografisk leksikon''", "P8341", "https://biografiskleksikon.lex.dk/$1/"},
{"''Dansk kvindebiografisk leksikon''", "P7939", "https://kvindebiografiskleksikon.lex.dk/$1/"},
{"''Den Store Danske Encyklopædi''", "P8313", "https://denstoredanske.lex.dk//$1/"},
{"''Deutsche Biographie''", "P7902", "http://www.deutsche-biographie.de/$1.html"},
{"''Diccionari biogràfic de dones''", "P2498", "http://dbd.cat/fitxa_biografies.php?id=$1"},
{"''Diccionario Biográfico Español''", "P4459", "http://dbe.rah.es/biografias/$1"},
{"''Dictionary of Irish Biography''", "P6829", "https://doi.org/10.3318/dib.$1.v1"},
{"''Dictionary of New Zealand Biography''", "P2745", "http://www.teara.govt.nz/en/biographies/$1"},
{"''Dictionary of Sydney''", "P3794", "http://dictionaryofsydney.org/$1"},
{"''Dictionary of Ulster Biography''", "P2029", "http://www.newulsterbiography.co.uk/index.php/home/viewPerson/$1"},
{"''Dictionary of Welsh Biography''", "P1648", "http://wbo.llgc.org.uk/en/$1.html"},
{"''Dictionary of Wisconsin History''", "P7614", "https://www.wisconsinhistory.org/Records/Article/$1"},
{"''Dictionnaire biographique du Canada''", "P2753", "http://www.biographi.ca/fr/bio/$1F.html"},
{"''Dictionnaire biographique du lycée Clemenceau''", "P4930", "https://www.lyceedenantes.fr/julien/$1"},
{"''Dictionnaire biographique suédois''", "P3217", "https://sok.riksarkivet.se/sbl/Presentation.aspx?id=$1"},
{"''Dictionnaire des femmes de l'ancienne France''", "P7962", "http://siefar.org/dictionnaire/fr/$1"},
{"''Dictionnaire des Vendéens''", "P6728", "http://www.vendeens-archives.vendee.fr/personnalite-$1"},
{"''Dictionnaire des Wallons''", "P6342", "http://connaitrelawallonie.wallonie.be/fr/wallons-marquants/dictionnaire/$1"},
{"''Dictionnaire du Jura''", "P1276", "http://www.diju.ch/f/notices/detail/$1"},
{"''Dictionnaire historique de la Suisse''", "P902", "http://www.hls-dhs-dss.ch/textes/f/F$1.php"},
{"''Dictionnaire universel des créatrices''", "P7578", "https://www.dictionnaire-creatrices.com/fiche-$1"},
{"''Digitaal Vrouwenlexicon van Nederland''", "P1788", "http://resources.huygens.knaw.nl/vrouwenlexicon/lemmata/data/$1"},
{"''Dizionario biografico dei Friulani''", "P7203", "http://www.dizionariobiograficodeifriulani.it/$1"},
{"''Dizionario biografico degli italiani''", "P1986", "https://www.treccani.it/enciclopedia/$1_(Dizionario-Biografico)"},
{"''Dizionario di Storia''", "P6404", "https://www.treccani.it/enciclopedia/$1_(Dizionario-di-Storia)/"},
{"E-archiv.li", "P860", "http://www.e-archiv.li/personDetail.aspx?persID=$1"},
{"Eesti biograafiline andmebaas ISIK", "P7509", "http://www2.kirmus.ee/biblioserver/isik/index.php?id=$1"},
{"''Enciclopédia Açoriana''", "P1385", "http://www.culturacores.azores.gov.pt/ea/pesquisa/Default.aspx?id=$1"},
{"''Enciclopedia delle donne''", "P6488", "http://www.enciclopediadelledonne.it/biografie/$1"},
{"''Enciclopedia italiana''", "P4223", "https://www.treccani.it/enciclopedia/$1_(Enciclopedia-Italiana)/"},
{"''Enciclopedia De Agostini''", "P6706", "http://www.sapere.it/enciclopedia/$1.html"},
{"''Enciclopédia Itaú Cultural''", "P4399", "http://enciclopedia.itaucultural.org.br/$1"},
{"''Encyclopædia Iranica''", "P3021", "http://www.iranicaonline.org/articles/$1"},
{"''Encyclopedia Ternopil''", "P8144", "https://ternopedia.te.ua/index.php?curid=$1"},
{"''Encyclopedia of Alabama''", "P6010", "http://www.encyclopediaofalabama.org/article/$1"},
{"''Encyclopedia of Chicago''", "P7901", "http://www.encyclopedia.chicagohistory.org/pages/$1.html"},
{"''Encyclopedia of Cleveland History''", "P7644", "https://case.edu/ech/articles/$1"},
{"''Encyclopedia of Greater Philadelphia''", "P9281", "https://philadelphiaencyclopedia.org/archive/$1"},
{"''The Encyclopedia of Oklahoma History and Culture''", "P7723", "https://www.okhistory.org/publications/enc/entry.php?entry=$1"},
{"''Encyclopedia of the Great Plains''", "P7686", "http://plainshumanities.unl.edu/encyclopedia/doc/egp.$1"},
{"''Encyclopedia Virginia''", "P5981", "https://www.encyclopediavirginia.org/$1"},
{"''L'Encyclopédie canadienne''", "P5395", "https://www.thecanadianencyclopedia.ca/fr/article/$1"},
{"''Encyclopédie de l'histoire de Brno''", "P8116", "https://encyklopedie.brna.cz/home-mmb/?acc=profil_osobnosti&load=$1"},
{"''Encyclopédie de l'Ukraine moderne''", "P4613", "http://esu.com.ua/search_articles.php?id=$1"},
{"''Frankfurter Personenlexikon''", "P8044", "https://frankfurter-personenlexikon.de/node/$1"},
{"''Gran Enciclopedia Aragonesa''", "P1807", "http://www.enciclopedia-aragonesa.com/voz.asp?voz_id=$1"},
{"''Gran Enciclopèdia Catalana''", "P1296", "https://www.enciclopedia.cat/EC-GEC-$1.xml"},
{"''Gran Enciclopedia de Navarra''", "P7388", "http://www.enciclopedianavarra.com/?page_id=$1"},
{"''Handbook of Texas Online''", "P6015", "https://tshaonline.org/handbook/online/articles/$1"},
{"House Divided", "P8400", "http://hd.housedivided.dickinson.edu/node/$1"},
{"''Hrvatska Enciklopedija''", "P7982", "http://www.enciklopedija.hr/Natuknica.aspx?ID=$1"},
{"''Kansallisbiografia''", "P2180", "https://kansallisbiografia.fi/kansallisbiografia/henkilo/$1"},
{"''Kansaspedia''", "P7687", "https://www.kshs.org/kansapedia/wd/$1"},
{"''Larousse''", "P6058", "https://www.larousse.fr/encyclopedie/$1"},
{"''Nationalencyklopedin''", "P3222", "https://www.ne.se/uppslagsverk/encyklopedi/lång/$1"},
{"''Macdonald Dictionary''", "P8067", " https://collection.canterburymuseum.com/objects/$1"},
{"''Maine: An Encyclopedia''", "P7697", "https://maineanencyclopedia.com/$1/"},
{"''Mississippi Encyclopedia''", "P7688", "https://mississippiencyclopedia.org/entries/$1/"},
{"MNopedia", "P6283", "https://www.mnopedia.org/$1"},
{"Munzinger", "P1284", "https://www.munzinger.de/search/go/document.jsp?id=$1"},
{"NCpedia", "P6284", "https://www.ncpedia.org/$1"},
{"Notable Kentucky African Americans Database", "P8156", "https://nkaa.uky.edu/nkaa/items/show/$1"},
{"''Nouveau dictionnaire de biographie alsacienne''", "P4992", "http://www.alsace-histoire.org/netdba/$1"},
{"''New Georgia Encyclopedia''", "P4903", "http://www.georgiaencyclopedia.org/articles/$1"},
{"''Norsk biografisk leksikon''", "P5080", "https://nbl.snl.no/$1"},
{"Online Nevada Encyclopedia", "P7689", "http://www.onlinenevada.org/articles/$1"},
{"''The Oregon Encyclopedia''", "P7691", "https://oregonencyclopedia.org/articles/$1/"},
{"''Österreichisches Biographisches Lexikon 1815–1950''", "P6194", "http://www.biographien.ac.at/oebl/oebl_$1.xml"},
{"''Oxford Dictionary of National Biography''", "P1415", "https://www.oxforddnb.com/view/article/$1"},
{"''Polski Słownik Biograficzny''", "P8130", "https://www.ipsb.nina.gov.pl/a/biografia/$1"},
{"''Proleksis enciklopedija''", "P8349", "https://proleksis.lzmk.hr/$1"},
{"''Sächsische Biografie''", "P1710", "http://saebi.isgv.de/gnd/$1"},
{"''Slovenska biografija''", "P1254", "http://www.slovenska-biografija.si/oseba/sbi$1/"},
{"''South Carolina Encyclopedia''", "P7690", "http://www.scencyclopedia.org/sce/entries/$1/"},
{"Stadtlexikon Karlsruhe", "P9285", "https://stadtlexikon.karlsruhe.de/index.php/De:Lexikon:$1"},
{"''Store norske leksikon''", "P4342", "https://snl.no/$1"},
{"''Svenskt kvinnobiografiskt lexikon''", "P4963", "https://www.skbl.se/sv/artikel/$1"},
{"''Tennessee Encyclopedia''", "P6016", "https://tennesseeencyclopedia.net/entries/$1/"},
{"''Thomas Jefferson Encyclopedia''", "P8630", "https://www.monticello.org/site/research-and-collections/$1"},
{"''Treccani''", "P3365", "http://www.treccani.it/enciclopedia/$1"},
{"''Universalis''", "P3219", "https://www.universalis.fr/encyclopedie/$1/"},
{"''Uppslagsverket Finland''", "P4854", "https://uppslagsverket.fi/sv/sok/view-170045-$1"},
{"''Utah History Encyclopedia''", "P7692", "https://www.uen.org/utah_history_encyclopedia/$1.shtml"},
{"''Visuotinė lietuvių enciklopedija''", "P7666", "https://www.vle.lt/Straipsnis/$1"},
{"''The West Virginia Encyclopedia''", "P7695", "https://www.wvencyclopedia.org/articles/$1"},
{"''Who's Who in France''", "P4124", "https://www.whoswho.fr/bio/-_$1", condition = whoWhosWhoCondition},
{"WyoHistory.org", "P7693", "https://www.wyohistory.org/encyclopedia/$1"},
}

function p.main(frame)
local args = Outils.extractArgs(frame)
local id = Outils.validTextArg(args , 'id', 'wikidata', 'entity', 1)
local nocat = args.nocat or mw.title.getCurrentTitle().namespace ~= 0

id = id or mw.wikibase.getEntityIdForCurrentPage() or ''
if not (mw.wikibase.isValidEntityId(id) and mw.wikibase.entityExists(id)) then
return "[[Catégorie:Article utilisant le modèle Dictionnaires inactif]]"
end
local vals = {}
for i, base in pairs(bases) do

if not(base.condition) or base.condition(id) then
local val = wikidata.formatStatements{entity = id, text = base[1], property = base[2], urlpattern = base[3], numval = 1, addcat = true}
if val then
table.insert(vals, val)
end
end
end
if #vals == 0 then
return "[[Catégorie:Article utilisant le modèle Dictionnaires inactif]]"
end
local header = ''
if #vals > 1 then
header = "Notices dans des dictionnaires ou encyclopédies généralistes"
else
header = 'Notice dans un dictionnaire ou une encyclopédie généraliste'
end

local cats = ''
if not nocat then
cats = "[[Catégorie:Page pointant vers des bases externes]][[Catégorie:Page pointant vers des dictionnaires ou encyclopédies généralistes]]"
end

local title = wikidata.addLinkBack(header, id, 'identifiers') -- lien vers la section approriété de Wikidata
local valsHtml = mw.html.create('div')
:addClass('liste-horizontale')
:wikitext(title .. ' : ')
:tag('ul')
for _, val in pairs(vals) do
valsHtml:tag('li'):wikitext(val):done():wikitext(' ')
end

return tostring(valsHtml:allDone()) .. cats
end

return p

Module:Weblink

2024-09-20T14:16:27Z

Jaggerwock : Page créée avec « local p = {} function p.makelink(url, showntext) if (not url) or (url == "-") then return nil end --I validation de l'url (paramètre URL) url = mw.text.trim(url) -- II texte à afficher (paramètre "showntext") --- valeur spéciale : aucun texte if showntext == "-" then return url end --- laissé vide : texte basé sur l'URL if not showntext then if mw.ustring.sub(url, 1, 1) == "[" then return url end local sub12 = mw.ustring.sub(ur... »

local p = {}

function p.makelink(url, showntext)
if (not url) or (url == "-") then
return nil
end

--I validation de l'url (paramètre URL)
url = mw.text.trim(url)

-- II texte à afficher (paramètre "showntext")

--- valeur spéciale : aucun texte
if showntext == "-" then
return url
end

--- laissé vide : texte basé sur l'URL
if not showntext then
if mw.ustring.sub(url, 1, 1) == "[" then
return url
end
local sub12 = mw.ustring.sub(url, 1, 12)
if sub12 == '<span class=' or sub12 == '<cite class=' or sub12 == '<abbr class=' then
-- résultat produit par [[modèle:URL]], [[modèle:Lien web]], [[modèle:Site officiel]], ou [[modèle:en]]
return url
end
local space = mw.ustring.find(url, ' ') -- si le nom du site est passé par mégarde dans l'URL, le séparer
if space then
local full = url
url = mw.ustring.sub(full, 1, space - 1)
showntext = mw.ustring.sub(full, space + 1)
else
showntext = string.gsub( url, 'https?://', '')
---- remove trailing slash
if string.sub(showntext, #showntext, #showntext) == '/' then
showntext = string.sub(showntext, 1, #showntext - 1)
end
end
end

return '[' .. url .. ' ' .. showntext .. ']'
end

function p.makelinks(stringlist, separator)
if not type(stringlist) == table then
return error('stringlist should be table')
end
if not separator then
separator = ' '
end
for i, j in pairs(stringlist) do
stringlist[i] = p.makelink(j)
end
return table.concat(stringlist, separator)
end

return p

Modèle:Autres projets

2024-09-20T14:15:22Z

Jaggerwock : Page créée avec « <includeonly><templatestyles src="Autres projets/styles.css" /><div class="autres-projets boite-grise boite-a-droite noprint js-interprojets"> {{#if:{{{1|}}}{{{commons|}}}{{{Commons|}}}{{{wikispecies|}}}{{{Wikispecies|}}}{{{species|}}}{{{wiktionary|}}}{{{Wiktionary|}}}{{{wikt|}}}{{{wikiversity|}}}{{{Wikiversity|}}}{{{v|}}}{{{wikibooks|}}}{{{Wikibooks|}}}{{{b|}}}{{{wikisource|}}}{{{Wikisource|}}}{{{s|}}}{{{wikiquote|}}}{{{Wikiquote|}}}{{{q|}}}{{{wikinews|}}}{{{Wik... »

<includeonly><templatestyles src="Autres projets/styles.css" /><div class="autres-projets boite-grise boite-a-droite noprint js-interprojets">
{{#if:{{{1|}}}{{{commons|}}}{{{Commons|}}}{{{wikispecies|}}}{{{Wikispecies|}}}{{{species|}}}{{{wiktionary|}}}{{{Wiktionary|}}}{{{wikt|}}}{{{wikiversity|}}}{{{Wikiversity|}}}{{{v|}}}{{{wikibooks|}}}{{{Wikibooks|}}}{{{b|}}}{{{wikisource|}}}{{{Wikisource|}}}{{{s|}}}{{{wikiquote|}}}{{{Wikiquote|}}}{{{q|}}}{{{wikinews|}}}{{{Wikinews|}}}{{{n|}}}{{{meta|}}}{{{m|}}}{{{outreach|}}}{{{wikidata|}}}{{{Wikidata|}}}{{{d|}}}{{{wikivoyage|}}}{{{Wikivoyage|}}}{{{voy|}}}{{{incubator|}}}{{{Incubator|}}}{{{incubateur|}}}{{{Incubateur|}}}|
Sur les autres projets Wikimedia :
<ul class="noarchive plainlinks">
{{#if:{{{commons|{{{1|{{{Commons|}}}}}}}}}|
<li class="commons">[{{fullurl:Commons:{{{commons|{{{1|{{{Commons|}}}}}}}}}}}?uselang=fr {{#if:{{{commons titre|}}}|{{{commons titre}}}|{{PAGENAME}}}}], sur Wikimedia Commons</li>
}}{{#if:{{{commons2|{{{Commons2|}}}}}}|
<li class="commons">[{{fullurl:Commons:{{{commons2|{{{Commons2|}}}}}}}}?uselang=fr {{#if:{{{commons titre2|}}}|{{{commons titre2}}}|{{PAGENAME}}}}], sur Wikimedia Commons</li>
}}{{#if:{{{commons3|{{{Commons3|}}}}}}|
<li class="commons">[{{fullurl:Commons:{{{commons3|{{{Commons3|}}}}}}}}?uselang=fr {{#if:{{{commons titre3|}}}|{{{commons titre3}}}|{{PAGENAME}}}}], sur Wikimedia Commons</li>
}}{{#if:{{{wikispecies|{{{species|{{{Wikispecies|}}}}}}}}}|
<li class="wikispecies">[[wikispecies:{{{wikispecies|{{{species|{{{Wikispecies|}}}}}}}}}|{{#if:{{{wikispecies titre|}}}|{{{wikispecies titre}}}|{{PAGENAME}}}}]], sur Wikispecies</li>
}}{{#if:{{{wikispecies2|{{{species2|{{{Wikispecies2|}}}}}}}}}|
<li class="wikispecies">[[wikispecies:{{{wikispecies2|{{{species2|{{{Wikispecies2|}}}}}}}}}|{{#if:{{{wikispecies titre2|}}}|{{{wikispecies titre2}}}|{{PAGENAME}}}}]], sur Wikispecies</li>
}}{{#if:{{{wikispecies3|{{{species3|{{{Wikispecies3|}}}}}}}}}|
<li class="wikispecies">[[wikispecies:{{{wikispecies3|{{{species3|{{{Wikispecies3|}}}}}}}}}|{{#if:{{{wikispecies titre3|}}}|{{{wikispecies titre3}}}|{{PAGENAME}}}}]], sur Wikispecies</li>
}}{{#if:{{{wiktionary|{{{wikt|{{{Wiktionary|}}}}}}}}}|
<li class="wiktionary">[[wikt:{{{wiktionary|{{{wikt|{{{Wiktionary|}}}}}}}}}|{{#if:{{{wiktionary titre|}}}|{{{wiktionary titre}}}|{{{wiktionary|{{{wikt|{{{Wiktionary|}}}}}}}}}}}]], sur le Wiktionnaire{{#if:{{{wiktionary thésaurus|{{{wikt thésaurus|}}}}}}|{{espace}}([[wikt:Thésaurus:{{{wiktionary thésaurus|{{{wikt thésaurus|}}}}}}{{#if:{{#titleparts:{{{wiktionary thésaurus|{{{wikt thésaurus|}}}}}}||2}}||/français}}|thésaurus]])}}</li>
}}{{#if:{{{wiktionary2|{{{wikt2|{{{Wiktionary2|}}}}}}}}}|
<li class="wiktionary">[[wikt:{{{wiktionary2|{{{wikt2|{{{Wiktionary2|}}}}}}}}}|{{#if:{{{wiktionary titre2|}}}|{{{wiktionary titre2}}}|{{{wiktionary2|{{{wikt2|{{{Wiktionary2|}}}}}}}}}}}]], sur le Wiktionnaire</li>
}}{{#if:{{{wiktionary3|{{{wikt3|{{{Wiktionary3|}}}}}}}}}|
<li class="wiktionary">[[wikt:{{{wiktionary3|{{{wikt3|{{{Wiktionary3|}}}}}}}}}|{{#if:{{{wiktionary titre3|}}}|{{{wiktionary titre3}}}|{{{wiktionary3|{{{wikt3|{{{Wiktionary3|}}}}}}}}}}}]], sur le Wiktionnaire</li>
}}{{#if:{{{wiktionary4|{{{wikt4|{{{Wiktionary4|}}}}}}}}}|
<li class="wiktionary">[[wikt:{{{wiktionary4|{{{wikt4|{{{Wiktionary4|}}}}}}}}}|{{#if:{{{wiktionary titre4|}}}|{{{wiktionary titre4}}}|{{{wiktionary4|{{{wikt4|{{{Wiktionary4|}}}}}}}}}}}]], sur le Wiktionnaire</li>
}}{{#if:{{{wiktionary5|{{{wikt5|{{{Wiktionary5|}}}}}}}}}|
<li class="wiktionary">[[wikt:{{{wiktionary5|{{{wikt5|{{{Wiktionary5|}}}}}}}}}|{{#if:{{{wiktionary titre5|}}}|{{{wiktionary titre5}}}|{{{wiktionary5|{{{wikt5|{{{Wiktionary5|}}}}}}}}}}}]], sur le Wiktionnaire</li>
}}{{#if:{{{wikiversity|{{{v|{{{Wikiversity|}}}}}}}}}|
<li class="wikiversity">[[v:{{{wikiversity|{{{v|{{{Wikiversity|}}}}}}}}}|{{#if:{{{wikiversity titre|}}}|{{{wikiversity titre}}}|{{PAGENAME}}}}]], sur Wikiversity</li>
}}{{#if:{{{wikiversity2|{{{Wikiversity2|}}}}}}|
<li class="wikiversity">[[v:{{{wikiversity2|{{{Wikiversity2|}}}}}}|{{#if:{{{wikiversity titre2|}}}|{{{wikiversity titre2}}}|{{PAGENAME}}}}]], sur Wikiversity</li>
}}{{#if:{{{wikibooks|{{{b|{{{Wikibooks|}}}}}}}}}|
<li class="wikibooks">[[b:{{{wikibooks|{{{b|{{{Wikibooks|}}}}}}}}}|{{#if:{{{wikibooks titre|}}}|{{{wikibooks titre}}}|{{PAGENAME}}}}]], sur Wikibooks</li>
}}{{#if:{{{wikibooks2|{{{b2|{{{Wikibooks2|}}}}}}}}}|
<li class="wikibooks">[[b:{{{wikibooks2|{{{b2|{{{Wikibooks2|}}}}}}}}}|{{#if:{{{wikibooks titre2|}}}|{{{wikibooks titre2}}}|{{PAGENAME}}}}]], sur Wikibooks</li>
}}{{#if:{{{wikisource|{{{s|{{{Wikisource|}}}}}}}}}|
<li class="wikisource">[[s:{{{wikisource|{{{s|{{{Wikisource|}}}}}}}}}|{{#if:{{{wikisource titre|}}}|{{{wikisource titre}}}|{{PAGENAME}}}}]], sur Wikisource</li>
}}{{#if:{{{wikisource2|{{{Wikisource2|}}}}}}|
<li class="wikisource">[[s:{{{wikisource2|{{{Wikisource2|}}}}}}|{{#if:{{{wikisource titre2|}}}|{{{wikisource titre2}}}|{{PAGENAME}}}}]], sur Wikisource</li>
}}{{#if:{{{wikisource3|{{{Wikisource3|}}}}}}|
<li class="wikisource">[[s:{{{wikisource3|{{{Wikisource3|}}}}}}|{{#if:{{{wikisource titre3|}}}|{{{wikisource titre3}}}|{{PAGENAME}}}}]], sur Wikisource</li>
}}{{#if:{{{wikiquote|{{{q|{{{Wikiquote|}}}}}}}}}|
<li class="wikiquote">[[q:{{{wikiquote|{{{q|{{{Wikiquote|}}}}}}}}}|{{#if:{{{wikiquote titre|}}}|{{{wikiquote titre}}}|{{PAGENAME}}}}]], sur Wikiquote</li>
}}{{#if:{{{wikinews|{{{n|{{{Wikinews|}}}}}}}}}|
<li class="wikinews">[[n:{{{wikinews|{{{n|{{{Wikinews|}}}}}}}}}|{{#if:{{{wikinews titre|}}}|{{{wikinews titre}}}|{{PAGENAME}}}}]], sur Wikinews</li>
}}{{#if:{{{wikinews2|{{{Wikinews2|}}}}}}|
<li class="wikinews">[[n:{{{wikinews2|{{{Wikinews2|}}}}}}|{{#if:{{{wikinews titre2|}}}|{{{wikinews titre2}}}|{{PAGENAME}}}}]], sur Wikinews</li>
}}{{#if:{{{wikinews3|{{{Wikinews3|}}}}}}|
<li class="wikinews">[[n:{{{wikinews3|{{{Wikinews3|}}}}}}|{{#if:{{{wikinews titre3|}}}|{{{wikinews titre3}}}|{{PAGENAME}}}}]], sur Wikinews</li>
}}{{#if:{{{meta|{{{m|}}}}}}|
<li class="metawiki">[[m:{{{meta|{{{m|}}}}}}|{{#if:{{{meta titre|}}}|{{{meta titre}}}|{{PAGENAME}}}}]], sur Meta-Wiki</li>
}}{{#if:{{{outreach|}}}|
<li class="wikimedia">[[outreach:{{{outreach}}}|{{#if:{{{outreach titre|}}}|{{{outreach titre}}}|{{PAGENAME}}}}]], sur Outreach</li>
}}{{#if:{{{wikidata|{{{d|{{{Wikidata|}}}}}}}}}|{{#ifeq:{{NAMESPACE}}|{{ns:0}}|[[Catégorie:Page avec lien wikidata dans Autres projets]]|
<li class="wikidata">[[d:{{{wikidata|{{{d|{{{Wikidata|}}}}}}}}}|{{#if:{{{wikidata titre|}}}|{{{wikidata titre}}}|{{PAGENAME}}}}]], sur Wikidata</li>
}}}}{{#if:{{{wikivoyage|{{{voy|{{{Wikivoyage|}}}}}}}}}|
<li class="wikivoyage">[[voy:{{{wikivoyage|{{{voy|{{{Wikivoyage|}}}}}}}}}|{{#if:{{{wikivoyage titre|}}}|{{{wikivoyage titre}}}|{{PAGENAME}}}}]], sur Wikivoyage</li>
}}{{#if:{{{incubator|{{{Incubator|{{{incubateur|{{{Incubateur|}}}}}}}}}}}}|
<li class="incubator">[[incubator:{{{incubator|{{{Incubator|{{{incubateur|{{{Incubateur|}}}}}}}}}}}}|{{#if:{{{incubateur titre|}}}|{{{incubateur titre}}}|{{PAGENAME}}}}]], dans l’Incubateur Wikimédia</li>
}}
</ul>
|{{#ifeq:{{NAMESPACE}}|{{ns:0}}{{ns:4}}{{ns:10}}{{ns:12}}{{ns:14}}|Erreur d'utilisation : au moins un paramètre est requis ([[Modèle:Autres projets|aide]]).[[Catégorie:Page utilisant un modèle avec une syntaxe erronée|Autres projets]]}}
}}
</div></includeonly><noinclude>{{Documentation}}

</noinclude><includeonly>{{#switch:{{NAMESPACE}}||{{ns:14}}=
{{#if:{{#property:P373}}
| {{#if:{{{commons|{{{1|{{{Commons|}}}}}}}}}
| {{#ifeq:{{FULLPAGENAMEE:Category:{{#property:P373}}}}|{{FULLPAGENAMEE:{{{commons|{{{1|{{{Commons|}}}}}}}}}}}
| [[Catégorie:Catégorie Commons avec lien local identique sur Wikidata]] 
| [[Catégorie:Catégorie Commons avec lien local différent sur Wikidata]] 
}}
| {{#if:{{{commons|{{{1|{{{Commons|}}}}}}}}}
| [[Catégorie:Catégorie Commons sans lien sur Wikidata]] 
}}
}}
}}
}}{{#ifeq:{{NAMESPACE}}|{{ns:0}}
| {{#if:{{{commons|{{{1|{{{Commons|}}}}}}}}}{{{wikispecies|{{{species|{{{Wikispecies|}}}}}}}}}{{{wiktionary|{{{wikt|{{{Wiktionary|}}}}}}}}}{{{wikiversity|{{{v|{{{Wikiversity|}}}}}}}}}{{{wikibooks|{{{b|{{{Wikibooks|}}}}}}}}}{{{wikisource|{{{s|{{{Wikisource|}}}}}}}}}{{{wikiquote|{{{q|{{{Wikiquote|}}}}}}}}}{{{wikinews|{{{n|{{{Wikinews|}}}}}}}}}{{{meta|{{{m|}}}}}}{{{outreach|}}}{{{wikidata|{{{d|{{{Wikidata|}}}}}}}}}{{{wikivoyage|{{{voy|{{{Wikivoyage|}}}}}}}}}{{{incubator|{{{Incubator|{{{incubateur|{{{Incubateur|}}}}}}}}}}}}
|
| [[Catégorie:Autres projets vide]]
}}
}}</includeonly>

Modèle:Bases

2024-09-20T14:14:46Z

Jaggerwock : Page créée avec « <includeonly>{{#invoke:Bases|tout}}</includeonly><noinclude> {{Documentation}} </noinclude> »

<includeonly>{{#invoke:Bases|tout}}</includeonly><noinclude>
{{Documentation}}
</noinclude>

Modèle:Classé MH

2024-09-20T14:14:29Z

Jaggerwock : Page créée avec « <includeonly>alt=Logo monument historique  Classé }} MH{{#if:{{{date|{{{1|}}}}}}|{{espace}}({{{1}}}}}}{{#if:{{{2|}}}|,{{espace}}}}}}}{{#if:{{{3|}}}|,{{espace}}{{{3|}}}}})}}</includeonly><noinclude> {{Documentation de source}} </noinclude> »

<includeonly>[[Fichier:Logo monument historique - rouge sans texte.svg|18px|link=|Monument historique|alt=Logo monument historique]] [[Monument historique (France)|{{ #ifeq: {{{accord|masculin}}} | féminin | Classée | Classé }} MH]]{{#if:{{{date|{{{1|}}}}}}|{{espace}}([[{{{date|{{{1}}}}}}]]{{#if:{{{2|}}}|,{{espace}}[[{{{2|}}}]]}}{{#if:{{{3|}}}|,{{espace}}{{{3|}}}}})}}</includeonly><noinclude>
{{Documentation de source}}
</noinclude>

Modèle:Dictionnaires

2024-09-20T14:14:11Z

Jaggerwock : Page créée avec « <includeonly>{{#invoke:Dictionnaires|main}}</includeonly><noinclude> {{documentation}} </noinclude> »

<includeonly>{{#invoke:Dictionnaires|main}}</includeonly><noinclude>
{{documentation}}
</noinclude>

Modèle:Musée de France

2024-09-20T14:13:46Z

Jaggerwock : Page créée avec « <includeonly>alt=Logo Musée de France{{espace}}Musée de France{{#if:{{{date|{{{1|}}}}}}|{{espace}}({{{1}}}}}}{{#if:{{{2|}}}|,{{espace}}}}}}}{{#if:{{{3|}}}|,{{espace}}{{{3|}}}}})}}</includeonly><noinclude> {{Documentation de source}} Catégorie:Modèle lien interne Catégorie:Modèle affichant une icône </noinclude> »

<includeonly>[[Fichier:Logo label musée de France (icon only).svg|18px|Musée de France|alt=Logo Musée de France]]{{espace}}[[Musée de France]]{{#if:{{{date|{{{1|}}}}}}|{{espace}}([[{{{date|{{{1}}}}}}]]{{#if:{{{2|}}}|,{{espace}}[[{{{2|}}}]]}}{{#if:{{{3|}}}|,{{espace}}{{{3|}}}}})}}</includeonly><noinclude>
{{Documentation de source}}
[[Catégorie:Modèle lien interne]]
[[Catégorie:Modèle affichant une icône]]
</noinclude>

Module:Adresse/Formats

2024-09-20T14:13:30Z

Jaggerwock : Page créée avec « return { --[[ id du pays = { streetline = indiquer l'ordre numéro de rue, nom de la rue div1 = liste des types divisions administratives à afficher en premier div2 = liste des types divisions administratives à afficher en deuxième div3 = liste des types de divisions administrative à afficher en troisième div3vals = liste des subdivisions (pas de type de subdivisions à utiliser (plus efficient) directions = mots à ajouter pour "sud" "nord" etc. Par e... »

return {
--[[
id du pays = {
streetline = indiquer l'ordre numéro de rue, nom de la rue
div1 = liste des types divisions administratives à afficher en premier
div2 = liste des types divisions administratives à afficher en deuxième
div3 = liste des types de divisions administrative à afficher en troisième
div3vals = liste des subdivisions (pas de type de subdivisions à utiliser (plus efficient)
directions = mots à ajouter pour "sud" "nord" etc. Par exemple Canada: "sud, nord" ou états-unis "south, north", etc.

]]--
Q16 = { -- Canada
streetline = '$number $street $direction',
directions = {Q659 = 'Nord', Q679 = 'Ouest', Q684 = 'Est', Q667 = 'Sud'},
div1 = {'Q515', 'Q155239', 'Q3327873', 'Q3327899', 'Q3788231', 'Q3518810'}, -- ville, ça marche ?
div2vals = {'Q176', 'Q1904', 'Q1948', 'Q1951', 'Q1952', 'Q1965', 'Q1974', 'Q1979', 'Q1989', 'Q2003', 'Q2007', 'Q2009', 'Q2023'}, -- province ou territoire
},
Q30 = {--USA
streetline = '$number $street $direction',
directions = {Q659 = 'North', Q679 = 'West', Q684 = 'East', Q667 = 'South'},
cityline = '$admindivs $postcode',
div1 = {'-'},
div2 = {'Q13360155'}, -- comté ou équivalent comté
div3vals = { -- état claim[31:35657]
'Q99','Q173','Q724','Q759','Q771','Q779','Q782','Q797','Q812','Q816','Q824','Q829','Q1166','Q1204','Q1207','Q1211','Q1212','Q1214',
'Q1221','Q1223','Q1227','Q1261','Q1370','Q1371','Q1384','Q1387','Q1391','Q1393','Q1397','Q1400','Q1408','Q1415','Q1428','Q1439',
'Q1454','Q1456','Q1494','Q1509','Q1522','Q1527','Q1537','Q1546','Q1553','Q1558','Q1581','Q1588','Q1603','Q1612','Q1649','Q16551'
},
},
Q31 = {-- Belgique (à vérifier)
streetline = '$street $number',
cityline = '$postcode $admindivs',
div1 = {'Q493522'}, -- commune
div2vals = {'Q1095' , 'Q1113', 'Q1114','Q1116', 'Q1118', 'Q1122', 'Q1125', 'Q1126', 'Q1127', 'Q1129' , 'Q848831'}, -- province
},
Q39 = { -- Suisse
div1 = {'Q70208'}, -- communes
div2vals = { -- canton / Q23058
'Q834','Q11911','Q11917','Q11922','Q11925','Q11929','Q11933','Q11943','Q11972','Q12079','Q12094','Q12121','Q12146','Q12172',
'Q12404','Q12433','Q12573','Q12592','Q12640','Q12697','Q12713','Q12724','Q12738','Q12746','Q12755','Q12771','Q688257'
},
streetline = '$street $number',
cityline = '$postcode $admindivs',
},
Q142 = { --France
streetline = '$number $street',
cityline = '$postcode $admindivs',
div1 = {'Q702842', 'Q484170'}, -- arrondissement municipal ou commune
div2vals = { -- divisions à ajouter en deuxième : département / collectivités d'outre mer
'Q90','Q3068','Q3083','Q3093','Q3105','Q3113','Q3120','Q3125','Q3131','Q3139','Q3148','Q3164','Q3184','Q3194','Q3207',
'Q3216','Q3240','Q3249','Q3259','Q3266','Q3278','Q3286','Q3326','Q3334','Q3336','Q3342','Q3349','Q3353','Q3357','Q3361',
'Q3364','Q3368','Q3372','Q3377','Q3389','Q12515','Q12517','Q12526','Q12538','Q12543','Q12545','Q12549','Q12553','Q12556','Q12559',
'Q12563','Q12564','Q12569','Q12572','Q12574','Q12576','Q12578','Q12580','Q12584','Q12589','Q12594','Q12607','Q12620','Q12626','Q12631',
'Q12642','Q12652','Q12657','Q12661','Q12675','Q12679','Q12689','Q12694','Q12700','Q12703','Q12709','Q12717','Q12722','Q12730','Q12736',
'Q12740','Q12745','Q12751','Q12753','Q12758','Q12761','Q12765','Q12770','Q12772','Q12779','Q12782','Q12784','Q12788','Q12789','Q12792',
'Q12798','Q12804','Q12808','Q12816','Q12820','Q34617','Q46130',
-- outre mer
'Q17012', 'Q17054', 'Q3769', 'Q17070', 'Q33788'
},
},
Q145 = { -- Royaume uni
-- --données à nettoyer ici ou sur Wikidata
div1 = {'Q515', 'Q1160920'}, -- ville, unitary authority / à compléter
div2 = {'Q180673'}, -- comté cérémonial / à compléter
div3vals = {'Q21', 'Q22', 'Q25', 'Q26'} -- Angleterre, Écosse, Pays de Galle, Irlande du Nord
},
Q213 = { -- République tchèque
streetline = '$number $street',
div1 = {'Q5153359'},
div2vals = {'Q1085', 'Q46070', 'Q188373', 'Q188399', 'Q190550', 'Q190930', 'Q191091', 'Q192536', 'Q192697', 'Q192702', 'Q193266', 'Q193295', 'Q193307', 'Q193317'}, -- région tchèque
},
Q668 = {-- Inde (à améliorer
div1 = {'Q515'}, -- ville
div2vals = {'Q1162', 'Q1164', 'Q1165', 'Q1168', 'Q1171', 'Q1061', 'Q1174', 'Q1177', 'Q1180', 'Q1184', 'Q1185', 'Q1186', 'Q1188', 'Q1191', 'Q1193', 'Q1195', 'Q1502', 'Q1599', 'Q22048', 'Q22424', 'Q1437', 'Q1505' , 'Q1445', 'Q1363', 'Q1498', 'Q1499', 'Q1356', 'Q40088', 'Q43433', 'Q46107', 'Q26927', 'Q1353', 'Q66743', 'Q66710', 'Q677037', 'Q1159' }-- provinces
},
Q148 = { -- Chine
-- -- on francise','Q et on met du plus petit au plus grand pour que ce soit compréhensible
div1 = {'Q16755104', 'Q1065118'}, -- xian ou équivalent, les divisions de rang inférieur ne paraissent pas utiles ?
div2 = {'Q9316670'}, -- préfecture ou équivalent
div3vals = {-- province ou équivalent (classe = Q13396669)
'Q956', 'Q8646', 'Q8686', 'Q11725', 'Q11736', 'Q14773', 'Q15175', 'Q15176', 'Q16963', 'Q16967','Q17269',
'Q19206', 'Q19770', 'Q21208', 'Q34800', 'Q40956', 'Q41079', 'Q41705', 'Q42200', 'Q42392', 'Q43194','Q43407',
'Q43684', 'Q43934', 'Q45208', 'Q45761' , 'Q45833', 'Q46862', 'Q46913', 'Q47097', 'Q47974', 'Q57052', 'Q57251', 'Q57448'
}
},
Q865 = { -- Taiwan
div1 = {'Q12081657'}, --division de niveau cantonal
div2 = {'Q12084012'},
},
Q403 = { -- Serbie
streetline = '$street $number',
div1 = {'Q37800986', 'Q783930'}, --ville ou municipalité
div2 = {'Q648681'},-- district (non affiché sur l'adresse postale)
div3vals = {'Q44749'} -- Voivodine / on ne précise pas pour les autres Régions statistiques de Serbie qui ne sont pas très connues
},
default = {
streetline = '$number $street $direction',
div1 = {'-'}, -- on prend la première venue, en espérant que ça ait un intérêt
div2 = {'-'},
directions = {Q659 = 'Nord', Q679 = 'Ouest', Q684 = 'Est', Q667 = 'Sud'},
cityline = '$postcode $admindivs',
},
}

Module:Autorité

2024-09-20T14:12:55Z

Jaggerwock : Page créée avec « local wd = require( 'Module:Wikidata' ) local Outils = require( 'Module:Outils' ) --nombre maximum de référence "autorité" qui doivent être affichée. La valeur de 18 a été acté par défaut en 2017. local nbMaxReferenceParPage = 18 local function blbnbUrl( id ) if not id:match( '^%d%d%d%d%d%d%d%d%d$' ) then return false end return 'http://acervo.bn.br/sophia_web/autoridade/detalhe/' .. id end local function nlgUrl( id ) if not id:match( '^[1-9]%d*... »

local wd = require( 'Module:Wikidata' )
local Outils = require( 'Module:Outils' )

--nombre maximum de référence "autorité" qui doivent être affichée. La valeur de 18 a été acté par défaut en 2017.
local nbMaxReferenceParPage = 18

local function blbnbUrl( id )
if not id:match( '^%d%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'http://acervo.bn.br/sophia_web/autoridade/detalhe/' .. id
end

local function nlgUrl( id )
if not id:match( '^[1-9]%d*$' ) then
return false
end
return 'https://catalogue.nlg.gr/Authority/Record?id=au.' .. id
end

local function bneUrl( id )
if id:match( '^XX%d%d%d%d%d?%d?%d?$' ) then
return 'http://catalogo.bne.es/uhtbin/authoritybrowse.cgi?action=display&authority_id=' .. id
elseif ( id:match( '^[Mb]ise%d%d%d%d%d%d%d%d%d%d$' ) or id:match( '^bivi%d%d%d%d%d%d%d%d%d%d$' ) ) then
return 'https://datos.bne.es/edicion/' .. id
else
return false
end
end

local function sbnUrl( id )
if not id:match( '^%u%u[%u%d]%u%d%d%d%d%d%d$' ) then
return false
end
return 'https://opac.sbn.it/nome/' .. id
end

local function ndlUrl( id )
if not id:match( '^0?%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'https://id.ndl.go.jp/auth/ndlna/' .. id
end

local function ntaUrl( id )
if not id:match( '^%d%d%d%d%d%d%d%d.$' ) then
return false
end
return 'http://data.bibliotheken.nl/id/thes/p' .. id
end

local function nlpUrl( id )
-- nouveau format valide (P7293) - 981[0-9]{8}05606 : 981066973640560
-- ou ancien format Wikidata (P1695) - A[0-9]{7}[0-9X] modifié depuis 2023 en a[0-9]{13}
if id:match( '^981%d%d%d%d%d%d%d%d05606$' ) or id:match( '^a%d%d%d%d%d%d%d%d%d%d%d%d%d$' ) then
return 'https://dbn.bn.org.pl/descriptor-details/' .. id
else
return false
end
end

local function nliUrl( id )
if not id:match( '^9870[01]%d%d%d%d%d%d%d%d05171$' ) then
return false
end
return 'http://olduli.nli.org.il/F/?func=find-b&local_base=NLX10&find_code=UID&request=' .. id
end

local function nukatUrl( id )
if not id:match( '^n%d%d%d%d%d%d%d%d$' ) and not id:match( '^n%d%d%d%d%d%d%d%d%d%d$' ) and
not id:match( '^p %d%d%d%d%d%d%d%d$' ) and not id:match( '^p %d%d%d%d%d%d%d%d%d%d$' ) and
not id:match( '^s %d%d%d%d%d%d%d%d$' ) and not id:match( '^s %d%d%d%d%d%d%d%d%d%d$' ) then
return false
end
id = id:gsub( ' ', '%%20' ) -- pour les ids commencent par s ou p
if id:len() == 9 then
id = id:gsub( 'n', 'n%%20%%20' ) -- pour les ids commencent par n
else
id = id:gsub( 'n', 'n%%20' ) -- pour les ids commencent par n20
end
return 'http://nukat.edu.pl/aut/' .. id
end

local function catalUrl( id)
if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d$' ) then
if not id:match( '^a?%d%d%d%d%d%d%d.$' ) then
return false
end
return 'https://cantic.bnc.cat/registres/CUCId/' .. id
end
return 'https://cantic.bnc.cat/registre/' .. id
end

local function selibrUrl( id )
if not id:match( '^[1-9]%d%d%d%d$' ) and not id:match( '^[1-9]%d%d%d%d%d$' ) then
return false
end
return 'https://libris.kb.se/auth/' .. id
end

local function reroUrl( id )
--exemple d'un code valide est 01-R008412216, 02-A000173676
if not id:match( '^0[1234]%-[AR]%d%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'http://data.rero.ch/' .. id
end

local function bavUrl( id )
--exemple d'un code valide est 494/9793
if not id:match( '^49%d/[1-9]%d*$' ) then -- 49\d\/[1-9]\d{0,5}
return false
end
id = id:gsub( '/', '_' )
return 'https://opac.vatlib.it/auth/detail/' .. id
end

local function idCanadia( id )
--exemple d'un code valide est 1024H9993
if not id:match( '^%d%d%d%d[A-Z]%d%d%d%d[EF]?$' ) then
return false
end
return 'https://www.collectionscanada.gc.ca/canadiana-authorities/index/view?index_name=cdnAutNbr&lang=fr&search_text=' .. id .. '&page=1&cdnAutNbr' .. id
end

local function nlaUrl( id )
--exemple d'un code valide est nm1942312
if not id:match( '^%d+$' ) then
return false
end
return 'http://nla.gov.au/anbd.aut-an' .. id
end

--[=[ en attendant que la bibliothèque du Québec ait une page sur son site web pour les articles référencés par l'idBAnQ (actuellement, page du site Viaf
local function idBAnQa( id )
exemple d'un code valide est 0001215324
if not id:match( '^%d%d%d%d%d+$' ) then
return false
end
return 'http://viaf.org/processed/B2Q|' .. id
end
]=]

local function bibsysUrl( id )
-- exemple d'un code valide est 0001215324
if not id:match( '^%d+$' ) then
return false
end
return 'https://authority.bibsys.no/authority/rest/authorities/html/' .. id
end

local function n6iUrl( id )
-- exemple d'un code valide est vtls000033830 mais pas de format officiel précisé pour les tests dans le module
if not id:match( '^vtls%d+$' ) then
return false
end
return 'http://catalogue.nli.ie/Record/' .. id
end

local function nskUrl( id )
-- exemple d'un code valide est 000339950
if not id:match( '^%d+$' ) then
return false
end
return 'http://katalog.nsk.hr/F/?func=direct&doc_number=' .. id .. '&local_base=nsk10'
end

--Bibliothèque Nationale de Russie (NLR ou RSL)
local function rslUrl( id )
-- exemple d'un code valide est 000080362
if not id:match( '^%d+$' ) then
return false
end
return 'http://aleph.rsl.ru/F?func=find-b&find_code=SYS&adjacent=Y&local_base=RSL11&request=' .. id
end
--Bibliothèque Nationale Tchèque (NKCL)
local function nkcUrl( id )
-- exemple d'un code valide est jcu2014834887 format [a-z]{2,4}[0-9]{2,14}
if not id:match( '^%a%a+%d%d+$' ) then
return false
end
return 'http://aut.nkp.cz/' .. id
end
--Bibliothèque Nationale du Québec pour les ouvrages
local function idBAnQo( id )
--exemple d'un code valide est 1986863
if not id:match( '^%d+$' ) then
return false
end
return 'http://collections.banq.qc.ca/ark:/52327/|' .. id
end
--Bibliothèque Nationale du Danemark
--[=[ en attendant que la bibliothèque du Québec ait une page sur son site web pour les articles référencés par l'idDBC (actuellement, page du site Viaf
local function idDbc( id )
--exemple d'un code valide est 87097968101751
if not id:match( '^87%d+$' ) then
return false
end
return 'https://viaf.org/processed/DBC|' .. id
end
]=]
--Bibliothèque Nationale du Chili
local function idBnchl( id )
--exemple d'un code valide est 10000000000000000063660
if not id:match( '^%d+$' ) then
return false
end
return 'http://www.bncatalogo.cl/F?func=direct&local_base=BNC01&doc_number=' .. id
end
--Bibliothèque Nationale du Portugal
local function idPtbnp( id )
--exemple d'un code valide est 130325
if not id:match( '^%d%d+$' ) then
return false
end
return 'http://urn.bn.pt/nca/unimarc-authorities/txt?id=' .. id
end
--Bibliothèque nationale de Lettonie
local function idLnb( id )
--exemple d'un code valide est 000001327
if not id:match( '^%d%d+$' ) then
return false
end
return 'https://kopkatalogs.lv/F/?func=direct&local_base=lnc10&doc_number=' .. id
end

--Bibliothèque nationale du Luxembourg
local function idBNL( id )
--exemple d'un code valide est 000035166
if not id:match( '^%d%d+$' ) then
return false
end
return 'http://viaf.org/processed/BNL|' .. id
end

local function idworldcat( id )
--exemple d'un code valide est viaf-000001327
if not id:match( '^viaf.%d+$' ) and not id:match( '^lccn.n[a-z]?[0-9\-]+$') and not id:match( '^n[pc]..+$') then
return false
end
return 'https://www.worldcat.org/identities/' .. id
end
local function idOclc( id )
--exemple d'un code valide est 000001327
if not id:match( '^0*[1-9]%d*$' ) then
return false
end
return 'http://www.worldcat.org/oclc/' .. id
end

local function kbrUrl( id )
if not id:match( '^%d+$' ) then
return false
end
return 'https://opac.kbr.be/LIBRARY/doc/AUTHORITY/' .. id
end

----***********************************************************************************************************************
-- ajouter ici les nouvelles fonctions pour références
----***********************************************************************************************************************

local function leonoreUrl( id )
-- Identifiants allant de LH/1/1 à LH/2794/54 (légionnaires)
-- Identifiants allant de C/0/1 à C/0/84 (84 légionnaires célèbres)
-- Identifiants allant de 19800035/1/1 à 19800035/385/51670 (légionnaires décédés entre 1954 et 1977, et quelques dossiers de légionnaires décédés avant 1954)
if not id:match( '^LH/%d%d?%d?%d?/%d%d?%d?$' ) and
not id:match( '^C/0/%d%d?$' ) and
not id:match( '^19800035/%d%d?%d?%d?/%d%d?%d?%d?%d?$' ) and
not id:match( '^19800035/%d%d?%d?%d?/%d%d?%d?%d?%d?Bis$' ) then
return false
end
return 'http://www.culture.gouv.fr/public/mistral/leonore_fr?ACTION=CHERCHER&FIELD_1=COTE&VALUE_1=' .. id
end

--Returns the ISNI check digit isni must be a string where the 15 first elements are digits
local function getIsniCheckDigit( isni )
local total = 0
for i = 1, 15 do
local digit = isni:byte( i ) - 48 --Get integer value
total = ( total + digit ) * 2
end
local remainder = total % 11
local result = ( 12 - remainder ) % 11
if result == 10 then
return "X"
end
return tostring( result )
end

--Validate ISNI and returns it as a 16 characters string or returns false if it's invalid
--See http://support.orcid.org/knowledgebase/articles/116780-structure-of-the-orcid-identifier
local function validateIsni( id )
id = id:gsub( '[ %-]', '' ):upper()
if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d%d%d%d[%dX]$' ) then
return false
end
if getIsniCheckDigit( id ) ~= string.char( id:byte( 16 ) ) then
return false
end
return id
end

local function isniUrl( id )
id = validateIsni( id )
if not id then
return false
end
return 'https://isni.org/isni/' .. id
end

local function ciniiUrl( id )
return 'http://ci.nii.ac.jp/author/' .. id .. '?l=en'
end

local function sudocUrl( id )
if not id:match( '^%d%d%d%d%d%d%d%d[%dxX]$' ) then
return false
end
return 'http://www.idref.fr/' .. id
end

local function archivesnationalesUrl( id )
if not id:match( '^FRAN_NP_%d%d%d%d%d%d$' ) then
return false
end
return 'https://www.siv.archives-nationales.culture.gouv.fr/siv/NP/' .. id
end

local function bnfUrls( id )
--Add cb prefix if it has been removed
if not id:match( '^cb.+$' ) then
id = 'cb' .. id
end
return {
'https://catalogue.bnf.fr/ark:/12148/' .. id,
'https://data.bnf.fr/ark:/12148/' .. id }
end

local function viafUrl( id )
if not id:match( '^%d+$' ) then
return false
end
return 'http://viaf.org/viaf/' .. id
end

local function splitLccn( id )
if id:match( '^%l%l?%l?%d%d%d%d%d%d%d%d%d?%d?$' ) then
id = id:gsub( '^(%l+)(%d+)(%d%d%d%d%d%d)$', '%1/%2/%3' )
end
if id:match( '^%l%l?%l?/%d%d%d?%d?/%d+$' ) then
return mw.text.split( id, '/' )
end
return false
end

local function padLeft( str, c, length )
return c:rep( length - #str ) .. str
end

local function lccnUrl( id )
local parts = splitLccn( id )
if not parts then
return false
end
id = parts[1] .. parts[2] .. padLeft( parts[3], '0', 6 )
return 'http://id.loc.gov/authorities/' .. id
end

local function gndUrl( id )
return 'http://d-nb.info/gnd/' .. id
end

local function nszlUrl( id )
if not id:match( '^%d%d%d%d%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'https://viaf.org/processed/NSZL|' .. id
end

local function ltiUrl( id )
if not id:match( '^[1-9]%d*$' ) then
return false
end
return 'https://library.ltikorea.or.kr/node/' .. id
end

local function krnlkUrl( id )
if not id:match( '^KA[BC]%d%d%d%d%a?%d%d%d%d%d?%d?$' ) and
not id:match( '^KMU%d%d%d%d%a?%d%d%d%d%d?%d?$' ) and
not id:match( '^KSH%d%d%d%d%a?%d%d%d%d%d?%d?$' ) and
not id:match( '^CNTS%-%d%d%d%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'https://lod.nl.go.kr/resource/' .. id
end

local function bnaUrl( id )
if not id:match( '^%d%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'https://catalogo.bn.gov.ar/F/?func=direct&doc_number=' .. id ..'&local_base=GENER'
end

local function bnsUrl( id )
if not id:match( '^[1-9]%d*$' ) then
return false
end
return 'https://www.helveticarchives.ch/detail.aspx?ID=' .. id
end

local function arbabnUrl( id )
if not id:match( '^%d%d%d%d%d%d%d%d%d$' ) then
return false
end
return 'https://catalogo.bn.gov.ar/F/?func=direct&local_base=BNA10&doc_number=' .. id
end
--Bibliothèque Nationale d'Arménie, en 3 modules distincts
local function nlaBookUrl( id )
if not id:match( '^[1-9]%d*$' ) then
return false
end
return 'http://haygirk.nla.am/cgi-bin/koha/opac-detail.pl?biblionumber=' .. id
end
local function nlaPersUrl( id )
if not id:match( '^[1-9]%d*$' ) then
return false
end
return 'http://armunicat.nla.am/cgi-bin/koha/opac-authoritiesdetail.pl?marc=1&authid=' .. id
end
local function nlaResUrl( id )
if not id:match( '^[1-9]%d*$' ) then
return false
end
return 'http://tert.nla.am/cgi-bin/koha/opac-detail.pl?biblionumber=' .. id
end

local function glottoUrl( id )
if not id:match( '^[a-z][a-z][a-z][a-z]%d%d%d%d$' ) then
return false
end
return 'https://glottolog.org/resource/languoid/id/' .. id
end

local function makeLink( url, label )
return '[' .. url .. ' ' .. label .. ']'
end

local function createRow( id, label, rawValue, url )
if type( url ) == 'table' then
return makeLink( url[1], label[1] ) .. ' (' .. makeLink( url[2], label[2] ) .. ')'
elseif url then
return makeLink( url, label )
else
local cat = ''
if mw.title.getCurrentTitle().namespace == 0 then
cat = '[[Catégorie:Page utilisant le modèle Autorité avec un paramètre erroné]]'
end
return 'L\'identifiant ' .. id .. ' "' .. rawValue .. '" n\'est pas valide.' .. cat
end
end

local function getIdsFromWikidata( entity, property )
local ids = {}
for _, statement in ipairs(mw.wikibase.getBestStatements(entity, property)) do
if type( statement.mainsnak.datavalue ) == 'table' then
table.insert( ids, statement.mainsnak.datavalue.value )
end
end
return ids
end

local BiblioNat = "Bibliothèque nationale"
--In this order: name of the parameter, label, propertyId in Wikidata, formatting function

-- optionally, a named parameter "condition" that is a predicate function with the entity object as a parameter
-- this function specifies conditions on which the identifier url should be shown, for example only if a person is dead
local conf = {
{ 'VIAF', 'VIAF', 214, viafUrl },
{ 'ISNI', 'ISNI', 213, isniUrl },
{ 'BNF', {'BnF', 'données' }, 268, bnfUrls },
{ 'AN', 'Archives nationales (France)', 3599, archivesnationalesUrl },
{ 'SUDOC', 'IdRef', 269, sudocUrl },
{ 'LCCN', 'LCCN', 244, lccnUrl },
{ 'GND', 'GND', 227, gndUrl },
{ 'SBN', 'Italie', 396, sbnUrl },
{ 'NDL', 'Japon', 349, ndlUrl },
{ 'CINII', 'CiNii', 271, ciniiUrl },
{ 'BNE', 'Espagne', 950, bneUrl },
{ 'KBR', 'Belgique', 11249, kbrUrl },
{ 'NTA', 'Pays-Bas', 1006, ntaUrl },
{ 'NLP1', 'Pologne', 1695, nlpUrl, condition = function(entity)
-- affichage de l’ancien identifiant uniquement si le nouvel identifiant n’est pas renseigné
return wd.getClaims{entity = entity, property = 'P7293'} == nil
end }, --ancien identifiant
{ 'NLP', 'Pologne', 7293, nlpUrl }, --nouvel identifiant
{ 'NLI', 'Israël', 8189, nliUrl },
{ 'NUKAT', 'NUKAT', 1207, nukatUrl },
{ 'CATAL', 'Catalogne', 9984, catalUrl, 1273 },
{ 'SELIBR', 'Suède', 906, selibrUrl },
-- { 'RERO', 'Réseau des bibliothèques de Suisse occidentale', 3065, reroUrl },
{ 'BAV', 'Vatican', 8034, bavUrl },
{ 'LAC', 'Canada', 1670, idCanadia },
{ 'NLA', 'Australie', 409, nlaUrl },
--{ 'BAnQa', 'Bibliothèque nationale du Québec', 3280, idBAnQa }, -- pour les auteurs -- à activer si BAnQ crée un espace dédié sur son site web.
{ 'BIBSYS', 'Norvège', 1015, bibsysUrl },
--{ 'N6I', 'Bibliothèque nationale d’Irlande', 1946, n6iUrl }, -- propriété supprimé de wikidata, ne concerne pas les auteurs, voir https://www.wikidata.org/wiki/Wikidata:Requests_for_deletions/Archive/2019/Properties/1#P1946_(P1946)
{ 'NSK', 'Croatie', 1375, nskUrl },
{ 'RSL', 'Russie', 947, rslUrl },
{ 'NKC', 'Tchéquie', 691, nkcUrl },
{ 'BAnQo', 'Québec', 1823, idBAnQo }, --pour les ouvrages
--{ 'DBC', 'Danemark', 3846, idDbc }, -- à activer si DBC crée un espace dédié sur son site web.
{ 'BNCHL', 'Chili', 1966, idBnchl },
{ 'PTBNP', 'Portugal', 1005, idPtbnp },
{ 'LNB', 'Lettonie', 1368, idLnb },
{ 'BNL', 'Luxembourg', 7028, idBNL },
{ 'BLBNB', 'Brésil', 4619, blbnbUrl },
{ 'NLG', 'Grèce', 3348, nlgUrl },
--{ 'NSZL', BiblioNat .. ' de Hongrie', 951, nszlUrl }, -- à activer si NSZL crée un espace dédié sur son site web.
{ 'LTI', 'LTI', 4760, ltiUrl },
{ 'KRNLK', 'Corée du Sud', 5034, krnlkUrl },
{ 'BN', 'Argentine', 1143, bnaUrl },
{ 'BNS', 'Suisse', 1255, bnsUrl },
{ 'ARBABN', 'Argentine', 3788, arbabnUrl },
-- La bibliothèque d'Arménie fournit 3 sites web différents pour 3 types de documents différents Livre, Personne et ouvrage)
{ 'NLABOOK', 'Arménie', 9398, nlaBookUrl },
{ 'NLAPERS', 'Arménie', 8833, nlaPersUrl },
{ 'NLARES', 'Arménie', 9147, nlaResUrl },
{ 'WORLDCATID', 'WorldCat Id', 7859 , idworldcat },
{ 'OCLC', 'WorldCat', 243, idOclc },
{ 'GLOTTOLANG', 'Glottocode', 1394 , glottoUrl },

----***********************************************************************************************************************
--- ajouter ici les nouvelles références (appels des fonctions construisant les URL)
----***********************************************************************************************************************
}

local p = {}

function p.authorityControl( frame )
local args = Outils.extractArgs(frame)

--Build a map of valid local arguments
local goodArgs = {}
for _, params in ipairs( conf ) do
goodArgs[params[1]] = true
end
goodArgs.entity = true
goodArgs.id = true
goodArgs.wikidata = true

local hasLocalArgs = false
local hasInvalidArgs = false
for name, value in pairs( args ) do
if name ~= 'id' and name ~= 'wikidata' and name ~= 'entity' then --"entity" parameter doesn't add to category
hasLocalArgs = true
end
if not goodArgs[name] then
hasInvalidArgs = true
end
end

local entityArg = Outils.validTextArg(args , 'id', 'wikidata', 'entity')

local entity -- The entity id string variable
if entityArg then
if entityArg ~= '-' then
entity = entityArg:upper()
else
entity = nil
end
else
entity = mw.wikibase.getEntityIdForCurrentPage() -- (if nil, no entity for current page )
end

if entity then
for _, params in ipairs( conf ) do
if params[3] ~= 0 then
local val = args[params[1]]
if not val or val == '' then
local wikidataIds = getIdsFromWikidata( entity, 'P' .. params[3] )
if wikidataIds[1] then
args[params[1]] = wikidataIds[1]
elseif params[5] ~= nil and params[5] ~= 0 then
wikidataIds = getIdsFromWikidata( entity, 'P' .. params[5] )
if wikidataIds[1] then
args[params[1]] = wikidataIds[1]
end
end
end
end
end
end

--Create rows
local elements = {}

--compteur utilisé pour les références aujouté dans le module "autorité". Ce nombre est <= à nbMaxReferenceParPage
local nbReferenceValide = 0
--Configured rows
for _, params in ipairs( conf ) do
--l'id OCLC (ou WORLDCATID) est affiché en dernier par le code spécifique WorldCat en dehors de cette boucle.
if params[1] ~= 'OCLC' and params[1] ~= 'WORLDCATID' then
local val = args[params[1]]
if val and val ~= '' and nbReferenceValide < nbMaxReferenceParPage then
local show_authority = params["condition"] or function() return true end
if show_authority(entity) then
elements[#elements+1] = createRow( params[1], params[2], val, params[4](val) )
nbReferenceValide = nbReferenceValide+1
end
end
end
end

--Worldcat
if args['WORLDCATID'] and args['WORLDCATID'] ~= '' then
if args['WORLDCATID'] ~= '-' then
elements[#elements+1] = createRow( 'WORLDCATID', 'WorldCat', args['WORLDCATID'], idworldcat(args['WORLDCATID']) ) -- avec vérification de la validité du paramètre.
end
elseif args['LCCN'] and args['LCCN'] ~= '' then
local lccnParts = splitLccn( args['LCCN'] )
if lccnParts and lccnParts[1] ~= 'sh' then
elements[#elements+1] = createRow( 'LCCN', 'WorldCat', args['LCCN'], 'http://www.worldcat.org/identities/lccn-' .. lccnParts[1] .. lccnParts[2] .. '-' .. lccnParts[3] ) -- L'éventuelle invalidité de la valeur du paramètre aurait déjà déclenché un message d'erreur plus haut lors de l'affichage du lien « Bibliothèque du Congrès ».
end
elseif args['OCLC'] and args['OCLC'] ~= '' then
elements[#elements+1] = createRow( 'OCLC', 'WorldCat', args['OCLC'], idOclc(args['OCLC']) )
end

local entityInfo = ''
if entityArg and entityArg ~= '-' and entity ~= mw.wikibase.getEntityIdForCurrentPage() then --Has "entity" parameter
local label = mw.wikibase.getLabel(entity)
local link = wd.siteLink(entity)
if label then
if link then
entityInfo = ' (pour [[' .. link .. '|' .. label .. ']])'
else
entityInfo = ' (pour ' .. label .. ')'
end
elseif link then
entityInfo = ' (pour [[' .. link .. ']])'
end
end

if #elements == 0 then
return '[[Catégorie:Page utilisant le modèle Autorité inactif]]'
end

local cats = "[[Catégorie:Article de Wikipédia avec notice d'autorité]]"
if hasLocalArgs then
cats = cats .. '[[Catégorie:Page utilisant le modèle Autorité avec un paramètre local]]'
end
if hasInvalidArgs then
cats = cats .. '[[Catégorie:Page utilisant le modèle Autorité avec un paramètre invalide]]'
end

local title = wd.addLinkBack("[[Autorité (sciences de l'information)|Notices d'autorité]]" .. entityInfo, entity, "identifiers")
local elementsHtml = mw.html.create('div')
:addClass('liste-horizontale')
:wikitext(title .. ' : ')
:tag('ul')
for _, element in pairs(elements) do
elementsHtml:tag('li'):wikitext(element):done():wikitext(' ')
end

return tostring(elementsHtml:allDone()) .. cats
end

return p

Module:Correction syntaxique

2024-09-20T14:12:29Z

Jaggerwock : Page créée avec « local p = {} local function sanitize(text) return mw.text.nowiki(tostring(text):gsub('\n', ' ↲ ')) end local function _verif(passed_args, modele_args, cat) local rv = "" local nombre = 0 for a,b in pairs(passed_args) do if (modele_args[a] == nil and b ~= "") then nombre = nombre + 1 rv = rv .. 'L’argument ' .. sanitize(a) .. " (valeur " .. sanitize(b) .. ") n’existe p... »

local p = {}

local function sanitize(text)
return mw.text.nowiki(tostring(text):gsub('\n', ' ↲ '))
end

local function _verif(passed_args, modele_args, cat)
local rv = ""
local nombre = 0
for a,b in pairs(passed_args) do
if (modele_args[a] == nil and b ~= "") then
nombre = nombre + 1
rv = rv ..
'L’argument ' ..
sanitize(a) ..
" (valeur " ..
sanitize(b) ..
") n’existe pas dans le modèle appelé"
end
end
if (nombre > 0) then
local categorie
if (cat) and (cat ~= "") then
categorie = tostring(mw.title.new(cat, "Catégorie"))
else
categorie = "Catégorie:Page appelant un modèle avec un paramètre inconnu"
end
if (nombre > 10) then
rv = rv .. "[[" .. categorie .. "|+]]"
else
rv = rv .. "[[" .. categorie .. "]]"
end
end
return rv
end

function p.verif( passed_args, modele_args_list, cat )
local modele_args = {}
for i, v in ipairs( modele_args_list ) do
if tonumber( v ) then
modele_args[ tonumber( v ) ] = true
else
modele_args[ v ] = true
end
end
return _verif( passed_args, modele_args, cat )
end

function p.verifierLesArguments(frame)
local passed_args = frame:getParent().args
local modele_args = frame.args
local cat = modele_args["_catégorie"]
return _verif(passed_args, modele_args, cat)
end

return p

Module:Biblio/Ouvrage

2024-09-20T14:12:05Z

Jaggerwock : Page créée avec « local Ouvrage = { } local Commun = require( 'Module:Biblio/Commun' ) local References = require( 'Module:Biblio/Références' ) local Nombre2texte = require( 'Module:Nombre2texte' ) local TableBuilder = require( 'Module:TableBuilder' ) local Langue = require( 'Module:Langue' ) function Ouvrage.chapitre( args ) -- validArg renvoie le premier paramètre non vide, ou nil s'ils sont tous vides. -- Seul les noms des paramètres doivent être transmis à la fonct... »

local Ouvrage = { }

local Commun = require( 'Module:Biblio/Commun' )
local References = require( 'Module:Biblio/Références' )
local Nombre2texte = require( 'Module:Nombre2texte' )
local TableBuilder = require( 'Module:TableBuilder' )
local Langue = require( 'Module:Langue' )

function Ouvrage.chapitre( args )
-- validArg renvoie 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 Commun.validTextArg( args, ... ) end

-- titreChap est un paramètre différent de ceux du modèle ouvrage pour utiliser le même programme
args.numChap = validArg( 'numéro chapitre' )
args.titreChap = validArg( 'titre chapitre', 'chap', 'titre', 'title', 'Titel' )
if args.titre == args.titreChap then
args.titre = false
end
args.titre = validArg( 'titre ouvrage', 'ouvrage', 'titre', 'title', 'Titel') or false
args['numéro chapitre'] = false
args['titre chapitre'] = false
args['traduction titre chapitre'] = validArg( 'traduction titre chapitre') or nil
args.chap = false
args['sous-titre chapitre'] = validArg( 'sous-titre chapitre', 'sous-titre' ) or false
args['sous-titre'] = validArg( 'sous-titre ouvrage', 'sous-titre' )
if args['sous-titre chapitre'] == args['sous-titre'] then
args['sous-titre'] = false
end
args['lien titre'] = validArg( 'lien titre ouvrage', 'lien titre' )
local preface = validArg( 'préface' )
local auteurOuvrage = validArg( 'auteurs ouvrage', 'auteur ouvrage' )
if preface and auteurOuvrage then
args['auteurs ouvrage'] = ( validArg( 'auteurs ouvrage', 'auteur ouvrage' ) or '' ) .. ' (préf. ' .. preface .. ')'
args['préface'] = ''
end
return Ouvrage.ouvrage( args, true )
end

function Ouvrage.ouvrage( args, chapitre )
-- La table wiki va recevoir tout les petits bouts de texte, et sera concaténée à la fin.
-- Elle utilise la meta-table de TableBuilder, permettant d'utiliser les fonctions de la
-- librairie table comme des méthodes. minsert permet d'insérer plusieurs éléments en une
-- seule fois en, ignorant les paramètres nil.
local wiki = TableBuilder.new()

-- validArg renvoie 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 Commun.validTextArg( args, ... ) or false end
local genre = ( chapitre and 'chapitre' ) or 'ouvrage'

--Table servant à la catégorisation
args.categ = {}

local modeNormal = not validArg( 'nocat' )

-- Clarification des paramètres nécessaires pour les COinS
args.titre = validArg( 'titre', 'title', 'Titel' )
args['pages totales'] = validArg( 'pages totales', 'pages' )
args.pages = ''
local lienExternes = validArg( 'lire en ligne', 'url texte', 'url', 'texte', 'Online' )
if args.format and not args['format électronique'] and lienExternes and string.match( args.format,"pdf" ) then
args['format électronique'] = args.format
args.format = false
end

-- span initial (id) et libellé
local spanInitial, spanFinal = Commun.spanInitial ( args, validArg )
wiki.minsert( spanInitial, Commun.libelle( args ) )

-- Indication de langue
local indicLangue, codeLangue = Commun.indicationDeLangue ( args, validArg )
local dir, attributsLangue -- attention, la variable "dir" est aussi utilisée à la fin du code
if indicLangue and indicLangue ~= '' then
wiki.minsert( indicLangue, ' ' )
if codeLangue then
dir = Langue.directionLangue( codeLangue )
if dir == 'rtl' then
attributsLangue = ' lang="' .. codeLangue .. '" dir="rtl"'
else
dir = nil
attributsLangue = ' lang="' .. codeLangue .. '"'
end
end
end

-- Liste des auteurs et de leurs responsabilités (principales et secondaires)
local auteur = validArg( 'nom1', 'nom', 'auteur1', 'auteur', 'auteurs', 'auteur institutionnel', 'last1', 'last', 'author1', 'author', 'Autor' )
if auteur then
if validArg( 'auteurs' ) then
wiki.minsert( args.auteurs )
else
wiki.minsert( Commun.responsabilitePrincipale( args, validArg ) )
end
local coauteur = validArg( 'co-auteur', 'coauteurs', 'coauteur', 'coauthors' )
if coauteur then
wiki.minsert( ', ', coauteur )
end
wiki.minsert( Commun.responsabiliteSecondaire( args, validArg ), ', ' )
end

-- Pour le modèle chapitre : affichage du chapitre
if chapitre then
if args.numChap then
wiki.minsert( Commun.chap, args.numChap, ' ' )
end
if args.titreChap then
wiki.minsert( '<cite style="font-style:normal"', attributsLangue, '>« ', args.titreChap )
if args['sous-titre chapitre'] then
wiki.minsert( ' : ', args['sous-titre chapitre'] )
end
wiki.minsert( ' »' )
if args["traduction titre chapitre"] then
wiki.minsert(' [« ', args["traduction titre chapitre"],' »]')
end
wiki.minsert( '</cite>' )
elseif modeNormal then
wiki.minsert( '[[Modèle:Chapitre|{{Chapitre}}]] : paramètre <code>titre chapitre</code> manquant' )
args.categ.titreChapitre = true
end

wiki.minsert( ', dans ' )

local auteurOuvrage = validArg( 'auteurs ouvrage', 'auteur ouvrage' )
if auteurOuvrage then
wiki.minsert( auteurOuvrage, ', ' )
end
end

-- Titre
if args.titre then
local titre, sousTitre = args.titre, validArg( 'sous-titre' )
-- retrait italique, ne doit normalement pas être mis mais l'erreur est très fréquente
titre = titre:gsub( "^''%f[^'](.+)%f[']''$", "%1" )
if sousTitre then
-- retrait italique, erreur moins fréquente avec les sous-titres mais autant être consistant
sousTitre = sousTitre:gsub( "^''%f[^'](.+)%f[']''$", "%1" )
titre = titre .. ' : ' .. sousTitre
end
titre = Commun.fusionTexteLien( titre, args['lien titre'], args.categ )
local graphie = ' class="italique"'
if Langue.nonLatin( titre ) then
graphie = ' style="font-style:normal"'
end
wiki.minsert( '<cite', graphie, attributsLangue, '>', titre, '</cite>' )

elseif modeNormal then
if chapitre then
args.categ.titreOuvrage = true
if args.categ.titreChapitre then
wiki.minsert( 'paramètre <code>titre ouvrage</code> manquant' )
else
wiki.minsert( '[[Modèle:Chapitre|{{Chapitre}}]] : paramètre <code>titre ouvrage</code> manquant' )
end
else
args.categ.titre = true
wiki.minsert( '[[Modèle:Ouvrage|{{Ouvrage}}]] : paramètre <code>titre</code> manquant' )
end
end

-- Titre original et traducteur
local original = validArg( 'titre original', 'titre vo')
local traduction_titre = validArg('traduction titre')

if original and original ~= args.titre then
if validArg( 'langue originale' ) then
wiki.minsert( ' [« ', Langue.langue{ args['langue originale'], original }, ' »]' )
else
wiki.minsert( ' [« ', original, ' »]' )
end
end
if traduction_titre then
wiki.minsert( ' [« ', traduction_titre, ' »]' )
end

if not auteur then
local responsabiliteSecondaire = Commun.responsabiliteSecondaire( args, validArg )
if responsabiliteSecondaire then
wiki.minsert( ' ', responsabiliteSecondaire )
end
end

-- Volume, tome
local volume = validArg( 'volume', 'vol', 'Band' )
if volume then
wiki.minsert( ', ', Commun.vol, volume )
end
local tome = validArg( 'tome' )
if tome then
wiki.minsert( ', ', Commun.tome, tome )
end
local titreVolTome = validArg( 'titre volume', 'titre tome' )
if titreVolTome then
if volume or tome then
wiki.minsert( ' : ' )
else
wiki.minsert( ', ' )
end
if codeLangue then
wiki.minsert( Langue.langue{ codeLangue, titreVolTome, class='italique' } )
else
wiki.minsert( '', titreVolTome, '' )
end
local tradTitreVolTome = validArg( 'traduction titre volume', 'traduction titre tome' )
if tradTitreVolTome then
wiki.minsert( ' [« ', tradTitreVolTome, ' »]' )
end
end

-- Nature du document et établissement (pour les thèses...)
local nature = validArg( 'nature ouvrage' )
if nature then
wiki.minsert( ' (', nature, ')')
end
local etablissement = validArg( 'établissement' )
if etablissement then
wiki.minsert( ', ', etablissement )
end

-- Lieu et éditeur
local lieu = validArg( 'lieu', 'location', 'Ort' )
if lieu then
wiki.minsert( ', ', lieu )
end
local editeur = validArg( 'éditeur', 'édition', 'editeur', 'edition', 'publisher', 'Verlag' )
if editeur then
local lienEditeur = validArg( 'lien éditeur' )
wiki.minsert( ', ', Commun.fusionTexteLien( editeur, lienEditeur, args.categ ) )
end

-- Collecion et numéro
local collection = validArg( 'collection', 'series' )
if collection then
wiki.minsert( ', ', Commun.coll, '« ', collection )
local serie = validArg( 'série' )
if serie then
wiki.minsert( ' / ', serie )
end
wiki.minsert( ' »' )
end
local numeroCollection = validArg( 'numéro dans collection', 'numéro dans la collection' )
if numeroCollection then
wiki.minsert( ' (', Commun.numero, numeroCollection, ')' )
end

-- Date, réimpression et éditions
local annee = validArg( 'année', 'date', 'year', 'Datum', 'Jahr' )
if annee then
local lrm
if Langue.nonLatin( wiki.concat() ) then
lrm = '&lrm;'
end
wiki.minsert( ',', lrm, ' ', Commun.inscriptionDate( args ) )
-- le &lrm est une marque de texte gauche à droite, utile si le texte qui précède est en droite à gauche (arabe, hébreux...)
end
local publi = validArg( 'réimpression', 'publi' )
if publi then
wiki.minsert( ' (', Commun.reimpr, publi, ')' )
end
local numeroEdition = validArg( "numéro d'édition", "numéro édition" )
if numeroEdition then
wiki.minsert( ', ', Nombre2texte.ordinal( numeroEdition, true ), Commun.ed )
end
local premiereEdition = validArg( 'année première édition', 'origyear' )
if premiereEdition then
wiki.minsert( ' (', Commun.premiere, Commun.ed, ' ', premiereEdition, ')' )
end

-- Pages et format
local pages = validArg( 'pages totales', 'pages' )
if pages then
wiki.minsert( ', ', Commun.formatePagesTotales( pages ) )
end
local format = validArg( 'format livre', 'format' )
if format then
wiki.minsert( ', ', format )
end

-- Références
local reference = validArg( 'référence' )
if reference then
wiki.minsert( ' ', Commun.detailEditions( reference ) )
end
local refSimple = validArg( 'référence simplifiée', 'ref' )
if refSimple then
wiki.minsert( ' ', Commun.detailEdition( refSimple ) )
end

-- Lien vers l'ouvrage en ligne (isbn, issn, pmid, doi, lire en ligne, résumé...)
wiki.minsert( References.affichageLiensExternes( args, validArg, true, false ) )
-- consulté le n'est plus affiché, voir [[Discussion_modèle:Ouvrage#Évolution documentation]]

-- Précision sur le passage concerné
local partie = validArg( 'partie' )
if partie then
if partie:match( '^[%dIVXLCM]+$' ) then
wiki.minsert( ', partie ', partie )
elseif partie:match( '^[ivxlcmIVXLCM]+$' ) then
wiki.minsert( ', partie ', Commun.romain( partie ) )
else
wiki.minsert( ', ', partie )
end
end
local numeroChapitre = validArg( 'numéro chapitre', 'numéro' )
if numeroChapitre then
wiki.minsert( ', ', Commun.chap, numeroChapitre )
end
local titreChapitre = validArg( 'titre chapitre', 'chap', 'chapitre', 'chapter' )
if titreChapitre then
if numeroChapitre then
titreChapitre = ' (« ' .. titreChapitre .. ' »)'
else
titreChapitre = ', « ' .. titreChapitre .. ' »'
end
if codeLangue then
titreChapitre = Langue.langue{ codeLangue, titreChapitre }
end
wiki.minsert( titreChapitre )
local tradTitreChap = validArg( 'traduction titre chapitre' )
if tradTitreChap then
wiki.minsert( ' [« ', tradTitreChap, ' »]' )
end
end
local passage = validArg( 'passage', 'page' )
if passage then
wiki.minsert( ', ', Commun.formatePassage( passage ) )
end

-- Ajout des méthadonnées COinS (ContextObjects in Spans)
wiki.minsert( Commun.COinS( args, validArg, genre ) )

-- Fin du span (id) et de la description de l'ouvrage
wiki.minsert( spanFinal )

-- Plume "Ouvrage utilisé pour la rédaction de l'article"
if validArg( 'plume' ) then
local patternPonct = '[,.;:!?]$'
local ponctuation = wiki.concat():gsub( '%b<>', '' ):match( patternPonct )
if not ponctuation then
wiki.minsert( '.' )
end
wiki.minsert( Commun.plume )
end

-- Citation et commentaire de cet ouvrage
local citation = validArg( 'extrait', 'citation' )
if citation then
if codeLangue then
citation = Langue.lang{ codeLangue, citation }
end
wiki.minsert( ' :<blockquote>« ', citation, ' »</blockquote>' )
end

wiki.minsert( Commun.commentaire( args ) )

local namespaceCategorisation = { [0] = true, [4] = true, [10] = true, [12] = true, [14] = true, [100] = true, [104] = true }
if namespaceCategorisation[ mw.title.getCurrentTitle().namespace ] and modeNormal then
wiki.minsert(
args.categ.langue and '[[Catégorie:Page du modèle Ouvrage comportant une erreur|langue]]',
args.categ.titre and '[[Catégorie:Page du modèle Ouvrage comportant une erreur|titre]]',
args.categ.titreChapitre and '[[Catégorie:Page du modèle Chapitre comportant une erreur|Chapitre]]',
args.categ.titreOuvrage and '[[Catégorie:Page du modèle Chapitre comportant une erreur|Ouvrage]]',
args.categ.lienExterne and '[[Catégorie:Page du modèle Ouvrage comportant une erreur|Externe]]',
args.categ.isbnInvalid and '[[Catégorie:Page avec ISBN invalide]]',
args.categ.issnInvalid and '[[Catégorie:Page avec ISSN invalide]]',
args.categ.eanInvalid and '[[Catégorie:Page avec EAN invalide]]'
)
if dir then
wiki.minsert( '[[Catégorie:Recension temporaire pour le modèle Ouvrage|rtl]]' )
end
end

return wiki.concat()
end

return Ouvrage

Module:Biblio/Lien web

2024-09-20T14:11:37Z

Jaggerwock : Page créée avec « local Lien = { } local Commun = require( 'Module:Biblio/Commun' ) local References = require( 'Module:Biblio/Références' ) -- Si un concat est effectué pendant les traitements, -- permet de réutiliser ensuite son résultat, au lieu de refaire un concat complet à la fin des traitements. local function intermediateConcat( array ) local state = table.concat( array ) array[ 1 ] = state for i = 2, #array do array[ i ] = nil end return state end local... »

local Lien = { }

local Commun = require( 'Module:Biblio/Commun' )
local References = require( 'Module:Biblio/Références' )

-- Si un concat est effectué pendant les traitements,
-- permet de réutiliser ensuite son résultat, au lieu de refaire un concat complet à la fin des traitements.
local function intermediateConcat( array )
local state = table.concat( array )

array[ 1 ] = state
for i = 2, #array do
array[ i ] = nil
end

return state
end

local function formatLien( args, dead )
-- La table wiki va recevoir tous les petits morceaux de texte, et sera concaténée à la fin.
local wiki = {}

-- permet d'écrire "insert( value )" au lieu de "wiki[#wiki+1] = value"
local function insert( value )
wiki[#wiki+1] = value
end

local modele = '[[Modèle:Lien web|{{Lien web}}]]'
if dead then
modele = '[[Modèle:Lien brisé|{{Lien brisé}}]]'
end

-- validArg renvoie le premier paramètre non vide, ou nil s'ils sont tous vides.
-- Seuls les noms des paramètres doivent être transmis à la fonction.
local function validArg( ... )
return Commun.validTextArg( args, ... )
end

-- Variables servant à la catégorisation
args.categ = {}
if validArg( 'dead-url', 'deadurl', 'brisé le', 'lien brisé' ) then
dead = true
end

-- Span initial, id
local spanInitial, spanFinal = Commun.spanInitial( args, validArg )
insert( spanInitial )

-- libellé
insert( Commun.libelle( args ) or nil )

-- indication de langue
local indicLangue, codeLangue = Commun.indicationDeLangue( args, validArg )
if indicLangue and indicLangue ~= '' then
insert( indicLangue .. ' ' )
end

-- Liste des auteurs et de leurs responsabilités (principales et secondaires)
local auteur = validArg( 'nom1', 'nom', 'auteur1', 'auteur', 'auteurs', 'auteur institutionnel', 'last1', 'last', 'author1', 'author' )
if auteur then
if validArg( 'auteurs' ) then
insert( args.auteurs )
else
insert( Commun.responsabilitePrincipale( args, validArg ) or nil )
end
local coauteur = validArg( 'co-auteur', 'coauteurs', 'coauteur', 'coauthors' )
if coauteur then
insert( ', ' .. coauteur )
end
insert( Commun.responsabiliteSecondaire( args, validArg ) or nil )
insert( ', ' )
end

local url = validArg( 'url', 'lire en ligne', 'url texte', 'lien' )
local archiveUrl = validArg( 'archive-url', 'archiveurl' )
local titre = validArg( 'titre', 'title' )
local description = validArg( 'description' )
-- url
if url then
-- remplacement des crochets et espaces par leur équivalent HTML
url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' ):gsub( ' ', '%%20' )
-- ajout http:// si nécessaire :
if not ( url:match( '^https?://' ) or url:match( '^ftp://' ) or url:match( '^//' ) ) then
url = 'http://' .. url
end
if dead or archiveUrl then
insert( '' )
end
elseif not validArg( 'pmid', 'pmcid', 'doi', 'jstor', 'bibcod', 'math reviews', 'zbl', 'zbmath', 'arxiv' ) then
args.categ.url = true
end

-- titre
if titre then
-- suppression des retours ligne éventuels, sinon MediaWiki ne reconnaît pas le lien externe
-- et remplacement des crochets par leur équivalent HTML (uniquement le crochet de fermeture)
titre = titre:gsub( '\n', ' ' ):gsub( '%]', ']' )

-- on teste d'abord si titre contient déjà des guillemets
local lQuote = '« '
local rQuote = ' »'
if titre:match( '^«.+»$' ) then
lQuote = ''
rQuote = ''
end

-- par précaution, ne pas modifier la valeur de la variable locale "titre"
local sousTitre = validArg( 'sous-titre' )
if sousTitre then
sousTitre = ' : ' .. sousTitre
else
sousTitre = ''
end

local attributStyle = ' style="font-style:normal;"'
if dead and not archiveUrl then
attributStyle = ' style="font-style:normal; color:var(--color-link-red, #d73333);"'
end

local attributLang = ''
if codeLangue then
attributLang = ' lang="' .. codeLangue .. '"'
end

insert( lQuote )
if url then
insert( '[' .. url .. ' ' )
end
insert( '<cite' .. attributStyle .. attributLang .. '>' )
insert( titre .. sousTitre )
insert( '</cite>' )
if url then
insert( ']' )
end
insert( rQuote )

-- traduction titre
local traductionTitre = validArg( 'traduction titre' )
if traductionTitre and traductionTitre ~= args.titre then
insert( ' [« ' .. traductionTitre .. ' »]' )
end
if description then
insert( ', ' .. description )
end
elseif description then
if url then
insert( '[' .. url .. ' ' )
end
if dead and not archiveUrl then
insert( '' )
insert( description )
insert( '' )
else
insert( description )
end
if url then
insert( ']' )
end
else
args.categ.titre = true
if url then
insert( '[' .. url .. ']' )
end
end

-- message d'erreur
if args.categ.url or args.categ.titre then
local absent = { }
if args.categ.url then
table.insert( absent, '« <code>url</code> »' )
end
if args.categ.titre then
table.insert( absent, '« <code>titre</code> »' )
end
table.insert( wiki, 1, 'Modèle '
.. modele .. ' : paramètre' .. ( #absent > 1 and 's ' or ' ' )
.. mw.text.listToText( absent ) .. ' manquant' .. ( #absent > 1 and 's' or '' )
.. '.&ensp;'
)
end

-- liens archives pour les liens brisés
if url and dead and not archiveUrl then
insert( '('
.. '[https://web.archive.org/web/*/' .. url .. ' Archive.org] • '
.. '[https://archive.wikiwix.com/cache/?url=' .. url .. ' Wikiwix] • '
.. '[https://archive.is/' .. url .. ' Archive.is] • '
.. '[https://webcache.googleusercontent.com/search?hl=fr&q=cache:' .. url .. ' Google] • '
.. '[[Projet:Correction des liens externes#J\'ai trouvé un lien mort, que faire ?|Que faire ?]]'
.. ')'
)
elseif archiveUrl then
if not ( archiveUrl:match( '^http' ) or archiveUrl:match( '^//' ) ) then
archiveUrl = 'http://' .. archiveUrl
end
local textArchive = 'archive'
local dateArchive = validArg( 'archive-date', 'archivedate' )
if dateArchive then
dateArchive = Commun.inscriptionDate{ date = dateArchive }
if dateArchive and dateArchive ~= '' then
textArchive = textArchive .. ' du ' .. dateArchive
end
end
insert( ' [[' .. archiveUrl .. ' ' .. textArchive .. ']]' )
end
if url and ( dead or archiveUrl ) then
insert( '' )
end

-- affichage de l'icône du niveau d'accès à l'information
local paywall = validArg( 'accès url' )
if paywall then
local suffixeIcone = References.indicationIconeAcces( paywall )
if suffixeIcone and suffixeIcone ~= '' then
insert( suffixeIcone )
else
table.insert( wiki, 1, 'Modèle '
.. modele .. ' : paramètre « <code>accès url</code> » utilisé avec la valeur <code>'
.. paywall .. '</code> inconnue.&ensp;'
)
end
end

-- format
local indicationDeFormat = References.indicationDeFormat( validArg( 'format électronique', 'format' ) )
if indicationDeFormat and indicationDeFormat ~= '' then
insert( indicationDeFormat )
end

-- Nature du document
local nature = validArg( 'nature document' )
if nature then
insert( ' (' .. nature .. ')' )
end

-- série, site, éditeur
local serie = validArg( 'série', 'work' )
if serie then
insert( ', ' .. serie .. '' )
args.categ.work = validArg( 'work' ) -- il y a ambiguïté sur l'utilisation de ce paramètre
end
local site = validArg( 'site', 'website' )
if site then
insert( ', sur ' .. site .. '' )
end
local periodique = validArg( 'périodique' )
if periodique then
insert( ', ' .. periodique .. '' )
end
local lieu = validArg( 'lieu', 'lieu édition', 'location' )
if lieu then
insert( ', ' .. lieu )
end
local editeur = validArg( 'éditeur', 'publisher', 'editeur' )
if editeur then
local lienEditeur = validArg( 'lien éditeur' )
if lienEditeur then
insert( ', [[' .. lienEditeur .. '|' .. editeur .. ']]' )
else
insert( ', ' .. editeur )
end
end

-- date
if validArg( 'année', 'date', 'year', 'en ligne le', 'en ligne' ) then
args.categ.enLigneLe = validArg( 'date' ) and validArg( 'en ligne le' ) and args.date ~= args['en ligne le']
args.date = validArg( 'date', 'en ligne le', 'en ligne' )
local dateFormatee = Commun.inscriptionDate( args )
if dateFormatee and dateFormatee ~= '' then
local Langue = require( 'Module:Langue' )
local lrm = ''
if Langue.nonLatin( intermediateConcat( wiki ) ) then
lrm = '&lrm;'
end
insert( ',' .. lrm .. ' ' .. dateFormatee )
end
end

-- liens externes (isbn, doi...) et "consulté le" entre parenthèses, et en plus petit, sauf en note
local liensExternes = References.affichageLiensExternes( args, validArg, false, true )
if liensExternes and liensExternes ~= '' then
insert( liensExternes )
end

-- fin du span
insert( spanFinal )

-- citation et passage
local citation = validArg( 'citation', 'extrait', 'quote' )
if citation then
if codeLangue then
local Langue = require( 'Module:Langue' )
citation = Langue.lang{ codeLangue, citation }
end
insert( '\194\160: « ' .. citation .. ' »' )
end
local passage = validArg( 'page', 'pages', 'passage' )
if passage then
insert( ', ' .. Commun.formatePassage( passage ) )
end

-- Plume "Ouvrage utilisé pour la rédaction de l'article"
if validArg( 'plume' ) then
local patternPonct = '[,.;:!?] ?»?$'
local ponctuation = intermediateConcat( wiki ):gsub( '%b<>', '' ):match( patternPonct )
if not ponctuation then
insert( '.' )
end
insert( Commun.plume )
end

if mw.title.getCurrentTitle().namespace == 0 then
insert(
( args.categ.langue and '[[Catégorie:Page du modèle Lien web comportant une erreur|langue]]' or '' )
.. ( args.categ.url and '[[Catégorie:Page du modèle Lien web comportant une erreur|Url]]' or '' )
.. ( args.categ.titre and '[[Catégorie:Page du modèle Lien web comportant une erreur|titre]]' or '' )
.. ( args.categ.enLigneLe and '[[Catégorie:Page du modèle Lien web comportant une erreur|enLigneLe]]' or '' )
.. ( args.categ.isbnInvalid and '[[Catégorie:Page avec ISBN invalide]]' or '' )
.. ( args.categ.issnInvalid and '[[Catégorie:Page avec ISSN invalide]]' or '' )
)
end

if dead and not validArg( 'nocat' ) then
if mw.title.getCurrentTitle().namespace == 0 then
insert( '[[Catégorie:Article contenant un lien mort]]' )
else
insert( '[[Catégorie:Page contenant un lien mort]]' )
end
end

return table.concat( wiki )
end

function Lien.lienWeb( args )
return formatLien( args, false )
end

function Lien.lienBrise( args )
args.titre = Commun.validTextArg( args, 'titre', 'title', 'url', 'lire en ligne', 'url texte', 'lien' )
return formatLien( args, true )
end

return Lien

Module:Biblio/Commun

2024-09-20T14:11:16Z

Jaggerwock : Page créée avec « -- Les fonctions du module Biblio/Commun sont des éléments nécessaire au modules Biblio/Ouvrage, Biblio/Article, Biblio/Lien web. local Commun = {} local Date = require( 'Module:Date' ) local Langue -- = require( 'Module:Langue' ) ne sera chargé que si nécessaire local Languedata -- = mw.loadData( 'Module:Langue/Data' ) ne sera chargé que si nécessaire --[=[ Trouve le premier lien interwiki 'texte' de str et retourne : texte, lien Si le lie... »

-- Les fonctions du module Biblio/Commun sont des éléments nécessaire au modules Biblio/Ouvrage, Biblio/Article, Biblio/Lien web.

local Commun = {}

local Date = require( 'Module:Date' )
local Langue -- = require( 'Module:Langue' ) ne sera chargé que si nécessaire
local Languedata -- = mw.loadData( 'Module:Langue/Data' ) ne sera chargé que si nécessaire

--[=[
Trouve le premier lien interwiki '[[lien|texte]]' de str et retourne : texte, lien
Si le lien est '[[texte]]', retourne : texte, texte.
Si str ne contient pas de lien interwiki, retourne : str (et nil)
Les fichiers et images ne sont pas considérés comme des liens.
Si str n'est pas une chaine, retourne : nil
]=]
local function texteLien( str )
if type( str ) == 'string' then
for lien, texte in string.gmatch( str, '%[%[ *([^%[%]|]*)|? *([^%[%]]*)%]%]' ) do
texte = ( texte ~= '' and texte ) or lien or str
if not lien then
return str
end
local testlien = string.lower( lien )
local fichier = string.match( testlien, '^fichier:' )
or string.match( testlien, '^image:' )
or string.match( testlien, '^file:' )
if not fichier then
return texte, lien
end
end
return str
end
end

-- Copie de Outils.validTextArg sans trim, pour performances avec les paramètres nommés ?
-- refs [[Spécial:Diff/105796198]]
function Commun.validTextArg( args, name, ... )
local texte = args[name]
if type( texte ) == 'string' and texte ~= '' then
return texte
elseif #{ ... } > 0 then
return Commun.validTextArg( args, ... )
end
end

--[[
Génère une abréviation discrète
paramètres :
1 = abréviation,
2 = texte,
nbsp = '-' pour une espace insécable avant l'abréviation, '+' pour l'avoir après.
]]
local function abr( args )
return ( args.nbsp == '-' and ' ' or '' )
.. '<abbr class="abbr" title="' .. args[2] .. '">'
.. args[1]
.. '</abbr>'
.. ( args.nbsp == '+' and ' ' or '' )
end

-- 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{ 'no', 'numéro', nbsp='+' }
Commun.numeros = abr{ 'nos', 'numéros', nbsp='+' }
Commun.page = abr{ 'p.', 'page', nbsp='+' }
Commun.pages = abr{ 'p.', 'pages', nbsp='+' }
Commun['page(s)'] = abr{ 'p.', 'page(s)', nbsp='+' }
Commun.plume = '\194\160[[Fichier:Icon_flatdesign_plume.svg|20px|link=|alt=Ouvrage utilisé pour la rédaction de l\'article]]'
Commun.premiere = abr{ '1re', '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 '[[[' .. ref .. '|détail de l’édition]]]'
end

function Commun.detailEditions( ref )
return '[[[' .. ref .. '|détail des éditions]]]'
end

-- affiche le texte en nombre romain majuscule.
function Commun.romain( texte )
local a = ''
local b = ''
return a, texte, b
end

function Commun.fusionTexteLien( texte, lien, categ )
local categorisation, result
local message = '[le lien externe a été retiré]'
if lien and lien ~= '' then
if texte:match( '%[%[' ) then
result = Commun.fusionTexteLien( texte, nil, categ )
elseif lien:match( '^http' ) or lien:match( '//' ) then
lien = false
categorisation = true
result = texte .. message
else
result = string.format( '[[%s|%s]]', lien, texte )
end
else
--[=[ if texte:match( '//' ) then
result = texte:gsub( '%[https?://[^%[%] ]* *([^%]]+)%]', '%1' )
:gsub( '%[//[^%[%] ]* *([^%]]+)%]', '%1' )
if result ~= texte then
result = result .. message
categorisation = true
end
end ]=] -- désactivé pour le moment (peut être activé si quelqu'un est prêt à corriger les erreurs)
end
if categorisation and type( categ ) == 'table' then
categ.lienExterne = true
end
return result or texte
end

-- voir Modèle:Module biblio/span initial
function Commun.spanInitial( args, validArg )
local id = validArg( 'id' )
local id2

if id then
id = ' id="' .. id .. '"'
else
local nom = validArg( 'nom1', 'nom', 'last1', 'last', 'author' )
local prenom = validArg( 'prénom1', 'prénom', 'firt1', 'first' )
local postnom = validArg( 'postnom1', 'postnom' )
local auteur_i = validArg( 'auteur1', 'author1', 'auteur' )
local i = 1
local idTab, id2Tab = { }, { }

while nom or auteur_i do
if auteur_i and not nom then
-- tentative de séparation de l'auteur en prénom nom.
-- Enregistre le résultat dans args pour les COinS.
auteur_i = texteLien( auteur_i )
if auteur_i == '' then
break
end
local a1, a2, a3 = string.match( auteur_i, '^([^ ]+) *([^ ]*) *(.*)$' )
if a3 ~= '' then
local a2len = mw.ustring.len( a2 )
if a2len == 1 or ( a2len == 2 and mw.ustring.sub( a2, -1 ) == "." ) then
-- a1 est le prénom, a2 une initiale et a3 le nom
nom = a3
if i == 1 then
args.nom = a3
args['prénom'] = a1 .. ' ' .. a2
end
else
-- a2 peut être le deuxième prénon ou le début du nom
nom = a2 .. ' ' .. a3
end
elseif a2 ~= '' then
-- a1 prénom, a2 nom
nom = a2
if i == 1 then
args.nom = a2
args['prénom'] = a1
end
else
nom = a1
end
end
if not auteur_i then
if prenom and postnom then
auteur_i = prenom .. ' ' .. nom .. ' ' .. postnom
elseif prenom then
auteur_i = prenom .. ' ' .. nom
elseif postnom then
auteur_i = nom .. ' ' .. postnom
else
auteur_i = nom
end
end
table.insert( idTab, mw.uri.anchorEncode( nom ) )
table.insert( id2Tab, mw.uri.anchorEncode( auteur_i ) )

if i == 4 then
break
end
i = i + 1
nom = validArg( 'nom' .. i, 'last' .. i )
prenom = validArg( 'prénom' .. i, 'first' .. i )
postnom = validArg( 'postnom' .. i)
auteur_i = validArg( 'auteur' .. i, 'author' .. i )
end

if #idTab < 4 and validArg( 'auteur institutionnel' ) then
table.insert( idTab, mw.uri.anchorEncode( validArg( 'auteur institutionnel' ) ) )
table.insert( id2Tab, idTab[#idTab] )
end

local annee = validArg( 'année', 'year', 'date' )
if annee then
local t, d = Date.separationJourMoisAnnee( annee )
if t and d.annee and annee ~= d.annee then
annee = tostring( d.annee )
args['année'] = annee
if d.mois then
args.mois = validArg( 'mois' ) or tostring( d.mois )
end
if d.jour then
args.jour = validArg( 'jour' ) or tostring( d.jour )
end
elseif mw.ustring.find( annee, "%a" ) and annee:find( "%f[%d]%d%d%d%d%f[%D][a-h]?" ) then
-- le [a-h]? final est destiné à accepter les lettres ajoutées lorsqu'il y a plusieurs ouvrages d'un même auteur la même année (cf. [[:en:Template:Harvard citation no brackets#More than one work in a year]])
annee = annee:match( "%f[%d]%d%d%d%d%f[%D][a-h]?" )
end
annee = mw.uri.anchorEncode( tostring( annee ) )
table.insert( idTab, annee )
table.insert( id2Tab, annee )
end

if #idTab > 0 then
id = ' id="' .. table.concat( idTab ) .. '"'
id2 = ' id="' .. table.concat( id2Tab ) .. '"'
if id2 == id then
id2 = false
end
else
id = ''
end
end

local spaninitial, spanfinal
if id2 then
spaninitial = ''
spanfinal = ''
else
spaninitial = ''
spanfinal = ''
end
return spaninitial, spanfinal
end

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

-- voir Modèle:Commentaire biblio
function Commun.commentaire( args )
if args.commentaire and args.commentaire ~= '' then
local a = '<div style="margin-left:2em; line-height:1.5;">'
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' )

-- on essaie le code de langue complet (nécessaire pour les langues avec plusieurs mots comme "grec ancien")
local codeLangue = Langue.codeLangue2( lang )

if codeLangue == 'fr' or codeLangue:sub(1, 3) == 'fr-' then
return ''
elseif codeLangue ~= '' then
return Langue.indicationMultilingue{ codeLangue }, codeLangue
end

-- si la langue n'a pas été trouvée on considère qu'il y a plusieurs langues
-- séparation des langues s'il y en a plusieurs
local listeLangue = mw.text.split( lang, '[+,;:/ %.]+' )

-- code langue principal qui sera appliqué aux titres
codeLangue = Langue.codeLangue2( listeLangue[1] )

if codeLangue == '' then
if type( args.categ ) == 'table' then
args.categ.langue = true
end
return Langue.indicationMultilingue( listeLangue )
else
-- calcul code de langue et catégorie
local indicationLangue = Langue.indicationMultilingue( listeLangue )
if type( args.categ ) == 'table' then
args.categ.langue = indicationLangue:find( '???', 1, true )
end

if codeLangue ~= 'fr' and codeLangue:sub(1, 3) ~= 'fr-' then
return indicationLangue, codeLangue
elseif #listeLangue > 1 then
return indicationLangue, codeLangue
end
end
end
return ''
end

-- voir Modèle:Module biblio/responsabilité principale
function Commun.responsabilitePrincipale( args, validArg )

local nom = validArg( 'nom1', 'nom', 'last1', 'last' )
local auteur = validArg( 'auteur1', 'auteur', 'author1', 'author' )
local auteurInstitutionnel = validArg( 'auteur institutionnel' )
if not ( nom or auteur or auteurInstitutionnel ) then
return ''
end

if nom or auteur then
-- clarification des paramètres
args['prénom1'] = validArg( 'prénom1', 'prénom', 'first1', 'first' )
args['postnom1'] = validArg( 'postnom1', 'postnom' )

args.directeur1 = validArg( 'directeur1', 'directeur' )
args['lien auteur1'] = validArg( 'lien auteur1', 'lien auteur', 'author-link' )
end

-- préparation des variables
local listeResponsables = { } -- contiendra un élément pour chaque nom
local directeur = abr { 'dir.', 'directeur de publication' }
local prenom, postnom, dir, responsable, lien, precision, resp
local i = 1

-- boucle sur chaque nom, assemble toutes les caractéristiques et ajoute l'ensemble à la liste.
while nom or auteur do

-- nom de l'auteur
if not auteur then
prenom = validArg( 'prénom' .. i, 'first' .. i )
nom = '' .. nom .. ''
postnom = validArg( 'postnom' .. i)
if prenom and postnom then
auteur = prenom .. ' ' .. nom .. ' ' .. postnom
elseif prenom then
auteur = prenom .. ' ' .. nom
elseif postnom then
auteur = nom .. ' ' .. postnom
else
auteur = nom
end
end

-- lien sur l'auteur
auteur = Commun.fusionTexteLien( auteur, args['lien auteur' .. i], args.categ)

-- définition des responsabilités
dir = validArg( 'directeur' .. i )
resp = validArg( 'responsabilité' .. i )
if dir then
if resp then
precision = ' (' .. directeur .. ' et ' .. resp .. ')'
else
precision = ' (' .. directeur .. ')'
end
elseif resp then
precision = ' (' .. resp .. ')'
else
precision = ''
end

table.insert( listeResponsables, auteur .. precision )

i = i + 1
nom = validArg( 'nom' .. i, 'last' .. i )
auteur = validArg( 'auteur' .. i, 'author' .. i )
end

local listeAuteurs
local et_al = ''
if validArg( 'et al.', 'et alii' ) then
et_al = " ''" .. abr { "et al.", "et alii (et d’autres)" } .. "''"
listeAuteurs = table.concat( listeResponsables, ', ' ) .. et_al
else
listeAuteurs = mw.text.listToText( listeResponsables )
end

if auteurInstitutionnel then
if #listeResponsables > 0 then
return listeAuteurs .. ', ' .. auteurInstitutionnel
else
return auteurInstitutionnel .. et_al
end
else
return listeAuteurs
end

end

-- voir Module biblio/responsabilité secondaire
function Commun.responsabiliteSecondaire( args, validArg )
local liste = { }

-- fonction qui teste l'existence d'un paramètre et insère dans liste une abréviation discrète suivie de ce paramètre
local function insertAbr( arg, abrev, texte )
if arg then
table.insert( liste, abr{ abrev, texte, nbsp='+' } .. arg )
end
end

-- langue originale et traducteur
local trad = validArg( 'traducteur', 'trad', 'traduction' )
local langueOriginale = validArg( 'langue originale' )
if langueOriginale then
local Languedata = mw.loadData( 'Module:Langue/Data' )
langueOriginale = Languedata[langueOriginale] and Languedata[langueOriginale].nom
end
if langueOriginale then
if trad then
trad = ' par ' .. trad
else
trad = ''
end
if langueOriginale:match( '^[aeiou]' )
or langueOriginale:match( '^é' ) -- regex dédiée pour cette lettre, vu qu'elle est codée sur plusieurs octets
or langueOriginale == 'hébreu' then
trad = "de l'" .. langueOriginale .. trad
else
trad = 'du ' .. langueOriginale .. trad
end
end
insertAbr( trad, 'trad.', 'traduction' )

-- ajout des différents responsables
insertAbr( validArg( 'préface' ), 'préf.', 'préface' )
if validArg( 'postface' ) then
table.insert( liste, 'postface ' .. args.postface )
end
insertAbr( validArg( 'illustrateur', 'illustrations' ), 'ill.', 'illustrations' )
insertAbr( validArg( 'photographe', 'photographies' ), '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 .. ')'
end
end

-- Affiche une date correctement formatée, sans liens.
-- En cas de paramètres erronés, cette fonction fait au mieux pour formater, sans générer d'erreur.
function Commun.inscriptionDate( args )
-- pour [[Modèle:Inscription date]], où args est en fait la frame du #invoke
if type( args.getParent ) == 'function' then
args = args:getParent().args
end

local annee = Commun.validTextArg( args, 'année', 'annee', 'year' )
if annee then
if annee:match( '^%-?%d+$' ) then
-- si l'année est correctement renseignée, on essaye de trouver le mois
local mois = Commun.validTextArg( args, 'mois', 'month', 'saison' )
mois = string.lower( mois or '' )
local jour = Commun.validTextArg( args, 'jour', 'day', 'quantième' )
local t, jma = Date.validationJourMoisAnnee{ jour, mois, annee }
if t then
jma.nolinks = true
return Date._modeleDate( jma )
else
local date = { jour }
table.insert( date, mois )
table.insert( date, annee )
return '<time class="nowrap" datetime="' .. annee .. '">' .. table.concat( date, ' ' ) .. '</time>'
end
else
return Commun.inscriptionDate{ date = annee }
end
else
-- si annee n'est pas précisé, on utilise le paramètre date
local date = Commun.validTextArg( args, 'date' )
if date then
date = date:lower()
-- Date iso avec l'heure : suppression de l'heure
date = date:gsub( '^(%d%d%d%d%-%d%d%-%d%d)t[%d:+-]+$', '%1' )
local t, jma = Date.separationJourMoisAnnee( date )
if t then
jma.nolinks = true
return Date._modeleDate( jma )
else
-- date non reconnue, on essaye Month day, year
local mois, jour, annee = mw.ustring.match( date, '^([%a]+)%s*(%d%d?)[,%s]+(%d+)$' )
local t, jma = Date.validationJourMoisAnnee{ jour, mois, annee }
if annee and t then
jma.nolinks = true
return Date._modeleDate( jma )
end
end
return date
end
end
return ''
end

function Commun.formatePagesTotales( pages )
-- seulement un nombre entier
-- (avec éventuellement un "formatnum" appliqué dessus)
if pages:match( '^%d+$' )
or pages:match( '^%d+\194\160%d+$' ) then
return pages .. Commun.nbp
end
-- détection de « nombre - nombre »
-- (double pagination, le plus souvent « nombre romain - nombre arabe »),
-- avec éventuellement une abréviation sur le nombre romain
local pagesTagsRemoved = pages:gsub( '%b<>', '' )
if pagesTagsRemoved:match('^[%dIVXLCDM]+ ?%- ?[%dIVXLCDM]+$') -- "tiret du 6" (noter que c'est un caractère à escaper dans les regexes Lua)
or pagesTagsRemoved:match('^[%dIVXLCDM]+ ?– ?[%dIVXLCDM]+$') -- tiret moyen (attention, c'est un caractère sur 3 octets)
or pagesTagsRemoved:match('^[%dIVXLCDM]+ et [%dIVXLCDM]+$') then -- « nombre et nombre », cas de figure quelquefois rencontré
return pages .. Commun.nbp
end
-- détection d'un suffixe « p. » déjà présent,
-- que l'on remplace alors par la version wikifiée (espace insécable, balise d'abréviation)
local pages2 = pages
:gsub( ' p%.$', '' )
:gsub( '\194\160p%.$', '' )
:gsub( ' p%.$', '' )
:gsub( ' p%.$', '' )
if pages2 ~= pages then
return pages2 .. Commun.nbp
end
return pages
end

-- ajoute l'abréviation « p. » la plus précise possible devant le passage,
-- si un numéro de page ou un intervalle de pages est détecté
function Commun.formatePassage( passage )
local test = passage:gsub( '%b<>', '' ) -- on retire les balises (notamment <abbr>) pour les tests
if test:match( '^[%dIVXLCDM]+$' ) then -- uniquement des chiffres (arabes ou romains)
return Commun.page .. passage
elseif test:match( '^%d+ ?%- ?%d+$' ) -- "tiret du 6" (noter que c'est un caractère à escaper dans les regexes Lua)
or test:match( '^%d+ ?– ?%d+$' ) -- tiret moyen (attention, c'est un caractère sur 3 octets)
or test:match( '^[IVXLCDM]+ ?%- ?[IVXLCDM]+$' ) -- même chose avec les nombres romains
or test:match( '^[IVXLCDM]+ ?– ?[IVXLCDM]+$' ) then
return Commun.pages .. passage
elseif test:match( '^%d' ) -- commence par un chiffre arabe
or test:match( '^[IVXLCDM]+[ ,%-]' ) -- nombre romain suivi d'un caractère de séparation, pour s'assurer que c'est un nombre romain et pas le début d'un nom
or test:match( '^[IVXLCDM]+–' ) then -- regex dédiée pour le tiret moyen, vu qu'il est codé sur 3 octets
return Commun['page(s)'] .. passage
else
return passage
end
end

-- retire tous les liens internes, externes et balises html pour ne garder que le texte brut.
local function nettoyageTexte( texte )
if type( texte ) == 'string' then
if texte:match( '[%[<]' ) then
local function texteDuLien( l, t )
return ( t ~= '' and t ) or l
end
-- nettoyage des liens internes
texte = texte:gsub( '%[%[([^%[%]|]*)|?([^%[%]]*)%]%]', texteDuLien )
-- nettoyage des liens externes
:gsub( '%[https?://[^%[%] ]* *([^%]]+)%]', '%1' )
:gsub( '%[//[^%[%] ]* *([^%]]+)%]', '%1' )
-- nettoyage des balises html
:gsub( '%b<>', '' )
end
return texte
end
end

-- voir Modèle:COinS bibliographique
-- NISO Z39.88
-- http://www.openurl.info/registry
function Commun.COinS( args, validArg, genre )
local liste = { }

-- insertlist 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
liste[#liste + 1] = key .. '=' .. mw.uri.encode( prefix .. value )
end
end

-- norme du COinS
insertList( 'ctx_ver', 'Z39.88-2004' )

-- genre, titre et sous-titre
if genre == 'article' then
insertList( 'rft_val_fmt', 'info:ofi/fmt:kev:mtx:journal' )
insertList( 'rft.genre', 'article' )
insertList( 'rft.atitle', nettoyageTexte( args.titre ) )
insertList( 'rft.jtitle', nettoyageTexte( validArg( 'périodique', 'revue', 'journal' ) ) )
insertList( 'rft.issue', validArg( 'numéro', 'no', 'issue' ) )
else
-- genre = ouvrage ou chaitre
insertList( 'rft_val_fmt','info:ofi/fmt:kev:mtx:book' )
if genre == 'chapitre' then
insertList( 'rft.genre', 'bookitem' )
else
insertList( 'rft.genre', 'book' )
end
insertList( 'rft.btitle', nettoyageTexte( args.titre ) )
insertList( 'rft.atitle', nettoyageTexte( validArg( 'titre chapitre', 'titreChap' ) ) )

-- donnée sur l'éditeur
insertList( 'rft.place', texteLien( validArg( 'lieu', 'location' ) ), nil )
insertList( 'rft.pub', texteLien( validArg( 'éditeur', 'édition' ) ), nil )
insertList( 'rft.edition', texteLien( validArg( "numéro d'édition", "numéro édition" ) ), nil )
end
insertList( 'rft.stitle', args['sous-titre'] )

-- Premier auteur, séparé en noms et prénoms
local nom = texteLien( validArg( 'nom1', 'nom', 'last1', 'last' ) )
if nom then
insertList( 'rft.aulast', nom )
insertList( 'rft.aufirst', validArg( 'prénom1', 'prénom', 'first1', 'first' ) )
insertList( 'rtf.ausuffix ', validArg( 'postnom1', 'postnom' ) )
else
local auteur = texteLien( validArg( 'auteur', 'auteur1' ) )
if auteur then
insertList( 'rft.au', auteur )
end
end

-- les autres auteurs, la norme ne prévoit pas de séparation
for i = 2, 20 do
local nom_i = texteLien( validArg( 'nom' .. i ) )
if nom_i then
local prenom_i = validArg( 'prénom' .. i )
local postnom_i = validArg( 'postnom' .. i)
if prenom_i and postnom_i then
insertList( 'rft.au', nom_i .. ' ' .. postnom_i .. ', ' .. prenom_i )
elseif prenom_i then
insertList( 'rft.au', nom_i .. ', ' .. prenom_i )
elseif postnom_i then
insertList( 'rft.au', nom_i .. ' ' .. postnom_i )
else
insertList( 'rft.au', nom_i )
end
else
local auteur_i = texteLien( validArg( 'auteur' .. i ) )
if auteur_i then
insertList( 'rft.au', auteur_i )
else
break
end
end
end

if validArg( 'auteur institutionnel' ) then
insertList( 'rft.aucorp', args['auteur institutionnel'] )
end

-- date
local datePub = Date.dateISO( args )
if datePub then
insertList( 'rft.date', datePub )
else
insertList( 'rft.date', args.date )
end

-- doonées physique de la publication
insertList( 'rft.volume', validArg( 'volume', 'vol' ) )
insertList( 'rft.pages', validArg( 'passage', 'page' ) )
insertList( 'rft.spage', args['page début chapitre'] )
insertList( 'rft.tpages', args['pages totales'] )

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

local contextObject = table.concat( liste, '&' )

return ''
end

return Commun

Module:Site officiel

2024-09-20T14:10:55Z

Jaggerwock : Page créée avec « local Lien = { } local Verif = require "Module:Correction syntaxique" local defaultLang = 'fr' local function caterreur(param) if mw.title.getCurrentTitle().namespace == 0 then return '' .. string.upper(param or '?') .. '' else return '' end end function Lien.siteOfficiel( frame ) local templateargs = frame:getParent().args local args = {} for k, v in pairs(templateargs) do if type(... »

local Lien = { }

local Verif = require "Module:Correction syntaxique"
local defaultLang = 'fr'

local function caterreur(param)
if mw.title.getCurrentTitle().namespace == 0 then
return '[[Catégorie:Page du modèle Site officiel comportant une erreur|' .. string.upper(param or '?') .. ']]'
else
return ''
end
end

function Lien.siteOfficiel( frame )
local templateargs = frame:getParent().args
local args = {}
for k, v in pairs(templateargs) do
if type(k) == 'number' then
v = mw.text.trim(v)
end
if v ~= '' then
args[k] = v
end
end
local nocaturl = args.nocaturl

local erreurs = '' -- les messages d'erreurs sont ajoutés ici

local erreursarguments = Verif.verif(args, {'titre', 'title', 1, 2, 'langue', 'lang', 'url', 'wikidata', 'entity', 'id', 'nocaturl'}, 'Modèle Site officiel avec un paramètre inconnu‎')
if erreursarguments then
erreurs = erreurs .. erreursarguments
end

local titredefaut = 'Site officiel'
local titre = args['titre'] or args['title'] or titredefaut
local langue = args['langue'] or args['lang']
local url = args['url'] or args[2] or args[1]

if (not langue) and (args[2]) then
langue = args[1]
end
local id = args.id or args.entity or args.wikidata
if url and url:sub(1, 1) == 'Q' then
id = url
url = nil
end

-- si pas d'URL, essayer Wikidata, et si ça marche, sortir de ce module
if not url and (id ~= '-') then
local Wikidata = require "Module:Wikidata"
local isinlang = defaultLang
local links = Wikidata.getClaims{entity = id, property = 'P856', excludespecial = true, isinlang = isinlang}
if not links then
links = Wikidata.getClaims{entity = id, property = 'P856', excludespecial = true}
isinlang = null
end
local Weblink = require 'Module:Weblink'
local statementformat = function(statement, args)
if statement.mainsnak.snaktype == 'value' then
local value = statement.mainsnak.datavalue.value
local title = Wikidata.getFormattedQualifiers(statement, {'P1476'}, {isinlang = 'fr'})
if not title then
title = Wikidata.getFormattedQualifiers(statement, {'P1476'})
end
if not title then
title = args.text
end
return Weblink.makelink(value, title)
else
return Wikidata.formatSnak( statement.mainsnak, args )
end
end
if links and (#links > 1) then
return '<cite class="ouvrage" id="site_officiel" style="font-style: normal;">' .. "Sites officiels : " .. Wikidata.formatAndCat{claims = links, property = 'P856', displayformat = 'weblink', showlang = true, excludespecial = true, isinlang = isinlang, statementformat = statementformat} .. '</cite>' .. erreurs
elseif links then
if not (titre == titredefaut) then
statementformat = nil
end
return '<cite class="ouvrage" id="site_officiel" style="font-style: normal;">' .. Wikidata.formatAndCat{claims = links, property = 'P856', displayformat = 'weblink', showlang = true, text = titre, isinlang = isinlang, statementformat = statementformat} .. '</cite>' .. erreurs
end
end

-- si toujours pas, ajouter les catégories d'erreur et sortir
if not url then
if not nocaturl then
erreurs = erreurs .. caterreur('url')
end
return erreurs
end

-- nettoyage de l'URL
url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' )
if not ( url:match( '^http' ) or url:match( '^//' ) ) then
url = 'http://' .. url
end

-- formatage de la langue
local indicLangue = '' -- langue telle qu'affichée dans le rendu final
if langue then
if langue ~= 'fr' then
local Langue = require "Module:Langue"
indicLangue = Langue.indicationMultilingue{ langue } .. ' '
if indicLangue:find('class="error"', nil, true) then
erreurs = erreurs .. caterreur('langue')
end
end
end

return '<cite class="ouvrage" id="site_officiel" style="font-style: normal;">' .. indicLangue .. '[' .. url .. ' ' .. titre .. ']' .. '</cite>' .. erreurs
end

return Lien

Module:Graph production

2024-09-20T14:10:00Z

Jaggerwock : Page créée avec « local getArgs = require('Module:Arguments').getArgs local p = {} local defaultproperty = 'P1092' -- propriété "quantité produite" local json = { version = 2, width = 600, height = 300, data = { { name = "table", values = {} } }, scales = { { name = "x", type = "ordinal", range = "width", domain = { data = "table", field= "x" } }, { name = "y", range = "height", nice = true, domain = { data = "table", field = "y" }... »

local getArgs = require('Module:Arguments').getArgs
local p = {}
local defaultproperty = 'P1092' -- propriété "quantité produite"

local json = {
version = 2,
width = 600, height = 300,
data = {
{
name = "table",
values = {}
}
},
scales = {
{
name = "x",
type = "ordinal",
range = "width",
domain = { data = "table", field= "x" }
},
{
name = "y",
range = "height",
nice = true,
domain = { data = "table", field = "y" }
}
},
axes = {
{ type = "x", scale = "x" },
{ type = "y", scale = "y" }
},
marks = {
{
type = "rect",
from = { data = "table" },
properties = {
enter = {
x = { scale = "x", field = "x" },
width = { scale = "x", band = true, offset = -1},
y = { scale = "y", field = "y" },
y2 = { scale = "y", value = 0 }
},
update = {
fill = { value = "steelblue" }
},
hover = {
fill = { value = "red" }
}
}
},
{
type = "text",
from = { data = "table" },
properties = {
enter = {
x = { scale = "x", field = "x" },
dx = { scale = "x", band = true, mult = 0.5 },
y = { scale = "y", field = "y" },
fill = { value = "#000" },
align = { value = "center" },
baseline = { value = "top" },
dy = { value = -13 },
text = { field = "y" }
}
}
}
}
}

local function getStatements(id, property)
local entity = mw.wikibase.getEntity(id)
if not entity then
return nil
end
if not entity.claims or not entity.claims[property] then
return nil
end
local statements = entity.claims[property]
return statements
end

local function prepareStatements(statements)
local numbers_raw = {}
local function processStatement(i, statement)
local snak = statement.mainsnak
if not snak or snak.snaktype ~= 'value' then
statements[i] = nil
return;
end
local n = tonumber(snak.datavalue.value.amount)
local d = nil
if statement.qualifiers and statement.qualifiers.P585 then -- dátum
d = require('Module:Time').newFromWikidataValue(statement.qualifiers.P585[1].datavalue.value)
end
if d and d.year then
statements[i] = { d.year, n }
numbers_raw[d.year] = n
return;
else
statements[i] = nil
return;
end
end
for n, statement in pairs(statements) do
processStatement(n, statement)
end
local dates = {}
for d, v in pairs(statements) do
table.insert(dates, v[1])
end
if #dates < 1 then
return nil
end
table.sort(dates)
local numbers = {}
if #dates <= 20 then
for _, v in ipairs(dates) do
table.insert(numbers, { tostring(v), numbers_raw[v] } )
end
else
local n = #dates - 1
for i = 0, 9 do
local j = math.floor(i * n / 9 + 0.5) + 1
local year = dates[j]
table.insert(numbers, {tostring(year), numbers_raw[year]})
end
if numbers_raw[dates[n + 1]] >= 1000000 then
json.marks[2].properties.enter.angle = { value = -45 }
end
end
return numbers
end

local function drawGraph(data, float)
for _, v in pairs(data) do
local d, n = v[1], v[2]
table.insert(json.data[1].values, { x = d, y = n })
end
return tostring(mw.html.create("div")
:css("display", "inline-block") -- style hotfix
:css("float", float) -- optional
:wikitext(mw.getCurrentFrame():extensionTag("graph", mw.text.jsonEncode(json)))
)
end

function p.main(frame)
local args = {}
if type(frame) ~= 'table' then
args = { id = frame }
else
args = getArgs(frame)
end
local property = args["propriété"] or args.property or defaultproperty
local statements = getStatements(args.id, property)
if type(statements) ~= 'table' then
return ''
end
statements = prepareStatements(statements)
if type(statements) ~= 'table' then
return ''
end
return drawGraph(statements, args.float)
end

return p

Modèle:Autorité

2024-09-20T14:09:37Z

Jaggerwock : Page créée avec « <includeonly>{{#invoke:Autorité|authorityControl}}</includeonly><noinclude> {{Documentation}} </noinclude> »

<includeonly>{{#invoke:Autorité|authorityControl}}</includeonly><noinclude>
{{Documentation}}
</noinclude>

Modèle:Graph production

2024-09-20T14:09:03Z

Jaggerwock : Page créée avec « <noinclude>{{Documentation}}</noinclude>{{#invoke:Graph production|main}} »

<noinclude>{{Documentation}}</noinclude>{{#invoke:Graph production|main}}