Module:Central-mw-en
Jump to navigation
Jump to search
Some live examples
Examples of modules and their uses in live demo in debug phase:
- Module:Central-s-fr, Module:Central-s-fr/Documentation, Module:Author3
- Utilisateur:Rical/Victor_Hugo with tests.
Central Normal mode example
{{Central | read }} Template:Central
Central Doc mode example
{{Central | doc | dockey = versioning_sort_central_modules_title | itemid = Q535 }} Template:Central
English user / French wiki, Edit mode example
{{Central | edit | userlang= en | wikilang= fr | itemid = Q535 }} Template:Central
Spanish user / French wiki, Edit mode example
{{Central | edit | userlang= es | wikilang= fr | itemid = Q535 }} Template:Central
French user / English wiki, Edit mode example
{{Central | edit | userlang= fr |wikilang= en | itemid = Q535 }} Template:Central
Tests mode example
{{Central | tests | itemid = Q535 }} Template:Central
-- Tests pages using this module, to help to change the rigth page when edit it :
-- Utilisateur:Rical/Central modules reference manual
-- Utilisateur:Rical/Victor Hugo {{#invoke:p.v.version|read}} fr = French = Français = Français
-- Module:Author3/Documentation {{#invoke:p.v.version|read}} fr = French = Français = Français
-- Module:Central/Documentation {{#invoke:Central|read}} fr = French = Français = Français
-- Usual pages for Translations
-- Utilisateur:Rical/Victor Hugo
-- Modulenn:Central-s-br/doc {{#invoke:Central-s-br|read}} br = Breton = Brezhoneg
-- Modul:Central-s-de/Doku {{#invoke:Central-s-de|read}} de = German = Deutsch
-- Module:Central-s-en/Documentation {{#invoke:Central-s-en|read}} en = English = English
-- Module:Central-s-es/Documentación {{#invoke:Central-s-es|read}} es = Spanish = español
-- Module:Central-s-fr/Documentation {{#invoke:Central-s-fr|read}} fr = French = Français
-- Modul:Central-w-hu/doc {{#invoke:Central-w-hu|read}} hu = Hungarian = Magyar
-- Module:Central-mw-en/doc", {{#invoke:Central-mw-en|read}} en = English = English
-- Mô đun:Central-w-vi/tài liệu {{#invoke:Central-w-vi|read}} vi = Vietnamese = Tiếng việt
-- MediaWiki:Scribunto/Central modules reference manual
local p = {}
p.v = {} -- Version descriptor for central modules updated by versioning.get_one_module_or_library()
p.v.version = "p.v.version" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.version = "[[w:vi:Central-s-vi]]" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.version = "Central-s-fr" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.main_version = "Central" -- Central modules share the main version from the central repositoty to any projects.
-- Later, versioning.get_one_module_or_library() -- Get a module or a library, then form and record its descriptor.
local Central = p
p.Module_Central_version = "p.v.version" -- To adapt the version of Module:Central in any translated text.
p.ModuleNS = mw.site.namespaces.Module.name .. ":"
p.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
versionName = "Central-s-fr", versionNumber = "03 22:57", versionDate = "2017-04-03 22:57",
sought = "Central-s-fr;Mathroman2;TestRequire", -- Sought module and submodules versions
known = "Central-s-fr;Central-14 * Mathroman2;Mathroman34 * TestRequire;TestRequ * TestBug;TestBug4", -- Known module and submodules versions
-- known = "Central-s-fr;p.v.version;ControlArgs1;Mathroman2;TestRequire;TestBug;Testpages", -- Known module and submodules versions
-- loaded_list = ";Central;p.v.version;",-- Module:Central
-- currentVersion = "", -- show if the mediawiki version has change ( for debug )
-- Central.fr.ws is in conflict with LUA syntax table.intable.subtable and results in overflow at runtime.
-- Then Rical renames Central.fr.ws in Central-s-fr at 16 decembre 2016-12-16 18:03.
}
-- Todo: Modèle:DP-ONU-Auteur, see: https://fr.wikisource.org/wiki/Mod%C3%A8le:DP-ONU
-- rights_values_box_70
-- Todo: Tpt 20121005 19:48 : J'ai intégré le microformat hcard dans le modèle auteur afin de pouvoir y ajouter l'image.
-- Todo: Tpt 20121005 19:48 : Par contre, j'ai ajouté deux lignes incluant de manière caché les dates de naissance et de décès directement dans le modèle auteur.
-- Todo: Tpt 20121005 19:48 : Voici la diff. Pourrais-tu les intégrer dans un des sous-modèles que tu as créés pour la manipulation des dates avec la structure suivante :
-- Todo: Tpt 20121005 19:48 : <span class="(b|d)day" title="DATE AU FORMAT YYYY">AFFICHAGE DE LA DATE</span> Tpt (d) 5 septembre 2012 à 19:48 (UTC)
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- Development guide line for modules
--
-- For an easier and faster work, group several modules and libraries and their tests simulations in the same true module.
-- Whith several modules and libraries in 1 module, we can move and change variables and functions, several at once.
-- Simulate libraries in _G space, waiting a true implementation.
-- There is a bug report by Rical: T122752 : #invoke do not record the main module in package.loaded.
-- https://phabricator.wikimedia.org/T122752 Rical created this task.Via Web ·Sat, Jan 2, 2016-01-02 23:08
-- Simulate Modules in _G space, waiting the DEBUG of T122752#invoke.
-- Simulate old and new versions of modules and libraries to satisfy the main module calls until need to change it.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- Development guide line for i18n translations
--
-- A central module could need a translation service and a versioning service to enhance its functions or its stability without disturbing the preview normal use.
-- A main module can define its sought sub-modules versions names and its known sub-modules versions names.
-- The Library:versioning installs other libraries, supports versions, binds modules, libraries and i18n translations.
-- A central module and its translations can inpedendently change. Its p.versions{} identifications change also.
-- For this goal a module contains at least one i18n tranlations table. Its /I18N sub-modules contains translations in several languages.
-- Central Libraries, like modules, contain their own p.versions{} identifications and i18n translations in Module:Library/library_name/I18N.
-- The adaptation to any number of languages is automatic.
-- The highest level is the main module. The lowest level is the libraries level.
--
-- Any module or library can contain i18n tables.
-- i18n tables are mixed from the lowest to the highest level, to permit at upper module to adapt the meaning of texts to a new use.
-- Each library is independent of other ones and they can be mixed in any order.
-- To avoid conflict of translations keys between libraries, all translations keys names start with the library name.
--
-- The library testsCases contains internal auto tests cases to verify or to understand the functions and the use cases.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The central system based on MediaWiki makes it easy to embed wikicontent.
-- The central system permit to convert any module as versioning.central_ It is build on Mediawiki, Scribunto and Wikibase.
-- Here the Module:Central declares some libraries, waiting stable Scribunto central libraries:
begin = {} -- The Library:begin begins to support other tests wikis. It translates tests pages names for these wikis.
datas = {} -- The Library:datas form some viewers for tables(in lines and columns), dropboxes, luatables...
events = {} -- The Library:events form events like erros, warnings and categories.
luaTable = {} -- The Library:luaTable enhances previous table library, to avoid ambiguities. To enhance, we could write here : luaTable = table.
modes = {} -- The Library:modes support modes and their options, like p.read(frame).
-- texts = {} -- The Library:texts come from Scribunto. The Module:Central add some functions to it.
testsCases = {} -- The Library:testsCases implements recursive mediawiki tests cases and reports them for Lua coders.
texts = {} -- The Library:texts supports i18n translations.
-- tools = {} -- The Library:tools supports micenalous functions for arguments, translations, reports on other processes...
translate = {} -- The Library:translate supports i18n translations.
-- versioning = {} -- The Library:versioning installs other libraries, bind modules and libraries, bind i18n translations, manage versions.
-- versioning = {} -- The Library:versioning must stay in _G global space, to not change in init phase.
viewer = {} -- The Library:viewer form some viewers for tables(in lines and columns), dropboxes, luatables...
--
mathroman = {} -- The Library:mathroman is here as an example of very small central library. It becomes central using the central modules system.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:begin begins to support other tests wikis. It translates tests pages names for these wikis.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
--[[
== Central modules ==
https://vi.wikipedia.org/wiki/Th%E1%BA%A3o_lu%E1%BA%ADn_Th%C3%A0nh_vi%C3%AAn:Rical#Hoan_ngh.C3.AAnh
:Thanks [ [Thành viên:Lê Thy|Lê Thy] ] to welcome me. I work on [ [ :s:fr:Module:Central-s-fr/Documentation | central modules(example) ] ] and I an near to ask to some admins in different languages/project to use these central modules. See their [ [ :s:fr:Utilisateur:Rical/Central_modules | documentation] ].
:The first step to use central module is to install one (I already done that in this wiki) and to translate some sentence.
:Of course I will support you to understand any point you need.
:And I also collect any point and any change in modules to enhance them.
:Then I invite you to do so. Thanks for your attention and probably your cooperation.
:I must find 10 admins in 10 wikis and in 10 languages. Look at Library:Begin in the example page.
:If you want we could speak french. --Rical (thảo luận) 22:05, ngày 11 tháng 4 năm 2017 (UTC)
20170711 22:05
--]]
-- begin = {} -- already declared by Scribunto, else in _G space.
-- Translations for datas library
begin.i18n = {}
begin.i18n.br = { -- br = Breton = Brezhoneg
-- Modulenn:Central-s-br/doc {{#invoke:Central-s-br|read}} br = Breton = Brezhoneg
begin_translate_texts_guide = "Pour traduire, ne traduisez pas les parties comme celles-ci : <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Modulenn:Central",
begin_Module_Central_local_version = "Modulenn:p.v.version",
begin_Module_Central_local_document = "Modulenn:p.v.version/doc",
begin_Library_translate_I18N = "Modulenn:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Lua reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() Support du début d'utilisation des modules centraux.",
begin_support_central_modules_headers = "%1 Projets; %2 Langues; Admins; Actifs; %3 Modules principaux; doc; Installé; Utilisé; %4 Utilisateurs",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Surveiller l'état actuel des sous-tâches",
begin_central_count_admins_active_users = "Ce site, br.wikisource.org, compte %1 administrateurs pour %2 utilisateurs actifs.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Links to begin with central modules.",
begin_links_to_central_modules_headers = "Project; Admins; Active users; Language; Code; Version; Documentation",
} -- begin.i18n.br
begin.i18n.de = { -- de = German = Deutsche
-- Modul:Central-s-de/Doku {{#invoke:Central-s-de|read}} de = German = Deutsch
begin_translate_texts_guide = "Zu übersetzen, übersetzen keine Teile wie diese : <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Modul:Central",
begin_Module_Central_local_version = "Modul:p.v.version",
begin_Module_Central_local_document = "Modul:p.v.version/Doku",
begin_Library_translate_I18N = "Modul:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Central modules reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() Unterstützung des Beginns der Nutzung von zentralen Modulen.",
begin_support_central_modules_headers = "%1 Projekts; %2 Spraches; Admins; Vermögenswerte; %3 Hauptmoduls ; doc; Starten; verwendet; %4 Benutzers",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Überwachen Sie den aktuellen Stand der subtasks",
begin_central_count_admins_active_users = "Für diese Seite, br.wikisource.org, Konto 1% Direktoren für %2 aktive Nutzer.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Links zu zentralen Module Debüt.",
begin_links_to_central_modules_headers = "Projekt; Direktoren; Vermögenswerte; Sprache; Code; Version; Dokumentation",
} -- begin.i18n.de
begin.i18n.en = { -- en = English = English
begin_translate_texts_guide = "To translate, do not translate parts like these: <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Mô đun:Central",
begin_Module_Central_local_version = "Mô đun:p.v.version",
begin_Module_Central_local_document = "Mô đun:p.v.version/Documentation",
begin_Library_translate_I18N = "Mô đun:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Central modules reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() Support of the start of use of central modules.",
begin_support_central_modules_headers = "%1 Projects; %2 Languages; Admins; Assets; %3 Main modules; doc; Start on; Used from; %4 Users",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Monitor the current state of subtasks",
begin_central_count_admins_active_users = "This site, br.wikisource.org, count %1 administrators for %2 active users.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Links to begin with central modules.",
begin_links_to_central_modules_headers = "Project; Admins; Active users; Language; Code; Version; Documentation",
} -- begin.i18n.en
begin.i18n.es = { -- es = Spanish = español
-- Módulo:Central-s-es/Documentación {{#invoke:Central-s-es|read}} es = Spanish = español
begin_translate_texts_guide = "Para traducir, no traducir partes como estas: <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Módulo:Central",
begin_Module_Central_local_version = "Módulo:p.v.version",
begin_Module_Central_local_document = "Módulo:p.v.version/Documentación",
begin_Library_translate_I18N = "Módulo:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Central modules reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() Apoyo del inicio del uso de módulos centrales.",
begin_support_central_modules_headers = "%1 Proyectos; %2 Lenguajes; Admins; Activos; %3 Módulos principals; doc; Iniciar en; Utilizado desde; %4 Usuarios",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Monitorear el estado actual de subtareas",
begin_central_count_admins_active_users = "Este sitio, br.wikisource.org, cuenta %1 administradores para %2 usuarios activos.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Enlaces a de inicios de módulos centrales.",
begin_links_to_central_modules_headers = "Proyecto; Administradores; Usuarios activos; Idioma; doc; Versión; Documentación",
} -- begin.i18n.es
begin.i18n.fr = { -- fr = French = Français
begin_translate_texts_guide = "Pour traduire, ne traduisez pas les parties comme celles-ci : <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Module:Central",
begin_Module_Central_local_version = "Module:p.v.version",
begin_Module_Central_local_document = "Module:p.v.version/Documentation",
begin_Library_translate_I18N = "Module:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Central modules reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() Support du début d'utilisation des modules centraux.",
begin_support_central_modules_headers = "%1 Projets; %2 Langues; Admins; Actifs; %3 Modules principaux; doc; Installé; Utilisé; %4 Utilisateurs",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Surveiller l'état actuel des sous-tâches",
begin_central_count_admins_active_users = "Ce site, fr.wikisource.org, compte %1 administrateurs pour %2 utilisateurs actifs.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Liens vers des débuts de modules centraux.",
begin_links_to_central_modules_headers = "Projet; Administrateurs; Utilisateurs actifs; %1 Langue; Code; Version; Documentation",
} -- begin.i18n.fr
begin.i18n.hu = { -- hu = Hungarian = Magyar -- Il n'y a aucun module dans l'espace module Modul:Central-w-hu/doc {{#invoke:Central-w-hu|read}}
begin_translate_texts_guide = "Töltsd le a szöveget, és nyomd le a partit a cellák között: <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Modul:Central",
begin_Module_Central_local_version = "Modul:p.v.version",
begin_Module_Central_local_document = "Modul:p.v.version/doc",
begin_Library_translate_I18N = "Modul:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Central modules reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() A központi modulok használatának megkezdésének támogatása",
begin_support_central_modules_headers = "%1 Projekts; %2 Nyelvs; Adminok; Eszközöket; %3 Fő moduls; doc; Kezdés; Használt; %4 Használós",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Kíséri a jelenlegi állapotában részfeladatok",
begin_central_count_admins_active_users = "Ez az oldal, br.wikisource.org, fiók %1 rendszergazdák és %2 felhasználók aktív.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Hivatkozások központi modulok debütált.",
begin_links_to_central_modules_headers = "Projekt; Igazgatók; Aktív felhasználók számára; Nyelv; Kód; Verzió; Dokumentáció",
} -- begin.i18n.hu
begin.i18n.vi = { -- vi = Vietnamese = Tiếng việt
begin_translate_texts_guide = "Để dịch, không dịch các phần như thế này : <b>%1</b> ; <b>%1 = %2</b> (%3) ; <code>Q535</code> ; <br/> ; \n* ; _G.",
begin_Module_Central_central_version = "Mô đun:Central",
begin_Module_Central_local_version = "Mô đun:p.v.version",
begin_Module_Central_local_document = "Mô đun:p.v.version/Documentation",
begin_Library_translate_I18N = "Mô đun:Library/translate/I18N",
begin_Central_modules_reference_manual = "Scribunto/Central modules reference manual",
begin_support_central_modules_title = "begin.support_begin_central_modules() Quan trắc việc dùng sớm của mô-đun lõi.",
begin_support_central_modules_headers = "%1 Dự án; %2 Ngôn ngữ; Quản trị viên; Tài sản; %3 Mô đun chính; doc; Bắt đầu; Dược sử dụng; %4 sNgười sử dụng",
begin_survey_sub_tasks_title = "begin.survey_sub_tasks(t) Theo dõi tình trạng hiện tại của subtasks",
begin_central_count_admins_active_users = "Trang web này, Br.wikisource.org có %1 quản trị viên cho %2 người dùng hoạt động.",
begin_links_to_central_modules_title = "begin.links_to_central_modules() Liên kết đến sự khởi đầu của module trung tâm.",
begin_links_to_central_modules_headers = "dự án; quản trị; tài sản; ngôn ngữ; mã; phiên bản; tài liệu",
-- -- Mô đun:Central-s-vi/tài liệu {{#invoke:Central-s-vi|read}}
} -- begin.i18n.vi
begin.proto_version = "Central-s-fr"
begin.known_wikis = {
-- br.wikisource.org/wiki/Modulenn:Central-s-br/doc {{#invoke:Central-s-br|read}} fr = Breton = Breton = Breitz
{ url_doc = "br.wikisource.org/wiki/Modulenn:Central-s-br/doc", enforce_main_version = "br.wikisource.org",
beginon = "20170305", usedfrom = "20170330 ?", user = "VIGNERON",
template = "Modèle", admins = "16", assets = "236", -- 16 administrators for 236
-- hostPort = "br.wikisource.org", project = "s", lang = "br", doc = "doc",
-- template = "Modèle", moduleSpace = "Modulenn", modulename = "Central-s-br",
},
-- de.wikisource.org/wiki/Modul:Central-s-de/Doku {{#invoke:Central-s-de|read}} de = German = Deutsch
{ url_doc = "de.wikisource.org/wiki/Modul:Central-s-de/Doku", enforce_main_version = "de.wikisource.org",
beginon = "20170405 ?", usedfrom = "20170430 ?", user = "Wer?",
template = "Modèle", admins = "16 ?", assets = "236 ?", -- 16 administrators for 236
-- hostPort = "de.wikisource.org", project = "s", lang = "de", doc = "Doku",
-- moduleSpace = "Modul", modulename = "Central-s-de",
},
-- en.wikipedia.org/wiki/Module:Central-w-en/Documentation {{#invoke:Central-w-en|read}} en = English = English
{ url_doc = "en.wikipedia.org/wiki/Module:Central-w-en/Documentation", enforce_main_version = "en.wikipedia.org",
beginon = "20170215 ?", usedfrom = "20170304 ?", user = "Who?",
template = "Modèle", admins = "16 ?", assets = "236 ?", -- 16 administrators for 236 active users
-- hostPort = 'en.wikipedia.org', project = "w", lang = "en", doc = "Documentation",
-- vers = "Central-w-en", centralmodule = "Module:Central-w-en", centraldoc = "Module:Central-w-en/Documentation",
},
-- es.wikipedia.org/wiki/Módulo:Central-w-es/Documentación {{#invoke:Central-w-es|read}} es = Spanish = español
{ url_doc = "es.wikipedia.org/wiki/Módulo:Central-w-es/Documentación", enforce_main_version = "es.wikisource.org",
beginon = "20170215 ?", usedfrom = "20170304 ?", user = "¿Quién?",
template = "Modèle", admins = "16 ?", assets = "236 ?", -- 16 administrators for 236 active users
-- hostPort = 'es.wikipedia.org', project = "w", lang = "es", doc = "Documentación",
-- vers = "Central-w-es", centralmodule = "Módulo:Central-w-es", centraldoc = "Módulo: Central-w-es/Documentación",
},
-- fr.wikisource.org/wiki/Module:Central-s-fr/Documentation {{#invoke:Central-s-fr|read}} fr = French = Français
{ url_doc = "fr.wikisource.org/wiki/Module:Central-s-fr/Documentation", enforce_main_version = "fr.wikisource.org",
beginon = "20170215", usedfrom = "20170304 ?", user = "Rical",
template = "Modèle", admins = "16", assets = "294", -- 16 administrators for 236 active users
-- hostPort = "fr.wikisource.org", project = "s", lang = "fr", doc = "Documentation",
-- moduleSpace = "Module", modulename = "Central-s-fr",
},
-- hu.wikipedia.org/wiki/Modul:Central-w-hu/doc {{#invoke:Central-w-hu|read}} hu = Hungarian = Magyar
{ url_doc = "hu.wikipedia.org/wiki/Modul:Central-w-hu/doc", enforce_main_version = "hu.wikipedia.org",
beginon = "20170505 ?", usedfrom = "20170530 ?", user = "Ki?",
template = "Modul", admins = "23", assets = "1513", -- 23 administrators for 1513 active users
-- moduleSpace = "Modul", modulename = "Central-w-hu",
},
-- https://phabricator.wikimedia.org/T135845 = T135845 = Convert any module as central or centralisable
-- https://www.mediawiki.org/wiki/Module:Central-mw-en {{#invoke:Central-mw-en|read}} en = English = English
{ url_doc = "www.mediawiki.org/wiki/Module:Central-mw-en/doc", enforce_main_version = "www.mediawiki.org",
beginon = "20170427", usedfrom = "20170505", user = "Rical",
template = "Template", admins = "184", assets = "1215", -- 184 administrators for 1215 active users on 20170427
-- moduleSpace = "Modul", modulename = "Central-w-hu",
-- hostPort = "hu.wikipedia.org", proj = "w", lang = "hu", doc = "doc",
},
-- vi.wikipedia.org/wiki/Mô đun:Central-w-vi/tài liệu {{#invoke:Central-w-vi|read}} vi = Vietnamese = Tiếng Việt
{ url_doc = "vi.wikipedia.org/wiki/Mô đun:Central-w-vi/tài liệu", enforce_main_version = "vi.wikipedia.org",
beginon = "20170412 ?", usedfrom = "20170530 ?", user = "Lê Thy ?",
template = "Modèle", admins = "23", assets = "1513", -- 23 administrators for 1513 active users
-- hostPort = "vi.wikipedia.org", proj = "w", lang = "vi", doc = "tài liệu",
-- moduleSpace = "Mô đun", modulename = "Central-w-vi",
},
}
begin.wikis_names = {
b = 'wikibooks', cm = 'commons', meta = 'meta', mw = 'mediawiki',
n = 'wikinews', p = 'wiki', q = 'wikiquote', s = 'wikisource',
species = 'species', t = 'wiktionary', test2 = 'test2', v = 'wikiversity',
wm = 'wikimedia', y = 'wikivoyage',
} -- begin.wikis_names
begin.kiwis_names = {
commons = 'cm', meta = 'meta', mediawiki = 'mw', species = 'species',
test2 = 'test2', wiki = 'p', wikibooks = 'b', wikimedia = 'wm',
wikinews = 'n', wikiquote = 'q', wikisource = 's', wikiversity = 'v',
wikivoyage = 'y', wiktionary = 't',
}
function begin.central_module_descriptor(known_wikis, selector) -- Adapt this main central module version to a kwnow wiki, in begin phase.
if (type(known_wikis) ~= "table") then known_wikis = begin.known_wikis end
local mwuri = mw.uri.new()
local hostPort = mwuri.port
local hostPort = mwuri.hostPort
local hostPort = mwuri.host
if type(selector ~= "string") then selector = hostPort end -- actual wiki as default
for i, wiki in pairs(known_wikis) do
if (type(wiki.url_doc) == "string") and viewer.is_in(selector, wiki.url_doc) then
selected = wiki
wiki.url_split = mw.text.split(wiki.url_doc, '/') -- fr ; wikisource ; org
wiki.hostPort = wiki.url_split[1] -- fr.wikisource.org
wiki.central_project_lang = mw.text.split(wiki.hostPort, '.') -- fr wikisource org
if (type(wiki.enforce_main_version) == "string") then wiki.central_project_lang = wiki.enforce_main_version end
wiki.lang = wiki.central_project_lang[1] or "fr" -- fr
wiki.project = wiki.central_project_lang[2] or "wikisource" -- wikisource
wiki.proj = begin.kiwis_names[wiki.project] -- or wiki.project -- s or wikisource
wiki.hostPort = wiki.lang .. "." .. wiki.project .. ".org" -- fr.wikisource.org
wiki.version = "Central-" .. wiki.proj .. "-" .. wiki.lang
-- wiki.url_split = wiki.url_split[2] -- /wiki/
-- fr.wikisource.org/wiki/Module:Central-s-fr/Documentation
wiki.mod_vers = wiki.url_split[3] -- Module:Central-s-fr
wiki.mod_vers_split = mw.text.split(wiki.mod_vers, ':') -- Module ; Central-s-fr
wiki.modulename = wiki.mod_vers_split[1] -- Module:Central-s-fr
wiki.docname = wiki.url_split[4] -- Documentation
wiki.link = "[[h_o_s_t:M_o_d_u_l_e:v_e_r_s_i_o_n|M_o_d_u_l_e:v_e_r_s_i_o_n]]"
wiki.link = string.gsub(wiki.link, "v_e_r_s_i_o_n", wiki.version)
wiki.link = string.gsub(wiki.link, "M_o_d_u_l_e", wiki.modulename)
wiki.link = string.gsub(wiki.link, "h_o_s_t", ":" .. wiki.proj .. ":" .. wiki.lang)
wiki.doc_link = "[[ :" .. wiki.proj .. ":" .. wiki.lang .. ":" .. wiki.modulename .. ":" .. wiki.version .. "/" .. wiki.docname .. " | doc ]]"
end
end
return wiki
end -- function begin.central_module_descriptor(known_wikis, selector)
function begin.count_used_central_wikis(known_wikis) -- Count using of central modules in wikis, in begin phase.
if (type(known_wikis) ~= "table") then known_wikis = begin.known_wikis end
local project_T = {}
local module_T = {}
local lang_T = {}
local user_T = {}
local tabs = { project = {}, modulename = {}, lang = {}, user = {}, }
local counts = { project = 0, modulename = 0, lang = 0, user = 0, }
for field, n in pairs(counts) do
for i, wiki in pairs(known_wikis) do
if (type(wiki.project) == "string") then tabs.project[wiki.project] = wiki.project end
if (type(wiki.modulename) == "string") then tabs.modulename[wiki.modulename] = wiki.modulename end
if (type(wiki.lang) == "string") then tabs.lang[wiki.lang] = wiki.lang end
if (type(wiki.user) == "string") then tabs.user[wiki.user] = wiki.user end
end
end
counts.project = luaTable.level_count(tabs.project)
counts.modulename = luaTable.level_count(tabs.modulename)
counts.lang = luaTable.level_count(tabs.lang)
counts.user = luaTable.level_count(tabs.user)
return counts
end -- function begin.count_used_central_wikis(known_wikis)
function begin.init_a_wiki(wiki) -- Detail and re-build a wiki descriptor
-- From a predefined descriptor, and from the url, and from enforce value.
if type(wiki.url_doc) == "string" then
wiki.url_split = mw.text.split(wiki.url_doc, '/') -- fr wikisource org
wiki.hostPort = wiki.url_split[1] -- fr.wikisource.org
-- wiki._wiki_ = wiki.url_split[2] -- /wiki/
wiki.mod_vers = wiki.url_split[3] -- Module:Central-s-fr
wiki.doc_name = wiki.url_split[4] -- Documentation
wiki.mod_space = wiki.mod_vers[1] -- Módulo
wiki.central_proj_lang = wiki.mod_vers[2] -- "Central-s-fr"
-- Re-build central_proj_lang if unknown
if (type(wiki.central_proj_lang) ~= "string") and (type(wiki.hostPort) == "string") then -- fr.wikisource.org
wiki.hostPort_split = mw.text.split(wiki.hostPort, '.') -- fr wikisource org
wiki.lang_short = wiki.hostPort_split[1] -- fr
wiki.proj_short = wiki.hostPort_split[2] -- wikisource
wiki.proj_short = begin.kiwis_names[wiki.proj_short] or wiki.proj_short -- s = wikisource
wiki.central_proj_lang = "Central-" .. wiki.proj_short .. "-" .. wiki.lang_short
end
end
-- Activate if enforce_main_version
if type(wiki.enforce_main_version) == "string" then
wiki.central_proj_lang = wiki.enforce_main_version
end
--[[
p.v.version = "Central-s-fr" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.main_version = "Central" -- Central modules share the main version from the central repositoty to any projects.
p.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
versionName = "Central-s-fr", versionNumber = "03 22:57", versionDate = "2017-04-03 22:57",
sought = "Central-s-fr;Mathroman2;TestRequire", -- Sought module and submodules versions
known = "Central-s-fr;Mathroman2;TestRequire;TestBug", -- Known module and submodules versions
} --]]
p.v.version = wiki.central_proj_lang -- The main module select this version, from its p.versions{}, to replace its main version.
p.versions.versionName = wiki.central_proj_lang -- The main module select this version, from its p.versions{}, to replace its main version.
p.versions.sought = string.gsub(p.versions.sought or "-", begin.master_version or "-", wiki.central_proj_lang or "-")
p.versions.known = string.gsub(p.versions.known or "-", begin.master_version or "-", wiki.central_proj_lang) or "-"
return wiki
end -- function begin.init_a_wiki(wiki) -- Detail and re-build a wiki descriptor
function begin.init_selected_wiki(known_wikis, selector) -- Select the rigth wiki descriptor to init it.
local wiki = begin.central_module_descriptor(known_wikis, selector) -- Adapt this main central module version to a kwnow wiki, in begin phase.
--[[
p.v.version = "Central-s-fr" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.main_version = "Central" -- Central modules share the main version from the central repositoty to any projects.
p.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
versionName = "Central-s-fr", versionNumber = "03 22:57", versionDate = "2017-04-03 22:57",
sought = "Central-s-fr;Mathroman2;TestRequire", -- Sought module and submodules versions
known = "Central-s-fr;Mathroman2;TestRequire;TestBug", -- Known module and submodules versions
} --]]
-- wiki.central_proj_lang = wiki.enforce_main_version
if (type(wiki) == "table") then
p.v.version = wiki.version -- The main module select this version, from its p.versions{}, to replace its main version.
p.versions.versionName = wiki.version -- The main module select this version, from its p.versions{}, to replace its main version.
p.versions.sought = string.gsub(p.versions.sought or "-", begin.proto_version or "-", wiki.central_proj_lang or "-")
p.versions.known = string.gsub(p.versions.known or "-", begin.proto_version or "-", wiki.central_proj_lang) or "-"
end
return wiki
end -- function begin.init_selected_wiki(known_wikis, host_name)
function begin.init_selected_wiki_test(t) -- begin.init_selected_wiki() Test some wiki inits.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>begin.init_selected_wiki()</b> Test some wiki inits :"
if (type(known_wikis) ~= "table") then known_wikis = begin.known_wikis end
local tabView = {
testGroup = {
{ url_doc = "br.wikisource.org/wiki/Modulenn:Central-s-br/doc",
what_to_test = "normal master central wiki",
},
{ url_doc = "fr.wikisource.org/wiki/Module:Central-s-fr/Documentation", master_version = "Central-s-fr",
what_to_test = "abnormal hostPort central wiki", enforce_main_version = "Central-s-br",
},
{ url_doc = "hu.wikipedia.org/wiki/Module:Central-w-hu/doc",
what_to_test = "normal other wiki",
},
{ url_doc = "vi.wikipedia.org/wiki/Mô đun:Central-w-vi/tài liệu",
what_to_test = "abnormal hostPort other wiki", enforce_main_version = "Central-w-vi",
},
},
headers = "what_to_test + url_doc ; hostPort; enforce_main_version; local version; master version",
}
t = t .. viewer.ta("#testGroup: ", #tabView.testGroup)
function tabView.tableView_form_one_case(wiki) -- Convert a case from testGroup to rowGroup.
wiki.url_split = mw.text.split(wiki.url_doc, '/') -- fr wikisource org
wiki.hostPort = wiki.url_split[1] -- fr.wikisource.org
local wiki = begin.init_selected_wiki(known_wikis, wiki.hostPort) -- normal master central wiki.
local tocase = nil
if (type(wiki) == "table") then
tocase = { (wiki.what_to_test or "what_to_test") .. "<br>" .. wiki.url_doc, wiki.hostPort, wiki.enforce_main_version, wiki.central_proj_lang, wiki.master_version, }
end
return tocase
end
tabView.headers = "Project; Language; Admins; Assets; Main module; doc; Start on; Used from; User"
tabView.headers = "what_to_test + url_doc ; hostPort; enforce_main_version; local version; master version"
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
local vers, url, urldoc, link = begin.links_to_central_modules("br.wikisource.org") -- Form links for standard central modules version in any wiki
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function begin.init_selected_wiki_test(known_wikis)
function begin.init_central_versions(wiki, central, main, known_wikis) -- Automatic adaptation of central versions in main and central modules.
--[[ GUIDE-LINE
In the begin phase, the main version of each central test wiki follow the format "Central-s-fr".
After this phase and when the central repository become stable, the format "Central-s-fr" is not needed.
In debug phase, the format "Central-s-fr" is not needed for enough efficient Lua-coders.
To emplement this guide-line init_central_versions() enforce the main version name if enforce_main_version is defined for a wiki.
--]]
-- local vers, url, urldoc, link = begin.links_to_central_modules() -- Form links for standard central modules version in any wiki
-- See: $wmincProjectDatabases in https://www.mediawiki.org/wiki/Extension:WikimediaIncubator
-- translate.Central_x_y = p.Central_x_y -- To adapt the version of Module:Central in any translated text.
-- translate.Module_Central_version = p.Module_Central_version -- To adapt the version of Module:Central in any translated text.
-- enforce_main_version = "Central-s-br",
if type(wiki) ~= "table" then wiki = begin.wiki end
if type(central) ~= "table" then central = begin.central end
if type(main) ~= "table" then main = begin.main end
if type(known_wikis) ~= "table" then known_wikis = begin.known_wikis end
--
begin.ref = {} -- main reference of central versions
begin.loc = {} -- local reference of central versions
--
if type(id) ~= "string" then id = nil end
local t, adr, val, proplabel = "", nil, nil, nil
local wd = {}
local wd_mng = {} -- wikidata manager
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>begin.links_to_central_modules()</b> : Form links for standard central modules version in any wiki."
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
local vers, url, urldoc, link = begin.links_to_central_modules("br.wikisource.org") -- Form links for standard central modules version in any wiki
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function begin.init_central_versions(central, main, wiki)
function begin.support_begin_central_modules(t) -- Tests of main central modules
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>Tests of main central modules:</b> :"
t = t .. "\n* " .. viewer.form9user("begin_central_count_admins_active_users", mw.site.stats.admins, mw.site.stats.activeUsers)
t = t .. " - " .. translate.formTestCase("begin_central_count_admins_active_users", mw.site.stats.admins, mw.site.stats.activeUsers)
--[[ Table holding site statistics. Available statistics are:
mw.site.stats{}
pages: Number of pages in the wiki.
articles: Number of articles in the wiki.
files: Number of files in the wiki.
edits: Number of edits in the wiki.
views: Number of views in the wiki. Not available if $wgDisableCounters is set.
users: Number of users in the wiki.
activeUsers: Number of active users in the wiki.
admins: Number of users in group 'sysop' in the wiki.
--]]
local tabView = {
testGroup = {
-- https://en.wikipedia.org/wiki/Template:Central
-- Modulenn:Central-s-br/doc {{#invoke:Central-s-br|read}} fr = Breton = Breton = Breitz
{ hostPort = "br.wikisource.org", project = "s", lang = "br", doc = "doc", admins = "16", assets = "236", -- 16 administrateurs pour 236
template = "Modèle", moduleSpace = "Modulenn", modulename = "Central-s-br", beginon = "20170305", usedfrom = "20170330 ?", user = "VIGNERON", },
-- https://en.wikipedia.org/wiki/Template:Central
-- Modul:Central-s-de/Documentation {{#invoke:Central-s-de|read}} de = German = Deutsch
{ hostPort = "de.wikisource.org", project = "s", lang = "de", doc = "Doku", admins = "16 ?", assets = "236 ?", -- 16 administrateurs pour 236
moduleSpace = "Modul", modulename = "Central-s-de", beginon = "20170405 ?", usedfrom = "20170430 ?", user = "Wer?", },
--
--
-- Module:Central-s-en/Documentation {{#invoke:Central-w-en|read}} en = English = English
{ hostPort = 'en.wikipedia.org', project = "w", lang = "en", moduleSpace = "Module", doc = "Documentation",
vers = "Central-w-en", centralmodule = "Module:Central-w-en", centraldoc = "Module:Central-w-en/Documentation",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", user = "Who?", },
--
-- Module:Central-s-es/Documentación {{#invoke:Central-w-es|read}} es = Spanish = español
{ hostPort = 'es.wikipedia.org', project = "w", lang = "es", moduleSpace = "Módulo", doc = "Documentación",
vers = "Central-w-es", centralmodule = "Módulo:Central-w-es", centraldoc = "Módulo: Central-w-es/Documentación",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", user = "¿Quién?", }, -- es = ¿Quién?
--
--
-- https://fr.wikipedia.org/wiki/Modèle:Central
-- Module:Central-s-fr/Documentation {{#invoke:Central-s-fr|read}} fr = French = Français = Français
{ hostPort = "fr.wikisource.org", project = "s", lang = "fr", doc = "Documentation", admins = "16", assets = "294", -- 16 administrateurs pour 236
template = "Modèle", moduleSpace = "Module", modulename = "Central-s-fr", beginon = "20170215", usedfrom = "20170304 ?", user = "Rical", },
-- https://hu.wikipedia.org/wiki/Sablon:Central
-- Modul:Central-w-hu/doc {{#invoke:Central-w-hu|read}} hu = Hungarian = Magyar
{ hostPort = "hu.wikipedia.org", project = "w", lang = "hu", doc = "doc", admins = "23", assets = "1513", -- 23 administrateurs pour 1513
template = "Modèle", moduleSpace = "Modul", modulename = "Central-w-hu", beginon = "20170505 ?", usedfrom = "20170530 ?", user = "Ki?", },
-- https://vn.wikipedia.org/wiki/Sablon:Central
-- Mô đun:Central-w-vi/tài liệu {{#invoke:Central-w-vi|read}} fr = Vietnamese = Vietnamien = Tiếng Việt
{ hostPort = "vi.wikipedia.org", project = "w", lang = "vi", doc = "tài liệu", admins = "23", assets = "1513", -- 23 administrateurs pour 1513
template = "Modèle", moduleSpace = "Mô đun", modulename = "Central-w-vi", beginon = "20170412 ?", usedfrom = "20170530 ?", user = "Lê Thy ?", },
},
testGroup = begin.known_wikis,
headers = "begin_support_central_modules_headers",
headers = "Project; Language; Admins; Assets; Main module; doc; Start on; Used from; User",
}
tabView.testGroup = begin.known_wikis
tabView.all_cases = tabView.testGroup
tabView.headers = "begin_support_central_modules_headers"
-- local list, count, level, split = luaTable.level_list(tab, typ, select, field) -- Get only the first level of the table.
-- Get only the first level of the table. Select only keys containing select. Select the field as key if defined.
----------------------------
t = (t or "") .. viewer.ta("support_central_modules: ", "start")
t = t .. viewer.ta("#testGroup: ", #tabView.testGroup)
function tabView.tableView_form_one_case(wiki) -- Generally to define: Convert a case from testGroup to rowGroup.
-- local mwtitle = mw.title.getCurrentTitle()
-- Count each column
-- if (type(wiki.project) == "string") then wiki.project = wiki.project end
-- if (type(wiki.modulename) == "string") then wiki.modulename = wiki.modulename end
-- if (type(wiki.lang) == "string") then wiki.lang = wiki.lang end
-- if (type(wiki.user) == "string") then wiki.user = wiki.user end
return { wiki.project, wiki.lang, wiki.admins, wiki.assets, wiki.link, wiki.doc_link, wiki.beginon, wiki.usedfrom, wiki.user, }
end
tabView.headers = "Project; Language; Admins; Assets; Main module; doc; Start on; Used from; User"
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
local vers, url, urldoc, link = begin.links_to_central_modules("br.wikisource.org") -- Form links for standard central modules version in any wiki
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
t = (t or "") .. viewer.ta("support_central_modules: ", "end")
----------------------------
local list, count, level, split = luaTable.level_list(tabView.testGroup, "number")
t = t .. "\n* <b>begin.follow_central_modules()</b> all. " .. viewer.form9user("There are <b>%1</b> cases in testGroup: <b>%2</b>", count, list)
local interwikiMap = mw.site.interwikiMap() -- Returns a table holding data about available interwiki prefixes.
-- t = t .. luaTable.roughView(interwikiMap, "string", "lang", "fr")
--[[ interwikiMap examples :
fr = { isProtocolRelative = false, ["prefix"] = "fr", isExtraLanguageLink = false, isTranscludable = false, url = "https://fr.wikisource.org/wiki/$1", isCurrentWiki = true, isLocal = true, }
wurmpedia = { isProtocolRelative = false, ["prefix"] = "wurmpedia", isExtraLanguageLink = false, isTranscludable = false, url = "http://wurmpedia.com/index.php/$1", isCurrentWiki = false, isLocal = false, }
w = { isProtocolRelative = false, ["prefix"] = "w", isExtraLanguageLink = false, isTranscludable = false, url = "https://fr.wikipedia.org/wiki/$1", isCurrentWiki = false, isLocal = true, }
--]]
t = t .. '\n* <b>interwikiMap</b> fr example: <b>fr</b> = { isProtocolRelative = false, ["prefix"] = "fr", isExtraLanguageLink = false, isTranscludable = false, url = "https://fr.wikisource.org/wiki/$1", isCurrentWiki = true, isLocal = true, }'
t = t .. '\n* <b>interwikiMap</b> w example: <b>w</b> = { isProtocolRelative = false, ["prefix"] = "w", isExtraLanguageLink = false, isTranscludable = false, url = "https://fr.wikipedia.org/wiki/$1", isCurrentWiki = false, isLocal = true, }'
local list, count, level, split = luaTable.level_list(interwikiMap, "string", "/vi.", "url")
t = t .. "\n* <b>interwikiMap</b> selection: " .. viewer.form9user("There are <b>%1</b> in <b>%2</b> projects from interwikiMap: <b>%3</b>", count, "/vi.", "url")
local list, count, level, split = luaTable.level_list(interwikiMap, "string", "/fr.", "url")
t = t .. "\n* <b>interwikiMap</b> selection: " .. viewer.form9user("There are <b>%1</b> in <b>%2</b> projects from interwikiMap: <b>%3</b>", count, "/fr.", "url")
local list, count, level, split = luaTable.level_list(interwikiMap, "string", "/fr.", "url")
-- "There are wikisource projects in <b>%1</b> languages: <b>%2</b>",
t = t .. "\n* <b>interwikiMap</b> selection: " .. viewer.form9user("There are <b>%1</b> in <b>%2</b> projects from interwikiMap: <b>%3</b>", count, ".s.", "url")
local list, count, level, split = luaTable.level_list(interwikiMap, "string", "true")
t = t .. "\n* <b>interwikiMap</b> all " .. count .. " keys: " .. list -- phab = phabricator
--[[
interwikiMap selection: There are 751 Vietnamize projects in interwikiMap: //libreplanet.org/wiki/$1, //wiki.openstreetmap.org/wiki/$1, https://www.wikidata.org/wiki/$1, http://www.dmoz.org/cgi-bin/search?search=$1, https://wikimania.wikimedia.org/wiki/$1, http://www.EcoReality.org/wiki/$1, https://oc.wikisource.org/wiki/$1, https://phabricator.wikimedia.org/$1,
-- p.ModuleNS = mw.site.namespaces.Module.name .. ":"
-- local wiki_Module_space = mw.site.namespaces.Module.name -- name: Local namespace name.
--]]
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- t = begin.support_begin_central_modules(t)
function begin.links_to_central_modules(hostPort) -- Form links for standard central modules version in any wiki
-- local vers, url, urldoc, link = begin.links_to_central_modules() -- Form links for standard central modules version in any wiki
-- See: $wmincProjectDatabases in https://www.mediawiki.org/wiki/Extension:WikimediaIncubator
-- translate.Central_x_y = p.Central_x_y -- To adapt the version of Module:Central in any translated text.
-- translate.Module_Central_version = p.Module_Central_version -- To adapt the version of Module:Central in any translated text.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>begin.links_to_central_modules()</b> : Form links for standard central modules version in any wiki."
t = t .. "\n* " .. viewer.form9user("begin_central_count_admins_active_users", mw.site.stats.admins, mw.site.stats.activeUsers)
local wikis = {
cm = 'commons', test2 = 'test2', p = 'wiki', b = 'wikibooks',
wm = 'wikimedia', meta = 'meta', n = 'wikinews', q = 'wikiquote',
s = 'wikisource', species = 'species', t = 'wiktionary', v = 'wikiversity',
y = 'wikivoyage',
}
local kiwis = {
commons = 'cm', test2 = 'test2', wiki = 'p', wikibooks = 'b',
wikimedia = 'wm', meta = 'meta', wikinews = 'n', wikiquote = 'q',
wikisource = 's', species = 'species', wiktionary = 't', wikiversity = 'v',
wikivoyage = 'y',
}
-- tabView.testGroup
local tabView = {
testGroup = { -- español(es=Spanish), français(fr=French), Tiếng Việt(vi=Vietnamese),
-- local Central_connections = { -- español(es=Spanish), français(fr=French), Tiếng Việt(vi=Vietnamese),
--
-- Modulenn:Central-s-br/doc {{#invoke:Central-s-br|read}} br = Breton = Brezhoneg
{ hostPort = 'br.wikisource.org', moduleSpace = "Modulenn", doc = "doc", user = "VIGNERON",
-- vers = "Central-w-br", centralmodule = "Modulenn:Central-w-br", centraldoc = "Modulenn:Central-w-br/doc",
admins = "16 ?", assets = "236 ?", beginon = "20170215", usedfrom = "20170304 ?", update = "20170410", },
-- Modul:Central-s-de/Doku {{#invoke:Central-s-de|read}} de = German = Deutsch
{ hostPort = 'de.wikisource.org', moduleSpace = "Modul", doc = "Doku", user = "Wer?",
-- vers = "Central-w-de", centralmodule = "Modul:Central-s-de", centraldoc = "Modul:Central-s-de/Doku",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", update = "20170410", },
-- Module:Central-s-en/Documentation {{#invoke:Central-s-en|read}} en = English = English
{ hostPort = 'en.wikipedia.org', moduleSpace = "Module", doc = "Documentation", user = "Who?",
-- lang = "en", project = "wikipedia",
-- vers = "Central-w-en", centralmodule = "Module:Central-w-en", centraldoc = "Module:Central-w-en/Documentation",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", update = "20170410", },
--
-- Module:Central-s-es/Documentación {{#invoke:Central-s-es|read}} es = Spanish = español
{ hostPort = 'es.wikipedia.org', moduleSpace = "Módulo", doc = "Documentación", user = "Quien?",
-- lang = "es", project = "wikipedia",
-- vers = "Central-w-es", centralmodule = "Módulo:Central-w-es", centraldoc = "Módulo: Central-w-es/Documentación",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", update = "20170410", },
--
-- Module:Central-s-fr/Documentation {{#invoke:Central-s-fr|read}} fr = French = français
{ hostPort = 'fr.wikisource.org', moduleSpace = "Module", doc = "Documentation", user = "Rical",
-- lang = "fr", project = "wikisource",
-- vers = "Central-s-fr", centralmodule = "Module:Central-s-fr", centraldoc = "Module:Central-s-fr/Documentation",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", update = "20170410", },
--
-- Modul:Central-w-hu/doc {{#invoke:Central-w-hu|read}} hu = Hungarian = Magyar
{ hostPort = 'hu.wikipedia.org', moduleSpace = "Modul", doc = "Doc", user = "Rical",
-- lang = "hu", project = "wikipedia",
-- vers = "Central-w-hu", centralmodule = "Modul:Central-w-hu", centraldoc = "Modul:Central-w-hu/doc",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", update = "20170410", },
--
-- Mô đun:Central-w-vi/tài liệu {{#invoke:Central-w-vi|read}} vi = Vietnamese = Tiếng Việt
{ hostPort = 'vi.wikipedia.org', moduleSpace = "Mô đun", doc = "tài liệu", user = "Rical",
-- lang = "vi", project = "wikipedia",
-- vers = "Central-w-vi", centralmodule = "Mô đun:Central-w-vi", centraldoc = "Mô đun:Central-w-vi/tài liệu",
admins = "16 ?", assets = "236 ?", beginon = "20170215 ?", usedfrom = "20170304 ?", update = "20170410", },
},
title_memo = "begin_links_to_central_modules_title", -- "begin.links_to_central_modules() Links to begin with central modules.",
headers_class = "wikitable alternative center sortable",
headers = "begin_links_to_central_modules_headers",
}
table.sort(tabView.testGroup, function (a, b) return (a.hostPort > b.hostPort) end ) -- alphabetic sort of translated arguments
function tabView.tableView_form_one_case(wiki) -- Generally to define: Convert a case from testGroup to rowGroup.
-- local all_cases = all_cases or tabView.all_cases
local wiki = begin.central_module_descriptor(known_wikis, wiki.hostPort) -- Adapt this main central module version to a kwnow wiki, in begin phase.
return wiki
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function begin.links_to_central_modules(hostPort)
function begin.rough_delay_stamps(stamp1, stamp2) -- Rough delay between two time stamps.
local delay, years, months, days = 0, 0, 0, 0
if (type(stamp1) ~= "string") or (type(stamp2) ~= "string") then return delay end
local y1 = tonumber(string.sub(stamp1,1,4))
local y2 = tonumber(string.sub(stamp2,1,4))
if y1 and y2 then years = y2 - y1 end
local m1 = tonumber(string.sub(stamp1,5,6))
local m2 = tonumber(string.sub(stamp2,5,6))
if m1 and m2 then months = m2 - m1 end
local d1 = tonumber(string.sub(stamp1,7,8))
local d2 = tonumber(string.sub(stamp2,7,8))
if d1 and d2 then days = d2 - d1 end
delay = years * 365 + months * 30 + days
return delay
end
-- begin.follow_central_modules() Suivre le début de l'utilisation des modules centraux.
function begin.survey_sub_tasks(t) -- Survey the current state of sub tasks to debug.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>begin.survey_sub_tasks()</b> -- Report the current state of debug steps."
local tabView = {
testGroup = { -- get.subI18N
-- Todo later TestsCases
{ "20170617", "20170618", "later", "Rical", "viewer.CSS_styles() -- Define viewers CSS_styles.", },
{ "20170616", "20170616", "later", "Rical", "translate.abnormal_char_in_text() fails", },
{ "20170605", "20170615", "later", "Rical", "Debug all functions tests in dropboxes", },
{ "20170603", "20170604", "later", "Rical", "Enhance datas.import_wikidata() from 20170403 ModuleCentral 6a clean display.lua", },
{ "20170530", "20170602", "later", "Rical", "debug antiLoop() modules libraries runTestsCases counts init time tables", },
{ "20170528", "20170529", "later", "Rical", "debug antiCrash() + tests", },
{ "20170525", "20170527", "later", "Rical", "debug testsCases.runTestsCases()", },
{ "20170523", "20170524", "later", "Rical", "debug testsCases.searchDiffs()", },
{ "20170521", "20170522", "later", "Rical", "Begin: Automatic count coders, languages, projects and detect the end of the Begin task", },
{ "20170519", "20170520", "later", "Rical", "cat:mw+central versions in internal error .last_scribunto_versions()", },
{ "20170515", "20170518", "later", "Rical", "use viewer.tableView for all tables", },
{ "20170512", "20170712", "later", "Rical", "Begin: Integrate central changes from other coders", },
{ "20170512", "20170712", "later", "Rical", "Begin: Survey sub tasks in 10 projects", },
{ "20170506", "20170508", "later", "Rical", "Colors for easier understand errors on sough/known in versioning.versions_management_report()", },
{ "20170506", "20170508", "later", "Rical", "Bind i18n in reverse order of versioning.bind_sub_modules()", },
{ "20170506", "20170508", "later", "Rical", "Bind the main module versioning.bind_main_module_and_i18n()", },
{ "20170504", "20170505", "later", "Rical", "Include main module in versioning.bind_sub_modules()", },
{ "20170502", "20170503", "later", "Rical", "Ask translations to the meta [https://meta.wikimedia.org/wiki/Translation_requests Translation_requests]", },
-- https://meta.wikimedia.org/wiki/Translation_requests
{ "20170506", "20170511", "later", "Rical", "Begin: Find 10 Lua-coders in 10 projects, small or big", },
{ "20170503", "20170504", "later", "Rical", "inform [https://meta.wikimedia.org/wiki/Tech/News#contribute Tech News] about central modules begin phase", },
-- https://meta.wikimedia.org/wiki/Tech/News#contribute
{ "20170501", "20170502", "later", "Rical", "Create T20170130 Begin to use central modules", },
{ "20170419", "20170420", "later", "Rical", "Update [[ MediaWiki:Scribunto/Central modules | central modules ]] and [[ MediaWiki:Scribunto/Central modules reference manual | reference manual ]] reference manual docs", },
-- MediaWiki:Scribunto/Central modules reference manual
-- Todo now
{ "20170419", "20170419", "now", "Rical", "List all tests which need to debug. See -- to_debug_on 20170409", },
{ "20170404", "20170408", "now", "Rical", "Rename, sort, clean libraries and functions", },
{ "20170408", "20170408", "now", "Rical", "Update tests examples: Pascal, Montaigne", },
{ "20170408", "20170408", "now", "Rical", "Update tests structures: module, module doc, template, template doc + example, example 1/2, example 1/2 doc", },
{ "20170404", "20170407", "now", "Rical", "Test in Central-s-fr and Utilisateur:Rical/Victor Hugo", },
-- Already done
{ "20170317", "20170409", "done", "Rical", "from_subnames() fails, ok on 20170409", },
{ "20170408", "20170408", "done", "Rical", "Restore the stable datas.import_wikidata() from 20160816 ModuleCentral 3a luaTable.tolist.lua", },
{ "20170402", "20170404", "done", "Rical", "bind_i18n_translations() ok to sort", },
{ "20170201", "20170402", "done", "Rical", "formSubCounts() fails", },
{ "20170110", "20170402", "done", "Rical", "translations missing in dropbox titles...","translate.track_i18n_t", },
{ "20170328", "20170401", "done", "Rical", "versioning.bind_central_libraries() fails","library.binded_in = 'LD' ok", },
},
title_memo = "begin_survey_sub_tasks_title", -- "begin.survey_sub_tasks(t) Monitor the current state of subtasks to correct",
headers = " start; end; state; user; bug description; delay ",
headers_class = "wikitable alternative center sortable",
}
table.sort(tabView.testGroup, function (a, b) return (a[3] < b[3]) end ) -- alphabetic sort of translated arguments
table.sort(tabView.testGroup, function (a, b) return (a[2] > b[2]) end ) -- alphabetic sort of translated arguments
function tabView.tableView_form_one_case(bug, all_cases) -- Generally to define: Convert a case from testGroup to rowGroup.
bug[6] = begin.rough_delay_stamps(bug[1], bug[2])
return bug
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- t = function begin.survey_sub_tasks(t)
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- The Library:datas imports datas of Wikidata from mw.wikibase
-- function datas.import_wikidata(args_known, id) -- Import datas of Wikidata from mw.wikibase
-- see Extension:Wikibase Client/Lua
-- see Extension:Scribunto/Lua reference manual : class nameTest extends Scribunto_LuaEngineTestBase
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- datas = {} -- already declared by Scribunto, else in _G space.
-- Translations for datas library
datas.i18n = {}
datas.i18n.en = {
-- Wikidata
datas_wikidata_wikibase_err = "Error: Wikibase is not available.",
datas_wikidata_getEntity_err = "Error: getEntity Wikidata is not available.",
datas_wikidata_getEntityObject_err = "Error: Element Wikidata <b>%1</b> is not found.",
datas_wikidata_property_err = "Error: Wikidata property <b>%1</b> is not found.",
datas_wikidata_error_err = "Error Wikidata: <b>%1</b> ",
-- datas_wikidata_cat_err = "Error Wikidata",
datas_wikidata_cat_err = "Module with internal error", -- modes_no_source_arguments_cat
datas_structured_data_txt = 'Datas from Wikidata',
datas_wikidata_any_page_title = "Wikidata for any page:",
datas_wikidata_details_test_title = "Tests and imported datas from wikidata",
datas_wikidata_arbitrary_tests_title = "datas.import_wikidata() Test of Wikidata arbitrary access",
datas_wikidata_arbitrary_access_text = "Wikidata for another Title: ",
datas_wikidata_time_details_title = "datas.wikidata_time_details{} Wikidata time properties for more details",
-- Miscellaneous warnings and errors
datas_no_args_wikidata_err = "Error: Module without wikidata arguments table.",
datas_sources_of_datas = "Informations from: /Wikidata, /template or module, /other, /warning, /error",
} -- datas.i18n.en
datas.i18n.es = {
-- Wikidata
datas_wikidata_wikibase_err = "Error: Wikibase no está disponible.",
datas_wikidata_getEntity_err = "Error: getEntity Wikidata no está disponible.",
datas_wikidata_getEntityObject_err = "Error: Elemento <b>%1</b> de Wikidata no se encuentra.",
datas_wikidata_property_err = "Error: La propiedad <b>%1</b> de Wikidata no se encuentra.",
datas_wikidata_error_err = "Error Wikidata : <b>%1</b> ",
datas_wikidata_cat_err = "Módulo con error interno", -- modes_no_source_arguments_cat
datas_structured_data_txt = 'Datos de Wikidata',
datas_wikidata_any_page_title = "Wikidata para cualquier página:",
datas_wikidata_details_test_title = "Pruebas y datos importados de wikidata",
datas_wikidata_arbitrary_tests_title = "datas.import_wikidata() Prueba de Wikidata acceso arbitrario",
datas_wikidata_arbitrary_access_text = "Wikidata por otro título: ",
datas_wikidata_time_details_title = "datas.wikidata_time_details{} Wikidata propiedades de tiempo para más detalles",
-- Diversos mensajes y errores
datas_no_args_wikidata_err = "Error: Módulo sin argumentos wikidata tabla.",
datas_sources_of_datas = "Informaciones de: /Wikidata, /template o module, /other, /warning, /error",
} -- datas.i18n.es
datas.i18n.fr = {
-- Wikidata
datas_wikidata_wikibase_err = "Erreur : Wikibase n'est pas disponible.",
datas_wikidata_getEntity_err = "Erreur : getEntity Wikidata n'est pas disponible.",
datas_wikidata_getEntityObject_err = "Erreur : L'élément <b>%1</b> de Wikidata n'est pas trouvé.",
datas_wikidata_property_err = "Erreur : La propriété <b>%1</b> de Wikidata n'est pas trouvée.",
datas_wikidata_error_err = "Erreur Wikidata : <b>%1</b> ",
-- datas_wikidata_cat_err = "modes_no_source_arguments_cat",
datas_wikidata_cat_err = "Module with internal error", -- modes_no_source_arguments_cat
datas_structured_data_txt = 'Données de Wikidata',
datas_wikidata_any_page_title = "Wikidata pour une autre page :",
datas_wikidata_details_test_title = "Tests et données importées de wikidata",
datas_wikidata_arbitrary_tests_title = "datas.import_wikidata() Test de Wikidata accès arbitraire",
datas_wikidata_arbitrary_access_text = "Wikidata pour une autre page: ",
datas_wikidata_time_details_title = "datas.wikidata_time_details{} Wikidata propriétés de temps pour plus de détails",
-- Messages et erreurs divers
datas_no_args_wikidata_err = "Erreur interne : Module sans table d'arguments wikidata.",
datas_sources_of_datas = "Informations de : /Wikidata, /modèle ou module, /autres, /warning, /erreur",
} -- datas.i18n.fr
-- from 2016-08-16 ModuleCentral 3a luaTable.tolist.lua
function datas.import_wikidata(args_known, id) -- id = itemid
-- wikidata structure args_known.father = mw.wikibase.label( "Q" .. entity.claims.p107[0].mainsnak.datavalue.value["numeric-id"])
if type(args_known) ~= "table" then args_known = tools.args_known end
if type(id) ~= "string" then id = nil end
local t, adr, val, proplabel = "", nil, nil, nil
local wd = {}
local wd_mng = {} -- wikidata manager
wd_mng.wd_base = mw.wikibase
if not wd_mng.wd_base then -- Wikibase available ?
wd_mng.wd_error = "wd_base"
t = t .. tools.viewer.ta("wd_error", wd_mng.wd_error)
wd_mng.t = t
tools.args_wikidata = wd
return wd, t, wd_mng
end
function pcall_getEntityObject( wd_id ) -- wikidata arbitrary access must not fail and block the page.
local success, entity = pcall( mw.wikibase.getEntity, wd_id ) -- pcall or xpcall can run any function without blocking page.
if success then return entity else return nil end
-- T49930 Allow accessing data from a Wikidata item not connected to the current page - arbitrary access (tracking)
end
if id then -- Wikidata item available ?
wd_mng.wd_entity = pcall_getEntityObject( id )
else
wd_mng.wd_id = mw.wikibase.getEntityIdForCurrentPage() -- Returns the Item id as string, like "Q42"
if wd_mng.wd_id then -- Wikidata item available ?
wd_mng.wd_entity = mw.wikibase.getEntityObject(wd_mng.wd_id)
wd_mng.wd_entity.id = mw.wikibase.getEntityIdForCurrentPage() -- Returns the Item id as string, like "Q42"
end
-- wd_mng.wd_entity = mw.wikibase.getEntity() -- ex getEntityObject
end
if wd_mng.wd_entity then -- Page Wikidata disponible ?
if wd_mng.wd_entity.claimRanks then
wd_mng.wd_claimRanks = wd_mng.wd_entity.claimRanks
wd_mng.wd_RANK_TRUTH = wd_mng.wd_entity.claimRanks.RANK_TRUTH
wd_mng.wd_RANK_PREFERRED = wd_mng.wd_entity.claimRanks.RANK_PREFERRED
wd_mng.wd_RANK_NORMAL = wd_mng.wd_entity.claimRanks.RANK_NORMAL
wd_mng.wd_RANK_DEPRECATED = wd_mng.wd_entity.claimRanks.RANK_DEPRECATED
-- https://www.mediawiki.org/wiki/Extension:WikibaseClient/Lua#mw.wikibase.entity.claimRanks
-- Return the normal ranked claims with the property id P5
-- entity:formatPropertyValues( 'P5', { mw.wikibase.entity.claimRanks.RANK_NORMAL } )
-- Return all claims with id P123 (as the table passed contains all possible claim ranks)
-- entity:formatPropertyValues( 'P123', mw.wikibase.entity.claimRanks )
-- mw.wikibase.entity.claimRanks = RANK_TRUTH, RANK_PREFERRED, RANK_NORMAL, RANK_DEPRECATED
end
wd_mng.sitelink = wd_mng.wd_entity:getSitelink( )
wd_mng.label = wd_mng.wd_entity:getLabel( ) -- Returns a string, like "Berlin" with 'de'
wd_mng.props = wd_mng.wd_entity:getProperties() -- or {} Returns a table like: { "P123", "P1337" }
wd_mng.props_maxn = tostring(table.maxn( wd_mng.props ) )
wd_mng.props_txt = "T " .. mw.text.listToText( wd_mng.props )
--
wd_mng.props_list = " "
for i, pp in ipairs(wd_mng.props) do -- Properties list
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp )
if wd_mng.wd_claimRanks then
wd_mng.formatPropertyValues_claimRanks = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_claimRanks } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_RANK_TRUTH = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_TRUTH } )
end
if wd_mng.wd_RANK_PREFERRED then
wd_mng.formatPropertyValues_RANK_PREFERRED = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_PREFERRED } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_wd_RANK_NORMAL = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_NORMAL } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_RANK_DEPRECATED = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_DEPRECATED } )
end
val = wd_mng.formatPropertyValues.value
proplabel = wd_mng.formatPropertyValues.label
wd_mng.props_list = wd_mng.props_list .. " , " .. i .. "=" .. pp .. "=" .. tools.viewer.ta(proplabel, val)
-- .. "/" .. tools.viewer.ta(proplabel, wd_mng.formatPropertyNORMAL)
if pp == "P569" then -- birthyear P569 for test DEBUG
tools.TimeName = pp .. ".1.mainsnak" ; tools.WikidataTimeDetails = wd_mng.wd_entity.claims[pp][1].mainsnak end
if pp == "P570" then -- deathyear P570 for test DEBUG
tools.TimeName = pp .. ".1.mainsnak" ; tools.WikidataTimeDetails = wd_mng.wd_entity.claims[pp][1].mainsnak end
-- https://www.wikidata.org/wiki/Wikidata:Bistro#Date de décès inconnue
-- Dans la propriete :Il y a trois petits rectangles à gauche qui permettent de dire si il n'y a pas de valeur (donc pas mort) où si la date est inconnue, le modèle ici ne tient pas compte de ces éléments. --[[User:Pino~eowiki|Pino~eowiki]] ([[User talk:Pino~eowiki|<span class="signature-talk">{{int:Talkpagelinktext}}</span>]]) 16:40, 27 January 2016 (UTC)
end
else -- if not wd_mng.wd_entity then entity unknown for the page. entity introuvable pour la page.
wd_mng.wd_error = "wd_entity"
t = t .. tools.viewer.ta("wd_error", wd_mng.wd_error)
wd_mng.t = t
tools.args_wikidata = wd
return wd, t, wd_mng
end
if wd_mng.wd_error then -- Show an error, Signaler une erreur
if wd_mng.wd_error == "wikidata_props" then err = tools.strVars("tools_wikidata_error_err", "wikidata_props") end
if wd_mng.wd_error == "wd_base" then err = tools.strVars("tools_wikidata_wikibase_err") end
if wd_mng.wd_error == "wd_entity" then err = tools.strVars("tools_wikidata_getEntity_err", wd_mng.wd_entity) end
if wd_mng.wd_error == "wd_property" then err = tools.strVars("tools_wikidata_property_err", wd_mng.wd_property) end
-- elem -> id
if wd_mng.wd_error == "wd_id" then err = tools.strVars("tools_wikidata_getEntityObject_err", wd_mng.wd_id) end
err = tools.err_add(err)
t = t .. err
local tools_wikidata_cat_err = tools.cat_add("tools_wikidata_cat_err")
else
if type(args_known) ~= "table" then args_known = {} end
for key, pp in pairs(args_known) do -- Pour tous les paramètres connus
if pp.prop then
if pp.prop == "label" then val = wd_mng.label
elseif pp.prop == "sitelink" then val = wd_mng.sitelink
elseif pp.prop == "itemid" then val = wd_mng.wd_entity.id
elseif pp.prop == "description" then val = wd_mng.wd_base.description( wd_mng.wd_id ) -- wikibase.description( id )
elseif pp.prop == "claims" then val = wd_mng.wd_base.renderSnak( wd_mng.wd_entity['claims'] ) -- Returns the given Snaks formatted as wiki text.
-- local entity = mw.wikibase.getEntityObject()
-- local snaks = entity['claims']['P342'][1]['qualifiers']
-- mw.wikibase.renderSnaks( snaks ) -- Returns the given Snaks formatted as wiki text.
else
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp.prop ) -- "P" .. pp.prop
-- Returns a table like: { value = "Formatted claim value", label = "Label of the Property" }
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_TRUTH } )
end
if wd_mng.wd_claimRanks then
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_claimRanks } )
end
val = wd_mng.formatPropertyValues.value
proplabel = wd_mng.formatPropertyValues.label
end
if pp.format == "year" then
val = mw.ustring.sub( val, -4, -1 )
end
wd[key] = val
t = t .. tools.viewer.ta(key, val) -- .. tools.viewer.ta(key, wd_mng.formatPropertyNORMAL)
end
end
end
-- wd.lastname = wd.label
wd_mng.t = t
tools.args_wikidata = wd
return wd, t, wd_mng
end -- function datas.import_wikidata(args_known, id)
function datas.import_wikidata_new(args_known, wd_id) -- Import datas of Wikidata from mw.wikibase
-- wikidata structure args_known.father = mw.wikibase.label( "Q" .. entity.claims.p107[0].mainsnak.datavalue.value["numeric-id"])
if type(args_known) ~= "table" then args_known = modes.args_known end
if type(wd_id) ~= "string" then wd_id = nil end
local t, adr, val, proplabel = "", nil, nil, nil
local wd = {}
local wd_mng = {} -- wikidata manager
wd_mng.wd_base = mw.wikibase
if not wd_mng.wd_base then -- Wikibase available ?
wd_mng.wd_error = "wd_base"
t = t .. viewer.ta("wd_error", wd_mng.wd_error)
wd_mng.t = t
datas.args_wikidata = wd
return wd, t, wd_mng
end
local function getEntityObject_pcall( wd_id ) -- wikidata arbitrary access must not fail and block the page.
local success, entity = pcall( mw.wikibase.getEntity, wd_id ) -- pcall or xpcall can run any function without blocking page.
if success then return entity else return nil end
-- T49930 Allow accessing data from a Wikidata item not connected to the current page - arbitrary access (tracking)
end
local pcall_wd_id = getEntityObject_pcall( wd_id )
if pcall_wd_id then -- Wikidata item available ?
wd_mng.wd_entity = getEntityObject_pcall( wd_id )
else
wd_mng.wd_id = mw.wikibase.getEntityIdForCurrentPage() -- Returns the Item id as string, like "Q42"
if wd_mng.wd_id then -- Wikidata item available ?
wd_mng.wd_entity = mw.wikibase.getEntityObject(wd_mng.wd_id)
wd_mng.wd_entity.id = mw.wikibase.getEntityIdForCurrentPage() -- Returns the Item id as string, like "Q42"
end
-- wd_mng.wd_entity = mw.wikibase.getEntity() -- ex getEntityObject
end
if wd_mng.wd_entity then -- Page Wikidata disponible ?
if wd_mng.wd_entity.claimRanks then
wd_mng.wd_claimRanks = wd_mng.wd_entity.claimRanks
wd_mng.wd_RANK_TRUTH = wd_mng.wd_entity.claimRanks.RANK_TRUTH
wd_mng.wd_RANK_PREFERRED = wd_mng.wd_entity.claimRanks.RANK_PREFERRED
wd_mng.wd_RANK_NORMAL = wd_mng.wd_entity.claimRanks.RANK_NORMAL
wd_mng.wd_RANK_DEPRECATED = wd_mng.wd_entity.claimRanks.RANK_DEPRECATED
-- https://www.mediawiki.org/wiki/Extension:WikibaseClient/Lua#mw.wikibase.entity.claimRanks
-- Return the normal ranked claims with the property id P5
-- entity:formatPropertyValues( 'P5', { mw.wikibase.entity.claimRanks.RANK_NORMAL } )
-- Return all claims with id P123 (as the table passed contains all possible claim ranks)
-- entity:formatPropertyValues( 'P123', mw.wikibase.entity.claimRanks )
-- mw.wikibase.entity.claimRanks = RANK_TRUTH, RANK_PREFERRED, RANK_NORMAL, RANK_DEPRECATED
end
wd_mng.sitelink = wd_mng.wd_entity:getSitelink( )
wd_mng.label = wd_mng.wd_entity:getLabel( ) -- Returns a string, like "Berlin" with 'de'
wd_mng.props = wd_mng.wd_entity:getProperties() -- or {} Returns a table like: { "P123", "P1337" }
wd_mng.props_maxn = tostring(table.maxn( wd_mng.props ) )
wd_mng.props_txt = "T " .. mw.text.listToText( wd_mng.props )
--
wd_mng.props_list = " "
for i, pp in ipairs(wd_mng.props) do -- Properties list
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp )
if wd_mng.wd_claimRanks then
wd_mng.formatPropertyValues_claimRanks = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_claimRanks } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_RANK_TRUTH = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_TRUTH } )
end
if wd_mng.wd_RANK_PREFERRED then
wd_mng.formatPropertyValues_RANK_PREFERRED = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_PREFERRED } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_wd_RANK_NORMAL = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_NORMAL } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_RANK_DEPRECATED = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_DEPRECATED } )
end
val = wd_mng.formatPropertyValues.value
proplabel = wd_mng.formatPropertyValues.label
wd_mng.props_list = wd_mng.props_list .. " , " .. i .. "=" .. pp .. "=" .. viewer.ta(proplabel, val)
-- .. "/" .. viewer.ta(proplabel, wd_mng.formatPropertyNORMAL)
if pp == "P569" then -- birthyear P569 for test DEBUG
datas.TimeName = pp .. ".1.mainsnak" ; datas.wikidata_time_details = wd_mng.wd_entity.claims[pp][1].mainsnak end
if pp == "P570" then -- deathyear P570 for test DEBUG
datas.TimeName = pp .. ".1.mainsnak" ; datas.wikidata_time_details = wd_mng.wd_entity.claims[pp][1].mainsnak end
-- https://www.wikidata.org/wiki/Wikidata:Bistro#Date de décès inconnue
-- Dans la propriete :Il y a trois petits rectangles à gauche qui permettent de dire si il n'y a pas de valeur (donc pas mort) où si la date est inconnue, le modèle ici ne tient pas compte de ces éléments. --[[User:Pino~eowiki|Pino~eowiki]] ([[User talk:Pino~eowiki|<span class="signature-talk">{{int:Talkpagelinktext}}</span>]]) 16:40, 27 January 2016 (UTC)
end
else -- if not wd_mng.wd_entity then entity unknown for the page. entity introuvable pour la page.
wd_mng.wd_error = "wd_entity"
t = t .. viewer.ta("wd_error", wd_mng.wd_error)
wd_mng.t = t
datas.args_wikidata = wd
return wd, t, wd_mng
end
if wd_mng.wd_error then -- Show an error, Signaler une erreur
if wd_mng.wd_error == "wikidata_props" then err = viewer.form9user("datas_wikidata_error_err", "wikidata_props") end
if wd_mng.wd_error == "wd_base" then err = viewer.form9user("datas_wikidata_wikibase_err") end
if wd_mng.wd_error == "wd_entity" then err = viewer.form9user("datas_wikidata_getEntity_err", wd_mng.wd_entity) end
if wd_mng.wd_error == "wd_property" then err = viewer.form9user("datas_wikidata_property_err", wd_mng.wd_property) end
-- elem -> id
if wd_mng.wd_error == "wd_id" then err = viewer.form9user("datas_wikidata_getEntityObject_err", wd_mng.wd_id) end
err = events.add_err(err) .. ";"
t = t .. err
local datas_wikidata_cat_err = events.add_cat("datas_wikidata_cat_err")
else
if type(args_known) ~= "table" then args_known = {} end
for key, pp in pairs(args_known) do -- Pour tous les paramètres connus
if pp.prop then
if pp.prop == "label" then val = wd_mng.label
elseif pp.prop == "sitelink" then val = wd_mng.sitelink
elseif pp.prop == "itemid" then val = wd_mng.wd_entity.id
elseif pp.prop == "description" then val = wd_mng.wd_base.description( wd_mng.wd_id ) -- wikibase.description( id )
elseif pp.prop == "claims" then val = wd_mng.wd_base.renderSnak( wd_mng.wd_entity['claims'] ) -- Returns the given Snaks formatted as wiki text.
-- local entity = mw.wikibase.getEntityObject()
-- local snaks = entity['claims']['P342'][1]['qualifiers']
-- mw.wikibase.renderSnaks( snaks ) -- Returns the given Snaks formatted as wiki text.
else
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp.prop ) -- "P" .. pp.prop
-- Returns a table like: { value = "Formatted claim value", label = "Label of the Property" }
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_TRUTH } )
end
if wd_mng.wd_claimRanks then
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_claimRanks } )
end
val = wd_mng.formatPropertyValues.value
proplabel = wd_mng.formatPropertyValues.label
end
if pp.format == "year" then
val = mw.ustring.sub( val, -4, -1 )
end
wd[key] = val
t = t .. viewer.ta(key, val) -- .. viewer.ta(key, wd_mng.formatPropertyNORMAL)
end
end
end
-- wd.lastname = wd.label
wd_mng.t = t
datas.args_wikidata = wd
return wd, t, wd_mng
end -- function datas.import_wikidata_new(args_known, id)
function datas.import_wikidata_new_2(args_known, id)
-- wikidata structure args_known.father = mw.wikibase.label( "Q" .. entity.claims.p107[0].mainsnak.datavalue.value["numeric-id"])
if type(args_known) ~= "table" then args_known = modes.args_known end -- or p.args_known
local t, adr, val, proplabel = "", nil, nil, nil
local wd = {}
local wd_mng = {} -- wikidata manager
if type(id) == "string" then -- Le 2013-06-19 acces restreint par Lua pour un autre élément
-- https://bugzilla.wikimedia.org/show_bug.cgi?id=49805
-- T49930 Allow accessing data from a Wikidata item not connected to the current page - arbitrary access (tracking)
-- Reported: 2013-06-19 10:52 UTC by Rical
wd_mng.wd_id = id
-- t = t .. viewer.ta("wd_error", wd.wd_error)
-- t = t .. "\n* " .. viewer.ta("wd_id", wd_mng.wd_id)
-- t = t .. " see [https://phabricator.wikimedia.org/T49930 bug T49930]" -- DEBUG
wd_mng.t = t or ""
-- wd_mng.wd_error = "wd_id"
-- wd_mng.wd_id = nil -- anti-bug 47930
-- datas.args_wikidata = wd
-- return wd, t, wd_mng
end
wd_mng.wd_base = mw.wikibase
if not wd_mng.wd_base then -- Wikidata disponible ?
wd_mng.wd_error = "wd_base"
t = t .. viewer.ta("wd_error", wd_mng.wd_error)
wd_mng.t = t
datas.args_wikidata = wd
return wd, t, wd_mng
end
--
local function getEntityObject_xpcall( wd_id ) -- wikidata arbitrary access must not fail and block the page.
-- local entity = mw.wikibase.getEntityObject( wd_id )
-- if type(wd_id) ~= "string" then wd_id = nil end
local success, entity = pcall( mw.wikibase.getEntity, wd_id ) -- pcall or xpcall can run any function without blocking page.
if success then return entity else return nil end
-- T49930 Allow accessing data from a Wikidata item not connected to the current page - arbitrary access (tracking)
end
-- wd_mng.wd_entity = getEntityObject_xpcall( wd_mng.wd_id )
if getEntityObject_xpcall( wd_mng.wd_id ) then -- Page Wikidata disponible ?
wd_mng.wd_entity = mw.wikibase.getEntity( wd_mng.wd_id ) -- ex getEntityObject
end
--
-- wd_mng.wd_entity = mw.wikibase.getEntityObject( ) -- anti-bug 47930
if wd_mng.wd_entity then -- Page Wikidata disponible ?
if wd_mng.wd_entity.claimRanks then
wd_mng.wd_claimRanks = wd_mng.wd_entity.claimRanks
wd_mng.wd_RANK_TRUTH = wd_mng.wd_entity.claimRanks.RANK_TRUTH
wd_mng.wd_RANK_PREFERRED = wd_mng.wd_entity.claimRanks.RANK_PREFERRED
wd_mng.wd_RANK_NORMAL = wd_mng.wd_entity.claimRanks.RANK_NORMAL
wd_mng.wd_RANK_DEPRECATED = wd_mng.wd_entity.claimRanks.RANK_DEPRECATED
-- https://www.mediawiki.org/wiki/Extension:WikibaseClient/Lua#mw.wikibase.entity.claimRanks
-- Return the normal ranked claims with the property id P5
-- entity:formatPropertyValues( 'P5', { mw.wikibase.entity.claimRanks.RANK_NORMAL } )
-- Return all claims with id P123 (as the table passed contains all possible claim ranks)
-- entity:formatPropertyValues( 'P123', mw.wikibase.entity.claimRanks )
-- mw.wikibase.entity.claimRanks = RANK_TRUTH, RANK_PREFERRED, RANK_NORMAL, RANK_DEPRECATED
end
wd_mng.sitelink = wd_mng.wd_entity:getSitelink( )
wd_mng.label = wd_mng.wd_entity:getLabel( ) -- Returns a string, like "Berlin" with 'de'
wd_mng.props = wd_mng.wd_entity:getProperties() -- or {} Returns a table like: { "P123", "P1337" }
wd_mng.props_maxn = tostring(table.maxn( wd_mng.props ) )
wd_mng.props_txt = "T " .. mw.text.listToText( wd_mng.props )
--
wd_mng.props_list = " "
for i, pp in ipairs(wd_mng.props) do -- Properties list
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp )
if wd_mng.wd_claimRanks then
wd_mng.formatPropertyValues_claimRanks = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_claimRanks } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_RANK_TRUTH = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_TRUTH } )
end
if wd_mng.wd_RANK_PREFERRED then
wd_mng.formatPropertyValues_RANK_PREFERRED = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_PREFERRED } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_wd_RANK_NORMAL = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_NORMAL } )
end
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues_RANK_DEPRECATED = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_DEPRECATED } )
end
val = wd_mng.formatPropertyValues.value
proplabel = wd_mng.formatPropertyValues.label
wd_mng.props_list = wd_mng.props_list .. " , " .. i .. "=" .. pp .. "=" .. viewer.ta(proplabel, val)
-- .. "/" .. viewer.ta(proplabel, wd_mng.formatPropertyNORMAL)
if pp == "P569" then -- birthyear P569 for test DEBUG
datas.TimeName = pp .. ".1.mainsnak" ; datas.TimeTest = wd_mng.wd_entity.claims[pp][1].mainsnak end
if pp == "P570" then -- deathyear P570 for test DEBUG
datas.TimeName = pp .. ".1.mainsnak" ; datas.TimeTest = wd_mng.wd_entity.claims[pp][1].mainsnak end
-- https://www.wikidata.org/wiki/Wikidata:Bistro#Date de décès inconnue
-- Dans la propriete :Il y a trois petits rectangles à gauche qui permettent de dire si il n'y a pas de valeur (donc pas mort) où si la date est inconnue, le modèle ici ne tient pas compte de ces éléments. --[[User:Pino~eowiki|Pino~eowiki]] ([[User talk:Pino~eowiki|<span class="signature-talk">{{int:Talkpagelinktext}}</span>]]) 16:40, 27 January 2016 (UTC)
end
else -- entity unknown for the page. entity introuvable pour la page.
wd_mng.wd_error = "wd_entity"
t = t .. viewer.ta("wd_error", wd_mng.wd_error)
wd_mng.t = t
datas.args_wikidata = wd
return wd, t, wd_mng
end
if wd_mng.wd_error then -- Show an error, Signaler une erreur
if wd_mng.wd_error == "wikidata_props" then err = viewer.form9user("datas_wikidata_error_err", "wikidata_props") end
if wd_mng.wd_error == "wd_base" then err = viewer.form9user("datas_wikidata_wikibase_err") end
if wd_mng.wd_error == "wd_entity" then err = viewer.form9user("datas_wikidata_getEntity_err", wd_mng.wd_entity) end
if wd_mng.wd_error == "wd_property" then err = viewer.form9user("datas_wikidata_property_err", wd_mng.wd_property) end
-- elem -> id
if wd_mng.wd_error == "wd_id" then err = viewer.form9user("datas_wikidata_getEntityObject_err", wd_mng.wd_id) end
err = events.err_add(err)
t = t .. err
local datas_wikidata_cat_err = events.cat_add("datas_wikidata_cat_err")
else
for key, pp in pairs(args_known) do -- For all known parameters
if pp.prop then
if pp.prop == "label" then val = wd_mng.label
elseif pp.prop == "sitelink" then val = wd_mng.sitelink
elseif pp.prop == "entityid" then val = wd_mng.wd_entity.id
elseif pp.prop == "description" then val = wd_mng.wd_base.description( wd_mng.wd_id ) -- wikibase.description( id )
elseif pp.prop == "claims" then val = wd_mng.wd_base.renderSnak( wd_mng.wd_entity['claims'] ) -- Returns the given Snaks formatted as wiki text.
-- local entity = mw.wikibase.getEntityObject()
-- local snaks = entity['claims']['P342'][1]['qualifiers']
-- mw.wikibase.renderSnaks( snaks ) -- Returns the given Snaks formatted as wiki text.
else
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp.prop ) -- "P" .. pp.prop
-- Returns a table like: { value = "Formatted claim value", label = "Label of the Property" }
if wd_mng.wd_RANK_TRUTH then
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_RANK_TRUTH } )
end
if wd_mng.wd_claimRanks then
wd_mng.formatPropertyValues = wd_mng.wd_entity:formatPropertyValues( pp, { wd_mng.wd_claimRanks } )
end
val = wd_mng.formatPropertyValues.value
proplabel = wd_mng.formatPropertyValues.label
end
if pp.format == "year" then
val = mw.ustring.sub( val, -4, -1 )
end
wd[key] = val
t = t .. viewer.ta(key, val) -- .. viewer.ta(key, wd_mng.formatPropertyNORMAL)
end
end
end
-- wd.lastname = wd.label
wd_mng.t = t
datas.args_wikidata = wd
return wd, t, wd_mng
end -- function datas.import_wikidata_new_2(args_known, id)
function datas.wikidata_details_test(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>wikidata_details_test</b> :"
t = t .. "<br>" .. luaTable.formSubCounts("datas.i18n")
local wd, tw, wd_mng
-- t = t .. datas.wikidata_arbitrary_tests()
wd, tw, wd_mng = datas.import_wikidata( modes.args_known ) -- for present page
if wd_mng and wd_mng.wd_entity and wd_mng.wd_entity.id then
t = t .. "\n* Entity.id: " .. (wd_mng.wd_entity.id or "") -- itemid
local datas_structured_data_txt = viewer.form9user("datas_structured_data_txt")
t = t .. ' <span style="color:#232388; font-size:140%; line-height:120%; ">⦁ </span>[[d:' .. wd_mng.wd_entity.id .. '|' .. datas_structured_data_txt .. ']]<br>'
end
t = t .. "\n* Sought properties: " .. tw
t = t .. "\n* Properties number maxn: " .. (wd_mng.props_maxn or "")
-- t = t .. "\n* Properties txt: " .. (wd_mng.props_txt or "")
t = t .. "\n* Properties list: " .. (wd_mng.props_list or "")
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t -- .init_configs(=14 -- .save_configs(=48 -- .restore_configs(=58 --
end -- function datas.wikidata_details_test(t)
function datas.wikidata_arbitrary_tests(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
-- T49930 Allow accessing data from a Wikidata item not connected to the current page - arbitrary access (tracking)
local t = t or "\n* wikidata_arbitrary_tests: "
local function one_arbitrary_access(id)
local t = ""
local wd, tw, wd_mng = datas.import_wikidata(modes.args_known, id) -- example Q535 = Victor Hugo
if wd_mng and wd_mng.wd_entity and wd_mng.wd_entity.id then
t = t .. "\n* " .. viewer.form9user("datas_wikidata_arbitrary_access_text")
.. (wd.itemid or "") .. ", " .. (wd.label or "") .. " ( " .. (wd.birthyear or "") .. " - " .. (wd.deathyear or "") .. " ) "
local datas_structured_data_txt = viewer.form9user("datas_structured_data_txt")
t = t .. ' <span style="color:#232388; font-size:140%; line-height:120%; ">⦁ </span>[[d:' .. wd_mng.wd_entity.id .. '|' .. datas_structured_data_txt .. ']]'
t = t .. ", " .. (wd_mng.props_maxn or "") .. " properties. " -- "\n* Properties number maxn: "
t = t .. "\n* Sought properties: " .. tw
else
t = "<br>* No arbitrary access for: " .. tostring(id)
end
return t
end
t = t .. one_arbitrary_access("Q535") -- Q535 = Victor Hugo = Victor Marie Hugo
-- t = t .. one_arbitrary_access("Victor Hugo") -- Q535 = Victor Hugo = Victor Marie Hugo
t = t .. one_arbitrary_access("Q8023") -- Q899264 = Nelson Mandela
-- t = t .. one_arbitrary_access("Q899264") -- Q899264 = Martin Fleischmann
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function datas.wikidata_arbitrary_tests(t)
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:events support events of types erros, warnings and categories.
-- events.init_configs( base, tabOptions, group ) -- Init a new events group
-- events.add_err(key, ... ) -- Add an error in the actual table of events.
-- events.catGroup(groupCat, groupList) -- Add some categories in the actual table of events.
-- events.form(evt) -- Format events types
-- events.categ_Test(t) -- tester les categories
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- events = {} -- already declared by Scribunto, else in _G space.
-- Translations for Library:events
events.i18n = {}
events.i18n.en = {
events_test_tests_title = "List a table, test with limits:",
events_categ_Test_title = "events.categ_Test() Test: Creation of categories in some languages",
events_test_resTest_title = "List a table, test with limits:",
events_test_projects_title = "Test and display tests events for projects",
events_test_projects_headers = "Type;Key;Name test and values;result of the test",
events_test_mediawiki_title = "Test and display tests events for mediawiki",
events_test_mediawiki_headers = "Type;Key;Name test and values;result of the test",
events_test_categ_Test_title = "categ_Test test : classes in some languages",
events_test_categ_Test_headers = "Test type;user language;wiki language;Categories",
events_all_kinds_tests_title = "events.all_kinds_test() Test: all kinds of events (err, wng, cat)",
events_close_without_memo_err = "events.restore_configs(memo) without <b>memo</b> in module <b>%1</b>.",
events_selectLang_tests_title = "events.selectLang() Tests: Select a language for tests or other",
events_selectLang_test_headers = "Wiki language; User language; Sought language; Selected language; Example",
events_selectLang_test_example = "Language: wiki = <b>%1</b>, user = <b>%2</b>, selected = <b>%3</b>.",
events_selectLang_test_err = "Internal error : events.selectLang(lang) has no tests table.",
events_selectLang_test_cat = "Module with internal error",
} -- events.i18n.en
events.i18n.es = {
events_test_tests_title = "List a table, test with limits:",
events_categ_Test_title = "events.categ_Test() Prueba: Creación de categorías en algunos idiomas",
events_test_resTest_title = "List a table, test with limits:",
events_test_projects_title = "Test and display tests events for projects",
events_test_projects_headers = "Type;Key;Name test and values;result of the test",
events_test_mediawiki_title = "Test and display tests events for mediawiki",
events_test_mediawiki_headers = "Type;Key;Name test and values;result of the test",
events_test_categ_Test_title = "Prueba categ_Test: clases en algunos lenguajes",
events_test_categ_Test_headers = "Tipo de prueba;Lenguaje usuario;Lenguaje wiki;Categorías",
events_all_kinds_tests_title = "events.all_kinds_test() Prueba: todo tipo de eventos (err, wng, cat)",
events_add_cat_deprecated = "Función obsoleto en módulo principal.",
events_close_without_memo_err = "events.restore_configs(memo) sin <b>memo</b> en el módulo <b>%1</b>.",
events_selectLang_tests_title = "events.selectLang() Pruebas: Seleccione un idioma para pruebas u otro",
events_selectLang_test_headers = "Lengua del Wiki; Idioma del usuario; Lengua buscada; Idioma seleccionado; Ejemplo",
events_selectLang_test_example = "Idioma: wiki = <b>%1</b>, usuario = <b>%2</b>, seleccionada = <b>%3</b>.",
events_selectLang_test_err = "Error interno: events.selectLang(lang) no tiene tabla de pruebas.",
events_selectLang_test_cat = "Módulo con error interno",
versioning_defaultCrashResult_ref_err = "La función antiCrash() protege esta página contra un colapso completo debido a un error interna: %1.",
} -- events.i18n.es
events.i18n.fr = {
events_test_tests_title = "List a table, test with limits:",
events_categ_Test_title = "events.categ_Test() Test: Création des catégories dans quelques langues",
events_test_resTest_title = "List a table, test with limits:",
events_test_projects_title = "Test and display tests events for projects",
events_test_projects_headers = "Type;Key;Name test and values;result of the test",
events_test_mediawiki_title = "Test and display tests events for mediawiki",
events_test_mediawiki_headers = "Type;Key;Name test and values;result of the test",
events_test_categ_Test_title = "Tester categ_Test : catégories dans quelques langues",
events_test_categ_Test_headers = "Type de test;Langue utilisateur;Langue wiki;Catégories",
events_all_kinds_tests_title = "events.all_kinds_test() Test: toutes les sortes d'événements (err, wng, cat)",
events_add_cat_deprecated = "Fonction obsolète dans le module principal.",
events_close_without_memo_err = "events.restore_configs(memo) sans <b>memo</b> dans le module <b>%1</b>.",
events_selectLang_tests_title = "events.selectLang() Tests: Sélectionnez une langue pour les tests ou autres",
events_selectLang_test_headers = "Langue du wiki; Langue utilisateur; Langue cherchée; Langue choisie; Exemple",
events_selectLang_test_example = "Langues : wiki = <b>%1</b>, utilisateur = <b>%2</b>, choisie = <b>%3</b>.",
events_selectLang_test_err = "Erreur interne: events.selectLang(lang) n'a pas de table de tests.",
events_selectLang_test_cat = "Module avec erreur interne",
} -- events.i18n.fr
events.testGroup = {}
events.rowGroup = {}
events.tabOptions = {}
events.tabOptions.testGroup = {}
events.tabOptions.rowGroup = {}
function events.init_configs(base, tabOptions, group) -- Initialize global configurations and save them before eventual changes.
local memo = events.save_configs() -- Save global configuration before eventual changes.
-- actual init
if type(base) ~= "table" then base = {} end
if type(group) ~= "table" then group = nil end
if type(tabOptions) ~= "table" then
tabOptions = events.tabOptions or {}
end
base.events = events -- A new events process/object come from the events process/object in this module.
base.events.tabOptions = tabOptions or base.events.tabOptions or events.tabOptions
base.events.catview = tabOptions.catview or base.events.catview or modes.catView
base.events.default_group = tabOptions.default_group or base.events.group_all_types_test
base.events.dropboxStyle = tabOptions.dropboxStyle or base.events.dropboxStyle
base.events.testGroup = group or tabOptions.testGroup or base.events.testGroup or events.testGroup or {}
base.events.headers = tabOptions.headers or base.events.headers
base.events.kind = tabOptions.kind or base.events.kind
base.events.tableViewStyle = tabOptions.tableViewStyle or base.events.dropboxStyle
base.events.testsFunction = tabOptions.testsFunction or base.events.testsFunction
base.events.typ = tabOptions.typ or base.events.typ
base.events.user_lang = tabOptions.user_lang or base.events.user_lang
base.events.wiki_lang = tabOptions.wiki_lang or base.events.wiki_lang
base.events.recursiveLevel = tabOptions.recursiveLevel or base.events.recursiveLevel
base.events.recursiveLimit = tabOptions.recursiveLimit or base.events.recursiveLimit or 11111
base.events.testGroup = events.testGroup or base.events.testGroup or {}
translate.init_wiki_user_page_lang(base.events.wiki_lang, base.events.user_lang)
return memo, base.events
end -- function events.init_configs(base, tabOptions, group)
function events.save_configs() -- Save global configuration before eventual changes.
local memo = {}
memo.memo_testGroup = events.testGroup
memo.memo_tabOptions = events.tabOptions
memo.memo_versioning_actual_modules = versioning.actual_modules
memo.memo_versioning_main_i18n = versioning.main_i18n
memo.memo_translate_main_i18n = translate.main_i18n
memo.memo_wiki_lang = translate.wiki_lang
memo.memo_user_lang = translate.user_lang
memo.memo_page_lang = translate.page_lang
memo.memo_categories_list = events.categories_list
memo.memo_modes_catView = modes.catView
memo.memo_recursiveLimit = modes.recursiveLimit
memo.memo_mode_name = modes.mode_name
memo.memo_mode_options = modes.mode_options
memo.memo_invoke_options = modes.invoke_options
memo.memo_used_options = modes.used_options
memo.memo_options_for_modes = modes.options_for_modes
memo.memo_report_trackOptions = modes.report_trackOptions
return memo
end -- function events.save_configs()
-- function events.init_configs(=3 -- function events.save_configs(=3 -- function events.restore_configs(=2 --
-- .init_configs(=16-3=13 -- .save_configs(=50-3-init-deprecated=45 -- .restore_configs(=60-2=58 -- OK : 16+50-3-1-1 = 13+45 = 58 = 60-2
function events.restore_configs(memo) -- Restore global configurations after eventual changes.
-- Close categories and errors tables for one test or a group of tests.
if type(memo) ~= "table" then
events.add_err("events_close_without_memo_err", versioning.main_versions.versionName) -- Add an error in the actual table of events.
return
end
events.testGroup = memo.memo_testGroup
events.tabOptions = memo.memo_tabOptions
versioning.actual_modules = memo.memo_versioning_actual_modules
versioning.main_i18n = memo.memo_versioning_main_i18n
translate.main_i18n = memo.memo_translate_main_i18n
translate.wiki_lang = memo.memo_wiki_lang
translate.user_lang = memo.memo_user_lang
translate.page_lang = memo.memo_page_lang
translate.init_wiki_user_page_lang(translate.wiki_lang, translate.user_lang, translate.page_lang)
events.categories_list = memo.memo_categories_list
modes.catView = memo.memo_modes_catView
modes.recursiveLimit = memo.memo_recursiveLimit
modes.mode_name = memo.memo_mode_name
modes.mode_options = memo.memo_mode_options
modes.invoke_options = memo.memo_invoke_options
modes.used_options = memo.memo_used_options
modes.options_for_modes = memo.memo_options_for_modes
modes.report_trackOptions = memo.memo_report_trackOptions
end -- function events.restore_configs(memo)
function events.select_typ(typ) -- Select events by one type
local is = {}
for i, evt in pairs(events.testGroup) do
if evt.typ == typ then table.insert( is, evt.idargs ) end
end
return is
end
function events.sort_typ() -- Sort events by type in wng, err, cat.
local wng, err, cat = {}, {}, {}
for i, evt in pairs(events.testGroup) do
if evt.typ == "wng" then table.insert( wng, evt ) end
if evt.typ == "err" then table.insert( err, evt ) end
if evt.typ == "cat" then table.insert( cat, evt ) end
end
return wng, err, cat
end -- function events.sort_typ()
function events.form(evt) -- Format events types
if type(evt) ~= "table" then return end
evt.tableStyle = evt.tableStyle or "" -- Could change the style of the wikitext. Not available on 20160916
if type(evt.name) ~= "string" then evt.name = ""
elseif evt.name ~= "" then evt.name = evt.name .. "_" end
evt.idargs = evt.name .. tostring( viewer.form9user( tostring(evt.key), luaTable.toList( evt.v ) ) )
-- Each type of event forms its own type of wikitext
evt.user_wkt = viewer.trans9vars(translate.user_translations, evt.key, luaTable.toList( evt.v ) )
evt.wiki_wkt = viewer.trans9vars(translate.wiki_translations, evt.key, luaTable.toList( evt.v ) )
evt.res = evt.wkt or ""
if evt.typ == "err" then evt.res = viewer.errorColor(evt.user_wkt) end
if evt.typ == "wng" then evt.res = viewer.warningColor(evt.user_wkt) end
local c = events.catview or ":"
local wiki_catspace = mw.site.namespaces.Category.name -- name: Local namespace name.
if evt.typ == "cat" then -- Format a category to display or activate
evt.res = " [[" .. c .. wiki_catspace .. ":" .. evt.wiki_wkt .. "|" .. evt.user_wkt .. "]] "
end
viewer.trc = viewer.trc or "? form " .. translate.formTestCase(".form evt.key=%1, evt.res=%2, ", evt.key, evt.res )
return evt.res, evt
end -- function events.form(evt)
function events.add(typ, key, ...) -- Add an event to a group.
local evt = {} -- actual event
if type(typ) == "table" then evt = typ else evt = {} end -- actual event
evt.typ = evt.typ or typ -- Type of event: err, wng, cat
evt.key = evt.key or key -- Translation key, simple or extended by name
if type(typ) ~= "string" then typ = "notyp" end -- To debug abnormal type of event
if type(key) ~= "string" then key = "nokey" end -- To debug abnormal translation key
evt.name = evt.name or "" -- Translation key, simple or extended by name
evt.v = evt.v or { ... } -- table of detail values
evt.res, evt = events.form( evt )
-- Insert only new events
local new_evt = translate.formTestCase( tostring(evt.key), luaTable.toList( evt.v ) )
for i, event in pairs(events.testGroup) do
local old_evt = translate.formTestCase( tostring(event.key), luaTable.toList( event.v ) )
if new_evt == old_evt then new_evt = nil end -- delete the new event if it already exists.
end
if new_evt then table.insert( events.testGroup, evt ) end
-- table.insert( events.testGroup, evt ) -- { evt.typ, evt.key, evt.name, evt.wkt } )
return evt.res, evt
end -- function events.add(typ, key, ...)
function events.add_err(key, ... ) -- Add an error in the actual table of events.
local res, evt = events.add("err", key, ...) -- Add an event to a group.
viewer.trc = viewer.trc .. translate.formTestCase("\n* err_add evt.typ=%1, evt.key=%2, ", evt.typ, evt.key)
return res, evt
end
function events.add_wng(key, ... ) -- Add a warning in the actual table of events.
local res, evt = events.add("wng", key, ...) -- Add an event to a group.
viewer.trc = viewer.trc .. translate.formTestCase("\n* msg_add evt.typ=%1, evt.key=%2, ", evt.typ, evt.key)
return res, evt
end
function events.add_cat(key, ... ) -- Add a category in the actual table of events.
local res, evt = events.add("cat", key, ...) -- Add an event to a group.
viewer.trc = viewer.trc .. translate.formTestCase("\n* add_cat evt.typ=%1, evt.key=%2, ", evt.typ, evt.key)
return res, evt
end
function events.catGroup(groupCat, groupList) -- Add some categories in the actual table of events.
-- catGroup("Country %1", "France,Italia") -> [[Category:Country France]] [[Category:Country Italia]]
if type(groupCat) ~= "string" then groupCat = "%1" end
if type(groupList) ~= "string" then return "" end
local cats = ""
-- local t = ""
-- t = t .. viewer.ta("groupList", groupList)
for i, str in mw.text.gsplit(groupList, ";", true) do
local wkt = viewer.form9user(groupCat, str)
cats = cats .. events.add_cat(groupCat, wkt)
end
local res, evt = events.add("catGroup", groupCat, cats) -- Add an event to a group.
-- viewer.trc = viewer.trc .. viewer.form9user("\n* add_cat evt.typ=%1, evt.key=%2, ", evt.typ, evt.key)
return res, evt
end -- function events.catGroup(groupCat, groupList)
function events.selector( tabOptions, evt )
if type(evt) ~= "table" then
evt = { -- options for viewer.tableView() -- Form a table with lines and columns.
headers = "typ;key;selector-name;wkt",
style = "",
typ = "err",
rowGroup = {},
}
else
evt.headers = evt.headers or "typ;key;else-name;wkt"
evt.tableStyle = evt.tableStyle or ""
evt.name = evt.name or "_"
evt.typ = evt.typ or "nil"
end
if (type(tabOptions) == "table") and (type(tabOptions.typ) == "string") and (tabOptions.typ == evt.typ) then
table.insert( tabOptions.testGroup, { evt.typ, evt.key, evt.name, evt.wkt } )
elseif (type(tabOptions) == "table") and (type(tabOptions.typ) == "string") and (tabOptions.typ == "v") then
table.insert( tabOptions.testGroup, { evt.typ, evt.key, evt.name, evt.wkt } )
else
tabOptions = {}
table.insert( tabOptions.testGroup, { evt.typ, evt.key, evt.name, evt.wkt } )
end
end -- function events.selector( tabOptions, evt )
function events.categ_Test(t) -- test of categories
local memo = events.save_configs() -- Save global configuration before eventual changes.
translate.init_wiki_user_page_lang() -- restore previous langages
local t = t or "\n* These categ_Test test the function <b>add_cat</b> : " .. viewer.ta("user_lang", translate.user_lang) .. viewer.ta("wiki_lang", translate.wiki_lang)
t = t .. "<br>" .. luaTable.formSubCounts("events.i18n")
local tabView = {
testGroup = { -- events.testGroup
{ typ = "cat", funcname = "add_cat", user_lang = nil, wiki_lang = nil, key = "datas_no_args_wikidata_err", },
{ typ = "cat", funcname = "add_cat", user_lang = nil, wiki_lang = nil, key = "versioning_module_usage_error_cat", },
{ typ = "cat", funcname = "add_cat", user_lang = "en", wiki_lang = nil, key = "modes_no_source_arguments_cat", },
{ typ = "cat", funcname = "add_cat", user_lang = "es", wiki_lang = nil, key = "modes_no_source_arguments_err", },
{ typ = "cat", funcname = "add_cat", user_lang = "en", wiki_lang = "es", key = "datas_no_args_wikidata_err", },
{ typ = "cat", funcname = "add_cat", user_lang = "fr", wiki_lang = "en", key = "modes_no_source_arguments_cat", },
{ typ = "cat", funcname = "add_cat", user_lang = "es", wiki_lang = "en", key = "modes_no_source_arguments_cat", },
{ typ = "cat", funcname = "add_cat", user_lang = "en", wiki_lang = "x-y-z", key = "modes_no_source_arguments_cat", },
{ typ = "cat", funcname = "add_cat", user_lang = "x-y-z", wiki_lang = "en", key = "modes_no_source_arguments_cat", },
},
headers = "events_test_categ_Test_headers",
-- headers = "Test type;user language;wiki language;Categories",
}
modes.catView = ":"
local cat_test = {}
-- cat_test.memo, cat_test.events = events.init_configs(cat_test, tabOptions, add_cat_tests) -- Initialize global configurations and save them before eventual changes.
function tabView.tableView_form_one_case(test) -- For each case: ac_opt = testOptions.testGroup[i]
if test.funcname == "add_cat" then
test.catext = events.form(test) --, luaTable.toList(test.vals) )
return { (test.funcname or "-"), (test.user_lang or "-"), (test.wiki_lang or "-"), (test.catext or "-") }
elseif test.funcname == "catGroup" then
test.catext = events.catGroup(test.key) --, luaTable.toList(test.vals) )
return { (test.funcname or "-"), (test.user_lang or "-"), (test.wiki_lang or "-"), (test.catext or "-") }
end
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function events.categ_Test(t)
function events.all_kinds_test(t) -- Test: all kinds of events (err, wng, cat)
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* Test the function <b>add_cat</b> : " .. viewer.ta("user_lang", translate.user_lang) .. viewer.ta("wiki_lang", translate.wiki_lang)
local tabView = {
testGroup = { -- events_all_kinds_tests_title
{ typ = "err", key= "mathroman_char_X_in_N_err", v = { [1] = "Y", [2] = 5 },
name = "mathroman_roman2int", wkt = "character Y in 5", },
{ typ = "cat", key= "modes_no_source_arguments_cat",
name = "math_ro_man", wkt = "Module with internal error", },
{ typ = "err", key= "modes_is_undefined_err", v = { [1] = "birthyear", [2] = 1989 },
name = "xyz", wkt = "The argument birth:<b>1789</b> is not defined.", },
{ typ = "XXXXX", key= "tools_strange_XXXXX", v = { [1] = "blabla", },
name = "xyz", wkt = "The argument birth:<b>1789</b> is not defined.", },
{ typ = "wng", key= "translate_user_wiki_lang_msg", v = { [1] = "Spanish", [2] = "French" },
name = "modes_no_source_arguments_cat", wkt = "Languages: user: Polish, wiki: Greek.", },
{ typ = "cat", key= "modes_language_cat", v = { [1] = "Spanish", },
wkt = "Speaking Spanish", },
},
headers = "typ;key;idargs;result",
}
function tabView.tableView_form_one_case(evt) -- Generally to define: Convert a case from testGroup to rowGroup.
local res, evt = events.form(evt)
return { evt.typ or "t", evt.key or "k", evt.idargs or "i", evt.res or "r" }
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function events.all_kinds_test(t)
function events.selectLang( lang ) -- Select a language for tests or other purpose.
if type(lang) ~= "string" then lang = "user_lang" end -- default is user language
-- Select between : user_lang wiki_lang tests en es fr or any available in i18n.
if lang == "tests" then lang = "tests"
elseif translate.main_i18n and translate.main_i18n[lang] then lang = lang -- available in i18n
elseif lang == "user_lang" then lang = translate.user_lang
elseif lang == "wiki_lang" then lang = translate.wiki_lang
else lang = translate.user_lang end -- default is user language
return lang
end -- function events.selectLang( lang )
function events.selectLang_test(t) -- Tests: Select a language for tests or other purpose.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* Test <b>events.selectLang()</b> :" -- events_selectLang_tests_title
local tabView = {
testGroup = { -- events.testGroup
{ wiki_lang = "en", user_lang = "fr", sought = "wiki_lang", },
{ wiki_lang = "en", user_lang = "es", sought = "user_lang", },
{ wiki_lang = "en", user_lang = nil , sought = "wiki_lang", },
{ wiki_lang = nil , user_lang = "es", sought = "user_lang", },
{ wiki_lang = "fr", user_lang = "es", sought = "tests", },
},
headers = "events_selectLang_test_headers"
-- headers = "Wiki language; User language; Sought language; Selected language; Example",
}
function tabView.tableView_form_one_case(case) -- Generally to define: Convert a case from testGroup to rowGroup.
local selected = events.selectLang( lang )
local example = viewer.form9user("events_selectLang_test_example")
if selected == "tests" then example = translate.formTestCase("selectLang", case.wiki_lang, case.user_lang, case.sought) end
return { tostring(case.wiki_lang), tostring(case.user_lang), tostring(case.sought), tostring(selected), tostring(example), }
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- events.selectLang_test( lang )
function events.tableView_form_all_cases_old(testOptions) -- Run tableView_form_one_case() for all cases in testGroup{}. Can reject some cases as nil.
if type(testOptions) ~= "table" then
testOptions = { -- options for viewer.tableView() -- Form a table with lines and columns.
headers = "typ;key;idargs;result",
kind = "projects", -- mediawiki or projects
typ = "err",
testGroup = {}, -- tests or testOptions.testGroup or
rowGroup = {}, -- tests or testOptions.testGroup or
}
end
if type(testOptions.testGroup) ~= "table" then
testOptions.testGroup = { -- cases for tests
{ typ = "err", key = "events_err", idargs = "arg1", },
{ typ = "wng", key = "events_wng", idargs = "arg1", },
{ typ = "cat", key = "events_cat", idargs = "arg1", },
}
end
function test1(evt) -- For each case: ac_opt = testOptions.testGroup[i]
local res, evt = events.form(evt)
-- evt.res, evt = events.form(evt)
return { evt.typ or "t", evt.key or "k", evt.idargs or "i", evt.res or "r" }
end
if type(testOptions.cccccccccccccccccccccccc) ~= "function" then
testOptions.tableView_form_one_case = test1
end
testOptions.rowGroup = testOptions.rowGroup or {}
local j = 0
for i, case_opt in ipairs(testOptions.testGroup) do
local case_result = testOptions.tableView_form_one_case(case_opt) -- A case can be nil and rejected
if case_result then
j = j + 1
table.insert( testOptions.rowGroup, case_result )
end
-- table.insert( testOptions.rowGroup, testOptions.tableView_form_one_case(case_opt) )
end
return testOptions.rowGroup, j
end -- function events.tableView_form_all_cases(testOptions)
function events.tableView_form_all_cases(testOptions) -- Run tableView_form_one_case() for all cases in testGroup{}. Can reject some cases as nil.
testOptions.rowGroup = testOptions.rowGroup or {}
for i, case_in in ipairs(testOptions.testGroup) do
local case_out = testOptions.tableView_form_one_case(case_in) -- A case can be nil and rejected
if case_out then
table.insert(testOptions.rowGroup, case_out)
end
end
return testOptions.rowGroup
end -- function events.tableView_form_all_cases(testOptions)
events.errors_list = {} -- Deprecated: Table to collect errors and warnings
events.erron = true -- Activated or not errors. Errores activado o no. Erreurs activées ou non.
events.categories_list = {} -- Table to collect all categories to generate in wikitext
modes.catView = "" -- = ":" to document a category rather than truly categorize it
function events.error_add(typ, ref, v1, v2, v3, v4, v5, v6, v7, v8, v9) -- Add a warning, error or category to le lists.
-- events.add_err("modes_value_re_defined_err", k, key, xyz)
if not events.erron then return "" end
local wng = { ["typ"] = typ, ["ref"] = ref, ["v1"] = v1, ["v2"] = v2, ["v3"] = v3, ["v4"] = v4, ["v5"] = v5, ["v6"] = v6, ["v7"] = v7, ["v8"] = v8, ["v9"] = v9 }
local str = viewer.form9user(wng.ref, wng.v1, wng.v2, wng.v3, wng.v4, wng.v5, wng.v6, wng.v7, wng.v8, wng.v9)
local do_it = true
for k, reg in ipairs(events.errors_list) do -- If the new error was previously registered, do not add it.
local reg_txt = viewer.form9user(reg.ref, reg.v1, reg.v2, reg.v3, reg.v4, reg.v5, reg.v6, reg.v7, reg.v8, reg.v9)
if str == reg_txt then do_it = false end
end
if do_it then table.insert(events.errors_list, wng) end
local res = ""
if wng.typ == "wng" then
res = '<br>⦁ ' .. viewer.warningColor(str)
end
if wng.typ == "err" then
res = '<br>⦁ ' .. viewer.errorColor(str)
end
return tostring(res)
end -- function events.error_add(typ, ref, v1, v2, v3, v4, v5, v6, v7, v8, v9)
function events.add_err(key, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- return events.error_add("err", ref, v1, v2, v3, v4, v5, v6, v7, v8, v9) .. ";"
-- return viewer.form9user(key, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- events.error_add("err", ref, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- events.add_err(key, v1, v2, v3, v4, v5, v6, v7, v8, v9)
return events.error_add("err", v1, v2, v3, v4, v5, v6, v7, v8, v9)
end
function events.add_wng(key, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- return viewer.form9user(key, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- events.error_add("wng", ref, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- events.add_err(key, v1, v2, v3, v4, v5, v6, v7, v8, v9)
return events.error_add("wng", v1, v2, v3, v4, v5, v6, v7, v8, v9)
end
function events.errors_lister(title, v1, v2, v3, v4, v5, v6, v7, v8, v9)
local res, msgref = "", ""
local mwtitle = mw.title.getCurrentTitle()
local page = tostring(mwtitle.nsText) .. ":" .. tostring(mwtitle.text)
if type(title) ~= "string" then title = "modes_error_list_header_err" end
res = res .. '\n*' .. viewer.form9user(title, page, v1, v2, v3, v4, v5, v6, v7, v8, v9) -- .. ' - ' .. page
local n = 0
for k, wng in ipairs(events.errors_list) do
msgref = viewer.form9user(wng.ref, wng.v1, wng.v2, wng.v3, wng.v4, wng.v5, wng.v6, wng.v7, wng.v8, wng.v9) -- texte traduit ou direct
if wng.typ == "wng" then
res = res .. '<br>⦁ ' .. viewer.warningColor(msgref)
end
end
for k, wng in ipairs(events.errors_list) do
msgref = viewer.form9user(wng.ref, wng.v1, wng.v2, wng.v3, wng.v4, wng.v5, wng.v6, wng.v7, wng.v8, wng.v9) -- texte traduit ou direct
if wng.typ == "err" then
res = res .. '<br>⦁ ' .. viewer.errorColor(msgref)
n = n + 1
end
end
if n > 0 then
events.add_cat("versioning_module_with_error_err")
end
return res
end -- function events.errors_lister(title, v1, v2, v3, v4, v5, v6, v7, v8, v9)
function events.gener_categories(args_final) -- Only for this library, form categories without activate them
local args_final = args_final
if type(args_final) ~= "table" then args_final = modes.args_final end
if args_final.birthyear then
events.add_cat("p_authors_birthyear_cat", args_final.birthyear)
end
if args_final.deathyear then
events.add_cat("p_authors_deathyear_cat", args_final.deathyear)
end
if args_final.description then
-- events.add_cat("p_authors_deathyear_cat", args_final.description)
end
return
end -- function events.gener_categories(args_final)
-- - - - ------------------ - - - - ---------------------------------
-- Manage categories. Administrar categorías. Gérer les catégories.
-- - - - ------------------ - - - - ---------------------------------
-- Record in categories_list and generate the wikitext of a category
function events.add_cat(ref, v1, v2, v3, v4, v5, v6, v7, v8, v9)
-- add a category to the categories_list
local cat = { ["typ"] = "cat", ["ref"] = ref, ["v1"] = v1, ["v2"] = v2, ["v3"] = v3, ["v4"] = v4, ["v5"] = v5, ["v6"] = v6, ["v7"] = v7, ["v8"] = v8, ["v9"] = v9 }
local str = viewer.form9user(cat.ref, cat.v1, cat.v2, cat.v3, cat.v4, cat.v5, cat.v6, cat.v7, cat.v8, cat.v9)
local do_it = true
for k, reg in ipairs(events.categories_list) do -- If the new category was previously registered, do not add it.
local reg_txt = viewer.form9user(reg.ref, reg.v1, reg.v2, reg.v3, reg.v4, reg.v5, reg.v6, reg.v7, reg.v8, reg.v9)
if str == reg_txt then do_it = false end
end
if do_it then table.insert(events.categories_list, cat) end
--
local c = modes.catView or modes.catView or ""
-- if modes.catView == true or modes.catView == true then c = ":" else c = "" end
local wiki_catspace = mw.site.namespaces.Category.name -- translate.wiki_translations.category or
local user_catspace = mw.site.namespaces.Category.name -- translate.user_translations.category or
local user_cat = viewer.trans9vars(translate.user_translations, cat.ref, cat.v1, cat.v2, cat.v3, cat.v4, cat.v5, cat.v6, cat.v7, cat.v8, cat.v9)
local wiki_cat = viewer.trans9vars(translate.wiki_translations, cat.ref, cat.v1, cat.v2, cat.v3, cat.v4, cat.v5, cat.v6, cat.v7, cat.v8, cat.v9)
--
user_cat = (user_cat or "")
local user_verif = string.match( user_cat, "([%w_])") -- verif content with all alphanumeric characters.
if not user_verif then user_verif = ":" .. user_cat .. ":" end
-- user_cat = user_verif or ("<" .. user_cat .. ">")
--
user_catspace = "" -- without "Category" word
local wiki_catspace = mw.site.namespaces.Category.name -- name: Local namespace name.
local res = " [[" .. c .. wiki_catspace .. ":" .. wiki_cat .. "|" .. user_catspace .. " " .. user_cat .. "]] "
local link = " [[:" .. wiki_catspace .. ":" .. wiki_cat .. "|" .. user_catspace .. " " .. user_cat .. "]] "
return res, link
end -- function events.add_cat(ref, v1, v2, v3, v4, v5)
-- - - - ------------------ - - - - --------------------------------- tools
-- generate the wikitext of the list of categories to only display them
function events.categories_lister(c)
local res = "" -- "\n* Catégories : "
local wiki_cat = ""
local user_cat = ""
modes.options_to_catView()
-- c can replace catView to enforce the documentation or the categorisation
-- c peut remplacer catView pour forcer la documentation ou la catégorisation
c = c or modes.catView or ""
local user_catspace = mw.site.namespaces.Category.name -- Local namespace name.
local wiki_catspace = mw.site.namespaces.Category.name -- Local namespace name.
for k, cat in ipairs(events.categories_list) do
user_cat = viewer.trans9vars(translate.user_translations, cat.ref, cat.v1, cat.v2, cat.v3, cat.v4, cat.v5, cat.v6, cat.v7, cat.v8, cat.v9)
wiki_cat = viewer.trans9vars(translate.wiki_translations, cat.ref, cat.v1, cat.v2, cat.v3, cat.v4, cat.v5, cat.v6, cat.v7, cat.v8, cat.v9)
user_catspace = "" -- without "Category" word
user_cat = (user_cat or "") -- prize
if user_cat == " " then user_cat = "" end
if user_cat == " " then user_cat = "" end
if user_cat == " " then user_cat = "" end
-- local user_verif = string.match( user_cat, "([%w_])") -- verif content with all alphanumeric characters.
-- user_verif = mw.ustring.gsub( user_cat, "(%s)", "") -- verif content with all alphanumeric characters.
local user_verif = mw.ustring.gsub( user_cat, "%s", "") -- verif content with all alphanumeric characters.
if not user_verif then user_verif = "1" .. user_cat .. "2" end
-- user_cat = user_verif or ("<" .. user_cat .. ">")
res = res .. " [[" .. c .. wiki_catspace .. ":" .. wiki_cat .. "|" .. user_catspace .. user_cat .. "]] "
end
-- Category namespaces = 14 Category
-- https://en.wikipedia.org/wiki/IETF_language_tag
-- https://en.wikipedia.org/wiki/List_of_ISO_639-1_codes
return res
end -- function events.categories_lister(c)
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:luaTable enhances the support of previous table library from Lua.
-- "luaTable" avoids ambiguities with other kind of tables.
-- To enhance, we could write here : luaTable = table.
-- see Extension:Scribunto/Lua reference manual : class nameTest extends Scribunto_LuaEngineTestBase
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- luaTable = {} -- already declared by Scribunto, else in _G space.
-- Translations for luaTable library
luaTable.i18n = {}
luaTable.i18n.en = {
luaTable_recursive_luaTable_title = "Mediawiki recursive luaTable",
luaTable_from_subnames_test_title = "<b>luaTable.from_subnames_test()</b> Test: Get the last sub-table from a sub-table name.",
luaTable_roughView_tests_title = "luaTable.roughView() Test: Form a rough LUA code of a table",
luaTable_structure_level_maxi = "Level limit recursiveLimit = <b>%1</b> ",
luaTable_table_listlimit_max_n = "Length limit max_n = <b>%1</b> ",
luaTable_structure_nolimits_title = "luaTable.structure() List a table, test without limits:",
luaTable_structure_limits_title = "luaTable.structure() List a table, test with limits:",
luaTable_toList_tests_title = "luaTable.toList() Return a list from a LUA table.",
luaTable_toTable_tests_title = "luaTable.toTable() Test: convert a string to a table of words",
luatable_form_subcounts_subtables = "The table <b>%1</b> counts <b>%2</b> values, <b>%3</b> sub-tables and <b>%4</b> functions.",
luaTable_from_subnames_base_err = "Internal error: in luaTable.from_subnames(), base unavailable for the subnames table %1.",
luaTable_from_subnames_subtable_err = "Internal error: in luaTable.from_subnames(), <b>%1</b> is not a sub-table in subnames <b>%2</b>.",
luaTable_formSubCounts_type_err = "A <b>%1</b> replaces the table: <b>%2</b>.",
luaTable_fromSubNames_missing_err = "Internal error: in luaTable.formSubCounts() The search for this sub-table <b>%1</b> found only this one <b>%2</b>.",
luaTable_from_subnames_tests_headers = "Sub name; Base table; Table count; Input luaTable.roughView",
-- Miscellaneous warnings and errors
luaTable_table_dont_exists_err = "The table <b>%1</b> does not exist.",
-- Titles of tests
luaTable_table_args_source_title = "luaTable.structure() Table of received arguments, args_source:",
luaTable_table_args_unknown_title = "luaTable.structure() Table of unknown arguments, args_unknown:",
} -- luaTable.i18n.en
luaTable.i18n.es = {
luaTable_recursive_luaTable_title = "Mediawiki luaTable recursiva",
luaTable_from_subnames_test_title = "<b>luaTable.from_subnames_test()</b> Prueba: Obtener la última sub-tabla de un nombre de sub-tabla.",
luaTable_roughView_tests_title = "luaTable.roughView() Prueba: Formar un código de LUA grueso de una tabla",
luaTable_structure_level_maxi = "Límite de nivel recursiveLimit = <b>%1</b> ",
luaTable_table_listlimit_max_n = "Límite de longitud max_n = <b>%1</b> ",
luaTable_structure_nolimits_title = "luaTable.structure() Enumerar una tabla, prueba sin límites:",
luaTable_structure_limits_title = "luaTable.structure() Enumerar una tabla, prueba con límites:",
luaTable_toList_tests_title = "luaTable.toList() Devolver una lista de una tabla LUA.",
luaTable_toTable_tests_title = "Prueba: convertir una cadena en una tabla de palabras",
luatable_form_subcounts_subtables = "La tabla <b>%1</b> cuenta <b>%2</b> valores, <b>%3</b> sub-tablas y <b>%4</b> funciones.",
luaTable_from_subnames_base_err = "Error interno: en luaTable.from_subnames(), base no disponible para la tabla subnames %1.",
luaTable_from_subnames_subtable_err = "Error interno: en luaTable.from_subnames(), %1 no es una sub-tabla en subnames <b>%2</b>.",
luaTable_formSubCounts_type_err = "Un <b>%1</b> reemplaza la tabla: <b>%2</b>.",
luaTable_fromSubNames_missing_err = "Error interno: in luaTable.formSubCounts() La búsqueda de este subtabla <b>%1</b> encontró que <b>%2</b>.",
luaTable_from_subnames_tests_headers = "Sub nombre; Mesa base; Tamaño de la mesa; luaTable.roughView de entrada",
-- Textos principales, errores y categorías de instrumentos
-- Diversos mensajes y errores
luaTable_table_dont_exists_err = "La tabla <b>%1</b> no existe.",
-- Titres des pruebas
luaTable_table_args_source_title = "luaTable.structure() Tabla de argumentos recibido, args_source:",
luaTable_table_args_unknown_title = "luaTable.structure() Tabla de argumentos desconocidos, args_unknown:",
} -- luaTable.i18n.es
luaTable.i18n.fr = {
luaTable_recursive_luaTable_title = "Mediawiki luaTable récursive",
luaTable_from_subnames_test_title = "<b>luaTable.from_subnames_test()</b> Test: Obtenir la dernière sous-table à partir d'un nom de sous-table.",
luaTable_roughView_tests_title = "luaTable.roughView() Test: Former un code LUA grossier d'une table",
luaTable_structure_level_maxi = "Limite de niveau recursiveLimit = <b>%1</b> ",
luaTable_table_listlimit_max_n = "Limite de longueur max_n = <b>%1</b> ",
luaTable_structure_nolimits_title = "luaTable.structure() Lister une table, test sans limites :",
luaTable_structure_limits_title = "luaTable.structure() Lister une table, test avec limites :",
luaTable_toList_tests_title = "luaTable.toList() Retourne une liste à partir d'une table LUA.",
luaTable_toTable_tests_title = "luaTable.toTable() Test: convertir une phrase en table de mots",
luatable_form_subcounts_subtables = "La table <b>%1</b> compte <b>%2</b> variables, <b>%3</b> sous-tables, <b>%4</b> fonctions.",
luaTable_from_subnames_base_err = "Erreur interne: dans luaTable.from_subnames(), base indisponible pour la table subnames %1.",
luaTable_from_subnames_subtable_err = "Erreur interne: dans luaTable.from_subnames(), %1 n'est pas une sous-table dans subnames <b>%2</b>.",
luaTable_formSubCounts_type_err = "Un <b>%1</b> remplace la table : <b>%2</b>.",
luaTable_fromSubNames_missing_err = "Erreur interne : in luaTable.formSubCounts() La recherche de cette sous-table <b>%1</b> n'a trouvé que celle-ci <b>%2</b>.",
luaTable_from_subnames_tests_headers = "Sous-nom; Table de base; Taille de la table; Entrée luaTable.roughView",
-- Principaux textes, erreurs et catégories des outils
-- Messages et erreurs divers
luaTable_table_dont_exists_err = "La table <b>%1</b> n'existe pas.",
-- Titres des tests
luaTable_table_args_source_title = "luaTable.structure() Table des arguments reçus, args_source :",
luaTable_table_args_unknown_title = "luaTable.structure() Table des arguments inconnus, args_unknown :",
} -- luaTable.i18n.fr
function luaTable.formSubCounts(tabname, tablebase, text_form) -- Form text of translations counts of a i18n table.
local opt, i18n_name = {}, "translate.main_i18n" -- for any tables
local i, k, t = 0, 0, ""
local subtab, err, t2, sub_name = {}, "", "", ""
-- Adapt to available parameters.
local default_form = "luatable_form_subcounts_subtables" -- "translate_main_i18n_languages_count"
--
if (type(text_form) == "string") then text_form = text_form
elseif (type(tablebase) == "string") then text_form = tablebase
else text_form = default_form end
--
if (type(tablebase) ~= "table") then tablebase = package.loaded end
--
if (type(tabname) == "string") then
subtable, sub_names = luaTable.from_subnames(tabname, tablebase) -- Get the last sub-table from its sub-names
--local object_loaded, sub_names, count = luaTable.from_subnames(subnames, base_table, sub_type)
else
subtable, sub_names = nil, ""
end
local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(subtable, tabname)
t = t .. viewer.form9user(text_form, tabname, tot_vars, tot_tabs, tot_func)
return t, tot_vars, tot_tabs, tot_func, vr_tb
end -- local t, tot_vars, tot_tabs, tot_func, vr_tb = luaTable.formSubCounts(tabname, tablebase, text_form)
function luaTable.from_subnames(subnames, base_table, sub_type) -- Get the last sub-table from its sub-names.
if (type(subnames) ~= "string") then subnames = "." end
-- if (type(base_table) ~= "table") then base_table = package.loaded end -- Default base_table for libraries and modules.
-- if (type(base_table) ~= "table") then base_table = _G end -- Default base_table for not loaded libraries.
-- luaTable_from_subnames_base_err = "Internal error: in luaTable.from_subnames(), base unavailable for the subnames table %1.",
local part_names, k = "", ""
local count, errs = 0, ", errs: "
local sub_names = mw.text.split(subnames, '.', true)
local sub_names_1 = sub_names[1]
-- Default base_table for libraries and modules.
if (type(base_table) ~= "table") and (type(sub_names_1) == "string") and (type(package.loaded[sub_names_1]) == "table") then base_table = package.loaded end
-- if (type(base_table) ~= "table") then base_table = _G end
-- Default base_table for not loaded libraries.
if (type(base_table) ~= "table") and (type(sub_names_1) == "string") and (type(_G[sub_names_1]) == "table") then base_table = _G end
-- if (type(base_table) ~= "table") then base_table = _G end
local sub_table = base_table
local object_loaded = sub_table
if (type(base_table) == "table") then
for i, partname in ipairs(sub_names) do
k = k .. viewer.ta('<br> i', i) .. viewer.ta('partname', partname)
object_loaded = sub_table[partname]
if (type(object_loaded) == "table") then
part_names = part_names .. "." .. partname
sub_table = object_loaded
count = luaTable.level_count(object_loaded)
k = k .. viewer.ta('count', count )
elseif (sub_type == "function") and (type(object_loaded) == "function") then return object_loaded, sub_names, count
-- luaTable.from_subnames(subnames, base_table, "function") Content(
elseif (sub_type == "string") and (type(object_loaded) == "string") then return object_loaded, sub_names, count
-- luaTable.from_subnames(subnames, base_table, "string")
else
k = k .. viewer.ta('break')
sub_table = nil
errs = errs .. "; err = " .. events.add_err("luaTable_from_subnames_subtable_err", partname, subnames)
-- luaTable_from_subnames_subtable_err = "Internal error: in luaTable.from_subnames(), <b>%1</b> is not a sub-table in subnames <b>%2</b>."
errs = errs .. events.add_cat("versioning_with_internal_error_cat") -- Catégorie:Module avec erreur interne
-- versioning_with_internal_error_cat = "Module with internal error", = "Module avec erreur interne",
break
end
end
else
errs = errs .. "; err = " .. events.add_err("luaTable_from_subnames_subtable_err", partname, subnames)
errs = errs .. events.add_cat("versioning_with_internal_error_cat")
-- versioning_with_internal_error_cat = "Module with internal error",
end
sub_names = table.concat(sub_names, ".")
-- return sub_table, k .. sub_names .. errs, count -- or nil
object_loaded = object_loaded or sub_table
return object_loaded, sub_names, count -- or nil
-- local object_loaded, sub_names, count = luaTable.from_subnames(subnames, base_table, sub_type)
end
-- return subname, subtable, used_names -- = luaTable.formSubCounts(subname, subtable) -- Get the last sub-table from a sub-table name.
function luaTable.from_subnames_test(t) -- Test: Get the last sub-table from a sub-table name.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>luaTable.from_subnames_test()</b> Test: Get the last sub-table from a sub-table name."
--
local count = 0
local t3 ,t2 = "", "\n* from_subnames_test() details: "
local object_loaded, sub_names, count = luaTable.from_subnames("datas", nil)
if sub_table then t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("datas, nil", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("modes", _G)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("modes, _G", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("versioning", nil)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("versioning, nil", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("viewer", _G)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("viewer, _G", part_names) .. viewer.ta("count", count) .. t3
--
local object_loaded, sub_names, count = luaTable.from_subnames("luaTable.i18n")
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("luaTable.i18n, nil", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("luaTable.i18n.es")
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* normal: " .. viewer.ta("luaTable.i18n.es, nil", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("i18n.es", events)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("i18n.es, events", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("es", events.i18n)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("es, events.i18n", part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("", events.i18n.es)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* missing names: " .. viewer.ta("-events-", luaTable.i18n.es, part_names) .. viewer.ta("count", count) .. t3
--
local object_loaded, sub_names, count = luaTable.from_subnames(".", luaTable.i18n.es)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta(".", luaTable.i18n.es, part_names) .. viewer.ta("count", count) .. t3
local object_loaded, sub_names, count = luaTable.from_subnames("xyz", luaTable.i18n.es)
if sub_table then count = count ; t3 = viewer.ta("library.is_binded_in", sub_table.is_binded_in) else count = 3 ; t3 = "" end
t2 = t2 .. "\n* " .. viewer.ta("xyz", luaTable.i18n.es, part_names) .. viewer.ta("count", count) .. t3
--
local tabTest = { aa1 = { bb1 = { cc2 = { "v1", "v2" }, cc3 = { "v1", "v2", "v3" }, }, bb2 = { "b1", "b2" }, }, aa2 = { "a1", "a2" } }
local tabView = {
testGroup = { -- versioning.deprecatedFunctionGroup
{ "one_two_three", { "one", "two", "three" }, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "tabTest", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa1", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa1.bb1", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa1.bb1.cc2", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa2", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa2.bb1", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa1.bb1.cc3", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "aa1.bb1.cc4", tabTest, "luaTable : name=%1, t=%2, l=%3, t/l=%4." },
{ "luaTable.i18n", luaTable.i18n, "luaTable.i18n : name=%1, t=%2, l=%3, f() n=%4." },
{ "luaTable.i18n.es", luaTable.i18n.es,"luaTable.i18n.es : name=%1, t=%2, l=%3, f() n=%4." },
{ "begin.i18n", begin.i18n, "luatable_form_subcounts_subtables" },
{ "begin.i18n.vi", begin.i18n.vi, "luatable_form_subcounts_subtables" },
{ "begin", "luatable_form_subcounts_subtables" }, -- debug
{ "begin.i18n", "luatable_form_subcounts_subtables" }, -- debug
{ "luaTable.i18n", "luaTable.i18n : name=%1, t=%2, l=%3, f() n=%4." },
{ "luaTable.i18n.en", "luaTable.i18n.en : name=%1, t=%2, l=%3, f() n=%4." },
{ "versioning.i18n", versioning.i18n },
-- { "versioning.i18n", "versioning : name=%1, t=%2, l=%3, f() n=%4." },
-- { "versioning.main_i18n",versioning.main_i18n }, -- debug
-- { "versioning.main_i18n", "versioning : name=%1, t=%2, l=%3, f() n=%4." },
{ "translate.main_i18n",translate.main_i18n }, -- debug
{ "translate.main_i18n.fr",translate.main_i18n.fr }, -- debug
-- { "translate.main_i18n", "translate : name=%1, t=%2, l=%3, f() n=%4." }, -- debug
},
title_memo = "versioning_tasks_report_title", -- "versioning.versioning_tasks_report() States of known tasks",
headers = "versioning_tasks_report_headers", -- "Importance; Task; State; Title; In short",
headers = "sub name; sub_name; table count; input luaTable.roughView ...",
}
function tabView.tableView_form_one_case(case) -- Generally to define: Convert a case from testGroup to rowGroup.
local sub_name_1, sub_table_1, form_counts = case[1], case[2], case[3], case[4]
local errs = ""
local subtable, sub_names, count = luaTable.from_subnames(sub_name_1, sub_table_1) -- Get the last sub-table from a sub-table name.
local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(subtable, sub_name_1)
t = t .. viewer.form9user(form_counts, tabname, tot_vars, tot_tabs, tot_func)
form_counts = tostring(form_counts)
local roughView = luaTable.roughView(subtable) -- Form a rough LUA code to understand the structure of the input table.
if string.len(roughView) > 333 then roughView = string.sub(roughView, 1, 333) .. " <br/><b>. . . limited display.</b>" end
return { sub_name, viewer.ta("used_tables", used_names) .. viewer.ta("sub_table_count", sub_table_count) .. (errs2 or ""), form_counts,
viewer.ta("used_name", used_name) .. viewer.ta("used_names", used_names) .. " roughView = " .. roughView }
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.headers = "formSubCounts; used_names + sub_table_count; form_counts .. errs; result roughView"
-- tabView.testGroup = testGroup
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t2 .. t
end -- function luaTable.from_subnames_test(t)
function luaTable.toList(tab, ...) -- Return a list from a LUA sequence table where i = 1 to n.
-- This function is the reverse of func( ... )
if (type(tab) ~= "table") then tab = {} end
local tab = mw.clone(tab) -- to not disturb original table
local maxn = table.maxn(tab)
local function tabN_to_list1(tab, n, ...)
local max_tab = table.maxn(tab)
local listab = {...}
local max_list = table.maxn(listab)
local tab_last = mw.clone(tab[n]) -- last element, even a table to not delete below
tab_last = tostring(tab_last)
if tab_last and (n <= max_tab) then
tab[n] = nil
return tab_last , tabN_to_list1(tab, n + 1, ...)
else return end
end
return tabN_to_list1(tab, 1, ...)
end -- function luaTable.toList(tab, ...)
function luaTable.toList_tests(t) -- Return a list from a LUA table.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "Test the <b>luaTable.toList( tab )</b> which return a list from a LUA table."
local function toList_tests1( case, tab )
local tabview = luaTable.roughView( tab )
local res_tab = { luaTable.toList( tab ) }
local t1 = ""
for i, elem in ipairs(res_tab) do
t1 = t1 .. viewer.ta( "[" .. i .. "]", tostring(elem) )
end
local t = viewer.Tr() .. viewer.Td(case) .. viewer.Td(tabview) .. viewer.Td(t1)
return t
end
t = t .. viewer.Th() .. viewer.Tc("Tested case") .. viewer.Tc("Input table, roughView") .. viewer.Tc("Output list")
t = t .. toList_tests1( "Simple table", { 123, "abc", key = "txt"} )
t = t .. toList_tests1( "All types transmited", { "name", 111, true, false, { 789, "xyz"}, function()end,} )
t = t .. toList_tests1( "10 values in the table", { "a", "b", "c", "d", "e", "f", "g", "h", "i9", "j10" } )
t = t .. toList_tests1( "Any number of values", {
"a", "b", "c", "d", "e", "f", "g", "h", "i09", "j10",
"a", "b", "c", "d", "e", "f", "g", "h", "i19", "j20",
"a", "b", "c", "d", "e", "f", "g", "h", "i29", "j30",
"a", "b", "c", "d", "e", "f", "g", "h", "i39", "j40",
"a", "b", "c", "d", "e", "f", "g", "h", "i49", "j50",
"a", "b", "c", "d", "e", "f", "g", "h", "i59", "j60", } )
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function luaTable.toList_tests(t)
function luaTable.toTable(stringList, pattern, plain) -- convert a string to a table of words
if type(stringList) ~= "string" then stringList = "" end
if type(pattern) ~= "string" then pattern = "" end
-- plain = plain or true
if plain then plain = true else plain = false end
plain = true
local tab = mw.text.split(stringList, pattern, plain)
local tab2 = {}
for i, word in ipairs(tab) do -- for all names
-- word = mw.text.trim(word) -- clean spaces in each name
tab2[word] = word
-- table.insert(tab2, name)
end
return tab2
end
function luaTable.toTable_test(t) -- Test: convert a string to a table of words
local memo = events.save_configs() -- Save global configuration before eventual changes.
if type(stringList) ~= "string" then stringList = "" end
if type(pattern) ~= "string" then pattern = "" end
-- if type(plain) ~= "boolean" then plain = false end
local t = t or "\n* stringToTable_test: "
local group_test = { -- events.testGroup
{ stringList = "docview nocat : tests docline", pattern = nil, },
{ stringList = "docview nocat : tests docline", pattern = " ", plain = nil, },
{ stringList = "docview,nocat, : ,tests docline", pattern = ",", plain = true, },
{ stringList = "docview docline : tests", pattern = " ", plain = true, },
{ stringList = "docview; nocat; : tests; docline", pattern = ";", plain = false, },
{ stringList = "abc ; ; def.;ghi;,jkl", pattern = ";", },
}
local tabOptions = {}
tabOptions.headers = viewer.form9user("stringList; pattern; plain; result")
tabOptions.testGroup = group_test
tabOptions.rowGroup = {}
local function stringToTable_1(stringList, pattern, plain) -- convert a string to a table of words
local test = {}
test.result = luaTable.toTable(stringList, pattern, plain)
test.result = table.concat(test.result)
table.insert( tabOptions.rowGroup, { (test.stringList or "nil"), (test.pattern or "nil"), (test.plain or "nil"), (test.result or "nil") } )
table.insert( tabOptions.rowGroup, { tostring(test.stringList) .. "xx", tostring(test.pattern), tostring(test.plain) or "plain", tostring(test.result) } )
end
if type(group_test) == "table" then
for key, test in pairs(group_test) do
test.table = luaTable.toTable(test.stringList, test.pattern, test.plain)
test.result = " "
for key, val in pairs(test.table) do test.result = test.result .. val .. " " end
table.insert( tabOptions.rowGroup, { tostring(test.stringList), tostring(test.pattern), tostring(test.plain), luaTable.roughView(test.table) } )
end
else t = t .. "error : stringToTable_test has no table. " end
t = t .. viewer.tableView(tabOptions) -- Form a table with lines and columns.
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function luaTable.toTable_test(t)
-- local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(tablebase, tabname, opt, recursiveLevel)
function luaTable.SubCounts(tablebase, tabname, opt, recursiveLevel) -- In a table, recursive counts of vars, sub-tables and functions.
local opt = opt or {}
opt.recursiveLevel = recursiveLevel or opt.recursiveLevel
-- opt.recursiveLevel, opt.recursiveLimit, opt.recursiveLevel_err = modes.recursiveNormal(opt.recursiveLevel, opt.recursiveLimit)
opt.recursiveLevel, opt.recursiveLimit, opt.recursiveLevel_err = modes.recursiveNormal(opt.recursiveLevel, modes.recursiveLimit)
local isempty = true
local tot_vars, tot_tabs, tot_func = opt.tot_vars or 0, opt.tot_tabs or 0, opt.tot_func or 0
-- luaTable.SubCounts(get.i18n, get.pagename) -- : attempt to index local 'opt' (a nil value).
local nbr_vars, nbr_tabs, nbr_func = 0, 0, 0
local txt, vr, tb, fn, vrtb, vr_tb = "", 0, 0, 0, 0, 0
local case = ""
if (type(tablebase) == "table") and (type(tabname) == "string") then -- for any tables
-- normal case OK, do nothing
case = " tab+name"
elseif (type(tablebase) == "table") and (type(tabname) ~= "string") then -- for abnormal or missing tabname
tabname = "tabname=" .. tostring(tablebase) .. "?"
tabname = viewer.errorColor(tabname)
case = " tab+noname"
elseif (type(tablebase) ~= "table") and (type(tabname) == "string") then -- for abnormal table
tabname = "tabname=" .. tostring(tabname) .. "?"
tabname = viewer.errorColor(tabname)
case = " notab+name"
elseif type(tablebase) == "string" then -- for viewer.tables
tabname = "package.loaded." .. tablebase
-- tab = tools[tab]
case = " tab=name"
else
tabname = "tabname=" .. tostring(tablebase) .. "?"
tabname = viewer.errorColor(tabname)
case = " notab+noname"
end
if (type(tablebase) == "table") and (type(tabname) == "string") then -- for normal cases
for key, var in pairs(tablebase) do -- List and count vars, functions and sub tables
local sub_tabname = tostring(key)
if type(var) == "table" then
local sub_tablebase = var
nbr_tabs = nbr_tabs + 1
if (opt.recursiveLevel < opt.recursiveLimit) then
-- if (opt.recursiveLevel > 0) and (opt.recursiveLevel < opt.recursiveLimit) then
-- vr, tb, fn, vrtb, opt.recursiveLevel = luaTable.SubCounts(var, tabname, opt)
opt.recursiveLevel = opt.recursiveLevel + 111
vr, tb, fn, vrtb = luaTable.SubCounts(sub_tablebase, sub_tabname, opt, opt.recursiveLevel)
tot_vars = tot_vars + vr
tot_tabs = tot_tabs + tb + 1
tot_func = tot_func + fn
end
elseif type(var) == "function" then
nbr_func = nbr_func + 1
tot_func = tot_func + 1
isempty = false
else -- type(var) == other
nbr_vars = nbr_vars + 1
tot_vars = tot_vars + 1
isempty = false
end
end
end
local vr_tb = 0
if tot_tabs == 0 then
vr_tb = tot_vars -- texts number in all languages
else -- How many translations in each language? Approximative if not equal.
vr_tb = tot_vars / tot_tabs -- texts number in one language, like + 33.49
vr_tb = math.floor( vr_tb ) -- digital texts number in each language
end
opt.tot_vars = tot_vars -- total number of variables in the table
opt.tot_tabs = tot_tabs -- total number of sub-tables in the table
opt.tot_func = tot_func -- total number of functions in the table
opt.vr_tb = vr_tb -- digital texts number in each language
return tot_vars, tot_tabs, tot_func, vr_tb -- , opt.recursiveLevel
end -- local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(tablebase, tabname, opt, recursiveLevel)
function luaTable.level_count(tab) -- Count all objects in the table, or 0 if tab is not a table.
local count = 0
if (type(tab) ~= "table") then return c end
for k,v in pairs(tab) do
count = count + 1
end
return c
end -- function luaTable.level_count(tab)
function luaTable.level_get(tab, typ) -- Get only the first level of the table. Get only one key type if asked.
local level = {}
local count = 0
if (type(tab) ~= "table") then return level, count end
for key, val in pairs(tab) do
if (type(typ) == "string") and (type(val) == typ)
then level[key] = val ; count = count + 1
else level[key] = val ; count = count + 1 end
end
return level, count
end -- function luaTable.level_get(tab, typ)
function luaTable.level_list(tab, typ, select, field) -- Get only the first level of the table.
-- Get only the first level of the table. Select only keys containing select. Select the field as key if defined.
-- for T20170130 Begin to use
local list, count, level, split, ok = "", 0, {}, {}, false
local sort = typ
if sort == "sort" then typ = "string" end
if (type(tab) ~= "table") then return list, count, level, split end
for key, val in pairs(tab) do
table.insert(level, val)
ok = false
if select == "true" then ok = true end
if (type(val) == "table") and (type(field) == "string") and (type(key) == "string") then key = val[field] end
if (type(typ) == "string") and (type(key) == "string") and viewer.is_in(key, select)
then ok = true
else ok = true ; key = tostring(key) end
if ok then
table.insert(split, key)
count = count + 1
list = list .. key .. ", "
end
end
-- split = level
if sort == "sort" then
table.sort(split, function (a, b, field) -- in recording order
return ( a[field] < b[field] )
end )
end
list = table.concat(split, ", ")
return list, count, level, split
end -- local list, count, level, split = luaTable.level_list(tab, typ, select, field)
function luaTable.roughView(table, option) -- Form a rough LUA code to understand the structure of the table.
if type(table) ~= "table" then return viewer.value(table) end
local opt = option
if type(opt) ~= "table" then opt = {} end
-- local opt = opt or {}
opt.level = (opt.level or 1)
opt.recursiveLimit = tonumber(opt.recursiveLimit) or 11111
opt.max_n = tonumber(opt.max_n) or 11111
local shift = "\n" .. string.rep(":", opt.level)
local t = ""
local n = 0
local continue = true
if opt.level > opt.recursiveLimit then -- Limit the number of levels of sub-tables to opt.recursiveLimit
local col = viewer.warningColor( viewer.form9user( '%1 = %2', "recursiveLimit", opt.recursiveLimit) )
t = t .. viewer.form9user( '{ %1 }', col )
else
shift = "\n" .. string.rep(":", opt.level)
for k, v in pairs(table) do
n = n + 1
if n > opt.max_n then -- Limit the number of elements in each-subtable to opt.max_n.
local col = viewer.warningColor( viewer.form9user( '%1 = %2', "max_n", opt.max_n ) )
continue = false
end
if continue then
if (type(v) == "string") then
if (type(k) == "string") then
-- t = t .. viewer.form9user( '%1 = "%2", ', k, v, shift )
if (string.gsub(k, "%x", "") == k) then
t = t .. viewer.form9user( '%1 = "%2", ', tostring(k), v )
else
t = t .. viewer.form9user( '["%1"] = "%2", ', tostring(k), v )
end
else
t = t .. viewer.form9user( '[%1] = "%2", ', tostring(k), v )
end
-- if n == (#table - 0) then t = t .. ' }s# ' end
elseif (type(v) == "table") or (type(v) == "function") then
else
if (type(k) == "string")
then t = t .. viewer.form9user( '%1 = %2, ', k, tostring(v), shift )
else t = t .. viewer.form9user( '[%1] = %2, ', tostring(k), tostring(v), shift ) end
end
end
end
for k, v in pairs(table) do
n = n + 1
if n > opt.max_n then
local col = viewer.warningColor( viewer.form9user( '%1 = %2', "max_n", opt.max_n ) )
continue = false
end
if continue then -- Do not list if exclude1, exclude2 or exclude3 are in the table name.
if (type(v) == "table") and (k ~= opt.exclude1) and (k ~= opt.exclude2) and (k ~= opt.exclude3) then
opt.level = (opt.level or 1) + 1
shift = "\n" .. string.rep(":", opt.level)
local tt = luaTable.roughView(v, opt)
opt.level = (opt.level or 1) - 1
shift = "\n" .. string.rep(":", opt.level)
t = t .. viewer.form9user( '%3 %1 = %2 ', k, tt, shift )
elseif (type(v) == "function") then
t = t .. viewer.form9user( '%3 %1 = %2() ', k, "function", shift )
elseif (type(v) == "nil") then
t = t .. viewer.form9user( '%3 %1 = %2() ', k, "nil", shift )
end
end
end
end
t = "{ " .. t .. " }"
return t
end -- function luaTable.roughView(table, opt)
function testsCases.luaTabView(table, opt) return luaTable.roughView(table, opt) end -- Form a rough LUA code to understand the structure of the table.
function testsCases.luaTabView_test(t) -- Deprecated alias function
versioning.deprecatedFunction("testsCases.luaTabView_test", "luaTable.roughView_test")
return luaTable.roughView_test(t)
end
function luaTable.roughView_test(t) -- Form a rough LUA code to understand the structure of the table.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "luaTable.roughView_test(t) : From a LUA table, re-form a string roughly equivalent to the table."
local table_key = { "A table used as key.", key = "string", bar = "bartxt", }
local table_value = { "A table used as value is expended in the main table.", abc = "ABC", [5] = "five", ghi = "JKL", }
local tae_val = "A table used as value is expended in the main table."
local function funcView() return "A function result in this string." end
local test_table = {
key = "string",
"string one without key",
[12] = "number key twelve",
["12"] = "string key twelve in brace",
sub_table = { [4] = "four", abc = "ABC", [5] = "five", ghi = "JKL", },
func = funcView(),
"string two without key",
[tonumber] = "A function used as key.",
-- [table_key] = "A table used as key.",
-- table_as_value = table_value,
[true] = "A LUA reserved value used as key.",
}
local t = t .. luaTable.roughView(test_table)
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function luaTable.roughView_test(t)
-- - - - ------------------ - - - - ---------------------------------
-- Document the tables and their structures. List a table content, with formating.
-- Documentar las tablas y sus estructuras. Lista de un contenido de la tabla, con el formateo.
-- Documenter les tables et leurs structures. Lister un contenu de la table, avec le formatage.
-- - - - ------------------ - - - - ---------------------------------
-- Dump and format the content of a table and its sub-tables ; with limits in length, deep and exceptions.
-- Listar y formatar le contento de una tabla y su sub-tablas.
-- Lister et formater le contenu d'une table et ses sous-tables ; avec des limites en longueur, profondeur et exceptions.
-- For each (sub)table, list : in first vars, then functions, then sub-tables list, then sub-tables contents
function luaTable.structure_recursive(tbl, uppername, name, recursiveLevel, opt) -- countonly, level_maxi, max_n, exclude1, exclude2, exclude3)
if type(name) ~= "string" then name = "table" end
local res, newname, part, shift = "", "", "", ""
local sep, N = ", ", 0
local isempty = true
local levelname = uppername .. "." .. name
local tot_vars, tot_func, tot_tabs = 0, 0, 0
local nbr_vars, lst_vars = 0, ""
local nbr_func, lst_func = 0, ""
local nbr_tabs, lst_tabs = 0, ""
local max, lst_subtabs = 0, ""
local st, vr, fn, tb = "", 0, 0, 0
local list = not opt.countonly
if recursiveLevel > opt.level_maxi then -- limit the number of the level of sub-tables
local t_levelmaxi = viewer.form9user("luaTable_structure_level_maxi", recursiveLevel)
return viewer.warningColor( tostring(t_levelmaxi ) ), tot_vars, tot_func, tot_tabs
end
opt.max_n = tonumber(opt.max_n) or 11111
shift = string.rep("*", recursiveLevel)
-- Do not list if exclude1, exclude2 or exclude3 is in the table name.
if type(opt.exclude1) == "string" and opt.exclude1 ~= "" and string.find(name, opt.exclude1) ~= nil
then return "", tot_vars, tot_func, tot_tabs end
if type(opt.exclude2) == "string" and opt.exclude2 ~= "" and string.find(name, opt.exclude2) ~= nil
then return "", tot_vars, tot_func, tot_tabs end
if type(opt.exclude3) == "string" and opt.exclude3 ~= "" and string.find(name, opt.exclude3) ~= nil
then return "", tot_vars, tot_func, tot_tabs end
if type(tbl) ~= "table" then -- display table error
return '<br>The variable "' .. tostring(name) .. '" is not a table.<br>', tot_vars, tot_func, tot_tabs
end
for k, v in pairs(tbl) do -- List and count vars, functions and sub tables
k = tostring(k)
if type(v) == "table" then
lst_tabs = lst_tabs .. k .. sep
nbr_tabs = nbr_tabs + 1
isempty = false
newname = tostring(k)
max = max + 1
if recursiveLevel <= opt.level_maxi then -- List recursively each sub-table
st, vr, fn, tb = luaTable.structure_recursive(v, levelname, newname, recursiveLevel + 1, opt) -- countonly, level_maxi, max_n, exclude1, exclude2, exclude3)
tot_vars = tot_vars + vr
tot_func = tot_func + fn
tot_tabs = tot_tabs + tb + 1
if list then lst_subtabs = lst_subtabs .. st end
else
local t_levelmaxi = viewer.form9user("luaTable_structure_level_maxi", recursiveLevel)
if list then res = res .. " " .. viewer.warningColor( t_levelmaxi ) end
end
local sep = ""
if max == opt.max_n then
local luaTable_table_listlimit_max_n = viewer.form9user("luaTable_table_listlimit_max_n", opt.max_n)
if list then res = res .. "\n" .. shift .. " Table <b>" .. levelname .. "</b> " .. viewer.warningColor(luaTable_table_listlimit_max_n) end
break
end
elseif type(v) == "function" then
nbr_func = nbr_func + 1
tot_func = tot_func + 1
isempty = false
if list then lst_func = lst_func .. k .. sep end
else -- type(v) == other
nbr_vars = nbr_vars + 1
tot_vars = tot_vars + 1
isempty = false
if list then lst_vars = lst_vars .. type(v) .. " - <b>" .. tostring(k) .. "</b> = " .. tostring(v) .. " " .. sep end
end
end
if list then res = res .. "\n" .. shift .. " Table <b>" .. levelname .. "</b>, " .. tostring(nbr_vars) .. " vars: " .. lst_vars end
if list then res = res .. "\n" .. shift .. " Table <b>" .. levelname .. "</b>, " .. tostring(nbr_func) .. " functions: " .. lst_func end
if list then res = res .. "\n" .. shift .. " Table <b>" .. levelname .. "</b>, " .. tostring(nbr_tabs) .. " tables: " .. lst_tabs .. lst_subtabs end
return res, tot_vars, tot_func, tot_tabs
end -- function luaTable.structure_recursive(tbl, uppername, name, recursiveLevel, opt) -- countonly, level_maxi, max_n, exclude1, exclude2, exclude3)
-- opt = { boxstyle = "boxstyle", level_maxi = 3, max_n = 2, exclude1 = "hou" } ) -- , {width = "88%", text_color = "blue"}
function luaTable.structure(table, tablename, opt)
-- luaTable_structure_limits_title = "List a table, test with limits:",
local recursiveLevel, recursiveLimit, recursiveLevel_err = 1, 1111, ""
local res = "\n* Content of the <b>" .. tostring(tablename) .. "</b> table, begin:"
if not opt then opt = { recursiveLimit = 11111 } end
local recursiveLevel = opt.recursiveLevel or 1
if versioning.main_i18n_complete then
recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, modes.recursiveLimit)
end
-- local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, modes.recursiveLimit)
if type(opt.level_maxi) ~= "number" then opt.level_maxi = 222 end
-- opt.level_maxi = opt.level_maxi or 222
if type(opt.max_n) ~= "number" then opt.max_n = 3333 end
opt.max_n = opt.max_n or 3333
opt.recursiveLevel = opt.recursiveLevel or recursiveLevel or 1
opt.exclude1 = opt.exclude1 or ""
opt.exclude2 = opt.exclude2 or ""
opt.exclude3 = opt.exclude3 or ""
opt.countonly = opt.countonly and true
local tot_vars, tot_func, tot_tabs = 0, 0, 0
if recursiveLevel > opt.level_maxi then -- even for abnormal limit -- Erreur Lua dans Module:Central-s-fr à la ligne 7271 : attempt to compare number with nil.
return "", tot_vars, tot_func, tot_tabs
end
local st, vr, fn, tb = luaTable.structure_recursive(table, "", tablename, 1, opt) -- countonly, level_maxi, max_n, exclude1, exclude2, exclude3)
res = res .. st
tot_vars = tot_vars + vr
tot_func = tot_func + fn
tot_tabs = tot_tabs + tb
res = res .. "\n* Content of the <b>" .. tostring(tablename) .. "</b> table, end: "
res = res .. viewer.form9user(" %1 variables, %2 functions, %3 sub-tables.\n", vr, fn, tb)
return res, tot_vars, tot_func, tot_tabs
end -- function luaTable.structure(table, tablename, opt)
-- Auto test of limits of the table list.
-- Auto test des limites de liste de table.
luaTable.tablim = { "one", "two", max1 = "MAX1", max2 = "MAX2", max3 = "MAX3"}
luaTable.tablim.life = { animal = "dog", vegetal = { big = "tree", small = "flower"} }
luaTable.tablim.life.animals = { "turtle"}
luaTable.tablim.comfort = { "tv", mobile = "car"}
luaTable.tablim.house = { "kitcheen", "bedroom"}
luaTable.tablim.house.garden = { flower = "rose", nature = "river"}
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:mathroman is here as an example of very small central library. It becomes central using the central modules system.
-- function mathroman.roman2int(rm, testcase) -- Convert a roman number to decimal
-- function mathroman.int2roman(i, testcase) -- Convert a integer number to roman
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- mathroman = {} -- already declared by Scribunto, else in _G space.
mathroman.i18n = {} -- translations tables known in the module
mathroman.i18n.en = {
mathroman_errors_head_err = "Error: ",
mathroman_roman_err = "Roman error: ",
mathroman_value_error_err = "Value error: ",
mathroman_J_before_end_err = "character J before the end",
mathroman_char_X_in_N_err = "character %1 in %2",
mathroman_char_increase_err = "3 increasing characters",
mathroman_greater_4999_err = "value > 4999",
mathroman_null_value_err = "null value",
mathroman_rom2dig_value_err = "roman value error",
mathroman_dig2rom_value_err = "digital value error",
mathroman_roman2int_tests_title = "mathroman.roman2int() Test roman to digital numbers",
mathroman_roman2int_tests_headers = "Roman number; Digital value; Correct; Error(s)",
mathroman_int2roman_test_title = "mathroman.int2roman() Test digital numbers to roman numbers",
mathroman_int_is_not_integer_err = "The not integer number <b>%1</b> is not convertible to Roman numeral",
mathroman_int_is_not_number_err = "The value <b>%1</b> is not a convertible number to Roman numeral",
mathroman_is_not_string_err = "The value <b>%1</b> is not a text convertible to number"
} -- mathroman.i18n.en
mathroman.i18n.es = {
mathroman_errors_head_err = "Error: ",
mathroman_roman_err = "Error de romano: ",
mathroman_value_error_err = "Error de valor: ",
mathroman_J_before_end_err = "carácter J antes del fin",
mathroman_char_X_in_N_err = "carácter 1% en %2",
mathroman_char_increase_err = "3 crecientes caracteres",
mathroman_greater_4999_err = "valor > 4999",
mathroman_null_value_err = "valor null",
mathroman_rom2dig_value_err = "romano valor error",
mathroman_dig2rom_value_err = "decimale valor error",
mathroman_roman2int_tests_title = "mathroman.roman2int() Prueba de números romanos a números decimales",
mathroman_roman2int_tests_headers = "Número romano; Valor digital; Corregido; Error(s)",
mathroman_int2roman_test_title = "mathroman.int2roman() Prueba de números decimales a números romanos",
mathroman_int_is_not_integer_err = "El no entero <b>%1</b> no se puede convertir en número romano",
mathroman_int_is_not_number_err = "El valor <b>%1</b> no es un número y no se puede convertir en número romano",
mathroman_is_not_string_err = "El valor <b>%1</b> no es un texto y no se puede convertir en número",
} -- mathroman.i18n.es
mathroman.i18n.fr = {
mathroman_errors_head_err = "Erreur : ",
mathroman_roman_err = "Erreur de romain : ",
mathroman_value_error_err = "Erreur de valeur : ",
mathroman_J_before_end_err = "caractère J avant la fin",
mathroman_char_X_in_N_err = "caractère %1 en %2",
mathroman_char_increase_err = "3 caractères croissants",
mathroman_greater_4999_err = "valeur > 4999",
mathroman_null_value_err = "valeur nulle",
mathroman_rom2dig_value_err = "erreur de valeur de romain",
mathroman_dig2rom_value_err = "erreur de valeur de décimal",
mathroman_roman2int_tests_title = "mathroman.roman2int() Test des nombres romains en nombres décimaux",
mathroman_roman2int_tests_headers = "Nombre romain; Valeur décimale; Correct; Erreur(s)",
mathroman_int2roman_test_title = "mathroman.int2roman() Test des nombres décimaux en nombres romains",
mathroman_int_is_not_integer_err = "Le nombre non entier <b>%1</b> n'est pas convertible en nombre romain",
mathroman_int_is_not_number_err = "La valeur <b>%1</b> n'est pas un nombre convertible en nombre romain",
mathroman_is_not_string_err = "La valeur <b>%1</b> n'est pas un texte convertible en nombre",
} -- mathroman.i18n.fr
-- vueRomains : XIJ=12 MCXI=1111 MCDXLIV=1444 MDCLXVI=1666 MCMXCIX=1999 MMCCXXII=2222 MMMMCMXCIX=4999 ERREURS=0 erreur caractere S en 7. XIA=11 erreur caractere A en 3. XJI=12 erreur caractere J avant la fin. IXC=89 erreur caracteres croissants. VLD=445 erreur caracteres croissants. MMMMM=5000 erreur > 4999. MMMMMYJXC=5089 erreur > 4999. erreur caractere Y en 6. erreur caractere J avant la fin.
function mathroman.pcall_int2roman(val, errs) -- DEBUG : mathroman.int2roman() can fail without blocking page.
-- EBUG: Without this patch the mathroman.int2roman() get the parser error "attempt to call field 'int2roman' ". Patched by Rical 2015-04-20.
-- local event_century_roman = ""
-- word, errx = mathroman.int2roman(val, errs)
-- See Maniphest T27845 Support loading wiki pages through mediaWiki.loader.load()
-- DEBUG code:
local success, word, errs = pcall(mathroman.int2roman, val, errs) -- pcall or xpcall can run any function without blocking page.
if success then return word, errs else return nil, errs end
end
function mathroman.pcall_roman2int(word, errs) -- DEBUG : mathroman.roman2int() can fail without blocking page.
-- DEBUG: Without this patch the mathroman.int2roman() get the parser error "attempt to call field 'roman2int' ". Patched by Rical 2015-04-20.
-- val, errs = mathroman.roman2int(word, errs)
local success, val, errs = pcall(mathroman.roman2int, word, errs) -- pcall or xpcall can run any function without blocking page.
if success then return val, errs else return nil, errs end
end
-- Romans view : XIJ=12 MCXI=1111 MCDXLIV=1444 MDCLXVI=1666 MCMXCIX=1999 MMCCXXII=2222 MMMMCMXCIX=4999 ERREURS=0 erreur caractere S en 7. XIA=11 erreur caractere A en 3. XJI=12 erreur caractere J avant la fin. IXC=89 erreur caracteres croissants. VLD=445 erreur caracteres croissants. MMMMM=5000 erreur > 4999. MMMMMYJXC=5089 erreur > 4999. erreur caractere Y en 6. erreur caractere J avant la fin.
function mathroman.roman2int(rm) -- Convert a roman number to integer
local v = 0 -- valeur totale
local v1 = 0 -- valeur de derniere lettre
local v2 = 0 -- valeur de lettre precedente
local v3 = 0 -- valeur de lettre precedente
local x = '-' -- caractere en cours d'evaluation
local i = 1 -- numero du caractere en cours d'evaluation
local j = 0 -- numero du caractere de reference courant (debut en Lua)
local k = 0 -- numero du caractere de reference courant (fin en Lua)
local errs, errtab = "", {}
if type(rm) ~= "string" then
-- errs = errs .. events.add_err("mathroman_is_not_string_err", tostring(rm) )
table.insert(errtab, tostring(events.add_err("mathroman_is_not_string_err", tostring(rm) ) ) )
return 0, errs
end
if rm == "" then
errs = errs .. events.add_err("mathroman_is_not_string_err", '""')
table.insert(errtab, tostring(events.add_err("mathroman_is_not_string_err", '""') ) )
return 0, errs
end
if type(rm) ~= "string" then rm = "-" end
local lst = '-MDCLXVIJ' -- caracteres autorises
x = string.sub(rm, i, i) or ''
while (x ~= '') do
v3 = v2
v2 = v1
v1 = 0
-- x = string.gsub(rm, i, i)
if ( x == 'M' ) then v1 = 1000 end
if ( x == 'D' ) then v1 = 500 end
if ( x == 'C' ) then v1 = 100 end
if ( x == 'L' ) then v1 = 50 end
if ( x == 'X' ) then v1 = 10 end
if ( x == 'V' ) then v1 = 5 end
if ( x == 'I' ) then v1 = 1 end
if ( x == 'J' ) then v1 = 1 end
if ( x == 'J' ) and ( i < string.len(rm) ) then
errs = errs .. events.add_err("mathroman_J_before_end_err") -- e4 = 'character J before the end'
table.insert(errtab, tostring(events.add_err("mathroman_J_before_end_err") ) ) -- e4 = 'character J before the end'
end
if ( v1 == 0 ) then
errs = errs .. events.add_err("mathroman_char_X_in_N_err", x, i) -- e3 = "character K in 3"
table.insert(errtab, tostring(events.add_err("mathroman_char_X_in_N_err", x, i) ) )
end
v = v + v1
if ( (v1 == 5*v2) or (v1 == 10*v2) ) then v = v - (2*v2) end -- adjust 4, 9, 40, 90 ...
j, k = string.find(lst, x)
if ( j == nil ) then j = -1 end
if ( k == nil ) then k = -1 end
if (v1 > v2) and (v2 > v3) and (v3 > 0) then
errs = errs .. events.add_err("mathroman_char_increase_err") -- e2 = ' increasing chars.'
table.insert(errtab, tostring(events.add_err("mathroman_char_increase_err") ) )
end
i = i + 1
x = string.sub(rm, i, i) or ''
end
-- if ( v == 0 ) then -- e0 = ' valeur nulle.'
if ( v < 1 ) then -- e0 = ' valeur nulle.'
errs = errs .. events.add_err("mathroman_null_value_err")
table.insert(errtab, tostring(events.add_err("mathroman_null_value_err") ) )
-- v = 1
end
if ( v > 4999 ) then -- e1 = ' valeur > 4999.'
errs = errs .. events.add_err("mathroman_greater_4999_err")
table.insert(errtab, tostring(events.add_err("mathroman_greater_4999_err") ) )
-- v = 4999
end
-- { name = "mathroman.roman2int (4)', func = mathroman.roman2int, args = { "VI", }, expect = { 123 } },
-- errs = errs .. ":" .. tostring(v) .. ":" .. tostring(rm) .. ":" -- runOneTest
errs = table.concat(errtab, " ; ")
return v, errs -- with or without errors
end -- function mathroman.roman2int(rm)
function mathroman.romani2r(i, j)
if ( j == nil ) then j = '' end
local rm=''
if ( i == 1000 ) then rm = 'M' end
if ( i == 500 ) then rm = 'D' end
if ( i == 100 ) then rm = 'C' end
if ( i == 50 ) then rm = 'L' end
if ( i == 10 ) then rm = 'X' end
if ( i == 5 ) then rm = 'V' end
if ( i == 1 ) then
rm = 'I'
if ( j == 'J' ) then rm = 'J' end
end
return rm
end -- function mathroman.romani2r(i, j)
function mathroman.int2roman(int) -- Convert an integer to a roman number, also if int is a string
local errs = "" -- local collection of errors
local n = tonumber(int)
--[ [
if n then
local floor = math.floor(n)
if n ~= floor then
errs = errs .. events.add_err("mathroman_int_is_not_integer_err", tostring(int) )
roman = ""
return roman, errs -- with error
end
elseif int == "" then
errs = errs .. events.add_err("mathroman_is_not_string_err", '""' )
return "", errs
else
errs = errs .. events.add_err("mathroman_int_is_not_number_err", tostring(int) )
roman = ""
return roman, errs -- with error
end
--] ]
if type(n) ~= "number" then n = 0 end
n = math.floor(n)
n = n or 0 -- delete after debug
local v100 = 100
local v500 = v100*5
local v1000 = v100*10 -- roman cycle romain 1000, 100, 10, 1
local v, v1, v2, v3 = 0, 0, 0, 0 -- Total value, last, and previous. Valeur totale, derniere, et precedentes.
local reste, reduction = 0, 0 -- Rest to convert, last reduction. Reste a convertir, derniere reduction.
local rm = ''
local roman = '' -- chiffre et nombre romain resultant
reste = n
if ( n > 4999 ) then
errs = errs .. events.add_err("mathroman_greater_4999_err") -- e1 = ' valeur > 4999.'
reste = 0
roman = "" -- 'ERROR'
end
if ( n < 1 ) then
-- n = 0
errs = errs .. events.add_err("mathroman_null_value_err") -- e2 = ' valeur < 1.'
reste = 0
roman = "" -- 'ERROR'
end
while (reste > 0) do
v3 = v2
v2 = v1
v1 = reste
reduction = 0
if ( reste >= v1000 ) then
reduction = v1000
elseif ( reste >= v100*9 ) then
reduction = v100
reste = reste + v100*2
elseif ( reste >= v500 ) then
reduction = v500
elseif ( reste >= v100*4 ) then
reduction = v100
reste = reste + v100*2
elseif ( reste >= v100 ) then
reduction = v100
elseif ( reste >= 1000 ) then
v100 = 100
v1000 = 1000
reduction = v1000
end
rm = mathroman.romani2r(reduction)
roman = roman .. rm
reste = reste - reduction
if ( reste < v100 ) then
if ( v100 >= 10 ) then
v100 = v100/10
v500 = v100*5
v1000 = v100*10
end
end
end
-- { errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { int = 444 }, expect = { "CDXLIV" } },
-- errs = errs .. ":" .. tostring(roman) .. ":" .. tostring(int) .. ":" -- runOneTest
return roman, errs -- with or without errors
end -- function mathroman.int2roman(int)
function mathroman.roman2int_tests(t) -- Tests of main central modules
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* " .. viewer.form9user("mathroman_roman2int_tests_title")
t = t .. "<br>" .. luaTable.formSubCounts("mathroman.i18n")
local tabView = {
testGroup = {
{ 123, },
{ 2.78, },
{ "-X", },
{ "", },
{ "0", },
{ "MCXI", },
{ "XIJ", },
{ "XJI", },
{ "XIA", },
{ "VLD", },
{ "IXC", },
{ "MMMMCMXCIX", },
{ "MMMMM", },
{ "MMMMMYJXC", },
{ {x}, },
{ function()end, },
},
headers = "mathroman_roman2int_tests_headers", -- mathroman_roman2int_tests_title
-- mathroman_roman2int_tests_headers = "Roman number; Digital value; Correct; Error(s)",
-- mathroman_roman2int_tests_headers = "Número romano; Valor digital; Corregido; Error(s)",
-- mathroman_roman2int_tests_headers = "Nombre romain; Valeur décimale; Correct; Erreur(s)",
}
tabView.t = (tabView.t or "") .. viewer.ta("roman2int_tests: ", "start")
tabView.t = tabView.t .. viewer.ta("#testGroup: ", #tabView.testGroup)
function tabView.tableView_form_one_case(case) -- Generally to define: Convert a case from testGroup to rowGroup.
local word = case[1] -- DEBUG : mathroman.roman2int() can fail without blocking page.
local valX, errs = mathroman.roman2int(word) -- DEBUG : mathroman.roman2int() can fail without blocking page.
local wordX, errsX = mathroman.int2roman(valX) -- DEBUG : mathroman.roman2int() can fail without blocking page.
-- local case = { word, valX, wordX, errs .. " " .. errsX, }
return { word, valX, wordX, errs .. " " .. errsX, }
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track to debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function mathroman.roman2int_tests(t)
function mathroman.int2roman_test(t, val) -- Unitary tests of mathroman.int2roman
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "int2roman_test"
t = "\n:*<b>" .. t .. "</b>:"
t = t .. "<br>" .. luaTable.formSubCounts("mathroman.i18n")
t = t .. viewer.Th() .. viewer.Tc("Digital value") .. viewer.Tc("Roman number") .. viewer.Tc("Error")
local function int2roman_test1( t, val)
-- local word, errs = mathroman.pcall_int2roman(val, " ") -- DEBUG : mathroman.int2roman() can fail without blocking page.
local word, errs = mathroman.int2roman(val, " ") -- DEBUG : mathroman.int2roman() can fail without blocking page.
t = (t or "") .. viewer.Tr() .. viewer.Td(val) .. viewer.Td(word or "") .. viewer.Td(errs or "")
return t
end
t = int2roman_test1( t, -10)
t = int2roman_test1( t, 3.14)
t = int2roman_test1( t, "not-a-number" )
t = int2roman_test1( t, "")
t = int2roman_test1( t, 0)
t = int2roman_test1( t, 12)
t = int2roman_test1( t, 17)
t = int2roman_test1( t, "18")
t = int2roman_test1( t, "19")
t = int2roman_test1( t, 111)
t = int2roman_test1( t, 444)
t = int2roman_test1( t, 555)
t = int2roman_test1( t, "777")
t = int2roman_test1( t, "1111")
t = int2roman_test1( t, "4999")
t = int2roman_test1( t, "5000")
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function mathroman.int2roman_test(t, val)
-- vueRomains : XIJ=12 MCXI=1111 MCDXLIV=1444 MDCLXVI=1666 MCMXCIX=1999 MMCCXXII=2222 MMMMCMXCIX=4999 ERREURS=0 erreur caractere S en 7. XIA=11 erreur caractere A en 3. XJI=12 erreur caractere J avant la fin. IXC=89 erreur caracteres croissants. VLD=445 erreur caracteres croissants. MMMMM=5000 erreur > 4999. MMMMMYJXC=5089 erreur > 4999. erreur caractere Y en 6. erreur caractere J avant la fin.
-- { errorsKey = 2, modulename = "mathroman", funcname = "int2roman", group = mathroman.TestsCasesGroup, },
-- { errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 1 }, expect = { "I" } },
mathroman.TestsCasesGroup = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- each test_case defines a name, a function, an input, an output. See also viewer.strTestCase. 8 cases
--[[
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 1 }, expect = { "I" }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 3 }, expect = { "III" }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 6 }, expect = { "VIII" }, },
--
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "IV", }, expect = { 4 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "V", }, expect = { 5 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "III", }, expect = { 6 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "VI", }, expect = { 6 }, },
--]]
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "XXII" }, expect = { 22 }, },
}
mathroman.Tests_cases = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- each test_case defines a name, a function, an input, an output. See also viewer.strTestCase. 5 cases
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 12, }, expect = { "XII" }, },
--[[
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 17, }, expect = { "II" }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 3, }, expect = { "III" }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 4, }, expect = { "IX" }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 5, }, expect = { "V" }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 6, }, expect = { "VI" }, },
--
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "I" }, expect = { 1 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "II" }, expect = { 2 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "III", }, expect = { 6 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "VI", }, expect = { 123 }, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "V", }, expect = { 1 }, },
--]]
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "VIA", }, expect = { 6, "mathroman_char_X_in_N_err-A-3" }, },
}
mathroman.int2romanTests = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- each test_case defines a name, a function, an input, an output. See also viewer.strTestCase. 8 - 1 = 7 + 8 = 15 cases
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { "19" }, expect = { "XII" } },
-- diffs = mathroman_char_increase_err;mathroman_char_increase_err;mathroman_char_X_in_N_err-0-1; mathroman_char_X_in_N_err---1;mathroman_char_X_in_N_err-A-3;mathroman_char_X_in_N_err-Y-6; mathroman_char_X_in_N_err-Y-6nil;mathroman_greater_4999_err;mathroman_J_before_end_err;mathroman_J_before_end_errnil; mathroman_null_value_err;testsCases_subDiffs_string_error-mathroman_J_before_end_err-XJI-nil, errors =
--[[
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 12 }, expect = { "XII" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 17 }, expect = { "XVII" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 18 }, expect = { "XVIII" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 111 }, expect = { "CXI" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 444 }, expect = { "CDXLIV" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 555 }, expect = { "DLV" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 777 }, expect = { "DCCLXXVII" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 1111 }, expect = { "MCXI" } },
--]]
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 4999 }, expect = { "MMMMCMXCIX" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 5000 }, expect = { "0", "mathroman_greater_4999_err-0" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { -10 }, expect = { "X", "mathroman_null_value_err" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 0 }, expect = { "0", "mathroman_null_value_err" } },
--[[
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { 3.14 }, expect = { "3.3.3" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "int2roman", func = mathroman.int2roman, args = { "not-a-number" }, expect = { "xxx" } },
--
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.TestsCasesGroup,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.TestsCasesGroup", }, --
--]]
}
mathroman.roman2intTests = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- each test_case defines a name, a function, an input, an output. See also viewer.strTestCase. 6 cases
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "-X" }, expect = { 10, "mathroman_char_X_in_N_err---1-" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "0" }, expect = { 0, "mathroman_char_X_in_N_err-0-1-" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "XIA" }, expect = { 11, "mathroman_char_X_in_N_err-A" } },
--[[
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "" }, expect = { 0 } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MCXI" }, expect = { 1111 } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "XIJ" }, expect = { 12 } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "XJI" }, expect = { 12, "X Y Z" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "XJI" }, expect = { 12, "mathroman_char_increase_err" } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "VLD" }, expect = { 445 } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "IXC" }, expect = { 89 } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MMMMCMXCIX" }, expect = { 4999 } },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MMMMM" }, expect = { 5000, "mathroman_J_before_end_err-XJI" } },
--]]
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MMMMMYJXC" }, expect = { 5089, ";mathroman_J_before_end_err;mathroman_char_increase_err;mathroman_char_X_in_N_err-Y-6;mathroman_greater_4999_err;" } },
}
mathroman.testsRecursive = { -- Autotest cases to validate the mathroman library at mediawiki level.
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "XXIJ" }, expect = { 22 } },
-- { errorsKey = 2, modulename = "mathroman", funcname = 'recurse', group = mathroman.testsRecursive, },
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MCXI" }, expect = { 1111 } },
-- { errorsKey = 2, modulename = "mathroman", funcname = 'recurse', group = mathroman.testsRecursive, },
}
mathroman.testsGroups = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- Each test_case defines a name, a function, an input, an output. Else a sub-group of testsCases.
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.Tests_cases,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.Tests_cases", }, --
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.int2romanTests,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.int2romanTests", }, --
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.roman2intTests,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.roman2intTests", }, --
-- { name = "mathroman", func = testsCases.runGroups, group = mathroman.testsRecursive, -- recursive until recursiveLimit
-- modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.testsRecursive", },
}
-- Define ClassCentralMathromanTests.lua
-- mathroman.count = 0 -- generic testcase for mathroman.tests_cases
function mathroman.provide(n, test_name, okString) -- see Extension:Scribunto/Lua reference manual:
-- Function that returns three values: n, the name of test n, and a string that is the expected output for test n.
return n, test_name, okString
end
function mathroman.run( n, testcase ) -- Function that runs test n and returns one string.
return testsCases.run_testcase( n, testcase )
end
function mathroman.getEnv( func, name, recursiveLevel, opt ) -- Get the environment of the module or library
-- local fenv = getfenv() -- Not functional because not activated in fr.wikisource.org.
local t = luaTable.formSubCounts("_G", { recursiveLimit = 2 }, 1 ) -- rougly equivalent to getfenv()
return t
end
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:modes support modes and their options, like p.read(frame).
-- count = number of tests; provide( n ) returns three values: n, and expected output; run( n ) returns one string.
-- see Extension:Scribunto/Lua reference manual : class nameTest extends Scribunto_LuaEngineTestBase
-- This library support modules to:
-- * Define their modes, used with frame: p.read(frame)
-- * Default modes are read, edit, doc or tests
-- * And their options
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- modes = {} -- already declared by Scribunto, else in _G space.
-- Translations for modes library
modes.i18n = {} -- 12 modes.i18n.
modes.i18n.en = { -- 182 <tab>mode_...
-- Names and descriptions of configurations arguments
[1] = "1",
[2] = "2",
[3] = "3",
[4] = "4",
label = 'label',
label_descr = "Automatic Wikidata argument.",
sitelink = 'sitelink',
sitelink_descr = "Automatic Wikidata argument.",
userlang = "userlang",
userlang_descr = "Language of the user or the helper.",
wikilang = "wikilang",
wikilang_descr = "Language of the wiki.",
itemid = 'itemid',
itemid_descr = "Identifier of Wikidata data, such as <code>Q535</code> for Victor Hugo.",
itemid2 = 'id',
itemid2_descr = "Identifier of Wikidata data, such as <code>Q535</code> for Victor Hugo.",
debug = 'debug',
category = 'Category',
mode = "mode",
mode_descr = "Type of use of the module or template: read, edit, document, test.",
options = "options",
options_descr = "Display options of a module or a model.",
c = "c",
c_descr = "Display options of a module or a model.",
knownversions = "knownversions",
knownversions_descr = "Known versions, to manage them.",
soughtversions = "soughtversions",
soughtversions_descr = "Sought versions, to manage them.",
-- Main texts, errors and categories of tools
-- Versions management
-- Titles of tests
modes_list_all_args_main_title = "modes.list_all_args_main() List of all accepted arguments",
modes_used_options_title = "modes.used_options_list() Options and their uses:",
modes_brief_options_mode_title = "modes.options_from_mode_tests() Modes and options in brief",
modes_options_from_args_tests_title = "modes.options_from_args_tests() Test options from modes",
modes_options_from_args_title = "Test options from arguments",
-- Groups of arguments
modes_needed_to_verify = "(required, to be checked)",
modes_list_needed_args = "List of needed arguments:",
modes_list_all_config_arguments = "List of all config arguments:",
modes_list_all_system_arguments = "List of all system arguments:",
modes_list_all_other_args = "List of all other arguments:",
-- Main texts, errors and categories of tools
modes_language_cat = 'Speaking %1',
modes_date_months_names = "January, February, March, April, May, June, July, August, September, October, November, December",
modes_date_to_part_format = "dd yyyy mmmm",
modes_date_to_part_call_err = "Internal Error: Abnormal calling arguments in date <b>%1</b>.",
modes_date_to_part_call_cat = "Module with internal error",
modes_date_to_part_not_found_err = "Internal Error: No part found in date <b>%1</b>.",
-- Arguments management
modes_error_list_header_err = "User support about parameters:",
modes_need_arg_value_err = "Error: This argument is required but absent : <b>%1</b>. Should define it.",
modes_none_value_err = "Error: No argument has been defined.",
modes_unknown_argument_err = "Error: parameter <b>%1</b> is unknown in this template. Check the name or flag this gap.",
modes_too_unnamed_arguments_err = "Error: This unnamed argument is too many: <b>%1</b> = <b>%2</b>.",
modes_without_translation_wsid_err = "Internal Error: Notify the developer that the internal argument <b>%1</b> is unknown in the records.",
modes_is_defined_err = "The argument %1:<b>%2</b> is defined.",
modes_is_undefined_err = "The argument %1:<b>%2</b> is not defined.",
modes_args_values_err = "Abnormal value of the argument <b>%1 = %2</b> including (%3) ",
modes_nearest_argument_err = "Error: Do you need the known argument <b>%1</b> ?",
modes_max_nearest_argument_msg = "A longer name argument accepts more letter errors.",
modes_value_re_defined_err = "Error: The value of the argument <b>%1</b> is already defined. Choose only one value of a single synonymous.",
modes_lang_table_err = "Error: The <b>%1</b> language or its table is incorrect.",
-- modes_lang_table_err_cat = "Module avec langue d'arguments erronée",
modes_lang_table_err_cat = "Module avec erreur interne", -- modes_lang_table_err_cat
modes_lang_not_translated_err = "Error: The language <b>%1</b> is not translated.",
modes_generDoc1_paramName_err = "Internal Error: in generDoc1, bad argument <b>%1</b>.",
--
modes_unknown_auto_arg_err = "Internal Error: Unknown automatic argument: %1 = <b>%2</b>.",
modes_delete_docbox_wng = "You must remove this documentation before recording.<br>Remove all modes to return to read mode.",
modes_auto_val_warning_wng = "Verify the automatic argument: %1 = <b>%2</b>.",
--
modes_assist_user_param_err = "User support for checking the settings:",
modes_no_known_arguments_err = "Module without known arguments table.",
modes_args_values_err = "Abnormal value of the argument <b>%1 = %2</b> (%3)",
--
modes_no_known_arguments_err = "Internal Error: Module without known arguments table.",
-- modes_no_known_args_cat = "Module without known arguments table.",
modes_no_known_args_cat = "Module with internal error", -- modes_no_source_arguments_cat
modes_no_source_arguments_err = "Internal Error: Module without source arguments table.",
-- modes_no_source_arguments_cat = "Module without source arguments table.",
modes_no_source_arguments_cat = "Module with internal error", -- modes_no_source_arguments_cat
modes_list_all_args_main_title = "modes.list_all_args_main() List of all accepted arguments",
modes_similar_levenshtein_tests_title= "modes.levenshtein() Test the distances between words <b>[https://en.wikipedia.org/wiki/Levenshtein_distance Levenshtein]</b>:",
modes_args_known_structure_title = "modes.args_known_structure() Arguments definitions",
modes_similar_args_searchs_title = "modes.similar_args_search() Test close similar words:",
modes_normal_box_main_text_1 = "Simple infobox: page title: <b>%1</b>, description: <b>%2</b>",
modes_normal_box_main_text_2 = "<br/>He was <b>%1</b>, named <b>%2</b> <b>%3</b> was dead in <b>%4</b>.",
-- These texts are used to title some tests.
modes_list_wiki_selectors_title = "List of selectors of this module:",
modes_all_categories_list_title = "modes.all_categories_list() List of eventual categories of this module:",
modes_all_errors_list_title = "modes.all_errors_list() List of detectable errors in this module:",
modes_multiple_values_tests_title = "modes.multiple_values() Test of multiple values arguments",
modes_multiple_selection_tests_title= "modes.multiple_selection() Multiple selection test",
modes_multiple_selection_test_headers= "Options;Selector;To selector;Selected",
modes_multiple_selection_test_select= "2;nobel;president;deputy;price",
modes_recursiveLevel_err = "Recursive level error <b>%1 > %2</b>",
modes_recursiveNormal_tests_title = "modes.recursiveNormal() Test: Normalize the recursive level and the recursive limit",
modes_spaces_names_page_title = "modes.spacesNamesPageTest() Module, namespaces, and page names:",
} -- modes.i18n.en
modes.i18n.es = {
-- Nombres y descripciones de argumentos de configuraciones
[1] = "1",
[2] = "2",
[3] = "3",
[4] = "4",
label = 'label',
label_descr = "Wikidata automática argumento.",
sitelink = 'sitelink',
sitelink_descr = "Wikidata automática argumento.",
userlang = "userlang",
userlang_descr = "Idioma del usuario o del encargado.",
wikilang = "wikilang",
wikilang_descr = "Idioma del wiki.",
itemid = 'itemid',
itemid_descr = "Nombre de los datos Wikidata, como <code>Q535</code> para Victor Hugo.",
itemid2 = 'id',
itemid2_descr = "Nombre de los datos Wikidata, como <code>Q535</code> para Victor Hugo.",
debug = 'debug',
category = 'Categoría',
mode = "modo",
mode_descr = "Tipo de uso del módulo o modelo: leer, editar, documentar, probar.",
options = 'opciones',
options_descr = "Opciones de visualización de un módulo o un modelo.",
c = "c",
c_descr = "Opciones de visualización de un módulo o un modelo.",
knownversions = "knownversions",
knownversions_descr = "Conocidas versiones, para manejarlos.",
soughtversions = "soughtversions",
soughtversions_descr = "Versiones demanda, para manejarlos.",
--
events_test_OK_cat = "Test category generation OK",
-- Textos principales, errores y categorías de instrumentos
events_test_OK_cat = "Prueba generación categoría en OK",
events_test_OK_cat = "Test de génération de catégorie OK",
--
-- Titres des pruebas
modes_used_options_title = "modes.used_options_list() Opciones y sus usos:",
modes_brief_options_mode_title = "modes.options_from_mode_tests() Modos y opciones en brief",
modes_options_from_args_tests_title = "modes.options_from_args_tests() Prueba de opciones de modos",
modes_options_from_args_title = "Prueba de opciones de argumentos",
-- Grupos de argumentos
modes_needed_to_verify = "(obligatorio, se debe comprobar)",
modes_list_needed_args = "Lista de argumentos necesarios:",
modes_list_all_config_arguments = "Lista de argumentos de configuración:",
modes_list_all_system_arguments = "Lista de argumentos del sistema:",
modes_list_all_other_args = "Lista de los otros argumentos:",
-- Textos principales, errores y categorías de instrumentos
modes_language_cat = 'Hablando %1',
modes_date_months_names = "Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre",
modes_date_to_part_format = "dd mmmm yyyy",
modes_date_to_part_call_err = "Error interno: argumentos de llamadas anómala en fecha <b>%1</b>.",
modes_date_to_part_call_cat = "Módulo con error interno",
modes_date_to_part_not_found_err = "Error interno: No se encuentra en fecha <b>%1</b>.",
-- Control de argumentos
modes_error_list_header_err = "Asistencia de los parámetros de este modelo:",
modes_need_arg_value_err = "Error: Usted tiene que fijar este argumento necesario, pero falta: <b>%1</b>.",
modes_none_value_err = "Error: No hay argumento se ha definido.",
modes_unknown_argument_err = "Error: El parámetro <b>%1</b> es desconocido en este modelo. Compruebe el nombre o reportar esta falta.",
modes_too_unnamed_arguments_err = "Error: Demasiado argumento sin nombre: <b>%1</b> = <b>%2</b>.",
modes_without_translation_wsid_err = "Error interno: Informar al el desarrollador que el argumento interno <b>%1</b> es desconocido en los registros.",
modes_is_defined_err = "El argumento %1:<b>%2</b> está definido.",
modes_is_undefined_err = "El argumento %1:<b>%2</b> no está definido.",
modes_args_values_err = "Valor anormal del argumento <b>%1 = %2</b> entre: (%3) ",
modes_nearest_argument_err = "Error : ¿Es usted conocido argumento <b>%1</b> ?",
modes_max_nearest_argument_msg = "Un argumento nombre más largo acepta más letras errores.",
modes_value_re_defined_err = "Error: El valor del argumento <b>%1</b> ya está definido. Elija sólo un valor de un solo sinónimo",
modes_lang_table_err = "Error: La <b>1%</b> idioma o su tabla es incorrecta.",
modes_lang_table_err_cat = "Módulo con lenguaje de argumentos erróneos", -- modes_no_source_arguments_cat
modes_lang_table_err_cat = "Módulo con error interno", -- modes_lang_table_err_cat
modes_lang_not_translated_err = "Error: El lenguaje <b>%1</b> no se traduce.",
modes_generDoc1_paramName_err = "Error interno: en generDoc1, mal argumento <b>%1</b>.",
--
modes_unknown_auto_arg_err = "Error interno: Argumento desconocido automático: %1 = <b>%2</b>.",
modes_delete_docbox_wng = "Debe quitar esta documentación antes de grabar.<br>Retire todos los modos para volver al modo read.",
modes_auto_val_warning_wng = "Verifique el argumento automático: %1 = <b>%2</b>.",
--
modes_assist_user_param_err = "Apoyo al usuario para comprobar la configuración:",
modes_no_known_arguments_err = "Módulo sin argumentos tabla conocida.",
modes_args_values_err = "Valor anormal del argumento <b>%1 = %2</b> (%3)",
--
modes_no_known_arguments_err = "Error interno: Módulo sin tabla de argumentos conocidos.",
modes_no_known_args_cat = "Módulo con error interno", -- modes_no_source_arguments_cat
modes_no_source_arguments_err = "Error interno: Módulo sin tabla de argumentos fuentes.",
modes_no_source_arguments_cat = "Módulo con error interno", -- modes_no_source_arguments_cat
modes_list_all_args_main_title = "modes.list_all_args_main() Lista de todos los argumentos aceptados",
modes_similar_levenshtein_tests_title= "modes.levenshtein() Prueba de las distancias <b>[https://es.wikipedia.org/wiki/Distancia_de_Levenshtein Levenshtein]</b> entre las palabras:",
modes_args_known_structure_title = "modes.args_known_structure() Definiciones de argumentos",
modes_similar_args_searchs_title = "modes.similar_args_search() Prueba de palabras similares cercanos:",
modes_normal_box_main_text_1 = "Simple caja de información: Título de la página: <b>%1</b>, descripción: <b>%2</b>",
modes_normal_box_main_text_2 = "<br/>Él era un <b>%1</b>, es nombrado <b>%2</b> <b>%3</b> había muerto en <b>%4</b>.",
-- Estos textos se utilizan para titular algunas pruebas.
modes_list_wiki_selectors_title = "Lista de las selectores de este modulo:",
modes_all_categories_list_title = "modes.all_categories_list() Lista de las posibles categorías de este modulo:",
modes_all_errors_list_title = "modes.all_errors_list() Lista de los errores detectables de este modulo:",
modes_multiple_values_tests_title = "modes.multiple_values() Prueba de múltiples valores argumentos",
modes_multiple_selection_tests_title= "modes.multiple_selection() Prueba de selección múltiple",
modes_multiple_selection_test_headers= "Opciones;Selector;Para seleccionar;Seleccionadas",
modes_multiple_selection_test_select= "2;nobel;presidente;diputado;precio",
modes_recursiveLevel_err = "Error de nivel recursivo <b>%1 > %2</b>",
modes_recursiveNormal_tests_title = "modes.recursiveNormal() Prueba: Normalizar el nivel recursivo y el límite recursiva",
modes_spaces_names_page_title = "modes.spacesNamesPageTest() Módulo, namespaces, y nombres de páginas:",
} -- modes.i18n.es
modes.i18n.fr = {
-- Noms et descriptions des arguments de configurations
[1] = "1",
[2] = "2",
[3] = "3",
[4] = "4",
label = 'label',
label_descr = "Argument automatique de Wikidata.",
sitelink = 'sitelink',
sitelink_descr = "Argument automatique de Wikidata.",
userlang = "userlang",
userlang_descr = "Langue de l'utilisateur ou de l'aidant.",
wikilang = "wikilang",
wikilang_descr = "Langue du wiki.",
itemid = 'itemid',
itemid_descr = "Identifiant des données de wikidata, comme <code>Q535</code> pour Victor Hugo.",
itemid2 = 'id',
itemid2_descr = "Identifiant 2 des données de wikidata, comme <code>Q535</code> pour Victor Hugo.",
debug = 'debug',
category = 'Catégorie',
mode = "mode",
mode_descr = "Type d'utilisation du module ou du modèle : lire, éditer, documenter, tester.",
options = "options",
options_descr = "Options d'affichage d'un module ou d'un modèle.",
c = "c",
c_descr = "Options d'affichage d'un module ou d'un modèle.",
knownversions = "knownversions",
knownversions_descr = "Versions connues, pour les gérer.",
soughtversions = "soughtversions",
soughtversions_descr = "Versions demandées, pour les gérer.",
-- Principaux textes, erreurs et catégories des outils
language = 'langue',
-- Gestion des versions
-- Messages et erreurs divers
-- tools_no_args_known_err = "Erreur interne : Module sans table d'arguments connus.",
-- tools_no_args_source_err = "Erreur interne : Module sans table d'arguments sources.",
modes_used_options_title = "modes.used_options_list() Options et leurs utilisations :",
modes_brief_options_mode_title = "modes.options_from_mode_tests() Modes et options en bref",
modes_options_from_args_tests_title = "modes.options_from_args_tests() Test des options de modes",
modes_options_from_args_title = "Test des options des arguments",
-- Groupes d'arguments
modes_needed_to_verify = "(obligatoire, à vérifier)",
modes_list_needed_args = "Liste des arguments nécessaires :",
modes_list_all_config_arguments = "Liste des arguments de configuration :",
modes_list_all_system_arguments = "Liste des arguments système :",
modes_list_all_other_args = "Liste des autres arguments :",
modes_language_cat = 'Parle %1',
modes_date_months_names = "Janvier, Février, Mars, Avril, Mai, Juin, Juillet, Août, Septembre, Octobre, Novembre, Décembre",
modes_date_to_part_format = "dd yyyy mmmm",
modes_date_to_part_call_err = "Erreur interne : Argument anormal de définition de date <b>%1</b>.",
modes_date_to_part_call_cat = "Module avec erreur interne",
modes_date_to_part_not_found_err = "Erreur interne : partie non définie de date <b>%1</b>.",
-- Gestion des arguments
modes_error_list_header_err = "Assistance sur les paramètres de ce modèle :",
modes_need_arg_value_err = "Erreur : Vous devez définir cet argument nécessaire mais absent : <b>%1</b>.",
modes_none_value_err = "Erreur : Aucun argument n'a été défini.",
modes_unknown_argument_err = "Erreur : Le paramètre <b>%1</b> est inconnu dans ce modèle. Vérifier ce nom ou signaler ce manque.",
modes_too_unnamed_arguments_err = "Erreur : Ce paramètre non nommé est en trop : <b>%1</b> = <b>%2</b>.",
modes_without_translation_wsid_err = "Erreur interne : Signaler au développeur que l'argument interne <b>%1</b> est inconnu dans les notices.",
modes_is_defined_err = "L'argument %1:<b>%2</b> est défini.",
modes_is_undefined_err = "L'argument %1:<b>%2</b> n'est pas défini.",
modes_args_values_err = "Valeur anormale de l'argument <b>%1 = %2</b> parmi : (%3) ",
-- Messages et erreurs divers
modes_nearest_argument_err = "Erreur : Voulez vous l'argument connu <b>%1</b> ?",
modes_max_nearest_argument_msg = "Un nom d'argument plus long accepte plus d'erreurs de lettres.",
modes_value_re_defined_err = "Erreur : La valeur de l'argument <b>%1</b> est déjà définie. Choisir une seule valeur d'un seul synonyme.",
modes_lang_table_err = "Erreur interne : La langue <b>%1</b> ou sa table est erronée.",
-- modes_lang_table_err_cat = "Module avec langue d'arguments erronée",
modes_lang_table_err_cat = "Module avec erreur interne", -- modes_no_source_arguments_cat
modes_lang_not_translated_err = "Erreur : La langue <b>%1</b> n'est pas traduite.",
modes_generDoc1_paramName_err = "Erreur interne : en generDoc1, mauvais argument <b>%1</b>.",
modes_unknown_auto_arg_err = "Erreur interne: Argument automatique inconnu : %1 = <b>%2</b>.",
--
modes_delete_docbox_wng = "Vous devez supprimer cette documentation avant d'enregistrer.<br>Supprimez tous les modes pour revenir en mode read.",
modes_auto_val_warning_wng = "Vérifiez l'argument automatique : %1 = <b>%2</b>.",
--
modes_assist_user_param_err = "Support aux utilisateurs pour vérifier les paramètres :",
modes_no_known_arguments_err = "Module sans table d'arguments connus.",
modes_args_values_err = "Valeur anormale de l'argument <b>%1 = %2</b> (%3)",
--
modes_no_known_arguments_err = "Erreur interne : Module sans table d'arguments connus.",
-- modes_no_known_args_cat = "Module sans table d'arguments connus.",
modes_no_known_args_cat = "Module avec erreur interne", -- modes_no_source_arguments_cat
modes_no_source_arguments_err = "Erreur interne : Module sans table d'arguments sources.",
-- modes_no_source_arguments_cat = "Module sans table d'arguments sources.",
modes_no_source_arguments_cat = "Module avec erreur interne", -- modes_no_source_arguments_cat
modes_list_all_args_main_title = "modes.list_all_args_main() Liste de tous les arguments acceptés",
modes_similar_levenshtein_tests_title = "modes.levenshtein() Test des distances de <b>[https://fr.wikipedia.org/wiki/Distance_de_Levenshtein Levenshtein]</b> entre mots:",
modes_args_known_structure_title = "modes.args_known_structure() Définitions des arguments",
modes_similar_args_searchs_title = "modes.similar_args_search() Test des mots proches similaires :",
modes_normal_box_main_text_1 = "Boîte d'information simple : titre de cette page <b>%1</b>, description : <b>%2</b>",
modes_normal_box_main_text_2 = "<br/>Il était <b>%1</b>, se nommait <b>%2</b> <b>%3</b>, il est mort en <b>%4</b>.",
-- Ces textes sont utilisés pour titrer des tests.
modes_list_wiki_selectors_title = "Liste des sélecteurs de ce module :",
modes_all_categories_list_title = "modes.all_categories_list() Liste des catégories éventuelles de ce module :",
modes_all_errors_list_title = "modes.all_errors_list() Liste des erreurs détectables de ce module :",
modes_multiple_values_tests_title = "modes.multiple_values() Test des arguments à valeurs multiples",
modes_multiple_selection_tests_title= "modes.multiple_selection() Test de sélection multiple",
modes_multiple_selection_test_headers= "Options;Sélecteur;À sélectionner;Sélectionnés",
modes_multiple_selection_test_select= "2;nobel;président;député;prix",
modes_recursiveLevel_err = "Erreur de niveau récursif <b>%1 > %2</b>",
modes_recursiveNormal_tests_title = "modes.recursiveNormal() Test: Normalise le niveau récursif et la limite récursive",
modes_spaces_names_page_title = "modes.spacesNamesPageTest() Module, namespaces, et noms de pages :",
} -- modes.i18n.fr
-- - - - ------------------ - - - - ---------------------------------
-- Support of the management of options. Sostén de la gestión de las opciones. Soutien de la gestion des options.
-- - - - ------------------ - - - - ---------------------------------
modes.options_for_modes = { -- default options_for_modes
read = " noerr ",
edit = " docdef docline docsrc docdata catview docview : ",
doc = " nobox noerr nocat ",
tests = " docdef docline docsrc docdata catview docview : tests ",
-- List of parameters for module documentation
-- "docview" or ":" add the documentation panel
-- "docmin" list only some basic parameters
-- "docdef" list only the parameters defined, having a non-zero value
-- "docmax" list all known parameters
-- "docnotice" generate documentations of records
-- "docline" put all parameters on a single line
-- "docsrc" put the parameters in colors according to the sources
-- modes.options = " docdata docmin docdef docmax docline docview docafter docnotice docsrc : " -- for standard documentation
-- modes.options = " erron noerr nobox nocat " -- do not form normal result
-- modes.options = " debug tests en es fr " -- enforce a language for debug
-- Option nocat means "Do not categorize and do not show categories."
}
function modes.trackOptions(where, no_track)
if modes.no_track then return "" end
-- if modes.no_track then modes.no_track = no_track end -- if no_track then mask all next modes.trackOptions().
local t = viewer.form9user("\n* trackOptions where=%1, mode_options=%2, invoke_options=%3", where, modes.mode_options, modes.invoke_options)
modes.report_trackOptions = (modes.report_trackOptions or"") .. t
return "" -- t or ""
end
function modes.init_options(invoke_options)
-- modes.invoke_options = modes.init_options(args.options)
-- modes.invoke_options = modes.init_options("fr params docview docmin docmax docdef docnotice docafter docline docsrc")
modes.mode_name = modes.mode_name
if (type(invoke_options) == "string") then modes.invoke_options = invoke_options end -- and (new ~= "")
-- Early effects on options which modify other ones.
-- modes.options = " : docdata docmin docdef docmax docline docview docafter docnotice docsrc" -- for documentation
-- modes.options = " erron noerr nobox nocat " -- without normal result
-- modes.options = " debug tests en es fr " -- for debug or enforce language
modes.options_to_catView()
if modes.option("noerr") then events.erron = false end
if modes.option("erron") then events.erron = true end
if modes.option("docolor") then modes.docolor = true end
-- If an option is a language, enable this language for the user.
-- Si una opción es un lenguaje, activar esta lengua para usuario.
-- Si une option est une langue, activer cette langue pour l'utilisateur.
for lang, tab in pairs(versioning.i18n) do
if modes.option(lang) then
translate.init_wiki_user_page_lang(translate.wiki_lang, lang) -- translate.wiki_lang, translate.user_lang
end
end
return modes.invoke_options
end -- function modes.init_options(invoke_options)
-- Manage Library:modes options. Administrar opciones. Gérer les options.
modes.invoke_options = "" -- Normal options from the template. No default values. Options normales venant du modèle. Aucune par defaut.
-- In the template : options = "params docview docmin docmax docdef docnotice docafter docline docsrc"
modes.mode_options = "" -- Options de debug du module par edit. Aucune par defaut.
-- modes.mode_options = "unitest debug noerr erron params docview nobox nocat docin docmax docnotice docdef docline docsrc notices "
-- modes.mode_options change only by editing this module code or the calling module. Empty default value.
-- modes.mode_options change n'est modifié que par ce module ou celui qui l'appele. Valeur par defaut vide.
modes.used_options = {} -- table to collect tested options then list them at end of tests.
modes.available_options = "" -- table to collect all available options, at any time.
function modes.options_from_mode(mode_name, options_for_modes)
-- mode_name = mode_name or (modes.args_final and modes.args_final.mode) or (modes.args_import and modes.args_import.mode) or p.mode_name or modes.mode_name or "read"
-- local mode_options = ""
modes.options_for_modes = options_for_modes or modes.options_for_modes
mode_name = mode_name or "read"
if modes.options_for_modes and modes.options_for_modes[mode_name] then modes.mode_options = modes.options_for_modes[mode_name] end
-- modes.mode_options = mode_options
-- modes.mode_options = modes.options_for_modes
return modes.mode_options, mode_name
end
function modes.option(key, opt) -- Is one option in available options?
-- Language identifiers allow to enforce some languages.
-- Errors appear only in Template or Module namespace, waiting the task T53660.
-- local opt = other
if type(key) ~= "string" then key = "" end
key = mw.text.trim(key)
if type(opt) ~= "string" then opt = "" end
opt = mw.text.trim(opt)
-- available_options = modes.available_options
-- local available_options = " " .. (modes.invoke_options or "") .. " "
local available_options = (modes.invoke_options or "")
if available_options and modes.mode_options -- other param can replace modes.mode_options
then available_options = " " .. available_options .. " " .. modes.mode_options .. " "
elseif available_options and opt then available_options = " " .. available_options .. " " .. opt .. " " end
-- available_options = string.gsub(available_options, " ", ";")
available_options = viewer.simpleList(available_options, " ")
-- The searched keyword is it among the options words? And not included in another word.
local ifyes = viewer.is_in_sp(key or "", available_options) -- and true
-- Collect options tested along the execution of the module
modes.used_options = modes.used_options or {}
if ifyes then modes.used_options[key] = "y"
else modes.used_options[key] = "n" end
local used = ""
for key, xx in pairs(modes.used_options) do
if xx == "y" then used = used .. ", <b>" .. tostring(key) .. "</b> " .. xx
else used = used .. " " .. tostring(key) .. ", " .. xx end
end
modes.available_options = available_options
modes.used_opts = used -- yes is not nil
return ifyes, used, available_options -- yes is not nil
end -- function modes.option(key, opt)
function modes.options_from_mode_tests(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = "options_from_mode_test:" or t
for md, opt in pairs(modes.options_for_modes) do t = t .. "<br>- " .. viewer.ta(md, opt) end
t = t .. viewer.Th() .. viewer.Tc("Mode") .. viewer.Tc("List of options") .. viewer.Tc("noerr value") .. viewer.Tc("docview value") .. viewer.Tc("tests value")
local function test_options_from_mode(md, op1, op2, op3)
modes.available_options = ""
local opstest = modes.options_from_mode(md) or ""
-- return viewer.Tr() .. viewer.Td(md) .. viewer.Td(opstest) .. viewer.Td( modes.option(op1, opstest) ) .. viewer.Td( modes.option(op2, opstest) )
return viewer.Tr() .. viewer.Td(md) .. viewer.Td(opstest) .. viewer.Td( modes.option(op1, opstest) )
.. viewer.Td(modes.option(op2, opstest)) .. viewer.Td(modes.option(op3, opstest))
end
t = t .. "<br>options_from_mode_test:"
t = t .. test_options_from_mode("read", "noerr", "docview", "tests")
t = t .. test_options_from_mode("edit", "noerr", "docview", "tests")
t = t .. test_options_from_mode("tests", "noerr", "docview", "tests")
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function modes.options_from_mode_tests(t)
function modes.trackModes(where, xyz) -- Track formation of modes
modes.trackModes_txt = (modes.trackModes_txt or "") .. viewer.ta("\n* trackModes", where) .. viewer.ta("mode_options", modes.mode_options) .. viewer.ta("invoke_options", modes.invoke_options) .. viewer.ta("available_options", modes.available_options) .. " used_opts = " .. (modes.used_opts or "")
return modes.trackModes_txt
end
function modes.options_to_catView() -- Init or restaure modes.catView = modes.catView from options
if modes.option(":") or modes.option("catview") then modes.catView = ":" else modes.catView = "" end
return modes.catView
end -- function modes.options_to_catView()
function modes.used_options_list(t, used_options)
local t = "List of modes:" or t
used_options = used_options or modes.used_options
modes.mode_name = modes.mode_name
for md, opt in pairs(modes.options_for_modes) do t = t .. "<br>- " .. viewer.ta(md, opt) end
-- List of used options after collect them
t = t or ""
t = t .. "\n* " .. viewer.form9user("translate_user_wiki_lang_msg", translate.user_lang, translate.wiki_lang) -- ( or viewer.form9user("translate_user_wiki_lang_msg", translate.user_lang, translate.wiki_lang) or " missing user_wiki_lang_msg " )
t = t .. "\n* Actual mode used: <b>" .. modes.mode_name .. "</b>"
t = t .. "\n* Options read the last time in these tests, ones <b>activated</b> are in bold: "
t = t .. "\n* Options lues pour la dernière fois pendant ces tests, celles <b>activées</b> sont en gras : "
t = t .. "<br>"
local used = ""
for key, x in pairs(modes.used_options) do
if x == "y" then used = used .. ", <b>" .. tostring(key) .. "</b> "
else used = used .. ", " .. tostring(key) .. " " end
end
t = t .. used
-- t = t .. "\n* import_arguments_track : " .. modes.import_arguments_track
return t, used
end -- function modes.used_options_list(t, used_options)
function modes.options_from_args_tests(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
local mode_options_memo = modes.mode_options -- save
local invoke_options_memo = modes.invoke_options -- save
local used_options_memo = mw.clone(modes.used_options) -- save
modes.used_options = {} -- for test
local t = "options_from_args_tests:" or t
t = t .. "<br>" .. luaTable.formSubCounts("modes.i18n")
t = t .. viewer.Th() .. viewer.Tc("mode_options") .. viewer.Tc("invoke_options") .. viewer.Tc("opt can replace mode_options")
.. viewer.Tc("available options") .. viewer.Tc("option result") .. viewer.Tc("valid result")
local function options_from_args(mode_options, invoke_options, opt, key, verif)
modes.available_options = ""
modes.mode_options = mode_options or ""
modes.invoke_options = invoke_options or ""
local ifyes, available_options = modes.option(key, opt)
local testOK = ""
if tostring(ifyes) == tostring(verif) then testOK = "true" else testOK = "false" end
return viewer.Tr() .. viewer.Td( mode_options or "" ) .. viewer.Td( invoke_options or "" ) .. viewer.Td( opt or "" )
.. viewer.Td( modes.available_options ) .. viewer.Td( viewer.ta(key, ifyes) ) .. viewer.Td( testOK )
end
t = t .. options_from_args("nobox nocat", "en docview", nil, "nobox", "true")
t = t .. options_from_args("nobox nocat", "en docview", nil, "nocat", "true")
t = t .. options_from_args("nobox nocat", "en docview", nil, "en", "true")
t = t .. options_from_args("nobox nocat", "en docview", nil, "docview", "true")
t = t .. options_from_args("nobox nocat", ": docview", nil, ":", "true")
t = t .. options_from_args("nobox nocat", "en docview", "docline fr", "docline", "false")
t = t .. options_from_args("nobox nocat", "en docview", "docline fr", "docline", "false")
t = t .. options_from_args(" ", nil, "docline fr", "docline", "false")
t = t .. options_from_args(" ", nil, "docline fr", "fr", "false")
t = t .. options_from_args(" ", "en docview", "docline fr", "en", "true")
t = t .. options_from_args("nobox nocat", nil, "docline fr", "docline", "false")
t = t .. options_from_args("nobox nocat", "en docview", "docline fr", nil, "true")
t = t .. options_from_args("nobox nocat", "en docview", nil, "docline", "false")
t = t .. viewer.Te()
t = t .. modes.used_options_list(nil, modes.used_options)
t = t .. "\n* After these tests, previous options are restored. Après ces tests, les options antérieures sont restaurés."
modes.mode_options = mode_options_memo -- restore
modes.invoke_options = invoke_options_memo -- restore
modes.used_options = used_options_memo -- restore
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function modes.options_from_args_tests(t)
function p.form_result(args_final)
versioning.deprecatedFunction("p.form_result", "modes.form_result")
return modes.form_result(args_final)
end -- translate
-- Normal result of the module
-- Resultado normal del módulo
-- Résultat normal du module
function modes.form_result(args_final)
local memo = events.init_configs() -- Initialize global configurations and save them before eventual changes.
if type(args_final) ~= "table" then args_final = modes.args_final end -- optional arguments
local res = ""
events.gener_categories(args_final) -- Form all categories without activate them
-- List of parameters for module documentation
-- "docview" or ":" add the documentation panel
-- "docmin" list only some basic parameters
-- "docdef" list only the parameters defined, having a non-zero value
-- "docmax" list all known parameters
-- "docnotice" generate documentations of records
-- "docline" put all parameters on a single line
-- "docsrc" put the parameters in colors according to the sources
-- modes.options = " docdata docmin docdef docmax docline docview docafter docnotice docsrc : " -- for standard documentation
-- modes.options = " erron noerr nobox nocat " -- do not form normal result
-- modes.options = " debug tests en es fr " -- enforce a language for debug
-- Option nocat means "Do not categorize and do not show categories."
if modes.option("docview") or modes.option(":") or modes.option("tests") or (modes.args_final.mode == "edit") then
-- res = res .. viewer.docDropBox("allwaysview", "versioning_support_desk_title", versioning.form_support_desk_report )
res = res .. p.formDocBox(args_final)
end
if not modes.option("nobox") then res = res .. p.normal_box(args_final) end
-- Display categories. Afficher les catégories.
if ( not modes.option("nobox") ) and ( modes.option("catview") or modes.option(":") ) then res = res .. events.categories_lister(":") end
modes.time3 = os.clock()
-- res = res .. modes.used_options_list()
if modes.option("tests") or (modes.args_final.mode == "tests") then
local memo2 = events.init_configs() -- Initialize global configurations and save them before eventual changes.
res = res .. viewer.docGroup("allwaysview")
events.restore_configs(memo2) -- Restore global configurations after eventual changes.
res = res .. versioning.running_times(false, "")
end
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res
end -- function modes.form_result(args_final)
--[[ Management of arguments and translations along their transformations :
datas.args_wikidata = {} -- Wikidata arguments, from Wikidata
events.errors_list = {} -- Errors list
events.categories_list = {} -- Categories lists
modes.args_known = {} -- Known arguments, at main module level
modes.args_invoke = {} -- Invoke arguments, at {{#invoke: ... }} level
modes.args_template = {} -- Template arguments, at {{Template| ... }} level
modes.args_source = {} -- Source arguments = args_template + args_invoke
modes.args_unknown = {} -- Unknown arguments
modes.args_import = {} -- Import arguments
modes.args_final = {} -- Final arguments, interactions in p.interact_args_final()
modes.args_selected = {} -- Selected arguments, in some modules
translate.wiki_translations = {} -- Wiki translations
translate.user_translations = {} -- User translations
versioning.loaded_pack = {} -- loaded packages of modules and libraries
versioning.loaded_vers = {} -- loaded versions of modules and libraries
--]]
function modes.argsConfigIinit(args_source)
-- Memorize direct configuration arguments, without translation, for helpers.
if type(args_source) ~= "table" then args_source = modes.args_source end
local new_source = mw.clone(args_source) -- To ensure not disturb original
local args_config = {}
args_config.userlang = args_source.userlang -- user language argument
new_source.userlang = nil
args_config.wikilang = args_source.wikilang -- wiki language argument
new_source.wikilang = nil
args_config.mode = args_source.mode -- mode argument
new_source.mode = nil
args_config.c = args_source.c -- invoke options argument
new_source.c = nil
args_config.dockey = args_source.dockey or args_source[1] -- doc selector argument
new_source.dockey = nil
args_config.itemid = args_source.itemid or args_source.id or args_source[2] -- wikidata item id argument
new_source.itemid = nil
args_config.soughtversions = args_source.soughtversions -- sought_versions argument
new_source.soughtversions = nil
args_config.knownversions = args_source.knownversions -- knownversions argument
new_source.knownversions = nil
modes.args_source = new_source
modes.args_config = args_config
return args_config, new_source
end -- function modes.argsConfigIinit()
function modes.change_itemid(id_in) -- Select a wikidata default item if needed. Default "Q41568"
local id = ""
if id_in then -- Local function parameter have priority.
id = id_in
else -- Else use the template arguments or inforce itemid here.
id = modes.args_config.id
-- id = "Q535" -- (1802 – 1885) Victor Hugo
-- id = "Q8739" -- (near 287 av. J.-C. – 212 av. J.-C.) Archimède, Machine d'Archimède
-- id = "Q20882" -- (1832 – 1923) Gustave Eiffel
id = "Q1290" -- (1623 – 1662) Blaise Pascal
-- id = "Q41568" -- (1533 – 1592) Michel de Montaigne
-- id = "Q83428" -- (near 1493 – 1541) Paracelse
-- id = "Q131671" -- (VIe siècle av. J.-C. – Ve siècle av. J.-C.) Xénophane
-- id = "Q213330" -- (1330 – 1418) Nicolas Flamel
-- id = "Q21157618"-- ( – 1932) Charles Maumené
-- id = "Q9364" -- (1905 – 1980) Jean-Paul Sartre
end
local nst = 10 -- mw.site.namespaces.Template
local nsm = 828 -- mw.site.namespaces.Module
local mwtitle = mw.title.getCurrentTitle()
local nsX = mw.title.getCurrentTitle():inNamespaces("10", "11", "828", "829")
local ns = tostring(mw.site.namespaces.id)
if viewer.is_in_sp(ns, "10;11;828;829", ";") then
-- Change itemid only where title cannot be in wikidata.
modes.args_config.id = id
modes.args_config.itemid = id
end
-- modes.args_config.id = id -- always inforce
-- modes.args_config.itemid = id -- always inforce
return id
end -- function modes.change_itemid(id_in)
function modes.args_known_structure(t, args_known) -- modes_args_known_structure_title = Table structure of arguments
-- if true then return "" end -- to bypass in DEBUG
local t = t or "\n* <b>args_known_structure :</b> " -- modes_list_all_args_main_title
local tt
if type(args_known) ~= "table" then args_known = modes.args_known end
if type(args_known) == "table" then
for key, elem in pairs(args_known) do
tt = viewer.tam("typ", elem.typ) .. viewer.tam("keyword", elem.keyword) .. viewer.tam("syn", elem.syn)
tt = tt .. viewer.tam("need", elem.need) .. viewer.tam("prop", elem.prop) .. viewer.tam("format", elem.format)
tt = string.sub(tt, 3, -1)
t = t .. '\n: ' .. tostring(key) .. ' = { ' .. tt .. ' } '
end
end
return t
end -- function modes.args_known_structure(t, args_known)
function modes.levenshtein(word1, word2) -- Compute the Levenshtein distance between 2 ASCII words.
-- prevent exceptions
local cout = 0
if (word1 == nil) or (word2 == nil) then
return 999, "<br>lev: " .. viewer.ta("word1", word1) .. viewer.ta("word2", word2)
end
local len1 = string.len(word1)
local len2 = string.len(word2)
local lev = 0
local t = "<br>lev: " .. viewer.ta("word1", word1) .. viewer.ta("word2", word2)
if (type(word1) ~= "string") or (type(word2) ~= "string") or (word1 == "") or (word2 == "") then
lev = len1 + len2
return lev, t .. viewer.ta("lev", lev)
end
-- simple case
if (word1 == word2) then
lev = 0
return lev, t .. viewer.ta("lev", lev)
end
local d = {}
for i = 1, len1+2 do -- for i = 1, len1-1+1 do
d[i] = {}
-- d[i][1] = 0 -- d[i][1] = i
for j = 1, len2+2 do
-- d[i][j] = {}
d[i][j] = 0 -- d[1][j] = j
end
end
-- simulate double dimensions tables
for i = 2, len1+1 do -- for i = 1, len1-1+1 do
-- d[i] = {}
d[i][1] = i-1 -- d[i][1] = i
end
for j = 2, len2+1 do
d[1][j] = j-1 -- d[1][j] = j
end
for i = 2, len1+1 do -- for i = 2, len1+1 do
for j = 2, len2+1 do -- for j = 2, len2+1 do
-- on récupère les deux caractères
local c1 = string.byte(word1, i-1)
local c2 = string.byte(word2, j-1)
if (c1 == c2) then
cout = 0
d[i][j] = d[i-1][j-1]
else
cout = 1
d[i][j] = math.min(d[i-1][j], d[i][j-1], d[i-1][j-1]) + 1
end
-- d[i][j] = math.min(d[i-1][j]+1, d[i][j-1]+1, d[i-1][j-1]+cout)
end
end
local lev = d[len1+1][len2+1] -- return d[len1-1][len2] - 1
return lev, t .. viewer.ta("lev", lev)
end -- function modes.levenshtein(word1, word2)
function modes.levenshtein_test_1(search, word, max)
-- search = mot cherché dans la liste
-- word = un des mot de la liste
local diffmaxi = modes.similar_args_diffmaxi( string.len(search) )
local len1, len2, lev, tlev, t, diff
-- t = t .. "<br>- diff: " .. viewer.ta("mot1", mot1) .. viewer.ta("mot2", mot2) .. viewer.ta("diff", diff)
t = "<br>levenshtein : "
if (not search ) or (not word) then
diff = 99
t = t .. viewer.ta("diff", diff) .. " no word. "
elseif search == word then
diff = 0
t = t .. viewer.ta("diff", diff) .. " , " .. search .. " = " .. word .. " "
else
-- len1 = string.len(search)
-- len2 = string.len(word)
lev, tlev = modes.levenshtein(search, word)
if (lev <= diffmaxi) then
t = t .. viewer.ta("diffmaxi", diffmaxi) .. " >= " .. viewer.ta("lev", lev) .. " <b>" .. search .. " ==> " .. word .. "</b> "
else
t = t .. viewer.ta("diffmaxi", diffmaxi) .. " >= " .. viewer.ta("lev", lev) .. " " .. search .. " / " .. word .. " "
end
diff = lev
end
return diff, t, search, word
end -- function modes.levenshtein_test_1(search, word, max)
function modes.similar_levenshtein_tests(res, c)
local memo = events.save_configs() -- Save global configuration before eventual changes.
if type(res) ~= "string" then res = nil end
local res = res or ("\n* " .. viewer.form9user("modes_max_nearest_argument_msg") )
local errors = ""
local n, t = modes.levenshtein_test_1( "nom", "nom")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "nom", "Nom")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "top", "pot")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "ami", "amis")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "nom", "name")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "m", "mu")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "m", "mur")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "mur", "m")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "c", "C")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "c", "cf")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "c", "long")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "xxx", "")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "", "xyz")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "xxx", "xyz")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "prénom", "Prenom")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "catégorie", "Category")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "description", "Description")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "anneeDeces", "anneeNaissance")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "anoNacimiento", "anneeNaissance")
res = res .. tostring(t)
local n, t = modes.levenshtein_test_1( "avant-après", "après-avant")
res = res .. tostring(t)
if errors ~= "" then res = res .. "\n* <b>levenshtein_test</b> errors = " .. viewer.errorColor(errors) end
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res
end -- function modes.similar_levenshtein_tests( res, c)
modes.constants = modes.constants or {}
-- Similar words search : diff on length
-- Cerrar de palabras puscadas: diff en longitud
-- Recherche de mots proches: diff sur longueur
modes.constants.near_word_search_diff_coef = 0.30 -- Access to change these constants from anywhere.
modes.constants.near_word_search_diff_const = 0.82
-- Maximum number of different letters between 2 argument names
-- Número máximo de letras diferentes entre 2 nombres de argumento
-- Nombre maximum de lettres différentes entre deux noms d'arguments
function modes.similar_args_diffmaxi(length, t) -- diffmaxi from length of arg arglingual name
local coef = modes.constants.near_word_search_diff_coef or 0.30
local constant = modes.constants.near_word_search_diff_const or 0.82
local diffmaxi = math.floor( coef * length + constant )
if t then t = t .. tostring(coef) .. " * length + " .. tostring(constant) end
return diffmaxi, t
end -- function modes.similar_args_diffmaxi(length, t)
-- For an unknown argument, seeks the name of the closest among the known arguments translated
function modes.similar_args_list(args_known)
local list, arglingual = {}, "xxx"
if type(args_known) ~= "table" then args_known = modes.args_known end
if type(args_known) ~= "table" then return "similar_args_list", 1 end
for key, argm in pairs(args_known) do -- List only all known arguments
if not tonumber(key) then -- For named arguments only
key = tostring(key)
arglingual = tostring(translate.wiki_translations[key])
list[key] = arglingual
end
end
return list
end -- function modes.similar_args_list(args_known)
-- For an unknown argument, seeking the name of the nearest argument among the known arguments
function modes.similar_args_search(search, list)
local dist, lengths, tlev = 9, 0
local trouve1, trouve2, trouve3 = nil, nil, nil
local min1, min2, min3 = 99, 99, 99
local diffmaxi = modes.similar_args_diffmaxi( string.len(search) )
local t = ", " .. tostring(diffmaxi) .. " / " .. tostring(length) .. " "
for key, arglingual in pairs(list) do
-- Search the most similar and same length. Buscar las más similares y la misma longitud. Chercher le plus ressemblant et la même longueur.
dist, tlev = modes.levenshtein(search, arglingual)
if (dist <= min1) then
trouve3 = trouve2
min3 = min2
trouve2 = trouve1
min2 = min1
min1 = dist
trouve1 = tostring(arglingual)
end
end
t = t .. "<br>" .. viewer.ta("cherche", cherche) .. viewer.ta("trouve1", trouve1) .. viewer.ta("min1", min1) .. viewer.ta("trouve2", trouve2) .. viewer.ta("min2", min2) .. " " .. t
if trouve1 and min1 == 0 then t = t .. viewer.wikidataColor(viewer.ta("connu", trouve1)) end
if trouve1 and min1 <= diffmaxi then t = t .. viewer.wikidataColor(viewer.ta("min1 "..min1.."<="..diffmaxi, trouve1)) end
if trouve2 and min2 <= diffmaxi then t = t .. viewer.wikidataColor(viewer.ta("min2 "..min2.."<="..diffmaxi, trouve2)) end
if trouve3 and min3 <= diffmaxi then t = t .. viewer.wikidataColor(viewer.ta("min3 "..min3.."<="..diffmaxi, trouve3)) end
return trouve1, min1, trouve2, min2, t
end -- function modes.similar_args_search(search, list)
-- t = modes.similar_args_search_1( t, "nomm", "digit")
function modes.similar_args_search_1( t, search, liste)
local args_list = modes.similar_args_list(modes.args_known)
local trouve1, min1, trouve2, min2 = modes.similar_args_search(search, args_list)
-- local trouve1, min1, trouve2, min2 = "aaa", 1, "bbb", 22
t = t .. "\n* similar_args_search_1 : " .. viewer.ta("search", search) .. viewer.ta("trouve1", trouve1) .. viewer.ta("min1", min1) .. viewer.tam("trouve2", trouve2) .. viewer.tam("min2", min2)
return t or " similar_args_search_1 "
end -- function modes.similar_args_search_1( t, search, liste)
function modes.similar_args_search_tests( t, args_known)
local memo = events.save_configs() -- Save global configuration before eventual changes.
if type(args_known) ~= "table" then args_known = modes.args_known end
local err = modes.verify_args_tables(args_known, modes.args_source)
if err then return err end
--
local key, argsyn, arglingual, txt
-- local coef = modes.constants.near_word_search_diff_coef
-- local constant = modes.constants.near_word_search_diff_const
t = "\n* " .. (t or "Formula to compute the near words limit: Formule de calcul de limite des mots proches : ")
local diffmaxi
diffmaxi, t = modes.similar_args_diffmaxi(10, t .. "diffmaxi = ")
t = t .. "\n* List of diffmaxi / lengths : "
for length = 1, 16 do -- For all lengths
-- local diffmaxi = math.floor( coef * length + constant )
diffmaxi = modes.similar_args_diffmaxi(length)
t = t .. ", " .. tostring(diffmaxi) .. " / " .. tostring(length) .. " "
end
t = t .. "\n* List of known arguments and <b>synonyms</b> : "
local txt, lingual = "", ""
local ref_words = {}
for key_known, argm in pairs(args_known) do -- For all known parameters
if argm.syn == 1 then
key = argm.keyword
argsyn = key_known .. ">" -- synonym argument
else
key = key_known
argsyn = "" -- synonym argument
end
lingual = translate.wiki_translations[key] or "-" -- import one source argument
txt = argsyn .. key .. "/" .. lingual
if argm.syn == 1 then
t = t .. ", <b>" .. txt .. "</b> " -- synonyms
else
t = t .. ", " .. txt .. " "
end
ref_words[key] = {}
ref_words[key].argmt = key
ref_words[key].lingual = lingual
end
t = t .. "\n* Test similar arguments 1."
t = modes.similar_args_search_1( t, "anneedece", {["a"]="but", ["b"]="porter", ["c"]="anneedeces"})
t = t .. "\n* Test similar arguments 2."
t = modes.similar_args_search_1( t, "porte", {["a"]="but", ["b"]="porter", ["c"]="pot"})
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function modes.similar_args_search_tests( t, args_known)
-- Check if the value of an argument is among the possible values.
-- Vérifier si la valeur d'un argument est parmi les valeurs possibles.
function modes.multiple_values(argmt, argvalue, args_final, args_known)
if type(args_final) ~= "table" then args_final = modes.args_final or {} end
if type(args_known) ~= "table" then args_known = modes.args_known end -- or p.args_known
local argvalue = argvalue or args_final[argmt]
local arg_values, key_values, keyword, keyval, argval, rank
local argm = args_known[argmt]
if argm then
arg_values = translate.wiki_translations[argm.arg_values] or "" -- example "no;nada;cn;50;us;70;mpf" in local language
key_values = argm.key_values or "" -- example "no;none;cn;50;us;70;mpf" in referal english
end
if type(arg_values) == "string" and type(key_values) == "string" then
local arg_tab = mw.text.split(arg_values, ';') -- table of arg
local key_tab = mw.text.split(key_values, ';') -- table of key
-- Default values
keyword = nil
rank = 0 -- rank of local value and key value
keyval = nil -- key value
argval = nil
if argm and arg_values and argvalue then
for i, key in ipairs(arg_tab) do
if key == argvalue then -- Search argvalue in arg_tab
rank = i
keyval = key_tab[i] -- Return correponding keyval in key_tab
argval = argvalue
keyword = argm.keyword
end
end
end
end
return keyword, keyval, argval, rank, arg_values
end -- function modes.multiple_values(argmt, argvalue, args_final, args_known)
function modes.multiple_values_tests(t) -- Test: convert a string to a table of words
local t = t or "\n* Test <b>multiple_values</b> :"
local group_test = { -- events.testGroup
{ argm = "region", argvalue = "inde", },
{ argm = "region", argvalue = nil, },
{ argm = "rights", argvalue = "mpf", },
{ argm = "rights", argvalue = "non", },
{ argm = "rights", argvalue = nil, },
{ argm = "sex", argvalue = "femme", },
{ argm = "sex", argvalue = "homme", },
{ argm = "sex", argvalue = "enfant", },
-- rights_values = '70,50,mpf,ONU,none',
-- region = 'region', -- argument with verified multiple values
}
local tabOptions = {}
tabOptions.headers = viewer.form9user("argm; all values; value; keyword; keyval; argval; rank")
tabOptions.testGroup = group_test
tabOptions.rowGroup = {}
if type(group_test) == "table" then
for key, test in pairs(group_test) do
local keyword, keyval, argval, rank, arg_values = modes.multiple_values(test.argm, test.argvalue, test.args_final)
table.insert( tabOptions.rowGroup, { tostring(test.argm or "-"), tostring(arg_values or "-"), tostring(test.argvalue or "-"), tostring(keyword or "-"), tostring(keyval or "-"), tostring(argval or "-"), tostring(rank or "-") } )
end
else t = t .. "error : multiple_values_tests has no table. " end
t = t .. viewer.tableView(tabOptions) -- Form a table with lines and columns.
return t
end -- function modes.multiple_values_tests(t)
function modes.multiple_selection(opt, selector, to_select)
-- Select items to selector containing selecting items
local t, selected_txt, selector_txt, selector_tab, to_select_txt, to_select_tab, selected_tab = "", ""
local cut = string.sub( opt, 1, 1 ) or ";"
if type(selector) == "table" then selector_tab = selector end
if type(selector) == "string" then selector_tab = mw.text.split(selector, cut, true) end
if type(to_select) == "table" then to_select_tab = clone(to_select) end
if type(to_select) == "string" then to_select_tab = mw.text.split(to_select, cut, true) end
selected_tab = {}
--
local k, Nsel, N, maxi, pos = 0, 0, 1, 999, nil
local reject_select = false
local equal = true
for i, selector in ipairs(selector_tab) do -- selector authorities only following selectors
if Nsel >= maxi then break end
selector = mw.text.trim(selector)
N = tonumber(selector)
if selector == "+" then -- selector all items
for key, val in pairs(to_select_tab) do
Nsel = Nsel + 1
selected_tab[key] = val
end
elseif selector == "-" then -- minus sign rejects all
reject_select = true
elseif N and N < 1 then -- minus sign rejects all
reject_select = true
elseif N and (string.sub(selector, 1, 1) == "+") then -- selector +N more items
maxi = Nsel + N
elseif N then -- selector N maximum total items
maxi = N
else -- selector ONE item from to_select_tab if it matches selector ( not - or + or +N or N )
for key, val in pairs(to_select_tab) do
local select_t, val_t = selector, val
if not viewer.is_in("U", opt) then select_t = string.lower(select_t) end -- recognize lowercase and uppercase
if not viewer.is_in("t", opt) then select_t = mw.text.trim(select_t) end -- recognize after trim
if not viewer.is_in("U", opt) then val_t = string.lower(val_t) end -- recognize lowercase and uppercase
if not viewer.is_in("t", opt) then val_t = mw.text.trim(val_t) end -- recognize after trim
equal = viewer.is_in("=", opt) -- recognize only equal string
if equal then equal = (selector == val) else equal = viewer.is_in(select_t, val_t) end
-- if viewer.is_in(selector, val) then
if equal then -- recognize if selector is equal or is inside an item from to_select_tab
t = t .. viewer.ta(selector, val)
selected_tab[selector] = val
Nsel = Nsel + 1
to_select_tab[key] = " " -- Delete the selected item to use it only once
selected_txt = selected_txt .. val .. ', '
end
end
end
end
-- selected_txt = table.concat(selected_tab)
return selected_txt, selected_tab, t
end -- function modes.multiple_selection(opt, selector, to_select)
function modes.multiple_selection_tests(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = (t or "") .. "\n* <b>multiple_selection</b> options: " .. viewer.ta("=", "equal only") .. viewer.ta("t", "not trim before and after") .. viewer.ta("U", "not lowercase and uppercase")
local function multiple_selection_test1(t, opt, selector, to_select)
local selected_txt, selected_tab, txt = modes.multiple_selection(opt, selector, to_select)
t = t .. viewer.Tr() .. viewer.Td(opt) .. viewer.Td(selector) .. viewer.Td(to_select) .. viewer.Td( txt .. viewer.ta("selected_txt", selected_txt) )
return t, opt, selector, to_select -- , selected_txt, selected_tab
end
local opt = "; "
t = t .. "\n: selector = <b>nobel,+1,président,3,député,prix</b> signifie : sélectionner le premier, puis 1 de plus parmi les suivants, puis 3 en tout au maximum."
local head = mw.text.split( viewer.form9user("modes_multiple_selection_test_headers") , ';')
t = t .. viewer.Th() .. viewer.Tc(head[1]) .. viewer.Tc(head[2]) .. viewer.Tc(head[3]) .. viewer.Tc(head[4])
-- Todo ? P39 = fonction = "président de Pologne, député à l'Assemblée, Prix Nehru, Nobel de la paix"
-- modes_multiple_selection_test_select = "2, nobel, president, deputy, price",
t = multiple_selection_test1( t, opt, "2; nobel; président; député; prix", "président de Pologne; député à l'Assemblée; Prix Nehru; Nobel de la paix" )
t = multiple_selection_test1( t, ";U", "2; nobel, président; député; prix", "président de Pologne; député à l'Assemblée; Prix Nehru; Nobel de la paix" )
t = multiple_selection_test1( t, opt, "3; député; prix; nobel; président", "président de Pologne; député à l'Assemblée; Prix Nehru, Nobel de la paix" )
t = multiple_selection_test1( t, ";=", "3; député; prix; nobel; président", "président de Pologne; député; Prix Nehru; Nobel" )
t = multiple_selection_test1( t, ";t", "3; député; prix; nobel; président", "président de Pologne; député; Prix Nehru; Nobel" )
t = multiple_selection_test1( t, ";", "3; prix; nobel;+1; président; député", "président de Pologne; député à l'Assemblée; Prix Nehru; Nobel de la paix" )
t = multiple_selection_test1( t, ";", "3; président; nobel; député; prix", "président de Pologne; député à l'Assemblée; Prix Nehru; Nobel de la paix" )
t = multiple_selection_test1( t, ";t", "3; député; prix; nobel; président", "président de Pologne; député; Prix Nehru; Nobel" )
t = multiple_selection_test1( t, ";U", "2; nobel; président; député; prix", "président de Pologne; député à l'Assemblée; Prix Nehru; Nobel de la paix" )
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function modes.multiple_selection_tests(t)
function modes.verify_args_tables(_known, _source)
-- initialize all the values to "" in arg table
if type(_known) == "table" then modes.args_known = _known end
if type(modes.args_known) ~= "table" then
events.add_err("modes_no_known_arguments_err")
-- events.add_cat("modes_no_known_args_cat")
return viewer.errorColor(" Internal error : no source or no known arguments ! ")
end
if type(_source) == "table" then
modes.args_source = _source
end
if type(modes.args_source) ~= "table" then
events.add_err("modes_no_source_arguments_err")
-- events.add_cat("modes_no_source_arguments_cat")
return viewer.errorColor(" Internal error : no source or no known arguments ! ")
end
return
end -- function modes.verify_args_tables(_known, _source)
function modes.import_arguments(args_known, args_source, wiki_translations, args_wikidata)
-- import all arguments from template, or invoke, or wikidata
local args_import = {} -- table d'arguments internationale simple
local err = nil
local cats = ""
-- default parameters
if type(args_known) ~= "table" then args_known = modes.args_known end
if type(args_source) ~= "table" then args_source = modes.args_source end
wiki_translations = wiki_translations or translate.wiki_translations
if type(args_wikidata) ~= "table" then args_wikidata = datas.args_wikidata end
--
modes.nowyear = tonumber(os.date("%Y") ) -- now_date = os.date("%Y-%m-%d %H:%M:%S")
args_import.nowyear = modes.nowyear
modes.import_arguments_err = ""
modes.import_arguments_track = ""
local err = modes.verify_args_tables(args_known, args_source)
if err then return args_import, err end
--
local err, er1, t2 = "", "", ""
local key, argval, argid = "kkk", "xxx", ""
local argknw, arglingual, argreceived = nil, "", ""
local argm = {} -- used arguments
-- events.erron = true -- Errors actived or no. Errores activas o no. Erreurs activées ou non.
-- events.errors_list = {} -- collect all errors
local key_N, key_NN = 0, 0
local arg_found, rec_found, already_found = false, false, false
--
for key_known, argm in pairs(args_known) do
argm.found = 0 -- First, initialize all known arguments
end
--
modes.args_unknown = mw.clone(modes.args_source) -- unknown arguments to detect are source arguments without known arguments.
local key_known_init = nil
-- local argm_orig = nil
local argm_syn = nil
-- Try to read all known arguments. Intentar leer todos los argumentos conocidos. Essayer de lire tous les arguments connus.
for key_known, argm in pairs(args_known) do
argm.src = nil
argm.trk = " n"
key_known_init = key_known
-- first initialise each known argument
modes.import_arguments_track = tostring(modes.import_arguments_track) .. " - " .. tostring(key_known)
argm_syn = args_known[argm.keyword]
if argm.syn == 2 then
-- Name an unnamed argument, positional, by its synonym. Nommer un argument non nommé, numéroté, par son synonyme.
-- Rename a named argument, by its synonym. Renommer un argument nommé, par son synonyme.
-- argm_orig = key_known -- DEBUG
key_known = argm.keyword
-- synonyms are defined with the stamp "syn = 2", then here stamp the basic argument with "syn = 1".
args_known[key_known].syn = 1
argm = args_known[key_known] -- new variable argm
argm.src = nil
argm.trk = "s"
modes.import_arguments_track = tostring(modes.import_arguments_track) .. ">" .. tostring(key_known)
end
-- initialiser un argument
arg_found = false
argval = nil
argm.trk = argm.trk.."="
-- importer un argument wikidata
if args_wikidata[key_known] then
argval = args_wikidata[key_known]
argm.src = "wd"
argm.trk = argm.trk.."w"
if argm_orig then
-- args_known[argm_orig].src = "wd"
-- args_known[argm_orig].trk = (args_known[argm_orig].trk or "").."w"
end
-- if argm_orig then argm_orig = key_known end -- DEBUG
arg_found = true
modes.import_arguments_track = modes.import_arguments_track .. "=<b>" .. tostring(argval) .. "</b> "
end
-- import a source argument. importer un argument source.
arglingual = translate.wiki_translations[key_known]
modes.import_arguments_track = modes.import_arguments_track .. "/" .. tostring(arglingual)
if arglingual then -- The argument name has a translation in wiki language
-- if modes.frame[arglingual] then
-- argval = modes.frame[arglingual]
-- argm.src = "inv" -- arg comes from invoke
-- end
if modes.frame.args[arglingual] then
-- argval = modes.frame.args[arglingual]
-- argm.src = "inv" -- arg comes from invoke
-- arg_found = true
end
if modes.frame:getParent().args then
-- argval = modes.frame:getParent().args[arglingual]
-- argm.src = "tpl" -- arg comes from template
-- arg_found = true
end
if args_source[arglingual] and not modes.args_config[arglingual] then -- the argument come from template else from invoke else from wikidata
-- if argval then -- the argument value exist and come from template else from invoke else from wikidata
argval = args_source[arglingual]
argm.src = "args"
argm.trk = argm.trk.." a"
arg_found = true
local arg_values = wiki_translations[argm.arg_values]
if argm.keys_values and arg_values then
-- The argument is limited to multiple values with arg_values and keys_values, and the values are defined.
local pos = string.find(arg_values, argval)
if pos then
-- The value of the argument is in the multiple values of the arguments.
-- argm.src = "args"
argm.trk = argm.trk.."m"
-- arg_found = true
if argm_orig then
-- args_known[argm_orig].src = "args"
-- args_known[argm_orig].trk = (args_known[argm_orig].trk or "").."d"
end
else
events.add_err("modes_args_values_err", argm.keyword, argval, arg_values)
-- argval = nil
end
else
-- argm.src = "args"
argm.trk = argm.trk.."c"
-- arg_found = true
if argm_orig then
-- args_known[argm_orig].src = "args"
-- args_known[argm_orig].trk = (args_known[argm_orig].trk or "").."c"
end
end
modes.import_arguments_track = modes.import_arguments_track .. "=<b>" .. tostring(argval) .. "</b> "
end -- not args_source[arglingual] is normal
else -- internal error and category
-- events.add_err("versioning_module_miss_i18n_trad_err", key_known)
-- Generate a category to list all modules with missing translation
cats = cats .. events.add_cat( "versioning_err_module_miss_i18n_cat" )
end
--
key_N = tonumber(key_known_init)
if key_N and not args_known[key_N] then
-- events.add_err("modes_too_unnamed_arguments_err", key_N, argval)
end
-- Record the argument. Guarde el argumento. Enregistrer l'argument.
if arg_found == true then
argm.found = argm.found + 1 -- compter les arguments redéfinis
argm.val = argval
args_import[key_known] = argval -- table d'arguments internationale simple
if modes.args_unknown[arglingual] then
modes.args_unknown[arglingual] = nil -- unknown arguments are source arguments without known arguments.
end
end
end
-- modes.import_arguments: after import itself, some surrounding checks.
for key_known, argm in pairs(args_known) do -- For all known arguments
-- Redefined arguments. Argumentos redefinieron. Arguments redéfinis.
-- if argm.found and (argm.found > 1) then
-- events.add_err("modes_value_re_defined_err", argm["keyword"])
-- cats = cats .. events.add_cat("versioning_module_usage_error_cat")
-- end
-- synonyms are defined with the stamp "syn = 2", then here stamp the basic argument with "syn = 1".
-- if argm.keyword and args_known[argm.keyword] and args_known[argm.keyword].syn then -- if the argument is a synonym, increase the found level
if argm.keyword and args_known[argm.keyword] and args_known[argm.keyword].syn then -- if the argument is a synonym, increase the found level
if argm.found and (argm.found > 2) then
events.add_err("modes_value_re_defined_err", (argm["keyword"] or "**") ) --.. ">2")
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
end
else
if argm.found and (argm.found > 1) then
events.add_err("modes_value_re_defined_err", (argm["keyword"] or "**") ) --.. ">1")
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
end
end
-- need = 0 not necessary argument
-- need = 1 necessary from argument
-- need = 2 necessary from argument or module interaction
-- Missing Arguments. Argumentos que faltan. Arguments manquants.
if argm.need and (argm.need == 1) and (not argm.val) then
arglingual = wiki_translations[key_known]
if arglingual then
events.add_err("modes_need_arg_value_err", arglingual)
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
end
end
end
-- All arguments sources have they been used?
-- modes.args_unknown -- unknown arguments are source arguments without known arguments.
local args_list = modes.similar_args_list(modes.args_known)
for key_src, val_src in pairs(modes.args_unknown) do -- For all unknown source arguments.
arglingual = tostring(key_src) -- chercher l'argument traduit
key_N = tonumber(arglingual)
-- No error for unmamed arguments
-- Pas d'erreur pour les arguments non nommés
if not key_N then
events.add_err("modes_unknown_argument_err", arglingual, val_src)
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
-- "Erreur : Le paramètre <b>%1</b> est inconnu dans ce modèle. Vérifier ce nom ou signaler ce manque.",
-- Cherche un argument connu et de nom ressemblant
local diffmaxi = modes.similar_args_diffmaxi( string.len(arglingual) )
local trouve1, min1, trouve2, min2 = modes.similar_args_search(arglingual, args_list)
if min1 and (min1 <= diffmaxi) then
events.add_err("modes_nearest_argument_err", trouve1)
end
if min2 and (min2 <= diffmaxi) then
events.add_err("modes_nearest_argument_err", trouve2)
end
end
key_N = tonumber(arglingual)
if key_N and not args_known[key_N] then
events.add_err("modes_too_unnamed_arguments_err", key_N, val_src)
events.add_cat("versioning_module_usage_error_cat")
end
end -- For all unknown source arguments.
modes.nowyear = tonumber(os.date("%Y") ) -- now_date = os.date("%Y-%m-%d %H:%M:%S")
args_import.nowyear = modes.nowyear
modes.args_import = args_import
return modes.args_import
end -- function modes.import_arguments(args_known, args_source, wiki_translations, args_wikidata)
-- - - - ------------------ - - - - ---------------------------------
-- Argts : Generate documentation. Generar documentación. Générer la documentation.
-- - - - ------------------ - - - - ---------------------------------
function modes.generDoc1(paramName, n, paramData, opt)
-- t = t .. generDoc1("nom", "ws-name", "docline docdef")
-- Normaliser les parametres et signaler les erreurs
-- Toujours afficher quelque chose dans la documentation du module ou du modèle.
if type(paramName) ~= "string" or type(paramData) ~= "string" then -- signaler l'erreur
events.add_err("modes_generDoc1_paramName_err", tostring(paramName) )
return " "
end
opt = " "..tostring(opt).." " -- transparent, sinon peut donner nil, non génant
--
-- former le texte à afficher
local newline = "<br>"
-- Chaque parametre non nommé est traité par son synonyme.
if n then return "" end
if modes.option("docline", opt) then newline = "" end
local argm = modes.args_known[paramName]
if argm then
--[ [
if modes.docolor then -- Document the data sources by colors
if argm.src == "wd" then
paramData = viewer.wikidataColor(paramData)
elseif argm.src == "args" then
paramData = viewer.invokeColor(paramData)
-- elseif argm.src == "inter" then
-- paramData = viewer.inter_color(paramData)
else
paramData = viewer.normalColor(paramData)
end
end
--] ]
paramData = paramData -- .. (argm.trk or "")
end
return " | " .. paramName .. " = <b>" .. paramData .. "</b>" .. newline
end -- function modes.generDoc1(paramName, paramId, opt)
function modes.generDoc(opt, args_final, module_name)
-- List of paramètres for the module documentation
-- Lister des paramètres pour la documentation du module
-- "docview" or ":" ajouter le panneau de documentation
-- "docmin" quelques paramètres de base
-- "docdef" seulement les paramètres définis, ayant une valeur non nulle
-- "docmax" tous les paramètres connus
-- "docnotice" generer les documentations des notices
-- "docline" mettre tous les paramètres sur une seule ligne
-- "docsrc" mettre les paramètres en couleurs selon les sources
-- modes.options = " docdata docmin docdef docmax docline docview docafter docnotice docsrc: " -- for documentation
-- modes.options = " erron noerr nobox nocat " -- without normal result
-- modes.options = " debug tests en es fr " -- for debug or enforce language
-- Option nocat means "Do not categorize and do not show categories."
local args_known = modes.args_known
local err = modes.verify_args_tables(args_known, modes.args_source)
if err then return err end
if type(module_name) ~= "string" then module_name = modes.module_name end
if type(module_name) ~= "string" then module_name = modes.frame:getTitle() end -- main module, example "Auteur"
if type(module_name) ~= "string" then module_name = "Central" end
local n, t, val = 0, "", ""
if type(args_final) ~= "table" then t = t.."err_args_final="..type(args_final).."<br>" end -- optional arguments
if type(args_final) ~= "table" then args_final = modes.args_final end -- optional arguments
local key, argknw, argval, arglingual = "", "", ""
local lst = true
local lst_doc, lst_1, lst_t = {}, {}, ""
for key, parm in pairs(args_final) do -- for all known arguments
val = ""
n = tonumber(key)
if n then key = tostring(parm["keyword"]) end -- key for unnamed arguments, in numeric sort
argknw = args_known[key]
arglingual = tostring(translate.user_translations[key]) -- multilingual name of the arg in the template
if arglingual == "nil" then arglingual = key end -- if argument is translatable
val = parm -- tostring(args_import[key])
if not viewer.isDef(val) then val = "" end
lst = false
opt = opt .. " docdef " -- optional display
-- if modes.option("docmin", opt) and argknw and (argknw["list"] == 1) then lst = true end
if modes.option("docmin", opt) and argknw and (argknw["need"] > 0) then lst = true end
if modes.option("docdef", opt) and (val ~= "") then lst = true end
if modes.option("docmax", opt) then lst = true end
if not args_known[key] then lst = false end
if key and args_known[key] and args_known[key].typ == "sys" then lst = false end
if lst then -- list if found and selected
lst_t = modes.generDoc1(arglingual, n, val, opt)
table.insert(lst_doc, {lst_t = lst_t, key = key, user_lang_key = translate.user_translations[key] or "trans"} )
end
end
table.sort(lst_doc, function (a, b) return (a.user_lang_key < b.user_lang_key) end ) -- alphabetic sort of translated arguments
for i, parm in ipairs(lst_doc) do -- List all found arguments
t = t .. (parm.lst_t or "lst_t")
end
t = "\n{{" .. module_name .. " " .. t .. "}}" -- <br>
return t
end -- function modes.generDoc(opt, args_final, module_name)
function modes.sources_of_datas_colors()
local res = ""
if modes.docolor then -- Document the data sources by colors
local datas_sources_of_datas = viewer.form9user("datas_sources_of_datas")
-- datas_sources_of_datas = "Informations from: /Wikidata, /template or module, /other, /warning, /error",
local splitxt = mw.text.split(datas_sources_of_datas, "/", true)
res = res .. splitxt[1] .. " <b> " .. viewer.wikidataColor(splitxt[2]) .. viewer.invokeColor(splitxt[3]) .. viewer.normalColor(splitxt[4]) .. viewer.warningColor(splitxt[5]) .. viewer.errorColor(splitxt[6]) .. ".</b> <br>"
end
return res
end -- function modes.sources_of_datas_colors()
function modes.module_init(frame) -- Get modes.args_source with modes.args_config
local frame = frame or modes.frame or mw.getCurrentFrame()
modes.frame = frame
modes.nowyear = tonumber(os.date("%Y") ) -- now_date = os.date("%Y-%m-%d %H:%M:%S")
-- Mix arguments from {{#invoke:}}, then arguments from the prioritary template which replace ones from {{#invoke:}}.
local v2, nn, ni = 0, 0, 0
local args_tab, mode = {}
local templat = frame:getParent().args -- arguments from template
local invoked = frame.args -- arguments from #invoke module
-- Mix invoked modified arguments from prioritary template arguments.
-- Argument 1 from template become the mode in #invoke. Other i arguments must be shifted.
local args_tab = mw.clone(invoked)
for key, val in pairs(templat) do -- template arguments can modify #invoke arguments.
local key = mw.text.trim(key)
local val = mw.text.trim(val)
local i = tonumber(key)
if i then
if i == 1 then
mode = val -- mode = template[1]
args_tab.mode = val
else args_tab[i-1] = val end -- transmit other unnamed arguments template[i], but shifted because the mode is in template[1]
else args_tab[key] = val end -- transmit any named template arguments template. Even the mode, which replace template[1], behind.
end
modes.args_source = args_tab
modes.args_config = modes.argsConfigIinit(modes.args_source) -- Extract and put apart args_config from args_source
-- Default values of main module version.
if versioning.main_versions then
versioning.main_versions.versionName = versioning.main_versions.versionName or "Central0"
versioning.main_versions.versionNumber = versioning.main_versions.versionNumber or "0.00"
versioning.main_versions.versionDate = versioning.main_versions.versionDate or "2013-03-24"
end
return -- modes.args_config
end -- function modes.module_init(frame)
function modes.init_options_for_modes(frame, options_for_modes, mode_name)
local res = ""
frame = frame or mw.getCurrentFrame()
modes.frame = frame
modes.options_for_modes = options_for_modes or modes.options_for_modes
modes.mode_name = mode_name or modes.mode_name or "read"
modes.mode_options = modes.options_from_mode(modes.mode_name, modes.options_for_modes)
-- events.errors_list = {} -- Table to collect errors and warnings
-- events.categories_list = {} -- init the collect of categories
-- events.save_configs() -- Save global configuration before eventual changes.
return res
end -- function modes.init_options_for_modes(frame, options_for_modes, mode_name)
function modes.get_arg_mode(mode_name, source_key, lang, args_source)
local mode_key = "mode"
local args_source = args_source or modes.args_source
-- modes.wiki_lang = lang or args_source.wikilang or tostring(mw.language.getContentLanguage().code) or "en"
-- try_lang = try_lang or mw.language.getContentLanguage:getCode() or "en"
if type(args_source) == "table" -- and type(args_source[source_key]) == "string"
then mode_name = mode_name or args_source[source_key] or "read"
else modes.mode_name = mode_name or modes.mode_name or "read" end
-- local mode_name = mode_name or args_source[source_key] or "read"
-- modes.mode_name = mode_name or modes.mode_name or "read"
return mode_name, source_key, try_lang
end -- function modes.get_arg_mode(mode_name, source_key, lang, args_source)
function modes.all_categories_list(t) -- all_categories_list_title
local t = "\n* " .. (t or " <b>List all eventual categories of this wiki:</b>")
for key, txt in pairs(translate.user_translations) do
if viewer.is_in("cat_", key) or viewer.is_in("_cat", key) then
txt = viewer.form9user(txt, "**", "**", "**", "**", "**", "**")
t = t .. "<br>" .. viewer.ta(key, txt)
end
end
return t
end -- function modes.all_categories_list(t)
function modes.all_errors_list(t) -- all_errors_list_title
local t = "\n* " .. (t or " <b>List all detectable errors of this wiki:</b>")
for key, txt in pairs(translate.user_translations) do
if viewer.is_in("err_", key) or viewer.is_in("_err", key) then
txt = viewer.form9user(txt, "**", "**", "**", "**", "**", "**")
t = t .. "<br>" .. viewer.ta(key, txt)
end
end
return t
end -- function modes.all_errors_list(t)
function modes.list_all_args_main(t, args_known) -- modes_list_all_args_main_title = List of all arguments for main
local t = t or "\n* <b>list_all_args_main :</b> "
if type(args_known) ~= "table" then args_known = modes.args_known end
if type(args_known) ~= "table" then return (t .. "The known arguments table modes.args_known misses.") end
t = t .. viewer.ta("args N", #args_known )
local descr, description = "", ""
local args = mw.clone(args_known)
local arglst = {}
for key, elem in pairs(args) do
elem.key = tostring(key)
descr = key .. "_descr" -- key for description of an argument
elem.description = translate.user_translations[descr] or "**missing translation**"
elem.user_lang_key = translate.user_translations[elem.key] or "**missing key**"
elem.user_lang_keyword = translate.user_translations[elem.keyword] or "**missing keyword**"
-- elem.base_id = elem.base_id
-- elem.base_base = elem.base_base
-- elem.not_type = elem.not_type
table.insert(arglst, elem)
end -- insert in the arguments their own key
table.sort(arglst, function (a, b) return (a.user_lang_key < b.user_lang_key) end ) -- alphabetic sort of translated arguments
local gr_sys, gr_config, gr_need, gr_other, gr_authority = {}, {}, {}, {}, {}
for i, elem in ipairs(arglst) do -- group arguments in some groups
if elem.need == 1 or elem.need == 2 then table.insert(gr_need, elem)
elseif elem.typ == "sys" then table.insert(gr_sys, elem)
elseif elem.typ == "config" then table.insert(gr_config, elem)
elseif elem.base_base then table.insert(gr_authority, elem)
else table.insert(gr_other, elem) end
end
local needed = viewer.smallCapsStyle(viewer.form9user("modes_needed_to_verify"))
local function list_group( group, needed )
needed = needed or ""
local t = ""
for key, elem in pairs(group or {}) do
if elem.syn
then t = t .. "<br>* <b>" .. tostring(elem.user_lang_key) .. "</b> => <b>" .. elem.user_lang_keyword .. "</b> : " .. needed .. " " .. tostring(elem.description) -- .. elem.lev_arg_txt
else t = t .. "<br>* <b>" .. tostring(elem.user_lang_key) .. "</b> : " .. needed .. " " .. tostring(elem.description) end
end
return t
end
t = t .. "<br><br>* <b>" .. viewer.form9user("modes_list_needed_args") .. "</b> " .. list_group( gr_need, needed )
t = t .. "<br><br>* <b>" .. viewer.form9user("modes_list_all_other_args") .. "</b> " .. list_group( gr_other )
t = t .. "<br><br>* <b>" .. viewer.form9user("list_all_authorities") .. "</b> " .. list_group( gr_authority )
t = t .. "<br><br>* <b>" .. viewer.form9user("modes_list_all_config_arguments") .. "</b> " .. list_group( gr_config )
t = t .. "<br><br>* <b>" .. viewer.form9user("modes_list_all_system_arguments") .. "</b> " .. list_group( gr_sys )
return t
end -- function modes.list_all_args_main(t, args_known) -- modes_list_all_args_main_title for main
function modes.recursiveNormal( recursiveLevel_in, recursiveLimit_in, modes_recursiveLevel_err ) -- Normalize recursiveLevel and recursiveLimit
-- recursiveLevel, recursiveLimit, recursiveLevel_err == modes.recursiveNormal(recursiveLevel, recursiveLimit)
-- default modes.recursiveLimit
local recursiveLevel, recursiveLimit = recursiveLevel_in, recursiveLimit_in
-- local recursiveLevel_err = ""
-- local modes_recursiveLevel_err = modes_recursiveLevel_err or "modes_recursiveLevel_err"
-- default modes_recursiveLevel_err
if type(modes_recursiveLevel_err) ~= "string" then modes_recursiveLevel_err = "modes_recursiveLevel_err" end
if type(modes.recursiveLimit) ~= "number" then modes.recursiveLimit = 11111 end
if modes.recursiveLimit < 1 then modes.recursiveLimit = 11111 end
-- default recursiveLimit
if type(recursiveLimit) ~= "number" then recursiveLimit = modes.recursiveLimit end
-- If recursiveLimit is defined, it can be greater or lesser than modes.recursiveLimit
recursiveLimit = math.floor(recursiveLimit) + 0.999999
if recursiveLimit < 1 then recursiveLimit = modes.recursiveLimit end
-- default recursiveLevel
if type(recursiveLevel) ~= "number" then recursiveLevel = 1 end
recursiveLevel = math.floor( recursiveLevel ) + 0.999999
if recursiveLevel < 1 then recursiveLevel = 1 end
--
if recursiveLevel > recursiveLimit then
recursiveLevel_err = viewer.form9user( modes_recursiveLevel_err, recursiveLevel, recursiveLimit)
recursiveLevel_err = viewer.errorColor( tostring(recursiveLevel_err) )
end
return recursiveLevel, recursiveLimit, recursiveLevel_err
end -- function modes.recursiveNormal( recursiveLevel_in, recursiveLimit_in, modes_recursiveLevel_err )
function modes.recursiveNormal_tests( t ) -- Test Normalize recursiveLevel and recursiveLimit
local memo = events.save_configs() -- Save global configuration before eventual changes.
-- recursiveLevel, recursiveLimit, recursiveLevel_err == modes.recursiveNormal(recursiveLevel, recursiveLimit)
modes.recursiveLimitMemo = modes.recursiveLimit -- memorize before test value
local t = t or "\n* modes.recursiveNormal_tests: "
local function recursiveNormal_test1(recursiveLevel_in, recursiveLimit_in, modes_recursiveLevel_err)
local recursiveLevel, recursiveLimit, recursiveLevel_err =
modes.recursiveNormal( recursiveLevel_in, recursiveLimit_in, modes_recursiveLevel_err or "modes_recursiveLevel_err")
-- modes.recursiveNormal( recursiveLevel_in or modes.recursiveLimit or 1, recursiveLimit_in or modes.recursiveLimit or 3 )
-- return "\n* " .. "recursiveLevel = " .. (recursiveLevel or "recursiveLevel") .. ", recursiveLimit = " .. (recursiveLimit or "recursiveLimit")
return "\n* " .. ( recursiveLevel_err or ("recursiveLevel_err:" .. viewer.ta("recursiveLevel", recursiveLevel) .. viewer.ta("recursiveLimit", recursiveLimit) ) )
end
t = t .. recursiveNormal_test1()
t = t .. recursiveNormal_test1(-12, 5)
t = t .. recursiveNormal_test1(0, 5)
t = t .. recursiveNormal_test1(1, 5)
t = t .. recursiveNormal_test1(2.718, 3.1416)
t = t .. recursiveNormal_test1(3)
t = t .. recursiveNormal_test1(5, 5)
t = t .. recursiveNormal_test1(6, 5)
t = t .. recursiveNormal_test1(11111, 5, "versioning_module_miss_i18n_txt_err")
t = t .. recursiveNormal_test1(11112, 5, "versioning_module_miss_i18n_count_err")
t = t .. recursiveNormal_test1(23456, 5, "modes_recursiveLevel_err")
modes.recursiveLimit = modes.recursiveLimitMemo -- restaure before test value
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function modes.recursiveNormal_tests(recursiveLevel, recursiveLimit)
function modes.spacesNamesPageTest(t)
if type(t) ~= "string" then t = nil end
local t = t or "\n* <b>spaces_page_names_test</b> :"
local mwtitle = mw.title.getCurrentTitle()
t = t .. viewer.ta("mwtitle", mwtitle)
local nsText = mwtitle.nsText
t = t .. viewer.ta("nsText", nsText)
local baseText = mwtitle.baseText -- namespace for the page
t = t .. viewer.ta("baseText", baseText)
local url = tostring(mwtitle:canonicalUrl( ))
t = t .. viewer.ta("url", url)
--
t = t .. "\n* Module namespace : "
local ns = mw.site.namespaces
if ns and ns[828] then
t = t .. viewer.ta("id828", ns[828].id)
t = t .. viewer.ta("canonicalName828", ns[828].canonicalName)
t = t .. viewer.ta("name828", ns[828].name)
t = t .. viewer.ta("displayName828", ns[828].displayName)
end
t = t .. "\n* All namespaces (from 0 to 2000) : "
local ns = ""
for ins = 0, 2000 do
-- if mw.site.contentNamespaces[ins] then
if mw.site.namespaces[ins] then
ns = mw.site.namespaces[ins].canonicalName
t = t .. viewer.ta(ns, ins)
end
end
return t
end -- function modes.spacesNamesPageTest()
function modes.warning_short()
-- local warning_versions = modes.warning_short() -- in Module:Author3
-- versioning.deprecatedFunction("modes.interact_args_final", "p.interact_args_final")
-- versioning.report_main_short = main_versions.versionName .. " " .. main_versions.versionNumber
local warning_versions = versioning.report_main_short
return warning_versions
end
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:testsCases implements recursive mediawiki tests cases and reports them for Lua coders.
-- New testsCases library part, to support tests cases
-- count = number of tests; provide( n ) returns three values: n, and expected output; run( n ) returns one string.
-- Starter is testsCases.report for recursive testsCases.runGroups
-- see Extension:Scribunto/Lua reference manual#Test_cases : class nameTest extends Scribunto_LuaEngineTestBase
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- testsCases = {} -- already declared by Scribunto, else in _G space.
-- Translations for testsCases library
testsCases.i18n = {}
testsCases.i18n.en = {
testsCases_subDiffs_abnormal_error = "Internal error: abnormal subDiffs process",
testsCases_subDiffs_boolean_error = "subDiffs boolean error",
testsCases_subDiffs_function_error = "subDiffs function error",
testsCases_subDiffs_nil_error = "subDiffs nil error",
testsCases_subDiffs_number_error = "subDiffs number error",
testsCases_subDiffs_string_error = "subDiffs string error",
testsCases_subDiffs_table_error = "subDiffs table error",
testsCases_subDiffs_tables_error = "subDiffs tables error",
testsCases_subDiffs_type_error = "subDiffs type error",
testsCases_subDiffs_types_error = "subDiffs types error",
testsCases_recursiveLevel_error = "subDiffs recursion level exceeded error",
testsCases_search_Diffs_tests_title = "testsCases.search_Diffs_tests() Search detailed differences in testsCases",
testsCases_search_Diffs_tests_headers = "Expected value; Actual value; Test indentifier; Results + Errors : expected-actual-details",
testsCases_tests_Cases_report_title = "testsCases.tests_Cases_report() Mediawiki recursive testsCases",
testsCases_group_Diffs_tests_title = "testsCases.group_Diffs_tests() Tests: Report detailed differences, where, recursively",
testsCases_group_Diffs_test_headers = "Expected value; Actual value; Test indentifier; Results + Errors : expected-actual-details",
} -- testsCases.i18n.en
testsCases.i18n.es = {
testsCases_subDiffs_abnormal_error = "Error interno: subDiffs proceso anormal",
testsCases_subDiffs_boolean_error = "subDiffs booleano error",
testsCases_subDiffs_function_error = "subDiffs función error",
testsCases_subDiffs_nil_error = "subDiffs nulo error",
testsCases_subDiffs_number_error = "subDiffs numero error",
testsCases_subDiffs_string_error = "subDiffs texto error",
testsCases_subDiffs_table_error = "subDiffs tabla error",
testsCases_subDiffs_tables_error = "subDiffs tablas error",
testsCases_subDiffs_type_error = "subDiffs typo error",
testsCases_subDiffs_types_error = "subDiffs typos error",
testsCases_recursiveLevel_error = "subDiffs nivel de recursividad superó error",
testsCases_search_Diffs_tests_title = "testsCases.search_Diffs_tests() Buscar diferencias detalladas en testsCases",
testsCases_search_Diffs_tests_headers = "Valor prevista; Valor activa; Identificador del prueba; Resultados + Errores : prevista-activa-detalles",
testsCases_tests_Cases_report_title = "testsCases.tests_Cases_report() Mediawiki testsCases recursivos",
testsCases_group_Diffs_tests_title = "testsCases.group_Diffs_tests() Pruebas: Reporte detallado de las diferencias, ¿dónde? recursivamente",
testsCases_group_Diffs_test_headers = "Valor prevista; Valor activa; Identificador del prueba; Resultados + Errores : prevista-activa-detalles",
} -- testsCases.i18n.es
testsCases.i18n.fr = {
testsCases_subDiffs_abnormal_error = "Erreur interne : processus subDiffs anormal",
testsCases_subDiffs_boolean_error = "subDiffs erreur de booléen",
testsCases_subDiffs_function_error = "subDiffs erreur de fonction",
testsCases_subDiffs_nil_error = "subDiffs erreur de nul",
testsCases_subDiffs_number_error = "subDiffs erreur de nombre",
testsCases_subDiffs_string_error = "subDiffs erreur de texte",
testsCases_subDiffs_table_error = "subDiffs erreur de table",
testsCases_subDiffs_tables_error = "subDiffs erreur de tables",
testsCases_subDiffs_type_error = "subDiffs erreur de type",
testsCases_subDiffs_types_error = "subDiffs erreur de types",
testsCases_recursiveLevel_error = "subDiffs erreur de niveau de récursivité dépassé",
testsCases_search_Diffs_tests_title = "testsCases.search_Diffs_tests() Chercher les différences détaillées dans les testsCases",
testsCases_search_Diffs_tests_headers = "Valeur attendue; Valeur active; Identifiant du test; Résultats + Erreurs : attendue-active-détails",
testsCases_tests_Cases_report_title = "testsCases.tests_Cases_report() Mediawiki testsCases recursifs",
testsCases_group_Diffs_tests_title = "testsCases.group_Diffs_tests() Tests: Rapport detaillé des différences, où, recursivement",
testsCases_group_Diffs_test_headers = "Valeur attendue; Valeur active; Identifiant du test; Résultats + Erreurs : attendue-active-détails",
} -- testsCases.i18n.fr
-- testsCases = {} -- already declared by Scribunto, else in _G space.
testsCases.recursiveLimit = 11
testsCases.OK = "OK"
testsCases.ERR = "ERR"
testsCases.okStrings = "OK"
-- local args = { ... } -- optional arguments
-- Starter for testsCases.runGroups for testsCases.report
-- protected static $moduleName = 'ClassNameTest'; -- See Extension:Scribunto/Lua_reference_manual#Test_cases
function testsCases.debugGetGroup(group, groupname) -- DEBUG the bug T20160615 : Lua functions calls lost multilevel table arguments
group = testsCases.groupMemoDebug -- Try to transmit the group across testsCases.groupMemoDebug
if groupname and not group then -- OK
t = t .. "DEBUG_group: "
t = t .. viewer.ta("begin group", group)
t = t .. viewer.ta("testsCases.groupMemoDebug", testsCases.groupMemoDebug)
t = t .. viewer.ta("groupname", groupname)
-- local subgroup = { errorsKey = 2, modulename = "mathroman", ..., groupname = "mathroman.testscases.TestsGroups", } -- Example of link to subgroup
--[ [ Normal method: found the missing group from groupname
local tab = mw.text.split(groupname, '.', true) -- from the subgroup in string form
for i, part in ipairs(tab) do -- Build the subgroup table from the groupname string
t = t .. viewer.ta("part", part)
if i == 1 then -- The start point is always a recorded module or library
module = package.loaded[ part ]
if type(module) == "table" then
group2use = module
end
else -- add a subgroup to the previous subgroup
if type(group2use) == "table" then
subgroup = group2use[ part ]
group2use = subgroup
end
end
end
group = group2use
t = t .. viewer.ta("end group", group)
end
return group, t
end -- function testsCases.debugGetGroup(group, groupname)
function testsCases.searchDiffs( subcase, name_key, expect, actual, recursiveLevelX )
-- Report all differences between expect and actual variables of any types. Recursivity limited to recursiveLimit
local expect = subcase.expect
local actual = subcase.actual
local opt = mw.clone(subcase.Options)
-- local recursiveLevel = recursiveLevel or 1
subcase.name = subcase.name or "group_Diffs"
-- subcase.name_key = name_key or subcase.name_key or "searchDiffs"
subcase.diffdetails = subcase.diffdetails or ""
-- local name_key = subcase.name_key
local diffs = {}
subcase.all_diffs = subcase.all_diffs or ""
if (type(actual) == "table") and (type(expect) == "table") then -- Compare 2 tables of elements
-- if recursiveLevel <= (events.recursiveLimit or 3) then
if opt.recursiveLevel <= opt.recursiveLimit then
opt.recursiveLevel = opt.recursiveLevel + 1
for key, val in pairs(actual) do
if not expect[key] then -- Detect actual values in args{} missing in expect{}, which is one difference.
local txt_diffs = translate.formTestCase("testsCases_search_Diffs_tests_title", key, val) -- Report differences, for simple elements
end
end
subcase.diffdetails = subcase.diffdetails .. "_r" .. opt.recursiveLevel
for key, val in pairs(expect) do -- Compare all table elements
local subcase = {}
subcase.Options = opt
if opt.recursiveLevel == 1
then subcase.name_key = subcase.name .. "_" .. tostring(key)
else subcase.name_key = "searchDiffs_" .. tostring(key) end
-- subcase.name_key = name_key or "searchDiffs"
subcase.diffdetails = ""
subcase.expect = expect[key]
subcase.actual = actual[key]
subcase.expect_t = viewer.value(subcase.expect)
subcase.actual_t = viewer.value(subcase.actual)
subcase.name = subcase.name or "group_Diffs"
subcase.name_key = subcase.name .. "_" .. tostring(key)
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_tables_error"
-- Report all differences between expect and actual variables of any types. Recursivity limited to recursiveLimit
local sub_diffs = testsCases.searchDiffs( subcase, subcase.name_key, subcase.expect, subcase.actual, recursiveLevelX )
if (subcase.diffdetails ~= nil) and (subcase.diffdetails ~= "") then
table.insert( sub_diffs,
translate.formTestCase(subcase.result or "testsCases_subDiffs_tables_error", viewer.value(subcase.expect), viewer.value(subcase.actual) )
)
end
for key, diff in pairs(sub_diffs) do -- Add all sub-diffs to diffs at this recursive level of details.
table.insert( diffs, diff )
end
end
end
end
-- Report simple differences, for simple elements
subcase.name_key = subcase.name -- .. "_" .. tostring(key)
subcase.expect_t = viewer.value(subcase.expect)
subcase.actual_t = viewer.value(subcase.actual)
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_boolean_error"
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
--[ [
if subcase.expect_t ~= subcase.actual_t then
if (actual ~= expect) and (type(expect) == "table") and (type(actual) == "table") then
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_tables_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
elseif (actual ~= expect) and (actual == nil) then
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_nil_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
elseif (actual ~= expect) and (actual == true) then
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_boolean_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
elseif (actual ~= expect) and (type(actual) == "number") then
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_number_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
elseif (actual ~= expect) and (type(actual) == "table") then
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_table_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
elseif (actual ~= expect) and (type(actual) == "function") then
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_function_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
else
subcase.result = ( subcase.name_key .. subcase.diffdetails ) or "testsCases_subDiffs_other_error"
-- table.insert( diffs, (#diffs + 1), viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t ) )
diffs[(#diffs + 1)] = viewer.form9user(subcase.result, subcase.expect_t, subcase.actual_t )
end
end --] ]
return diffs
end -- function testsCases.searchDiffs( subcase, name_key, expect, actual, recursiveLevel )
function testsCases.group_Diffs_tests( t, casesgroup, tabOptions ) -- Tests a group of tests cases.
local t = t or "\n* <b>testsCases.group_Diffs_tests()</b>" -- intern report to display for humans
if type(casesgroup) ~= "table" then casesgroup = nil end
if type(tabOptions) ~= "table" then tabOptions = nil end
local default_group_test = { -- events.testGroup
{ expect = "abc", actual = "abc", name = "search_Diffs_tests", }, -- expect, actual, name,
{ expect = "ABC", actual = "abc", name = "search_Diffs_tests", },
{ expect = 123, actual = 456, name = "search_Diffs_tests", },
{ expect = 33, actual = nil, name = "search_Diffs_tests", },
{ expect = 33, actual = true, name = "search_Diffs_tests", },
{ expect = {"abc"}, actual = "ABC", name = "search_Diffs_tests", },
}
local default_tabOptions = {
headers = "testsCases_group_Diffs_test_headers",
group = casesgroup or default_group_test,
concat = "; <br/>",
rowGroup = {},
recursiveLevel = 1,
recursiveLimit = 3,
}
tabOptions = tabOptions or default_tabOptions
tabOptions.testGroup = tabOptions.testGroup or default_group_test
tabOptions.headers = tabOptions.headers or "testsCases_group_Diffs_test_headers"
tabOptions.concat = tabOptions.concat or "; <br/>"
tabOptions.rowGroup = {}
tabOptions.run = tabOptions.run or testsCases.group_Diffs_tests
if type(tabOptions.testGroup) == "table" then
for key, subcase in pairs(tabOptions.testGroup) do
-- local diffs = {}
subcase.name = subcase.name or "group_Diffs"
subcase.name_key = subcase.name .. "_" .. tostring(key)
-- Report all differences between expect and actual variables of any types. Recursivity limited to recursiveLimit
local sub_diffs = testsCases.searchDiffs( subcase, subcase.name_key, subcase.expect, subcase.actual, recursiveLevel )
for key, diff in pairs(sub_diffs) do -- Add all sub-diffs to diffs at this recursive level of details.
if (diff ~= nil) and (diff ~= "") then
-- diff = ( subcase.name_key .. diff ) -- or "testsCases_subDiffs_tables_error"
subcase.result = subcase.result .. "\n* " .. viewer.errorColor(diff)
end
end
table.insert( tabOptions.rowGroup, {
viewer.value(subcase.expect),
viewer.value(subcase.actual),
tostring( subcase.name_key or "name_key"),
tostring( subcase.result or "-"),
} )
end
else t = t .. "error : multiple_values_tests has no table. " end
t = t .. viewer.tableView(tabOptions) -- Form a table with lines and columns.
return t, diffs
end -- function testsCases.group_Diffs_tests( t, casesgroup, tabOptions )
function testsCases.search_Diffs_tests( t ) -- Tests of report differences, which kind, where, recursively.
local t = t or "\n* Test <b>testsCases.search_Diffs_tests():synthesis...</b>" -- intern report to display for humans
local res_g, res_t, strResults, value_1 = "", "", "", ""
local recursiveLevel = 1
local tabOptions = { -- Initialize global configurations and save them before eventual changes.
headers = "typ;key;testcase idargs;result", -- headers of columns to display in a tableview for users and coders.
kind = "projects", -- mediawiki or projects. How to run and to display testscases results.
-- typ = "cat", -- Type of events to selector for list or for tests.
catview = ":", -- "" to really categorize. ":" to display links to categories.
user_lang = translate.user_lang, -- "en", -- User language to use for tests and/or to display tests.
wiki_lang = translate.wiki_lang, -- "fr", -- Wiki language to use for tests and/or to display tests.
recursiveLevel = 1,
recursiveLimit = 3,
-- tableViewStyle = "wikitable alternative center", -- example of style for a viewer.tableView() with lines and columns.
-- testsFunction = function_name, -- Dedicated function for all tests in the eventsGroup of tests.
}
local function search_Diffs_tests1(t, i, expect, actual, name, expectKey, errorsKey)
-- t, i = search_Diffs_tests1(t, i, {"abc"}, "ABC", "search_Diffs_tests")
-- t, i = search_Diffs_tests1(t, i, {123, "err"}, {456, "err"}, "search_Diffs_tests-string", 2)
subcase = {}
-- testcase.Options = opt
subcase.Options = tabOptions
subcase.recursiveLevel = 1
subcase.recursiveLimit = 3
subcase.actual = actual
subcase.expect = expect
subcase.expect_t = viewer.value(expect)
subcase.actual_t = viewer.value(actual)
subcase.name = name or subcase.name or "search_Diffs_tests"
if subcase.name == "search_Diffs_tests-recursiveLimit-5" then
subcase.recursiveLimit = 5 -- default subcase.recursiveLimit = 3
end
subcase.expectKey = expectKey or subcase.expectKey or 1
subcase.errorsKey = errorsKey or subcase.errorsKey or 2
subcase.name_key = subcase.name .. "_" .. i
subcase.n_diffs = 0
subcase.all_diffs = ""
local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal( subcase.recursiveLevel, subcase.recursiveLimit)
-- subcase.actual_t = luaTable.roughView(actual)
-- subcase.expect_t = luaTable.roughView(expect)
local sub_diffs = testsCases.searchDiffs(subcase) -- Report simple differences, for simple elements
subcase.n_diffs = #sub_diffs
subcase.all_diffs = ""
for i, diff in ipairs(sub_diffs) do -- List all diffs
if (type(diff) == "string") then subcase.all_diffs = subcase.all_diffs .. "\n* " .. viewer.errorColor(diff) end
end
return subcase, t, (i + 1)
end -- function search_Diffs_tests1(t, i, args, expected, name)
local group_test = { -- events.testGroup
{ expect = "abc", actual = "abc", name = "search_Diffs_tests", }, -- expect, actual, name,
{ expect = "ABC", actual = "abc", name = "search_Diffs_tests", },
{ expect = 123, actual = 123, name = "search_Diffs_tests", },
{ expect = 123, actual = "123", name = "search_Diffs_tests", },
{ expect = 321, actual = 123, name = "search_Diffs_tests", },
{ expect = true, actual = true, name = "search_Diffs_tests", },
{ expect = false, actual = true, name = "search_Diffs_tests", },
{ expect = true, actual = false, name = "search_Diffs_tests", },
{ expect = false, actual = false, name = "search_Diffs_tests", },
{ expect = nil, actual = "nil", name = "search_Diffs_tests", },
{ expect = nil, actual = nil, name = "search_Diffs_tests", },
{ expect = 33, actual = nil, name = "search_Diffs_tests", },
{ expect = 33, actual = true, name = "search_Diffs_tests", },
{ expect = function() end, actual = "func", name = "search_Diffs_tests", },
{ expect = "func", actual = function() end, name = "search_Diffs_tests", },
{ expect = function() end, actual = function() end, name = "search_Diffs_tests", },
{ expect = tostring, actual = tostring, name = "search_Diffs_tests-tostring()", },
{ expect = "ABC", actual = {"abc"}, name = "search_Diffs_tests", },
{ expect = {"abc"}, actual = "ABC", name = "search_Diffs_tests", },
{ expect = {"abc", "def"}, actual = {"abc", "def"}, name = "search_Diffs_tests", },
{ expect = {"ABC", "err"}, actual = {"abc", "err"}, name = "search_Diffs_tests", },
{ expect = {123, "err"}, actual = {456, "err"}, name = "search_Diffs_tests-string", 2, },
{ expect = {"ABC", "DEF"}, actual = {"abc", "def"}, name = "search_Diffs_tests", },
{ expect = {123, 456}, actual = {"abc", "def"}, name = "search_Diffs_tests", },
{ expect = { u = {"u1", "u2"}, x = {"x1", "x2"} }, actual = { u = {"u1", "u2"}, x = {"x1", "x2"} }, name = "search_Diffs_tests-2-levels-ident-tables", },
{ expect = { u = {"u1", "u2"}, x = {"H1", "x2"} }, actual = { u = {"u1", "u2"}, x = {"x1", "x2"} }, name = "search_Diffs_tests-2-levels-diffs-tables", 2, },
{ expect = { a1 = { a2 = { a3 = { a4 = { a5 = { a6 = { a7 = "A7" } } } } } } },
actual = { a1 = { a2 = { a3 = { XX = { a5 = { a6 = { a7 = "A7" } } } } } } },
name = "search_Diffs_tests-recursiveLimit-3",
},
{ expect = { a1 = { a2 = { a3 = { a4 = { a5 = { a6 = { a7 = "A7" } } } } } } },
actual = { a1 = { a2 = { a3 = { XX = { a5 = { a6 = { a7 = "A7" } } } } } } },
name = "search_Diffs_tests-recursiveLimit-5",
},
}
local tabOptions = {}
tabOptions.headers = "testsCases_search_Diffs_tests_headers"
tabOptions.testGroup = group_test
tabOptions.concat = "; <br/>"
tabOptions.rowGroup = {}
if type(group_test) == "table" then
for i, test in pairs(group_test) do
local subcase = search_Diffs_tests1("", i, test.expect, test.actual, test.name, expectKey, errorsKey)
table.insert( tabOptions.rowGroup, {
tostring( subcase.expect_t),
tostring( subcase.actual_t),
tostring( subcase.name_key .. '<br>' .. viewer.ta("n_diffs", subcase.n_diffs) ),
tostring( subcase.all_diffs),
} )
end
else t = t .. "error : multiple_values_tests has no table. " end
t = t .. viewer.tableView(tabOptions) -- Form a table with lines and columns.
return t
end -- function testsCases.search_Diffs_tests()
function testsCases.tests_Cases_report() -- Run a group of tests and returns one string.
local res_g, res_t = testsCases.report( mathroman.testsGroups, "mathroman.testsGroups", 1 ) -- Run N groups of tests and returns one string.
return res_t
end -- function testsCases.tests_Cases_report()
function testsCases.report( group, groupname, recursiveLevel ) -- , recursiveLevel ) -- Run a group of tests and returns one string.
local group = group
testsCases.groupMemoDebug = group
if type(modes.recursiveLimit) ~= "number" then modes.recursiveLimit = 11 end -- debug 11111
local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, testsCases.recursiveLimit or 11 )
testsCases.recursiveLimit = recursiveLimit
local t = "\n* testsCases.report()..." -- intern report to display for coders
local res = ""
events.strKeyOnly = true
local ttcs = testsCases.ModuleOrName("testsCases") -- Search the name of a module or reverse.
local cent = testsCases.ModuleOrName(versioning) -- Search the name of a module or reverse.
local tls = testsCases.ModuleOrName(tools) -- Search the name of a module or reverse.
-- local grp = testsCases.ModuleOrName(groupname) -- Search the name of a module or reverse.
t = t .. viewer.ta( "\n* Group:ModuleOrName " .. groupname, type(groupname) ) .. viewer.ta( "testsCases", ttcs )
t = t .. viewer.ta( cent, versioning ) .. viewer.ta( tls, tools ) .. "<br>"
-- t = t .. "\n* luaTable.roughView <b>mathroman.testsGroups</b> \n" .. luaTable.roughView(mathroman.testsGroups) --, { recursiveLimit = 11111, max_n = 11111, } )
t = t .. viewer.ta("report events.strKeyOnly", events.strKeyOnly)
local st, vr, fn, tb = luaTable.formSubCounts(group, "group") -- count of internal .i18n
t = t .. "\n* " .. st
testsCases.trackTests_t = "" -- init debug track
testsCases.countFullCompute( group, groupname, recursiveLevel ) -- Compute testsCases.countFull
testsCases.trackTests_t = "" -- init debug track
local res_g, res_t = testsCases.runTestsCases( group, groupname, 1 ) -- Run only all tests cases in one group.
-- local errors_or_diffs = testcase.errors or string.gsub(testcase.all_diffs, ";", "; ")
t = t .. viewer.form9user("\n* testsCases.report count/groups = <b>%1/%2</b>", testsCases.countFull, group.countGroups)
t = t .. viewer.form9user("\n* report subkey + n = <b>%1 + %2</b>, recur=%3, bug group type=%4, ", group.subkey, group.subkey_n, recursiveLevel, type(group))
--[[
mathroman.testsGroups = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- Each test_case defines a name, a function, an input, an output. Else a sub-group of testsCases.
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.Tests_cases,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.Tests_cases", }, --
--]]
t = t .. res_t .. viewer.ta("res_g", res_g)
events.strKeyOnly = false
t = t .. viewer.ta("end events.strKeyOnly", events.strKeyOnly)
-- t = t .. viewer.ta("\n* after rg type(group)", type(group) )
return res, t
-- Extension:Scribunto/Lua reference manual : run( n ): Function that runs test n and returns one string.
end -- function testsCases.report( group, groupname, recursiveLevel )
function testsCases.run_testcase( n, testcase ) -- Function that runs test n and returns one string.
local memo = events.save_configs() -- Save global configuration before eventual changes.
-- Record all input arguments and output results for any function with any number of arguments and results.
-- For library.run( n, testcase ) -- see Extension:Scribunto/Lua reference manual:
-- For testsCases.runOneTest( testcase, n, module ) -- see Extension:Scribunto/Lua reference manual:
--
local tabOptions = { -- Initialize global configurations and save them before eventual changes.
headers = "typ;key;testcase idargs;result", -- headers of columns to display in a tableview for users and coders.
kind = "projects", -- mediawiki or projects. How to run and to display testscases results.
-- typ = "cat", -- Type of events to selector for list or for tests.
catview = ":", -- "" to really categorize. ":" to display links to categories.
user_lang = translate.user_lang, -- "en", -- User language to use for tests and/or to display tests.
wiki_lang = translate.wiki_lang, -- "fr", -- Wiki language to use for tests and/or to display tests.
-- tableViewStyle = "wikitable alternative center", -- example of style for a viewer.tableView() with lines and columns.
-- testsFunction = function_name, -- Dedicated function for all tests in the eventsGroup of tests.
}
testcase.Options = tabOptions
events.init_configs(testcase, tabOptions, {}) -- Initialize global configurations and save them before eventual changes.
-- This events group is init, used and closed from Mediawiki tests or from the main module in pages.
testcase.events.startPoint = testsCases.run_testcase -- Start testcase.events for Gerrit tests
testcase.diffs = {}
testcase.all_diffs = ""
testcase.expectKey = testcase.expectKey or 1
testcase.errorsKey = testcase.errorsKey or 2
--
testcase.runResults = { testcase.func( luaTable.toList( testcase.args ) ) } -- args table to list to a function which return a list received in a table.
-- idargs .actual
local x, evt = events.add_err(testcase.name or "idargs", luaTable.toList(testcase.runResults) ) -- error event
--
testcase.runErrors = testcase.runResults[testcase.errorsKey]
testcase.runResults[testcase.errorsKey] = testcase.runErrors
-- function testsCases.searchDiffs( subcase, name_key, expect, actual, recursiveLevel )
local sub_diffs = testsCases.searchDiffs( testcase ) -- Report differences, recursiveLevel -- DEBUG 'name_key' (a nil value).
testcase.runArgsRoughView = luaTable.roughView(testcase.args)
testcase.runResultsRoughView = luaTable.roughView(testcase.runResults)
testcase.runDetails = viewer.form9user("runDetails = <b>%1</b>(%2) = <b>%3</b>, \n** sub_diffs = <b>%4</b>, \n** testcase.runErrors = <b>%5</b>",
testcase.name, testcase.runArgsRoughView, testcase.runResultsRoughView, sub_diffs.all_diffs, testcase.runErrors )
local nil_or_0 = ( (sub_diffs.all_diffs) and string.find(sub_diffs.all_diffs, "nil") ) or 0
testsCases.trackTests( testcase, "run_testcase nil?/len", nil_or_0, string.len(sub_diffs.all_diffs or "-" ) ) -- testcase.trackTests_t
-- if testcase.events.startPoint == testsCases.run_testcase then testcase.events.restore_configs(testcase.memo) end -- Close testcase.events for Gerrit tests
-- if testcase.memo and (testcase.events.startPoint == testsCases.run_testcase) then testcase.events.restore_configs(testcase.memo) end -- Close testcase.events for Gerrit tests
-- testcase.events.restore_configs(testcase.memo)
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return testcase.runErrors, value -- Function that runs test n and returns one string.
end -- function testsCases.run_testcase( n, testcase )
function testsCases.runOneTest( testcase, n, module ) -- see Extension:Scribunto/Lua reference manual:
-- run( n ): Function that runs test n and returns one string. (to compare with okStrings)
testcase.runOneTest_t = ""
local tabOptions = { -- Initialize global configurations and save them before eventual changes.
headers = "typ;key;testcase idargs;result", -- headers of columns to display in a tableview for users and coders.
kind = "projects", -- mediawiki or projects. How to run and to display testscases results.
-- typ = "cat", -- Type of events to selector for list or for tests.
catview = ":", -- "" to really categorize. ":" to display links to categories.
user_lang = translate.user_lang, -- "en", -- User language to use for tests and/or to display tests.
wiki_lang = translate.wiki_lang, -- "fr", -- Wiki language to use for tests and/or to display tests.
-- tableViewStyle = "wikitable alternative center", -- example of style for a viewer.tableView() with lines and columns.
-- testsFunction = function_name, -- Dedicated function for all tests in the eventsGroup of tests.
}
-- This events group is init, used and closed from Mediawiki tests or from the main module in pages.
if not testcase.events then testcase.memo, testcase.events = events.init_configs(testcase, tabOptions, {}) end -- Initialize global configurations and save them before eventual changes.
testcase.events.startPoint = testsCases.runOneTest -- For Modules tests
testcase.diffs = {}
testcase.all_diffs = ""
testcase.expectKey = testcase.expectKey or 1
testcase.errorsKey = testcase.errorsKey or 2
local number_of_one_test, name_of_the_test, ok_expected_output = module.provide(testsCases.countRun, testcase.name, testsCases.OK)
testsCases.trackTests( testcase, "provide out", name_of_the_test, ok_expected_output) -- testcase.runOneTest_t
local errors, value = testsCases.run_testcase( n, testcase ) -- Function that runs test n and returns one string.
-- local sub_diffs, recursiveLevel_err = testsCases.searchDiffs( testcase, 1 ) -- Report differences, recursiveLevel
local sub_diffs, recursiveLevel_err = testsCases.searchDiffs( testcase, 1 ) -- Report differences, recursiveLevel
testcase.n_diffs = sub_diffs.n_diffs -- testcase.n_diffs +
-- See example in testcase: mathroman.roman2int, args = { "MMMMMYJXC" }, expect = { 5089, "mathroman_J_before_end_err;mathroman_char_increase_err" } },
-- Select errors from diffs, without expected errors coming from testcase.expect[testcase.errorsKey]
testcase.errors = testcase.all_diffs or ""
testsCases.trackTests( testcase, "runOneTest nil?", string.find(testcase.all_diffs, "nil") or 0, string.len(testcase.all_diffs or "-" ) ) -- testcase.trackTests_t
if testcase.events.startPoint == testsCases.runOneTest then testcase.events = testcase.events.restore_configs(testcase.memo) end -- Close testcase.events for Modules tests
return testcase.all_diffs, testcase.errors
end -- function testsCases.runOneTest( testcase, n, module )
function testsCases.trackTests( testcase, where, x1, x2, x3, x4, x5, x6, x7, x8, x9 )
if not testcase then return end
local t = ""
testcase = testcase or testsCases.subgroup_memo
t = t .. viewer.form9user(". %1 ", where)
if x1 then t = t .. viewer.tam("1", x1 ) end
if x2 then t = t .. viewer.tam("2", x2 ) end
if x3 then t = t .. viewer.tam("3", x3 ) end
if x4 then t = t .. viewer.tam("4", x4 ) end
if x5 then t = t .. viewer.tam("5", x5 ) end
if x6 then t = t .. viewer.tam("6", x6 ) end
if x7 then t = t .. viewer.tam("7", x7 ) end
if x8 then t = t .. viewer.tam("8", x8 ) end
if x9 then t = t .. viewer.tam("9", x9 ) end
testcase.trackTests_t = (testcase.trackTests_t or ".") .. t
return t
end
function testsCases.countFullCompute( group, groupname, recursiveLevel ) -- Compute testsCases.countFull
local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, testsCases.recursiveLimit or 111 )
testsCases.recursiveLimit = recursiveLimit
if recursiveLevel == 1 then testsCases.countRun = 0 end
if type(group) == "table" then -- Recursive run groups of tests cases.
for k, testcase in ipairs(group) do -- Run only all tests cases in one group.
if (type(testcase) == "table") and (type(testcase.args) == "table") and (type(testcase.expect) == "table") then -- Run tests cases with args and expect tables.
local module = nil -- provide
module = package.loaded[ tostring(testcase.modulename) ] -- Each testcase can change of module
if (type(module) == "table") then -- If the module to test is in package.loaded
testsCases.countRun = (testsCases.countRun or 0) + 1
end -- if module
else -- if testcase and testcase.args and testcase.expect
local subgroup = testcase.group
if (type(subgroup) == "table") then -- Run all tests cases in one subgroup.
if recursiveLevel < recursiveLimit then
local res_g, res_t = testsCases.countFullCompute( subgroup, subgroup.groupname, recursiveLevel + 1 ) -- Run only all tests cases in one group.
end
end
end
end -- for k, testcase in ipairs(group) do
end -- if type(group) == "table" then -- Recursive run groups of tests cases.
testsCases.countFull = testsCases.countRun
if recursiveLevel == 1 then testsCases.countRun = 0 end
end -- function testsCases.countFullCompute( group, groupname, recursiveLevel )
function testsCases.runTestsCases( group, groupname, recursiveLevel ) -- Run only all tests cases in one group.
-- Extension:Scribunto/Lua reference manual : run( n ): Function that runs test n and returns one string.
-- events.strKeyOnly = true -- error no tests
local memo = events.save_configs() -- Save global configuration before eventual changes.
local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, testsCases.recursiveLimit or 11 )
testsCases.recursiveLimit = recursiveLimit
local t = "" -- intern report to display for humans
local res, res_g, tt, tt_g, module, diffs, sub_where = "", "", "", "", "", "", "", ""
-- t = t .. viewer.ta( "\n* Group:runTestsCases start", type(group) ) .. viewer.ta( "recursiveLevel", recursiveLevel ) .. viewer.ta( "groupname", groupname )
if type(group) ~= "table" then group, tt = testsCases.debugGetGroup(group, groupname) end
if type(group) ~= "table" then return res, t end
if type(groupname) ~= "string" then return res, t end
group.countGroups = #group
group.countCases = 0
group.all_diffs = ""
--[[ mathroman.testsGroups = { -- Autotest cases to validate the mathroman library at mediawiki level.
-- Each test_case defines a name, a function, an input, an output. Else it defines a sub-group of testsCases.
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.Tests_cases,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.Tests_cases", }, --
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MCXI" }, expect = { 1111 } }, --]]
-- t = t .. viewer.ta( "\n* Group:runTestsCases type", tostring(group) ) .. viewer.ta( "group.countGroups", tostring(group.countGroups) ) -- #group
-- t = t .. viewer.ta( "group.modulename", group.modulename ) .. viewer.ta( "group.funcname", group.funcname ) .. viewer.ta( "preview countRun", testsCases.countRun )
-- local groupOfTestsCases = (type(group) == "table") -- and (not group.args) and (not group.expect)
if recursiveLevel == 1 then testsCases.runCount = 0 end
if type(group) == "table" then -- Recursive run groups of tests cases.
t = t .. viewer.ta( "group.args", group.args ) .. viewer.ta( "group.expect", group.expect )
for k, testcase in ipairs(group) do -- Run only all tests cases in one group.
local testcase = mw.clone(testcase) -- debug ?
-- The group (or the root of tests) contain some testsCases which could point to subgroup.
group.countCases = k
testcase.runOneTest_t = "" -- init main result track
testcase.name = (testcase.name or group.name or "name") .. "_" .. group.countCases
testcase.all_diffs = ""
testsCases.trackTests_t = ""
if (type(testcase) == "table") and (type(testcase.args) == "table") and (type(testcase.expect) == "table") then -- Run tests cases with args and expect tables.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local module = nil -- provide
testcase.name = group.name .. "." .. testcase.funcname .. "_" .. k
group.countGroups = (group.countGroups or 0) + 0
testcase.all_diffs = ""
local module = nil -- provide
module = package.loaded[ tostring(testcase.modulename) ] -- Each testcase can change of module
local fntn = testcase.func -- provide
if (type(module) == "table") and (type(fntn) == "function") then -- If the module to test is in package.loaded
testsCases.countRun = (testsCases.countRun or 0) + 1
testcase.all_diffs, testcase.errors = testsCases.runOneTest( testcase, testsCases.countRun, module ) -- rrt
testcase.all_diffs = viewer.simpleList(testcase.all_diffs, ";")
-- local errors_or_diffs = testcase.errors or testcase.all_diffs
-- t = t .. "\n* " .. viewer.form9user("tc/gr/count = <b>%1/%2, %3/%4</b>, <b>%5</b>(%6) = <b>%7</b>, diffs/errors = <b>%8</b>",
t = t .. "\n* " .. viewer.form9user("nTest/nGroup = <b>%1/%2</b>, count/groups = <b>%3/%4</b> ",
group.countCases, group.countGroups, testsCases.countRun, testsCases.countFull)
t = t .. "\n* " .. viewer.form9user("testcase.errors = <b>%1</b>, ", testcase.errors)
t = t .. testcase.runDetails
t = t .. testsCases.trackTests( testcase, "runTestsCases testcase nil?"..k, string.find(testcase.all_diffs, "nil") or 0, string.len(testcase.all_diffs or "-" ) ) -- testsCases.trackTests_t
end -- if module
events.restore_configs(memo) -- Restore global configurations after eventual changes.
else -- if testcase and testcase.args and testcase.expect
local subgroup = testcase.group
if (type(subgroup) == "table") then -- Run all tests cases in one subgroup.
--[[ Each test_case defines a name, a function, an input, an output. Else a sub-group of testsCases.
mathroman.testsGroups = { -- Autotest cases to validate the mathroman library at mediawiki level.
{ errorsKey = 2, modulename = "mathroman", funcname = "roman2int", func = mathroman.roman2int, args = { "MCXI" }, expect = { 1111 } },
{ name = "mathroman", func = testsCases.runGroups, group = mathroman.Tests_cases,
modulename = "mathroman", funcname = "runGroups", groupname = "mathroman.Tests_cases", }, --]]
-- subgroup.recursiveLimit = subgroup.recursiveLimit or modes.recursiveLimit
subgroup.groupname = subgroup.groupname or group.groupname or groupname or "groupname" --
subgroup.modulename = subgroup.modulename or testcase.modulename or group.modulename or "modulename"
subgroup.funcname = subgroup.funcname or "funcname"
subgroup.name = group.name or subgroup.modulename or "name"
subgroup.upername = subgroup.name
subgroup.all_diffs = ""
if recursiveLevel < recursiveLimit then
testsCases.subgroup_memo = subgroup
testsCases.trackTests( subgroup, "runTestsCases in args/groupname", tostring(subgroup.args), tostring(subgroup.groupname) )
local res_g, res_t = testsCases.runTestsCases( subgroup, subgroup.groupname, recursiveLevel + 1 ) -- Run only all tests cases in one group.
subgroup.all_diffs = viewer.simpleList(subgroup.all_diffs, ";")
t = t .. testsCases.trackTests( testcase, "runTestsCases subgroup nil?"..k, string.find(subgroup.all_diffs, "nil") or 0, string.len(subgroup.all_diffs or "-" ) ) -- testsCases.trackTests_t
t = t .. res_g .. res_t
testsCases.trackTests( subgroup, "runTestsCases out res_g/res_t", res_g, res_t)
end
end
testcase.all_diffs = viewer.simpleList(testcase.all_diffs, ";")
t = t .. viewer.form9user("\n* Group:synthesis : name=<b>%1</b>, count/groups=<b>%2/%3</b>, recursiveLevel=<b>%4</b>, ", -- .. testsCases.trackTests_t
group.name, group.countCases, group.countGroups, recursiveLevel) --testcase .groupname
end
end -- for k, testcase in ipairs(group) do
end -- if type(group) == "table" then -- Recursive run groups of tests cases.
if recursiveLevel > 1 then -- In each sub-groups.
testsCases.runCount = (testsCases.runCount or 0) + group.countCases
t = t .. viewer.form9user("\n* Group:synthesis : name=<b>%1</b>, count/groups=<b>%2/%3</b>, recursiveLevel=<b>%4</b>, ",
group.name, group.countCases, group.countGroups, recursiveLevel) --testcase .name
t = t .. testsCases.trackTests_t
else -- In the main group, after all sub-groups.
testsCases.countCases = group.countCases
testsCases.countGroups = group.countGroups
t = t .. viewer.form9user("\n* All group:synthesis : name=<b>%1</b>, countCases/Groups=<b>%2/%3</b>, recursiveLevel=<b>%4</b>, ",
group.name, testsCases.countFull, group.countGroups, recursiveLevel)
t = t .. testsCases.trackTests_t
end
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res_g, t
end -- function testsCases.runTestsCases( group, groupname, recursiveLevel ) -- Run only all tests cases in one group.
function testsCases.ModuleOrName(search) -- Search the name of a module or reverse.
local result
if type(search) == "string" then
for name, module in pairs(package.loaded) do
if search == name then result = module end -- Name to module.
end
elseif type(search) == "table" then
for name, module in pairs(package.loaded) do -- Module to name.
if search == module then result = name end
end
end
return result
end -- function testsCases.ModuleOrName(search)
function testsCases.debugGetGroup(group, tabname)
-- DEBUG the bug T20160615 : Lua functions calls lost multilevel table arguments
group = testsCases.groupMemoDebug
if tabname and not group then -- OK
t = t .. "DEBUG_group: "
t = t .. viewer.ta("begin group", group)
t = t .. viewer.ta("testsCases.groupMemoDebug", testsCases.groupMemoDebug)
t = t .. viewer.ta("tabname", tabname)
-- local subgroup = { errorsKey = 2, modulename = "mathroman", ..., tabname = "mathroman.testscases.TestsGroups", } -- Example of link to subgroup
--[ [ Normal method: found the missing group from tabname
local tab = mw.text.split(tabname, '.', true) -- from the subgroup in string form
for i, part in ipairs(tab) do -- Build the subgroup table from the tabname string
t = t .. viewer.ta("part", part)
if i == 1 then -- The start point is always a recorded module or library
module = package.loaded[ part ]
if type(module) == "table" then
group2use = module
end
else -- add a subgroup to the previous subgroup
if type(group2use) == "table" then
subgroup = group2use[ part ]
group2use = subgroup
end
end
end
group = group2use
--] ]
t = t .. viewer.ta("end group", group)
end
return group, t
end -- function testsCases.debugGetGroup(group, tabname)
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:translate supports i18n translations.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- translate = {} -- already declared by Scribunto, else in _G space.
-- Translations for translate library
translate.i18n = {}
translate.i18n.en = {
language = 'language',
translate_translationsCounts_title = "translate.translationsCounts() Counts of translations in tables",
viewer_form9user_tests_title = "viewer.form9user() Test: Replace &%;1 to %9 by tostring( argN ) from arguments",
translate_form9user_all_types_values = "Test: string=%1 number=%2 nil=%3 function=%4 table=%5.",
viewer_form99user_tests_title = "in viewer.form99user() Test: Replace %01 to &%;29 by tostring( argN ) from arguments",
translate_form99user_all_types_values = "in viewer.form99user() Values of all types: %1, %2, %3, %4, %5.",
translate_form99user_no_tranlation = "in viewer.form99user() Lack of translation.",
translate_form99user_a_value_is_table = "in viewer.form99user() A value is a table.",
translate_translations_key_missing = "Internal error: Translations key missing or abnormal in viewer.trans9vars()",
translate_lang_not_exist_err = "Error: The language <b>%1</b> is not available.",
translate_abnormal_char_in_text_title = "translate.abnormal_char_in_text() Test: Detect abnormal characters in an unilingual text.",
translate_abnormal_char_in_alphabet = "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ 013456789 ,;.:!?",
translate_list_Mediawiki_languages_title= "translate.list_Mediawiki_languages() List all Mediawiki languages.",
-- Main texts, errors and categories of tools
translate_first_doc_languages = "Documentation of first languages",
translate_user_wiki_lang_msg = "Languages: user: %1, wiki: %2.",
translate_without_translation_err = "Known argument, but not translated: <b>%1</b>.",
translate_without_translation_N_err = "There are %1 arguments untranslated.",
translate_main_i18n_languages_count = "This module can translate <b>%1</b> sentences into <b>%2</b> languages: ",
translate_i18n_list_all_texts = "This list show all the texts, but cannot replace the original declarations.",
translate_languages_nbr_and_list = "\n* There are %1 tables of translations in these languages : %2 <br>",
-- Miscellaneous warnings and errors
translate_texts_translated_in_langs = "There are %1 texts translated in %2 languages.",
translate_no_wiki_translations_err = "Error: Module without translated arguments table.",
translate_list_in_translated_lang = "%1 translations in language %2 : %3 : %4",
translate_missing_translations_title = "translate.missing_translations() Missing translations in i18n tables.",
translate_transdiff_wanted_error_err = "Wanted error for minimal test of translate.missing_translations().",
translate_missing_translations_headers = "Language; i18n Key; Previous translation; New translation; Module",
translate_changing_translations_title = "translate.changing_translations() Changing (or missing) translations in i18n tables.",
translate_changing_translations_headers = "Language; i18n Key; Previous translation; New translation; Module",
translate_changing_translations_help = "See also %1 to ask for help to translate.",
translate_mixed_translations_title = "translate.i18n_lister() Combined i18n translations tables:",
translate_dummy_languages_title = "translate.dummy_languages() Languages Definitions:",
translate_Module_Central_version = "Central-w-en",
} -- translate.i18n.en
translate.i18n.es = { -- ¿Quién es?
language = 'lenguaje',
translate_translationsCounts_title = "translate.translationsCounts() Condes des traducciones en tablas",
viewer_form9user_tests_title = "viewer.form9user() Prueba: Reemplazar %1 a %9 por tostring( argN ) a partir de argumentos",
translate_form9user_all_types_values = "Prueba: string=%1 number=%2 nil=%3 function=%4 table=%5.",
viewer_form99user_tests_title = "en viewer.form99user() Prueba: Reemplazar %01 a %29 por tostring( argN ) a partir de argumentos",
translate_form99user_all_types_values = "en viewer.form99user() Valores de todos los tipos: %1, %2, %3, %4, %5.",
translate_form99user_no_tranlation = "en viewer.form99user() Falta de traducción.",
translate_form99user_a_value_is_table = "en viewer.form99user() Un valor es una tabla.",
translate_translations_key_missing = "Error interno: Traducciones clave que falta o anormal en viewer.trans9vars()",
translate_lang_not_exist_err = "Error: El lenguaje <b>%1</b> no está disponible.",
translate_abnormal_char_in_text_title = "translate.abnormal_char_in_text() Prueba: Detectar caracteres anormales en un texto monolingüe.",
translate_abnormal_char_in_alphabet = "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ 013456789 àéèêëiouüœ ÀÉÈÊËIOUÜŒ ,;.:!?",
translate_list_Mediawiki_languages_title= "translate.list_Mediawiki_languages() Lista de todos los idiomas de Mediawiki.",
-- Textos principales, errores y categorías de instrumentos
translate_first_doc_languages = "Documentación de las primeras idiomas",
translate_user_wiki_lang_msg = "Idiomas: usuario: %1, wiki: %2.",
translate_without_translation_err = "Argumento conocido, pero no traducido: <b>%1</b>.",
translate_without_translation_N_err = "Hay 1% argumentos no traducidos.",
-- Diversos mensajes y errores
translate_main_i18n_languages_count = "Este módulo puede traducir <b>%1</b> frases en <b>%2</b> idiomas: ",
translate_languages_nbr_and_list = "\n* Hay %1 mesas de traducciones en estas idiomas: %2 <br>",
translate_texts_translated_in_langs = "Hay 1% textos traducidos en 2% idiomas.",
translate_no_wiki_translations_err = "Error: Módulo sin argumentos traducidos tabla.",
translate_i18n_list_all_texts = "Esta lista muestra todos los textos, pero no puede sustituir a las declaraciones originales.",
translate_list_in_translated_lang = "%1 traducciones en idioma %2 : %3 : %4",
translate_missing_translations_title = "translate.missing_translations() Traducciones que falta de las tablas i18n.",
translate_missing_translations_headers = "Idioma; Clave i18n; Traducción anterior; Nueva traducción; Módulo",
translate_changing_translations_title = "translate.changing_translations() Traducciones que cambian (o falta de) en las tablas i18n.",
translate_changing_translations_headers = "Idioma; Clave i18n; Traducción anterior; Nueva traducción; Módulo",
translate_changing_translations_help = "Consulte también %1 para solicitar ayuda para traducir.",
translate_mixed_translations_title = "Tablas traducciones i18n combinadas:",
translate_dummy_languages_title = "translate.dummy_languages() Definiciones de idiomas:",
translate_Module_Central_version = "Central-w-es",
} -- translate.i18n.es
translate.i18n.fr = {
language = 'langue',
translate_translationsCounts_title = "translate.translationsCounts() Comptages des traductions en tables",
viewer_form9user_tests_title = "viewer.form9user() Test: Remplacer %1 à %9 par tostring( argN ) à partir des arguments",
translate_form9user_all_types_values = "Test: string=%1 number=%2 nil=%3 function=%4 table=%5.",
viewer_form99user_tests_title = "viewer.form99user() Test: Remplacer %01 à %29 par tostring( argN ) à partir des arguments",
translate_form99user_all_types_values = "en viewer.form99user() Valeurs de tous types : %1, %2, %3, %4, %5.",
translate_translations_key_missing = "Erreur interne: Clé de traduction manquante ou anormale dans viewer.trans9vars()",
translate_form99user_no_tranlation = "en viewer.form99user() Manque de traduction.",
translate_form99user_a_value_is_table = "en viewer.form99user() Une valeur est une table.",
translate_lang_not_exist_err = "Erreur : La langue <b>%1</b> n'est pas disponible.",
translate_abnormal_char_in_text_title = "translate.abnormal_char_in_text() Test: Détecter les caractères anormaux dans un texte unilingue.",
translate_abnormal_char_in_alphabet = "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ 013456789 àéèêëiouüœ ÀÉÈÊËIOUÜŒ ,;.:!?",
translate_list_Mediawiki_languages_title= "translate.list_Mediawiki_languages() Liste de toutes les langues de Mediawiki.",
-- Principaux textes, erreurs et catégories des outils
translate_first_doc_languages = "Documentation des premières langues",
translate_user_wiki_lang_msg = "Langues : utilisateur : %1, wiki : %2.",
translate_without_translation_err = "Argument connu, mais non traduit : <b>%1</b>.",
translate_without_translation_N_err = "Il y a %1 arguments non traduits.",
translate_main_i18n_languages_count = "Ce module peut traduire <b>%1</b> phrases en <b>%2</b> langues : ",
translate_i18n_list_all_texts = "Cette liste montre tous les textes, mais ne peut remplacer les déclarations originales.",
translate_languages_nbr_and_list = "\n* Il y a %1 tables de traductions dans ces langues : %2 <br>",
translate_texts_translated_in_langs = "Il y a %1 textes traduits en %2 langues.",
translate_no_wiki_translations_err = "Erreur interne : Module sans table d'arguments traduits.",
translate_list_in_translated_lang = "%1 traductions en langage %2 : %3 : %4",
translate_missing_translations_title = "translate.missing_translations() Traductions manquantes dans les tables i18n.",
translate_missing_translations_headers = "Langue; Clé i18n; Traduction précédente; Nouvelle traduction; Module",
translate_changing_translations_title = "translate.changing_translations() Traductions changeantes (ou manquantes) dans les tables i18n.",
translate_changing_translations_headers = "Langue; Clé i18n; Traduction précédente; Nouvelle traduction; Module",
translate_changing_translations_help = "Voir aussi %1 pour demander de l'aide pour traduire.",
translate_mixed_translations_title = "Tables de traductions i18n combinées :",
translate_dummy_languages_title = "translate.dummy_languages() Définitions de langues :",
translate_Module_Central_version = "Central-w-fr",
} -- translate.i18n.fr
function translate.track_counts(where, tabname, trans, tables, subtable)
local tabname = (tabname or "versioning.main_i18n")
-- local t, tot_vars, tot_tabs, tot_func, vr_tb = luaTable.formSubCounts(tabname)
local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(subtable, tabname)
local trans, tables = (trans or tot_vars), (tables or tot_tabs)
t = viewer.form9user("-*- %1:name/t/l=%2/%3/%4, ", tostring(where), tabname, trans, tables)
translate.track_counts_t = (translate.track_counts_t or "") .. t
return t
end
function translate.track_language(where)
local res = "\n* " .. viewer.form9user(where) .. " : "
res = res .. viewer.ta("wiki_lang", translate.wiki_lang) .. viewer.ta("user_lang", translate.user_lang)
res = res .. viewer.form9user("language") -- translate.i18n.en = { language = 'language',
res = res .. viewer.form9user("begin_support_central_modules_headers")
return res
-- res = res .. translate.track_language("begin_support_central_modules_title")
end
function translate.translationsCounts(t, ...)
-- versioning.antiLoop("translate.translationsCounts", 3, translate.translationsCounts, t, ...) -- Limit the n-th reentrant call of any function.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or '\n* translate.translationsCounts("begin.i18n") Counts of contents of some tables, from their names: '
-- { "versioning.i18n", "versioning : name=%1, t=%2, l=%3, f() n=%4." },
-- p.v.version = "Central-s-fr" -- The main module select this version, from its p.versions{}, to replace its main version.
t = t .. "\n* Translations in this module, if available: "
-- local Central = p
-- p.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
-- versionName = "Central-s-fr", versionNumber = "03 22:57", versionDate = "2017-04-03 22:57",
t = t .. "<br>" .. luaTable.formSubCounts("Module:" .. Central.versions.versionName) -- not available in any module
-- t = t .. "<br>" .. luaTable.formSubCounts("Module:" .. versioning.main_versions.versionName) -- not available in any module
t = t .. "<br>" .. luaTable.formSubCounts("Module:Central") -- not available in any module
t = t .. "\n* Translations in some languages: "
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.br")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.de")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.en")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.es")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.hu")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.fr")
t = t .. "<br>" .. luaTable.formSubCounts("translate.main_i18n.vi")
t = t .. "<br>" .. luaTable.formSubCounts("begin.i18n.es")
t = t .. "<br>" .. luaTable.formSubCounts("begin.i18n.hu")
t = t .. "<br>" .. luaTable.formSubCounts("begin.i18n.vi")
t = t .. "<br>" .. luaTable.formSubCounts("viewer.i18n.fr")
t = t .. "<br>" .. luaTable.formSubCounts("viewer.i18n.vi")
t = t .. "<br>" .. luaTable.formSubCounts("modes.i18n.en")
t = t .. "\n* Translations in some libraries: "
t = t .. "<br>" .. luaTable.formSubCounts("begin.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("datas.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("events.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("luaTable.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("mathroman.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("modes.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("testsCases.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("translate.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("versioning.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("viewer.i18n")
t = t .. "\n* Translations in wiki / user / page: "
t = t .. "<br>" .. luaTable.formSubCounts("translate.wiki_translations")
t = t .. "<br>" .. luaTable.formSubCounts("translate.user_translations")
t = t .. "<br>" .. luaTable.formSubCounts("translate.page_translations")
t = t .. "\n* Wanted errors cases:"
t = t .. "<br>" .. luaTable.formSubCounts("tools.i18n")
t = t .. "<br>" .. luaTable.formSubCounts("Empty table", {} ) -- do not fail in errors cases
t = t .. "<br>" .. luaTable.formSubCounts("a string", "A string replaces the table.") -- do not fail in errors cases
t = t .. "<br>" .. luaTable.formSubCounts(123.456, "A number replaces the table.") -- do not fail in errors cases
t = t .. "<br>" .. luaTable.formSubCounts(function() end, "A function replaces the table.") -- do not fail in errors cases
t = t .. "<br>" .. luaTable.formSubCounts(true , "A boolean value replaces the table.") -- do not fail in errors cases
t = t .. "<br>" .. luaTable.formSubCounts(nil , "A nil value replaces the table.") -- do not fail in errors cases
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function translate.translationsCounts(t)
function translate.key(key, lang) -- Translate the key in user, wiki and content languages.
if (type(key) ~= "string") then key = "translate_missing_key_err" end
if (type(lang) ~= "string") then lang = nil end
local translate_i18n = translate.main_i18n
function translate_one_key(translate_i18n, key, lang)
if lang and (type(translate_i18n) == "table") then translate_i18n = translate_i18n[lang] end
if key and (type(translate_i18n) == "table") then translate_i18n = translate_i18n[key] end
return translate_i18n
end
translate_i18n = translate_one_key(translate_i18n, key, lang)
if (type(lang) == "string") then -- Only the selected language
return translate_i18n
else
return translate_one_key(translate_i18n, key, translate.user_lang),
translate_one_key(translate_i18n, key, translate.wiki_lang),
translate_one_key(translate_i18n, key, translate.page_lang)
end
-- Examples of uses
-- local user, wiki, page = translate.key(key, lang)
-- if translate.key(key, lang) ~= key then block end
end -- function translate.key(key, lang)
function translate.main_i18n_languages_list() -- List available translations languages
-- if (type(versioning.main_i18n) == "table") and (type(translate.main_i18n) ~= "table")
-- then translate.main_i18n = versioning.main_i18n end
local main_i18n = translate.main_i18n or {}
local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(translate.main_i18n, "versioning.main_i18n") -- count of internal .i18n
local tab_to_sort = {}
for lang, modname in pairs(main_i18n) do
table.insert(tab_to_sort, lang) -- build a table with only languages codes
end
table.sort(tab_to_sort, function (a, b) -- sort le languages codes in stable alphabetic order
return ( a < b )
end )
local t = viewer.form9user("translate_main_i18n_languages_count", vr_tb, tot_tabs) -- #tab_to_sort) -- #tab_to_sort
for i, lang in pairs(tab_to_sort) do -- describe each language
local nativename = mw.language.fetchLanguageName(lang)
local englishname = mw.language.fetchLanguageName(lang, "en")
t = t .. viewer.form9user("<b>%1</b>(%2=%3), ", nativename, lang, englishname)
end -- see events.selectLang
return t -- translate_main_i18n_languages_count
end -- function translate.main_i18n_languages_list()
function translate.formTestCase(ref, ...) -- Form ref-v1-v2-v3-...
local t = tostring(ref)
for i, var in pairs( { ... } ) do
if var then t = t .. "|" .. viewer.value(var) end -- tostring() or viewer.value() ?
end
return t
end
-- translate.Central_x_y = "<Central_x_y>" -- To adapt the version of Module:Central in any translated text.
translate.Module_Central_version = "Central-s-fr" -- To adapt the version of Module:Central in any translated text.
function viewer.trans9vars(translations, ref, ...) -- Replace %1 to %9 by tostring( argN ) from arguments, without any ambiguity in any string.
local S9, repl, val, charN
if type(ref) ~= "string" then
ref = "translate_translations_key_missing"
ref = translate.formTestCase(ref, ...) -- .. "+fTC"
return ref -- .. "+t9v"
end
if type(translations) ~= "table" then return translate.formTestCase(ref .. "+notrans", ...) end
if type(translations[ref]) == "string" then ref = translations[ref] end
local args = {...}
if #args > 0 then
local n = 1
for n = 9, 1, -1 do
S9 = tostring(n)
charN = string.find(ref, "%".. S9, 1, true)
if charN then -- If reference has %0 to %9
repl = tostring( args[n] or "" )
ref = string.sub(ref, 1, charN - 1) .. repl .. string.sub(ref, charN + string.len( "%".. S9 ) )
end
end
end
ref = string.gsub(ref, p.v.version, translate.Module_Central_version or p.Module_Central_version or "p.v.version")
-- Erreur Lua dans Module:Central-s-fr à la ligne 3274 : bad argument #3 to 'gsub' (string/function/table expected).
return ref -- .. "+t9v"
end -- function viewer.trans9vars(translations, key, ...)
function viewer.form9wiki(ref, ...) -- replace %1 to %9 by v1 to v9 in the wiki translation of ref, else in ref
local lang, tlts = "en", nil
local form, n = "", 0
if not versioning.main_i18n_complete then return "" end -- Mask or Unmask all views to avoid failures.
if (type(translate.wiki_translations) == "table") -- Only after versioning.bind_i18n_translations()
-- and (type(translate.wiki_translations.en.versioning_luatable_counts) == "string") -- Only after versioning.bind_i18n_translations()
then form = form .. viewer.trans9vars(translate.wiki_translations, ref, ...) -- .. "+f9w"
else form = form .. translate.formTestCase(ref, ...) .. "+wTC" end
return form
end -- function viewer.form9wiki(ref, ...)
function viewer.trans99vars(translations, ref, ...) -- Replace %01 to %99 by tostring( argN ) from arguments, without any ambiguity in any string.
local S99, repl, val, charN
if type(translations) ~= "table" then return translate.formTestCase(ref, ...) end
if type(ref) ~= "string" then ref = "translate_translations_key_missing" end
if type(translations[ref]) == "string" then ref = translations[ref] end
local args = {...}
if #args > 0 then
local n = 1
for n = 99, 1, -1 do
S99 = tostring(n)
if n < 10 then S99 = "0" .. S99 end
charN = string.find(ref, "%".. S99, 1, true)
if charN then -- If reference has %01 to %99
repl = tostring( args[n] or "" )
ref = string.sub(ref, 1, charN - 1) .. repl .. string.sub(ref, charN + string.len( "%".. S99 ) )
end
end
end
return ref
end -- function viewer.trans99vars(translations, ref, ...)
function viewer.form99wiki(ref, ...) -- Replace %01 to %99 by tostring( argN ) from arguments, without any ambiguity in any string.
local form = viewer.trans99vars(translate.wiki_translations, ref, ...)
return form
end
function viewer.form99user(ref, ...) -- Replace %01 to %99 by tostring( argN ) from arguments, without any ambiguity in any string.
local form = viewer.trans99vars(translate.user_translations, ref, ...)
return form
end
function viewer.form9user(ref, ...) -- Replace %1 to %9 by tostring( argN ) from arguments, without any ambiguity in any string.
-- local lang, tlts = "en", nil
local form, n = "", 0
if not versioning.main_i18n_complete then return "" end -- Mask or Unmask all views to avoid failures.
if (type(translate.user_translations) == "table") -- Only after versioning.bind_i18n_translations()
-- and (type(translate.user_translations.en.versioning_luatable_counts) == "string") -- Only after versioning.bind_i18n_translations()
then form = form .. viewer.trans9vars(translate.user_translations, ref, ...) -- .. "+f9u"
else form = form .. translate.formTestCase(ref, ...) .. "+fTC" end
return form
end -- function viewer.form9user(ref, ...)
function viewer.form9user_test(t) -- Tests of viewer.form9user_test().
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>viewer.form9user_test(t, ref, ...)</b>:"
t = t .. viewer.Th() .. viewer.Tc("input string and args") .. viewer.Tc("viewer.form9user_test") -- .. viewer.Tc("string.format")
local function form9user_test1(ref, ...)
-- local form9user, t9 = viewer.trans9vars(translate.user_translations, ref, ...)
local form9user, t9 = viewer.form9user(ref, ...)
return viewer.Tr() .. viewer.Td( ref ) .. viewer.Td( form9user ) -- .. t9
end
t = t .. form9user_test1("translate_form9user_no_tranlation")
t = t .. form9user_test1("viewer_test_no_values") -- translate_form9user_a_value_is_table
t = t .. form9user_test1("translate_form9user_a_value_is_table", {})
t = t .. form9user_test1("translate_form9user_all_types_values", "abc", 4, nil, function(x) end, { 55, "xyz" } )
t = t .. form9user_test1("replace: abc%1efg%2ijk", "<b>D</b>", "<b>H</b>")
t = t .. form9user_test1("repeat: a=%1 b=%2 c=%1 d=%2", "<b>1</b>", "<b>2</b>")
t = t .. form9user_test1("altern: 1%13%25", "<b>2</b>", "<b>4</b>")
t = t .. form9user_test1("list: %0<%1<%2<%3<%4<%5<%6<%7<%8<%9", "00", "11", "22", "33", "44", "55", "66", "77", "88", "99")
t = t .. form9user_test1("mix: %1, %5, %2, %4, %3, ", "A", "B", "C", "D", "E")
t = t .. form9user_test1("missing args: yes=%1 no=%5 no=%9 yes=%2", "args[1]", "args[2]")
t = t .. form9user_test1("MATRIX 4 * 5<br>"
.. "{ %1%5, %1%6, %1%7, %1%8, %1%9 }<br>"
.. "{ %2%5, %2%6, %2%7, %2%8, %2%9 }<br>"
.. "{ %3%5, %3%6, %3%7, %3%8, %3%9 }<br>"
.. "{ %4%5, %4%6, %4%7, %4%8, %4%9 }<br>", "a", "b", "c", "d", "1", "2", "3", "4", "5")
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function viewer.form9user_test(t)
function viewer.form99user_test(t) -- Tests of viewer.form99user_test().
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>viewer.form99user_test(t, ref, ...)</b>:"
t = t .. viewer.Th() .. viewer.Tc("input string and args") .. viewer.Tc("viewer.form99user_test")
local function form99user_test1(ref, ...)
-- local form99user, t99 = viewer.trans99vars(translate.user_translations, ref, ...)
local form99user, t99 = viewer.form99user(ref, ...)
return viewer.Tr() .. viewer.Td( ref ) .. viewer.Td( form99user ) -- .. t9
end
t = t .. form99user_test1("translate_form99user_no_tranlation")
t = t .. form99user_test1("viewer_test_no_values")
t = t .. form99user_test1("translate_form99user_a_value_is_table", {})
t = t .. form99user_test1("translate_form99user_all_types_values", "abc", 4, nil, function(x) end, { 55, "xyz" } )
t = t .. form99user_test1("replace: abc%01fg%02jk", "<b>DE</b>", "<b>HI</b>")
t = t .. form99user_test1("repeat: a=%01 b=%02 c=%01 d=%02", "<b>01</b>", "<b>02</b>")
t = t .. form99user_test1("altern: 01%0145%0289", "<b>23</b>", "<b>67</b>")
t = t .. form99user_test1("list: %00<%01<%02<%03<%04<%05<%06<%07<%08<%09", "00", "11", "22", "33", "44", "55", "66", "77", "88", "99")
t = t .. form99user_test1("mix: %01, %05, %02, %04, %03, ", "A", "B", "C", "D", "E")
t = t .. form99user_test1("missing args: yes=%01 no=%05 no=%09 yes=%02", "args[1]", "args[2]")
t = t .. form99user_test1("matrix: %10<br>"
.. "{ %01%05, %01%06, %01%07, %01%08, %01%09 }<br>"
.. "{ %02%05, %02%06, %02%07, %02%08, %02%09 }<br>"
.. "{ %03%05, %03%06, %03%07, %03%08, %03%09 }<br>"
.. "{ %04%05, %04%06, %04%07, %04%08, %04%09 }<br>", "a", "b", "c", "d", "1", "2", "3", "4", "5", "MATRIX 4 * 5")
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function viewer.form99user_test(t)
function translate.i18n_trac(id, t, count) -- track for i18n DEBUG
-- translate.i18n_trac("base_func", "end", 1) -- example of use
local t = t or ""
t = t .. "<br><b>" .. (id or "") .. "</b> t=" .. t
if count then
t = t .. "<br>* " .. luaTable.formSubCounts("versioning.main_i18n")
t = t .. "<br>* " .. luaTable.formSubCounts("wiki_translations")
t = t .. "<br>* " .. luaTable.formSubCounts("user_translations")
end
return t
end
function modes.init_wiki_user_lang(wiki_lang, user_lang, page_lang)
versioning.deprecatedFunction("modes.init_wiki_user_lang", "translate.init_wiki_user_page_lang")
return translate.init_wiki_user_page_lang(wiki_lang, user_lang, page_lang)
end
-- en : Initialize or modify the language of the wiki and of the user and of the page and their tables.
-- es : Inicializar o cambiar el idioma del wiki y del usuario y de la página y sus tablas.
-- fr : Initialiser ou modifier la langue du wiki et de l'utilisateur et de la page et leurs tables.
function translate.init_wiki_user_page_lang(wiki_lang, user_lang, page_lang)
-- initialize or change the wiki, the user and the page languages and their tables
-- See https://meta.wikimedia.org/wiki/Translate_extension and [[Special:PageLanguage]] 2016-12-19
local res = ""
local getContentLanguage = mw.language.getContentLanguage().code -- default wiki_lang
-- if (type(versioning.main_i18n) == "table") and (type(translate.main_i18n) ~= "table")
-- then translate.main_i18n = versioning.main_i18n end
if modes.args_config then wiki_lang = wiki_lang or modes.args_config.wikilang end
if modes.args_config then user_lang = user_lang or modes.args_config.userlang end
--
-- WIKI -- Activate the wiki language for errors, warnings and categories.
if wiki_lang and translate.main_i18n and translate.main_i18n[wiki_lang] then -- Activate the wiki language for errors, warnings and categories.
translate.wiki_lang = wiki_lang
else -- if sought language is unavailable uses default value.
translate.wiki_lang = getContentLanguage -- default wiki_lang
end
if translate.wiki_lang and translate.main_i18n and translate.main_i18n[translate.wiki_lang] then
translate.wiki_translations = translate.main_i18n[translate.wiki_lang]
else
translate.wiki_translations = translate.i18n.en -- wiki's default translations
end
--
-- USER -- Activate the user language for errors, warnings and categories.
translate.user_lang = translate.wiki_lang -- default user like wiki
-- function object.setupInterface( options )
-- user_lang = user_lang or ParserOptions::getUserLang() -- does. See translate.user_lang
-- T142906 Data access in user language do not obey the uselang get parameter / Apparently
translate.user_translations = translate.wiki_translations -- default user like wiki
if user_lang and translate.main_i18n and translate.main_i18n[user_lang] then -- Activate the wiki language for errors, warnings and categories.
translate.user_lang = user_lang
else -- if sought language is unavailable uses default value.
translate.user_lang = getContentLanguage -- default user_lang
end
if translate.user_lang and translate.main_i18n and translate.main_i18n[translate.user_lang] then
translate.user_translations = translate.main_i18n[translate.user_lang]
else
translate.user_translations = translate.i18n.en -- user's default translations
-- translate.user_translations = translate.user_translations
end
--
-- PAGE -- Activate the page language for errors, warnings and categories.
-- { 30, "Important", "T20161220", 0, "Close", "To test: Central modules need the page language to display errors categories and datas for helpers", "user language getContentLanguage()", },
-- T20161220 : ToDo: test: local getContentLanguage = mw.language.getContentLanguage().code -- default wiki_lang
translate.page_lang = translate.wiki_lang -- default user like wiki
translate.page_translations = translate.wiki_translations -- default user like wiki
translate.page_lang = getContentLanguage -- default user_lang
if translate.main_i18n then
if not translate.page_lang then translate.page_lang = translate.wiki_lang end -- default user_lang
translate.page_translations = translate.main_i18n[translate.page_lang]
end
return res
end -- function translate.init_wiki_user_page_lang(wiki_lang, user_lang)
function translate.list_Mediawiki_languages(t, lang) -- List all Mediawiki languages.
local memo = events.save_configs() -- Save global configuration before eventual changes.
if type(t) ~= "string" then t = "\n* <b>translate.list_Mediawiki_languages()</b> List all known Mediawiki languages:" end
local lang = mw.language.new( translate.user_lang )
local LangCode = lang:getFallbackLanguages()
local lang_code_name = mw.language.fetchLanguageNames() -- inLanguage, 'mwfile' )
local toSort, t2 = {}, ""
t = t .. "\n* Infos lang_code_name: " .. viewer.ta("#lang_code_name", #lang_code_name)
for code, name in pairs(lang_code_name) do -- make a true table in rough order
table.insert(toSort, { code, name } )
-- insert detail { [1]=code, [2]=name } )
end
-- t = t .. "\n* List of <b>known</b> languages of MediaWiki lang_code_name: <br/>" .. t2
table.sort(toSort, function (row_x, row_y) return ( row_x[1] < row_x[1] ) end ) -- Sort based on [1]=code
table.sort(toSort, function (row_x, row_y) return ( row_x[2] < row_x[2] ) end ) -- Sort based on [2]=name
t = t .. "\n* List of <b>known</b> languages of MediaWiki lang_code_name: <br/>" .. t2
t = t .. "\n* Infos: " .. viewer.ta("#lang_code_name", #lang_code_name) .. viewer.ta("#toSort", #toSort) .. viewer.ta("user_lang", translate.user_lang)
-- t = t .. viewer.ta("#toSort[1]", #toSort[1] ) .. viewer.ta("toSort[1][1]", toSort[1][1] ) .. viewer.ta("toSort[1][2]", toSort[1][2] )
t2 = ""
for i, lang in pairs(toSort) do
local ok = translate.abnormal_char_in_text(lang[2], translate.user_lang) -- Detect abnormal characters in an unilingual text.
local lang_2 = lang[2]
if not ok then lang_2 = viewer.errorColor(lang_2) end
t2 = t2 .. "\n* " .. viewer.ta( lang[1], lang_2 )
end
t = t .. "\n* List of <b>known</b> languages of MediaWiki: <br/>" .. t2
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function translate.list_Mediawiki_languages(t, lang)
function translate.abnormal_char_in_text(t) -- Test: Detect abnormal characters in an unilingual text.
if type(t) ~= "string" then return false end -- translate_abnormal_char_in_text_title
local ok, normal = true, viewer.form9user("translate_abnormal_char_in_alphabet")
-- local ok, normal = true, "ABCDEFGHIJKLMNOPQRSTUVWXYZ 013456789 abcdefghijklmnopqrstuvwxyz àéèêëiouüœ ÀÉÈÊËIOUÜŒ ,;.:!?"
local letter, nn = "x", string.len(t .. " abcdef") - 3
-- local letter, nn = "x", mw.ustring.len(t)
for i = 1, nn do -- for all chars in t
letter = string.byte(t, i)
if not viewer.is_in(letter, normal) then ok = false ; break end
end
return ok
end -- function translate.abnormal_char_in_text(t)
function translate.missing_translations(t) -- List all missing translations
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>translate.missing_translations()</b>: List all missing translations:"
local errors = "*"
local tabOptions, i18n, rowGroup
if type(i18n) ~= "table" then i18n = translate.main_i18n or versioning.main_i18n end
tabOptions = { -- options for viewer.tableView() -- Form a table with lines and columns.
headers = "translate_missing_translations_headers", -- headers = "Language; Key; Previous translation; New translation; Module",
kind = "projects", -- mediawiki or projects
typ = "err",
testGroup = i18n, -- tests or tabOptions.testGroup or
rowGroup = {}, -- tests or tabOptions.testGroup or
}
tabOptions.rowGroup = {} -- tests or tabOptions.testGroup or
rowGroup = tabOptions.rowGroup -- tests or tabOptions.testGroup or
local missingGroup = {}
--
versioning.translations_differences = versioning.translations_differences or {}
--
local head = mw.text.split( viewer.form9user("translate_missing_translations_headers") , ',')
-- t = t .. viewer.Th("wikitable sortable") .. viewer.Tc(head[1]) .. viewer.Tc(head[2]) .. viewer.Tc(head[3]) .. viewer.Tc(head[4]) .. viewer.Tc(head[5])
for key, trans in pairs(versioning.translations_differences ) do
local trans1 = trans.trans1
local trans2 = trans.trans2
-- t = t .. viewer.Tr() .. viewer.Tc(trans1.dlang) .. viewer.Tc(trans1.dkey) .. viewer.Tc(trans1.dtrans) .. viewer.Tc(trans2.dtrans) .. viewer.Tc(trans2.dfile)
end
-- t = t .. viewer.tableView(tabOptions) -- Form a table with lines and columns.
--
if type(i18n) ~= "table" then return " verif_i18n MISSING. " end
local nerr, trans, err = 0, "", ""
local nbr, nbr_in_lang, list = 0, 0, ""
local nbr_in_lang_limit = 9
-- List any gaps of translations in i18n tables.
local prev_table, next_table, max, nkeys = nil, nil, 0, 0
local lang, prev_lang, next_lang, cats = "", "", "", ""
local all_txts = {}
for lang, texts in pairs(i18n) do -- For all languages and texts to translate
next_lang = lang -- next language
next_table = texts -- next language table
list = list .. lang .. ", "
nbr = nbr + 1
nbr_in_lang = 0
if type(texts) == "table" then -- For each pair of languages to compare
for keyi18n, stri18n in pairs(next_table) do -- List all texts translated in at least one language
all_txts[keyi18n] = stri18n
end
if (prev_table ~= nil) and (next_table ~= nil) then -- For each pair of languages to compare
nkeys = 0
for keyi18n, stri18n in pairs(all_txts) do -- For all texts to translate
trans = next_table[keyi18n]
nkeys = nkeys + 1
if (trans == nil) and (not tonumber(keyi18n) ) then -- and keyi18n ~= nil then -- args to a named argument
err = events.add_err("versioning_module_miss_i18n_trad_err", next_lang, keyi18n) -- tools_module_miss_i18n_txt_err
nerr = nerr + 1
local cut = string.find( keyi18n, "_")
cut = cut or 11
local modul = string.sub( keyi18n, 1, cut - 1)
if (nbr_in_lang == nbr_in_lang_limit) and (not tonumber(keyi18n) ) then -- and keyi18n ~= nil then -- args to a named argument
table.insert( missingGroup, {next_lang, keyi18n, stri18n, viewer.errorColor("missing limit = " .. nbr_in_lang_limit), modul} )
nbr_in_lang = nbr_in_lang + 1
elseif (nbr_in_lang < nbr_in_lang_limit) and (not tonumber(keyi18n) ) then -- and keyi18n ~= nil then -- args to a named argument
table.insert( missingGroup, {next_lang, keyi18n, stri18n, "missing: " .. nerr .. " / " .. nkeys, modul} )
-- table.insert( missingGroup, {next_lang, keyi18n, stri18n, "missing: " .. nerr .. " / " .. nkeys, modul} )
nerr = nerr + 1
nbr_in_lang = nbr_in_lang + 1
end
end
end
if nkeys > max then max = nkeys end
end
end
prev_lang = next_lang
prev_table = next_table
end
if nerr > 0 then
err = events.add_err("versioning_module_miss_i18n_count_err", nerr, max)
errors = errors .. err
cats = cats .. events.add_cat("versioning_err_module_miss_i18n_cat")
else
errors = errors .. " no errors "
end
tabOptions.headers = viewer.form9user("translate_missing_translations_headers")
tabOptions.rowGroup, tabOptions.rowGroup_j = events.tableView_form_all_cases(tabOptions) -- Run tableView_form_one_case for all cases in testGroup{}.
if errors ~= "" then errors = viewer.errorColor(errors) end
local tabView = {
testGroup = missingGroup,
headers = "translate_missing_translations_headers",
-- translate_missing_translations_headers = "Language; i18n Key; Previous translation; New translation; Module",
}
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t --, errors -- translate_missing_translations_title
end -- function translate.missing_translations(t)
function translate.changing_translations(i18n , t) -- Translations missing and changing in i18n tables
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or ("\n* <b>translate.changing_translations(t)</b> Changing (or missing) translations in i18n tables.:")
if (type(translate.main_i18n) ~= "table") then
t = t .. "\n* <b>abnormal translate.main_i18n is not a table </b>"
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t --, errors -- translate_changing_translations_title
end
if (type(i18n) ~= "table") and (type(translate.i18n) == "table") then i18n = translate.i18n end
local nerr, trad, err = 0, "", "", ""
-- t = t .. "\n* translate.changing_translations( Comparer les langues : <b>" .. prev_lang .. "/" .. next_lang .. "</b>, "
local nbr, list = 0, ""
local tabOptions = { -- options for viewer.tableView() -- Form a table with lines and columns.
headers = "translate_changing_translations_headers", -- headers = "Language; Key; Previous translation; New translation; Module",
kind = "projects", -- mediawiki or projects
typ = "err",
testGroup = i18n, -- tests or tabOptions.testGroup or
rowGroup = {}, -- tests or tabOptions.testGroup or
}
rowGroup = tabOptions.rowGroup -- tests or tabOptions.testGroup or
local changingGroup = {}
-- List any gaps of translations in i18n tables.
local next_table, next_table, max, nkeys = nil, nil, 0, 0
local lang, prev_lang, next_lang, cats = "", "", "", ""
local all_txts = {}
-- ToDo: changing i18n, Rical 20170210 23:13
-- List of origins to compare for each translation:
-- 1: internal minimal library or Module, example: datas or Module.Central-s-fr
-- 2: /I18N submodule, example: datas or Module.Central-s-fr or Module:Library/versioning/I18N
-- 3: external translate.i18n for all languages.
-- 4: the same (1+2+3) for upper modules until the main module. Example: datas or/and Module.Central-s-fr or/and Module:Author3
-- 4: lo mismo (1+2+3) para los módulos superiores hasta al módulo principal. Ejemplo: datas o/y Módulo:Central-s-fr o/y Módulo:Author3
-- 4: les mêmes (1+2+3) pour les modules supérieurs jusqu'au module principal. Exemple: datas ou/et Module:Central-s-fr ou/et Module:Author3
-- Bind modules and submodules from the main module to all sub-modules recurcively, and memorize all the actual binding.
-- Translate all translations in the exact reverse order, using the memorised binding order. Then upper modules can adapt translations.
for lang, texts in pairs(i18n) do -- Pour toutes les langues et tous les textes à traduire
next_lang = lang -- table suivante de traduction d'une langue
next_table = texts -- table suivante de traduction d'une langue
list = list .. lang .. ", "
nbr = nbr + 1
if type(texts) == "table" then -- pour chaque couple de langues à comparer
for keyi18n, v in pairs(texts) do -- Lister tous les textes traduits au moins dans une langue
all_txts[keyi18n] = "x"
end
if next_table ~= nil and next_table ~= nil then -- pour chaque couple de langues à comparer
t = t .. "\n* Comparer les langues : <b>" .. prev_lang .. "/" .. next_lang .. "</b>, "
nkeys = 0
for keyi18n, x in pairs(all_txts) do -- Pour tous les textes à traduire
trad = next_table[keyi18n]
nkeys = nkeys + 1
if trad == nil then -- and keyi18n ~= nil then -- args vers un argument nommé
err = events.add_err("versioning_module_miss_i18n_trad_err", keyi18n, next_lang) -- versioning_module_miss_i18n_txt_err
t = t .. err .. " " -- .. "<br>"
nerr = nerr + 1
end
end
if nkeys > max then max = nkeys end
end
end
prev_lang = next_lang
next_table = next_table
end
if nerr > 0 then
err = events.add_err("versioning_module_miss_i18n_count_err", nerr, max)
t = t .. "<br>" .. err .. " "
cats = cats .. events.add_cat("versioning_err_module_miss_i18n_cat")
-- cats = cats .. events.add_cat("modes_no_source_arguments_cat")
else
err = events.add_wng("versioning_module_miss_i18n_none_err")
t = t .. "<br>" .. err .. " "
end
-- tester vr le nombre total de variables de traductions
local st, vr, fn, tb = luaTable.structure(i18n, "i18n")
if vr < 33 then
err = events.add_err("versioning_module_miss_i18n_mini_err", vr)
t = t .. "<br>" .. err .. " "
cats = cats .. events.add_cat("versioning_err_module_miss_i18n_cat")
-- cats = cats .. events.add_cat("modes_no_source_arguments_cat")
end
--
-- if (type(versioning.main_i18n) == "table") and (type(translate.main_i18n) ~= "table")
-- then translate.main_i18n = versioning.main_i18n end
-- translate.main_i18n = translate.main_i18n or versioning.main_i18n
-- List all translated languages
t = t .. "\n* Translated languages: Langues traduites : "
local an, ln, Nadd, Nchange, Ntotal = 0, 0, 0, 0, 0
for lng, argmts in pairs(i18n) do -- For all languages to be imported
if i18n[lng] then -- The language already exists, add or replace imported fields
t = t .. viewer.form9user(", <b>Langue : %1</b> ", lng)
ln = ln + 1
if type(texts) == "table" then -- For each pair of languages to be compared
for argn, val in pairs(argmts) do -- For all imported fields
if translate.main_i18n[lng] then
if translate.main_i18n[lng][argn] then
Nchange = Nchange + 1
table.insert( changingGroup, {next_lang, keyi18n, stri18n, "missing: " .. nerr .. " / " .. nkeys, modul} )
else Nadd = Nadd + 1 end
-- Add or replace a field and its translation. Ajouter ou remplacer un champs et sa traduction
translate.main_i18n[lng][argn] = val -- t = t .. viewer.form9user(", %1 ", argn)
an = an + 1
end
end
end
else -- Add the table and all its fields if it is not yet in translate.main_i18n
if mw.language.isKnownLanguageTag(lng) then
translate.main_i18n[lng] = i18n[lng] -- translate.main_i18n
end
end
end
local lst_lng = ""
for lang, argmts in pairs(i18n) do -- Pour toutes les langues à importer
Ntotal = 0
if type(translate.main_i18n[lang]) == "table" then -- For each pair of languages to be compared
if type(texts) == "table" then -- pour chaque couple de langues à comparer
for argn, val in pairs(translate.main_i18n[lang]) do -- For all existing fields
Ntotal = Ntotal + 1
end
local langname = mw.language.fetchLanguageName(lang, "en")
local native = mw.language.fetchLanguageName(lang)
lst_lng = lst_lng .. viewer.form9user("translate_list_in_translated_lang", Ntotal, lang, langname, native)
-- translate_list_in_translated_lang = "%1 translations in language %2 : %3 : %4",
end
end
end
translate.user_wiki_lang_msg = viewer.form9user("translate_user_wiki_lang_msg", translate.user_lang, translate.wiki_lang)
translate.user_wiki_lang_err = translate.user_wiki_lang_msg -- deprecated for Module:Author3
translate.Lang_list = lst_lng
t = t .. viewer.form9user("translate_languages_nbr_and_list", nbr, list) .. lst_lng
t = t .. "\n* Same example without translation for a test case : " .. translate.formTestCase("translate_languages_nbr_and_list", nbr, list)
-- t = t .. translate.missing_translations() -- Compare all differences of translations
-- translate_changing_translations_headers
t = t .. viewer.tableView("translate_languages_nbr_and_list", nbr, list) .. lst_lng
tabOptions.headers = viewer.form9user("translate_missing_translations_headers")
tabOptions.rowGroup, tabOptions.rowGroup_j = events.tableView_form_all_cases(tabOptions) -- Run tableView_form_one_case for all cases in testGroup{}.
if errors ~= "" then errors = viewer.errorColor(errors) end
local tabView = {
headers = "translate_missing_translations_headers",
-- translate_missing_translations_headers = "Language; i18n Key; Previous translation; New translation; Module",
testGroup = changingGroup
}
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t --, errors -- translate_changing_translations_title
end -- function translate.changing_translations(i18n , t)
function translate.i18n_lister(t, i18n_tables)
if type(i18n_tables) ~= "table" then i18n_tables = translate.main_i18n end
local t = t or "\n* <b>i18n_lister</b> :"
t = t .. viewer.errorColor("\n* <b>This list show all the texts, but cannot replace the original declarations.</b> ")
t = t .. viewer.errorColor("\n* <b>" .. viewer.form9user("translate_i18n_list_all_texts") .. " </b> " )
for lang, lang_table in pairs(i18n_tables) do
t = t .. "\np.i18n." .. lang .. ' = { '
if type(lang_table) == "table" then
for key, text in pairs(lang_table) do
if key and text then
t = t .. "\n:" .. key .. ' = "' .. text .. '",'
end
end
end
t = t .. "\n}\n"
end
return t
end -- function translate.i18n_lister(t, i18n_tables)
-- - - - ------------------ - - - - ---------------------------------
-- Manage translations of arguments and warnings
-- Gestione traducciones de argumentos y advertencias
-- Gérer les traductions des arguments et warnings
-- - - - ------------------ - - - - ---------------------------------
function translate.dummy_languages() -- Test dummy languages
-- https://fr.wikipedia.org/wiki/%C3%89tiquette_d%27identification_de_langues_IETF
-- https://fr.wikipedia.org/wiki/Module:Langue/Data
-- pour convertir en code de langue IETF les noms français de langues
-- https://www.mediawiki.org/wiki/Manual:$wgDummyLanguageCodes
-- List of language codes that have been renamed to new (correct) codes, or don't correspond to an actual interface language.
-- array( 'als' => 'gsw', 'bat-smg' => 'sgs', 'be-x-old' => 'be-tarask', 'bh' => 'bho'...
local dummy_i18n = {
en = "Module:Central/I18N", -- english
es = "Modul:Central/I18N", -- spanish
fr = "Module:Central/I18N", -- french
Fr = "Module:Central/I18N", -- error test
als = "Modulen:Central/I18N", -- alemanish
gsw = "Mod-gsw:Central/I18N", -- unknown
["bat-smg"] = "Mod-bat-smg:Central/I18N", -- alemanish
sgs = "Mod-sgs:Central/I18N", -- unknown
}
local t = '\n* dummy_languages : ' .. viewer.ta("isTag", "isKnownLanguageTag(xx)") .. viewer.ta("isLang", "isSupportedLanguage(xx)") .. viewer.ta("isBuilt", "isValidBuiltInCode(xx)")
t = t .. viewer.Th() .. viewer.Tc("lang") .. viewer.Tc("isTag") .. viewer.Tc("isLang") .. viewer.Tc("isBuilt")
t = t .. viewer.Tc("langname") .. viewer.Tc("native")
for lang, modname in pairs(dummy_i18n) do -- Pour tous les parametres connus
local isTag = mw.language.isKnownLanguageTag(lang)
local isLang = mw.language.isSupportedLanguage(lang)
local isBuilt = mw.language.isValidBuiltInCode(lang)
local langname = mw.language.fetchLanguageName(lang, "en") -- see events.selectLang
local native = mw.language.fetchLanguageName(lang)
local space_name = tostring(mw.site.namespaces.Module.name)
t = t .. viewer.Tr() .. viewer.Td(lang) .. viewer.Td(isTag) .. viewer.Td(isLang) .. viewer.Td(isBuilt)
t = t .. viewer.Td(langname) .. viewer.Td(native)
end
t = t .. viewer.Te()
return t
end -- function translate.dummy_languages()
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:versioning installs other libraries, supports versions, then binds modules, libraries and i18n translations.
-- This library support modules to:
-- * Collect and bind modules and sub-modules depending from their p.versions{}
-- * Collect and bind translations from modules or libraries itself, and their /I18N sub-modules
-- * Form parametrable strings
-- * Add a language needs only to add its own i18n subtable, like i18n.en = {}
-- * Manage alternate versions of sub-modules sought in main, like Module:Sub, Module:Sub.2.1, Module:SubPlus.
-- A central module and its translations can inpedendently change. Its p.versions{} identifications change also.
-- For this goal a module contains at least one i18n tranlations table. Its /I18N sub-modules contains translations in several languages.
-- Central Libraries, like modules, contain their own p.versions{} identifications and i18n translations in Module:Library/library_name/I18N.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
_G["versioning"] = {}
-- versioning = {} -- The Library:versioning installs other libraries, bind modules and libraries, bind i18n translations, manage versions.
-- versioning = {} -- The Library:versioning must stay in _G global space, to not change in init phase.
-- local librariesList = librariesList or
versioning.librariesList =
{ -- New libraries to record in package.loaded[]
["begin"] = begin,
["datas"] = datas,
["events"] = events,
["luaTable"] = luaTable,
["modes"] = modes,
-- ["string"] = string, -- texts = {} The Library:texts come from Scribunto. The Module:Central add some functions to it.
["testsCases"] = testsCases,
["tools"] = tools,
["translate"] = translate,
-- versioning = {} -- The Library:versioning installs other libraries, bind modules and libraries, bind i18n translations, manage versions.
-- versioning = {} -- The Library:versioning must stay in _G global space, to not change in init phase.
["versioning"] = versioning,
["viewer"] = viewer,
--
["mathroman"] = mathroman, -- The Library:mathroman is here as an example of very small central library. It becomes central using the central modules system.
}
-- versioning = {} -- already declared by Scribunto, else in _G space.
-- Translations for versioning library
versioning.i18n = {}
versioning.i18n.br = {
versioning_support_desk_title = "Bureau de support pour %1 : %2 translations in %3 languages", -- br
versioning_support_desk_table = "viewer.docDropBoxTitle",
} -- versioning.i18n.br
versioning.i18n.de = {
versioning_support_desk_title = "Unterstützungsbüro für %1 : %2 Übersetzungen in %3 Sprachen", -- de
versioning_support_desk_table = "viewer.docDropBoxTitle",
} -- versioning.i18n.de
versioning.i18n.en = {
-- Main texts, errors and categories of tools
versioning_dev_running_times_title = "versioning.running_times() Running times and references for Lua-coders.",
versioning_luatable_counts = "%1 variables, %3 sub-tables, %2 functions",
versioning_table_dont_exists = "The table <b>%1</b> does not exist.",
versioning_table_listlimit_levelmaxi = "Level limit recursiveLimit = <b>%1</b> ",
versioning_table_listlimit_max_n = "Length limit max_n = <b>%1</b> ",
versioning_antiCrash_tests_title = "versioning.antiCrash() Test: in case of running error, do not crash the page.",
versioning_antiCrash_reference_label = "References",
versioning_antiLoop_function_err = "versioning.antiLoop() error in the <b>%3</b> <b>%1()</b>, loop n = <b>%2</b>, args = ",
versioning_module_usage_error_cat = "Module with usage error",
versioning_module_with_error_cat = "Module with error",
versioning_module_with_error_err = "Module with error",
versioning_with_internal_error_cat = "Module with internal error",
-- Versions management
versioning_versions_no_select_altern_err= "Versions error: no selection in the alternative <b>%1</b> of the module <b>%2</b>.",
versioning_versions_too_select_altern_err= "Versions error: <b>%1</b> selections in the alternative <b>%2</b> of the module <b>%3</b>.",
versioning_versions_select_not_used_err = "Versions error: <b>%1</b> selector is not in alternative <b>%2</b> of the module <b>%3</b>.",
versioning_versions_missing_module_err = "Versions error: missing module for the version <b>%1</b> of the module <b>%2</b>.",
versioning_main_module_missing_err = "The main module is not found.",
versioning_select_unknown_module_err = "Internal error: The missing Module:<b>%1</b> is replaced by the normal Module:<b>%2</b>.",
versioning_I18N_module_no_base_err = "The <b>%1</b> translations module has no basic version.",
versioning_no_versions_module_err = "The module <b>%1</b> is not in the system of versions.",
versioning_all_versions_tests = "Versions warning: <b>%1</b>, normal: <b>%2</b>, listall: <b>%3</b>.",
versioning_all_versions_check = "Versions: missings: <b>%1</b>, unknowns: <b>%2</b>, normals: <b>%3</b>, excess: <b>%4</b>, all selected: <b>%5</b>.",
versioning_missing_versions_err = "The module <b>%1</b> misses in the main module <b>%2</b>.",
versioning_replaced_versions_err = "The module <b>%1</b> replaces the missing sub-module in the main module <b>%2</b>.",
versioning_unknownversions_err = "The module <b>%1</b> is unknown in the main module <b>%2</b>.",
versioning_module_miss_i18n_txt_err = "Internal Error: The text <b>%1</b> lack of translation in <b>%2</b> language, and/or others.",
versioning_module_miss_i18n_count_err = "Internal Error: There are <b>%1</b> missings in <b>%2</b> translations.",
versioning_module_miss_i18n_none_err = "OK, none missing translations.",
versioning_module_miss_i18n_trad_err = "Internal Error: Module missing i18n translation for the argument <b>i18n.%1.%2</b>.",
-- versioning_err_module_miss_i18n_cat = "Module missing i18n translation",
versioning_err_module_miss_i18n_cat = "Module with internal error",
versioning_module_miss_i18n_mini_err = "Error: I18n table has only <b>1%</b> translations.",
versioning_module_error_err = "Module with error.",
-- Titles of tests
versioning_list_all_G_and_loaded_title = "versioning.list_all_G_and_loaded() List of variables in _G global space",
versioning_support_desk_title = "Support desk for %1 : %2 translations in %3 languages", -- en
versioning_support_desk_table = "viewer.docDropBoxTitle",
versioning_bind_central_modules_title = "versioning.bind_central_modules_report() Versions of central libraries and modules",
versioning_versions_management_report = "versioning.versions_management_report() Versions management report",
-- versioning_bind_modules_tests_title = "versioning.bind_modules_test() Test for management of modules versions",
versioning_verif_bind_modules_report = "Binding of modules and versions control",
versioning_bind_modules_test_headers = "Sought versions; Used versions; Known versions; ACTUAL: Errors in the active module; SIMULATION: Errors in the active module",
versioning_tasks_changes_report = "versioning.tasks_changes_report() Documentations, tasks and changes",
versioning_sort_central_modules_title = "versioning.sort_central_modules_report() Sorted list of central modules and libraries.",
versioning_sort_central_modules_headers = "Title; Version; Date; Translations / Languages",
versioning_sort_central_modules_counts = "this: + %2/%3 T/L, ",
versioning_try_waits_debug_T122752 = "#invoke has not loaded <b>%1</b>, but the debug of T122752 has loaded it.",
versioning_tasks_report_title = "versioning.versioning_tasks_report() States of known tasks",
versioning_tasks_report_headers = "Importance; Task; State; Title; In short",
versioning_add_deprecated_err = "Deprecated function <b>%1(...)</b>. Replace it by <b>%2(...)</b> in the module <b>%3</b>.",
versioning_deprecatedFunction_tests_title= "versioning.deprecatedFunction() Test: Deprecated function. Replace it in the module.",
versioning_defaultCrashResult_ref_err = "The antiCrash() function protects this page against a complete crash due to an internal error: %1.",
} -- versioning.i18n.en
versioning.i18n.es = {
-- Textos principales, errores y categorías de instrumentos
versioning_dev_running_times_title = "versioning.running_times() Tiempos de ejecución y referencias para los codificadores Lua.",
versioning_luatable_counts = "%1 variables, %3 subtablas, %2 funciones",
versioning_table_dont_exists = "La tabla <b>%1</b> no existe.",
versioning_table_listlimit_levelmaxi = "Límite de nivel recursiveLimit = <b>%1</b>",
versioning_table_listlimit_max_n = "Límite de longitud max_n = <b>%1</b>",
versioning_antiCrash_tests_title = "versioning.antiCrash() Prueba: en caso de error de ejecución, no sobrescribir la página.",
versioning_antiCrash_reference_label = "Referencias",
versioning_antiLoop_function_err = "versioning.antiLoop() Error en el <b>%3</b> <b>%1()</b>, bucle n = <b>%2</b>, args = ",
versioning_module_usage_error_cat = "Módulo con error del uso",
versioning_module_with_error_cat = "Módulo con error",
versioning_module_with_error_err = "Módulo con error",
versioning_with_internal_error_cat = "Módulo con interno error",
-- Gestión de versiones
versioning_versions_no_select_altern_err= "Error de versiones: no hay selección en alternativa <b>%1</b> del módulo <b>%2</b>.",
versioning_versions_too_select_altern_err= "Error de versiones: <b>%1</b> selecciones en la alternativa <b>%2</b> del módulo <b>%3</b>.",
versioning_versions_select_not_used_err = "Error de versiones: selector <b>%1</b> no es en alternativas <b>%2</b> del módulo <b>%3</b>.",
versioning_versions_missing_module_err = "Error de versiones: módulo ausente para la versión <b>%1</b> del módulo <b>%2</b>.",
versioning_main_module_missing_err = "El módulo principal no es encontrado.",
versioning_select_unknown_module_err = "Internal error: El Modulo:<b>%1</b> faltante se reemplaza por lo normal Module:<b>%2</b>.",
versioning_I18N_module_no_base_err = "El módulo de traducciones <b>%1</b> no tiene ninguna versión básica.",
versioning_no_versions_module_err = "El <b>%1</b> módulo no está en el sistema de versiones.",
versioning_all_versions_tests = "Versiones aviso: <b>%1</b>, normal: <b>%2</b>, lista: <b>%3</b>.",
versioning_all_versions_check = "Versiones: falta: <b>%1</b>, incógnitas: <b>%2</b>, normales: <b>%3</b>, en exceso: <b>%4</b>, selecciona todo: <b>%5</b>.",
versioning_missing_versions_err = "El módulo <b>%1</b> no disponible en el módulo principal <b>%2</b>.",
versioning_replaced_versions_err = "El módulo <b>%1</b> reemplaza el sub-módulo ausente en el módulo principal <b>%2</b>.",
versioning_unknownversions_err = "El módulo <b>%1</b> es desconocido en el módulo principal <b>%2</b>.",
versioning_module_miss_i18n_txt_err = "Error Interno: El texto <b>%1</b> falta de traducción en <b>%2</b> lengua, y / o otras.",
versioning_module_miss_i18n_count_err = "Error interno: Hay <b>%1</b> que falta en <b>%2</b> traducciones.",
versioning_module_miss_i18n_none_err = "OK, ninguno traducciones que faltan.",
versioning_module_miss_i18n_trad_err = "Error interno: translation faltan en Módulo i18n para el argumento <b>i18n.%1.%2</b>.",
-- versioning_err_module_miss_i18n_cat = "Módulo traducción i18n que falta",
versioning_err_module_miss_i18n_cat = "Módulo con error interno",
versioning_module_miss_i18n_mini_err = "Error: la tabla i18n tiene solamente <b>1%</b> traducciones.",
-- Titres des pruebas
versioning_list_all_G_and_loaded_title = "versioning.list_all_G_and_loaded() Lista de todos las variables en el espacio global _G",
versioning_support_desk_title = "De apoyo de oficina para %1 : %2 traducciones en %3 idiomas", -- es
versioning_support_desk_table = "viewer.docDropBoxTitle",
versioning_bind_central_modules_title = "versioning.bind_central_modules_report() Versiones de bibliotecas y módulos centrales",
versioning_versions_management_report = "versioning.versions_management_report() Informe de gestión de versiones",
-- versioning_bind_modules_tests_title = "versioning.bind_modules_test() Test for management of modules versions",
versioning_verif_bind_modules_report = "Binding of modules and versions control",
versioning_bind_modules_test_headers = "Sought versions; Used versions; Known versions; ACTUAL: Errors in the active module; SIMULATION: Errors in the active module",
versioning_tasks_changes_report = "versioning.tasks_changes_report() Documentación, parches y modificaciones",
versioning_sort_central_modules_title = "versioning.sort_central_modules_report() Lista ordenada de módulos y bibliotecas centrales.",
versioning_sort_central_modules_headers = "Título; Versión; Fecha; Traducciones / Idiomas",
versioning_sort_central_modules_counts = "esta + %2/%3 T/I, ",
versioning_try_waits_debug_T122752 = "#invoke no ha cargado <b>%1</b>, pero la depuración de T122752 ha lo cargó.",
versioning_tasks_report_title = "versioning.versioning_tasks_report() Estados del tareas conocidas",
versioning_tasks_report_headers = "Importancia; Tarea; Estado; Título; En breve",
versioning_add_deprecated_err = "Función obsoleta <b>%1(...)</b>. Sustitúyala por <b>%2(...)</b> en el módulo <b>%3</b>.",
versioning_deprecatedFunction_tests_title= "versioning.deprecatedFunction() Prueba: Función obsoleta. Sustitúyala en el módulo.",
} -- versioning.i18n.es
versioning.i18n.fr = {
-- Principaux textes, erreurs et catégories des outils
versioning_dev_running_times_title = "versioning.running_times() Temps d'exécution et références pour les Lua-codeurs.",
versioning_luatable_counts = "%1 variables, %3 sous-tables, %2 fonctions",
versioning_table_dont_exists = "La table <b>%1</b> n'existe pas.",
versioning_table_listlimit_levelmaxi = "Limite de niveau recursiveLimit = <b>%1</b> ",
versioning_table_listlimit_max_n = "Limite de longueur max_n = <b>%1</b> ",
versioning_antiCrash_tests_title = "versioning.antiCrash() Test: en cas d'erreur en cours d'exécution, ne pas écraser la page.",
versioning_antiCrash_reference_label = "Références",
versioning_antiLoop_function_err = "versioning.antiLoop() Erreur dans la <b>%3</b> <b>%1()</b>, boucle n = <b>%2</b>, args = ",
versioning_module_usage_error_cat = "Module avec erreur d'utilisation",
versioning_module_with_error_cat = "Module avec erreur",
versioning_module_with_error_err = "Module avec erreur",
versioning_with_internal_error_cat = "Module avec erreur interne",
-- Gestion des versions
versioning_versions_no_select_altern_err= "Erreur de versions : pas de sélection dans l'alternative <b>%1</b> du module <b>%2</b>.",
versioning_versions_too_select_altern_err= "Erreur de versions : <b>%1</b> sélections dans l'alternative <b>%2</b> du module <b>%3</b>.",
versioning_versions_select_not_used_err = "Erreur de versions : le sélecteur <b>%1</b> n'est pas dans les alternatives <b>%2</b> du module <b>%3</b>.",
versioning_versions_missing_module_err = "Erreur de versions : module absent pour la version <b>%1</b> du module <b>%2</b>.",
versioning_main_module_missing_err = "Le module principal est introuvable.",
versioning_select_unknown_module_err = "Internal error: Le Module:<b>%1</b> manquant est remplacé par le module normal Module:<b>%2</b>.",
versioning_I18N_module_no_base_err = "Le module de traductions <b>%1</b> n'a pas de version de base.",
versioning_no_versions_module_err = "Le module <b>%1</b> n'est pas dans le système des versions.",
versioning_all_versions_tests = "Versions avertissements : <b>%1</b>, normaux : <b>%2</b>, liste : <b>%3</b>.",
versioning_all_versions_check = "Versions: manquantes: <b>%1</b>, inconnues: <b>%2</b>, normales: <b>%3</b>, en excès: <b>%4</b>, toutes selectionées : <b>%5</b>.",
versioning_missing_versions_err = "Le module <b>%1</b> manque dans le module principal <b>%2</b>.",
versioning_replaced_versions_err = "Le module <b>%1</b> remplace le sous-module absent dans le module principal <b>%2</b>.",
versioning_unknownversions_err = "Le module <b>%1</b> est inconnu dans le module principal <b>%2</b>.",
versioning_module_miss_i18n_txt_err = "Erreur interne : Le texte <b>%1</b> manque de traduction en langue <b>%2</b>, et/ou d'autres.",
versioning_module_miss_i18n_count_err = "Erreur interne : Il y a <b>%1</b> manques parmi <b>%2</b> traductions.",
versioning_module_miss_i18n_none_err = "OK, aucune traduction manquante.",
versioning_module_miss_i18n_trad_err = "Erreur interne : manque de traduction pour l'argument <b>i18n.%1.%2</b>.",
-- versioning_err_module_miss_i18n_cat = "Module manquant de traduction i18n",
versioning_err_module_miss_i18n_cat = "Module avec erreur interne",
versioning_module_miss_i18n_mini_err = "Erreur interne : La table i18n n'a que <b>%1</b> traductions.",
versioning_module_error_err = "Module avec erreur",
-- Titres des tests
versioning_list_all_G_and_loaded_title = "versioning.list_all_G_and_loaded() Liste des variables dans l'espace global _G",
versioning_support_desk_title = "Bureau de support pour %1 : %2 traductions en %3 langues", -- fr
versioning_support_desk_table = "viewer.docDropBoxTitle",
versioning_bind_central_modules_title = "versioning.bind_central_modules_report() Versions des bibliothèques et modules centraux",
versioning_versions_management_report = "versioning.versions_management_report() Rapport de gestion des versions",
-- versioning_bind_modules_tests_title = "versioning.bind_modules_test() Test de la gestion des versions des modules",
versioning_verif_bind_modules_report = "Liaison des modules et contrôle des versions",
versioning_bind_modules_test_headers = "Versions demandées; Versions utilisées; Versions connues; ACTUEL : Erreurs dans le module actif; SIMULATION : Erreurs dans le module actif",
versioning_tasks_changes_report = "versioning.tasks_changes_report() Documentations, tâches et modifications",
versioning_sort_central_modules_title = "versioning.sort_central_modules_report() Liste triée des modules et bibliothèques centraux.",
versioning_sort_central_modules_headers = "Titre; Version; Date; Traductions / Langues",
versioning_sort_central_modules_counts = "ceci: + %2/%3 T/L, ",
versioning_try_waits_debug_T122752 = "#invoke n'a pas chargé <b>%1</b>, mais le débogage de T122752 l'a chargé.",
versioning_tasks_report_title = "versioning.versioning_tasks_report() États des tâches connues",
versioning_tasks_report_headers = "Importance; Tâche; Etat; Titre; En bref",
versioning_add_deprecated_err = "Fonction obsolète <b>%1(...)</b>. Remplacez-la par <b>%2(...)</b> dans le module <b>%3</b>.",
versioning_deprecatedFunction_tests_title= "versioning.deprecatedFunction() Test: Fonction obsolète. Remplacez-la dans le module.",
versioning_defaultCrashResult_ref_err = "La fonction antiCrash() protège cette page contre un effondrement complet dû à une erreur interne : %1.",
} -- versioning.i18n.fr
versioning.i18n.hu = {
versioning_support_desk_title = "Hivatalt a támogatja a %1 : %2 fordítás a %3 nyelven", -- hu
versioning_support_desk_table = "viewer.docDropBoxTitle",
} -- versioning.i18n.hu
versioning.i18n.vi = {
versioning_support_desk_title = "Hỗ trợ Văn phòng cho %1 : %2 dịch Dịch trong %3 ngôn ngữ ở", -- vi
versioning_support_desk_table = "viewer.docDropBoxTitle",
} -- versioning.i18n.vi
versioning.ModuleNS = mw.site.namespaces.Module.name .. ":"
function versioning.trackAllVersions(where, txt)
versioning.report_trackAllVersions = (versioning.report_trackAllVersions or "function report_trackAllVersions ") .. viewer.ta(where, txt)
return versioning.report_trackAllVersions -- search .all_versions
end
function versioning.form_version(vers) -- Form the version and the main version of a module or a library.
local version = string.gsub(vers, "p.v.version", p.v.version )
local main_version = string.gsub(vers, "p.v.version", p.v.main_version )
return version, main_version
end
function versioning.pcallRequire(version) -- require() must not fail and block the page.
if type(version) == "string" then
version = string.gsub( version, versioning.ModuleNS, "" ) -- normalize for always one "Module:"
version = versioning.ModuleNS .. version -- example Module:Central/I18N
end
local success, module = pcall( require, version ) -- pcall or xpcall can run any function without blocking page.
if not success then module = nil end
return module
end
function versioning.get_one_module_or_library(title, given_module) -- Get a module or a library, then form and record its descriptor.
-- local get, module = versioning.get_one_module_or_library("Module:Central") -- basic example of use
local get = {}
local module, required, loaded
if type(title) ~= "string" then
get.title = "abnormal title : " .. tostring(title)
get.isNil = true
return get
end -- If not loaded, return only an empty get
if (type(given_module) == "table") or (type(given_module) == "function") then
module = given_module
else -- to require a new module
loaded = versioning.pcallRequire(title) -- require() must not fail and block the page if the module do not exists.
if (type(loaded) == "table") or (type(loaded) == "function") then module = loaded -- The module is well loaded in package.loaded
else return get end -- If not loaded, return only get.isTitled and get.title
end
get.title = title -- like Module:Author, or the versioning library
get.module = module -- like {...}
get.isNil = not module -- like true or false
get.isLoaded = true and package.loaded[title] -- true if the module is in package.loaded
get.isFunction = (type(module) == "function") -- true if the module is a function
get.isTable = (type(module) == "table") -- true if the module is a table
get.i18n = module.i18n -- i18n table of the module
get.versions = module.versions -- table including module.versions.known and module.versions.sought
-- get.isLibrary = (type(module)=="table") and not (type(module)=="function") and not (viewer.is_in(versioning.ModuleNS, title) ) -- true if the object is a library
get.isLibrary = (type(module)=="table") and not (type(module)=="function") and not (string.find(title, versioning.ModuleNS, 1, true) ) -- true if the object is a library
-- T20160616 Rical task: Add module and library types in scribunto ?
get.hasi18n = (type(module) == "table") and (type(get.i18n) == "table") -- true if the object has a i18n translations table
get.versionName = string.gsub(get.title or "", versioning.ModuleNS, "") -- without Module: like versioning or Author
get.versionTitle = versioning.ModuleNS .. get.versionName -- normalize title like Module:Author
get.isModule = string.find(get.title, versioning.ModuleNS) -- true if the object is like Module:Author
get.isI18N = true and string.find(get.title, "/I18N") -- true if the title contains /I18N like Module:Author/I18N
get.withoutI18N = string.gsub(get.versionName, "/I18N", "") -- version without /I18N like versioning or Module:Author
get.versionI18N = get.withoutI18N .. "/I18N" -- version with /I18N like Module:Author/I18N
get.nowstamp = os.date("%Y%m%d%H%M%S") -- like YYYYMMDDhhmmss from module
-- Special for isModule, isLibrary, isFunction
if get.isLibrary then
-- get.revistamp = "20010101000000" -- default libraries timestamp at 2000-01-01T00:00:00Z, see ISO 8601 time format
get.revistamp = get.nowstamp
get.TitleI18N = versioning.ModuleNS .. "Library/" .. get.withoutI18N .. "/I18N" -- like Module:Library/versioning/I18N
get.pagename = TitleI18N -- Locate translations like Module:Library/versioning/I18N
get.i18nRoot = get.versionName -- Where locate translations are like versioning
elseif get.isModule then
get.revistamp = mw.getCurrentFrame():preprocess( "{{REVISIONTIMESTAMP:" .. get.title .. "}}" )
get.pagename = "Module:" .. get.versionName -- Locate translations like Module:Central/I18N
get.i18nRoot = get.pagename -- Where locate translations are like Module:Author
get.TitleI18N = versioning.ModuleNS .. get.withoutI18N .. "/I18N" -- like Module:Central/I18N
else
get.revistamp = mw.getCurrentFrame():preprocess( "{{REVISIONTIMESTAMP:" .. get.title .. "}}" )
end
get.versionName = string.gsub(get.title or "", versioning.ModuleNS, "") -- full version name with perhaps /I18N
-- get.simplename = string.gsub(get.title or "", versioning.ModuleNS, "") -- delete "Module:" if any
get.simplename = string.gsub(get.versionName, "/I18N", "") -- delete "/I18N" if any
get.viewI18N = get.simplename
if type(module) == "function" then
get.isFunction = true -- isFunction
get.isModule = false
get.isLibrary = false
get.functionName = get.simplename -- like tostring
get.pagename = "function:" .. get.simplename -- like function:tostring
elseif string.find(get.title, versioning.ModuleNS) then -- If the module title begin with "Module:"
get.isFunction = false
get.isModule = true -- isModule
get.isLibrary = false
get.moduleName = get.title -- complete the title with "Module:" like Module:Central
get.subI18N = get.title .. "/I18N" -- eventual sub-module "/I18N" like Module:Central/I18N
get.pagename = versioning.ModuleNS .. get.simplename -- like Module:Central
if get.isI18N then get.pagename = get.pagename .. "/I18N" end -- like Module:Central/I18N
if get.isI18N then get.viewI18N = get.simplename .. "/I18N" end -- like Central/I18N
else -- If the module is a library
get.isFunction = false
get.isModule = false
get.isLibrary = true -- isLibrary
get.libraryName = get.title -- standard library name like versioning
get.versionName = get.libraryName -- like versioning
get.pagename = versioning.ModuleNS .. "Library/" .. get.title -- like Module:Library/versioning
get.subI18N = get.pagename .. "/I18N" -- /I18N sub-module like Module:Library/versioning/I18N
if get.isI18N then get.pagename = get.subI18N end -- like Module:Library/versioning/I18N
if get.isI18N then get.viewI18N = get.simplename .. "/I18N" end -- like versioning/I18N
end
if get.isI18N and (type(get.module) == "table") and (type(get.module.i18n) == "table") then get.sub_i18n = get.module.i18n end
-- stamp, date and time
local function days(stamp) -- approximate the number of days from 0000-01-01
local day = 0
if (type(stamp) == "string") and (string.len(stamp) > 7) then
day = tonumber(string.sub(stamp,1,4)) * 365 +
tonumber(string.sub(stamp,5,6)) * 30 +
tonumber(string.sub(stamp,7,8))
end
return day
end
if get.revistamp then
get.days_revis = days(get.revistamp)
get.days_now = days(get.nowstamp)
get.delay = get.days_now - get.days_revis
get.revistime = string.sub(get.revistamp,1,4) .. "-" .. string.sub(get.revistamp,5,6) .. "-" .. string.sub(get.revistamp,7,8)
.. " " .. string.sub(get.revistamp,-6,-5) .. ":" .. string.sub(get.revistamp,-4,-3)
get.shortdays = string.sub(get.revistamp or "", 3, 8)
get.shorttime = string.sub(get.revistime or "", -9, -1)
if get.delay < 25
then get.shortVersion = "v" .. get.shorttime -- short version in "vDD hh:mm" until around 25 days
else get.shortVersion = "v" .. get.shortdays -- later in date vYYMMDD
end
get.versionDate = get.revistime
get.versionNumber = get.shortVersion
get.versionName = string.gsub(get.title or "", versioning.ModuleNS, "") -- full version name with perhaps /I18N
get.versionDate = get.revistime
if type(get.module.versions) == "table" then -- For central modules or libraries only:
get.module.versionName = get.versionName -- Record in each module to later IDENTIFY any module. See task T119978, "own module name"
get.module.versionDate = get.versionDate -- Record in each module to later DATE any module. See task T119978, "own module name"
end
end
if get.versions then
get.sought = get.versions.sought or get.versions.selector or ""
get.known = get.versions.known or get.versions.all_versions or ""
--
local str = string.gsub(get.sought, " ", ";")
get.sought_tab = mw.text.split(str, ";", true)
get.sought_count = #get.sought_tab
--
local str = string.gsub(get.known, "*", ";")
get.known_tab = mw.text.split(str, ";", true)
get.known_count = #get.known_tab
end
-- Record the get descriptor with others
versioning.loaded_modules_and_libraries = versioning.loaded_modules_and_libraries or {}
if get.i18n then table.insert(versioning.loaded_modules_and_libraries, get) end
--
versioning.bind_main_and_sub_modules_get = versioning.bind_main_and_sub_modules_get or {}
versioning.bind_main_and_sub_modules_get[get.title] = get
-- versioning.trackAllVersions("getModuleAndTime " .. get.versionName, get.all_versions)
return get, module
-- table.sort(versioning.loaded_modules_and_libraries, function (a, b) return (a.moduleName < b.moduleName) end ) -- alphabetic sort of translated arguments
-- loaded_modules_and_libraries is the always sorted group of loaded modules and libraries.
-- see package_loaded
-- versioning.loaded_modules_and_libraries = versioning.loaded_modules_and_libraries or {}
-- get = { isTitled, title, module, isLoaded, isLibrary, hasi18n, versionName, versionTitle, versionDate, versionNumber, shortVersion,
-- i18n, versions, sought, known, sought_tab, sought_count, known_tab, known_count, ,
-- isModule, isI18N, lessI18N, versionI18N, nowstamp, revistamp, revistime, shortdays, shorttime, nowstamp, delay }
-- title = Module:Central, revistamp = 20151207214027, revistime = 2015-12-07 21:40, gettitle = Module:Author3, shortVersion = v07 21:40 or v150227
end -- get, module = versioning.get_one_module_or_library(title, given_module) -- Get a module or a library, then form and record its descriptor.
-- if get.i18n then table.insert(versioning.loaded_modules_and_libraries, get) end
function versioning.add_one_i18n(t, module_name, module_tab) -- Add with others an i18n translations table and list all differences of translations.
local t = t or ""
-- change versioning.main_i18n and translate.main_i18n only once each and never repair them then they can become stable.
versioning.main_i18n = versioning.main_i18n or {}
-- if type(translate) == "table" then translate.main_i18n = versioning.main_i18n end -- Same pointers insure later same contents.
--
local i18n, lang_N, text_N = {} ,0, 0
local translations_differences = {}
function versioning_detect_transDiff(trans1, trans2) -- Collect all differences of translations
if trans1.dtrans and trans2.dtrans and (trans1.dlang == trans2.dlang) and (trans1.dkey == trans2.dkey) and (trans1.dtrans ~= trans2.dtrans) then
table.insert(translations_differences, { ["trans1"] = trans1, ["trans2"] = trans2 }) -- build a table with only languages codes
end -- Only fast collect to treat later if needed.
end
if type(module_tab) == "table" and type(module_tab.i18n) == "table" then -- and type(module_tab.i18n) == "table" then
i18n = module_tab.i18n or {} -- i18n
lang_N, text_N = 0, 0
for lang, trans in pairs(i18n) do -- For all languages of the mixed module or library
if versioning.main_i18n[lang] then -- the language already exists, add or replace imported fields
lang_N = lang_N + 1
if type(trans) == "table" then -- if the language to add is really in a table
for key, val in pairs(trans) do -- For all imported fields
versioning_detect_transDiff( -- Collect all differences of translations
{ dlang = lang, dkey = key, dfile = "previous", dtrans = versioning.main_i18n[lang][key] },
{ dlang = lang, dkey = key, dfile = module_name, dtrans = val} )
versioning.main_i18n[lang][key] = val -- add or replace a field and its translation
text_N = text_N + 1
end
end
t = t .. viewer.form9user(", lang:<b>%1:%2:%3</b> ", lang, lang_N, text_N)
-- t = t .. translate.formTestCase(", lang:<b>%1:%2:%3</b> ", lang, lang_N, text_N)
else -- add the table and all is fields if it is not already in versioning.main_i18n
if mw.language.isKnownLanguageTag(lang) then -- only for languages known in wikis
lang_N = lang_N + 1
versioning.main_i18n[lang] = mw.clone(trans)
text_N = text_N + #trans
t = t .. viewer.form9user(", lang:<b>%1:%2:%3</b> ", lang, lang_N, text_N)
-- t = t .. translate.formTestCase(", lang:<b>%1:%2:%3</b> ", lang, lang_N, text_N)
end
end
end
end
-- t = t .. translate.track_counts("add_i18n:end", "versioning.i18n", trans, tables, versioning.i18n)
local st, vr, fn, tb = luaTable.formSubCounts("versioning.main_i18n")
t = t .. viewer.form9user(", addi18n:%1:<b>%2/%3</b> texts/langs, ", module_name, vr, tb)
-- t = t .. translate.formTestCase(", addi18n:%1:<b>%2/%3</b> texts/langs, ", module_name, vr, tb)
-- versionversion, lang:tot = ta:0 mix:Central1:441+3181=3181,
return t, lang_N, text_N -- t, ln, an
end -- function versioning.add_one_i18n(t, module_name, module_tab)
function versioning.bind_one_library(name, library, options) -- Record a library in package.loaded -- RunOnce:
-- RunOnce : Do not repeat this function to not disturb subsequent processes.
-- library can be a table, a string or a function, not a nil.
-- if package.loaded[name] then library = nil ; err = "cannot replace a previous library" end -- A library cannot replace a previous library.
if library == string then return library end
-- Install the new library, only a table.
options = options or {}
options.library = library or options.library
options.name = name or options.name
options.err = "err: "
-- if (type(library) ~= "table") then return end
-- if (type(options.library) ~= "table") then return end
if (type(options.name) ~= "string") then return end
local object = library
local php
-- Remove setup function
-- if library then library.setupInterface = nil end
function object.setupInterface(options)
local php = nil
-- Remove setup function
if options.library then options.library.setupInterface = nil end
-- Copy the PHP callbacks to a local variable, and remove the global
php = mw_interface
mw_interface = nil
-- Do any other setup here
-- Install into the mw global
mw = mw or {}
mw.ext = mw.ext or {}
mw.ext[options.name] = options.library
-- Indicate that we're loaded
package.loaded[options.name] = options.library
options.err = (options.err or "") .. "setup = mw.ext[options.name] = options.library, "
end
object = object.setupInterface(options)
local NAME = options.NAME
options.binded_in = versioning.binded_in(options.name, options.library)
return options.library, options.err
end -- return object, err = function versioning.bind_one_library(name, library, options)
function versioning.binded_in(name, object) -- Is the object binded in _G space or in package.loaded = LD ?
local binded_in = "xx"
if _G[name] == object then binded_in = "_G" end
if package.loaded[name] == object then binded_in = "LD" end
return binded_in
-- 20161202 18:25 See example https://fr.wikisource.org/wiki/Module:Phab.TestpackG : detect "in " "_G" or package.loaded
end -- binded_in = function versioning.binded_in(name, object)
function versioning.bind_central_libraries(librariesList, opt) -- Bind translatable libraries before bind modules and versions.
-- Record centralisable libraries if they are not included in standard mw.Extension:Scribunto
-- RunOnce : Do not repeat this function to not disturb subsequent processes.
local t = "\n* <b>versioning.bind_central_libraries()</b> : "
local librariesList = librariesList or versioning.librariesList
for name, lib in pairs(librariesList) do
local options = {}
options.library = lib -- or options.library
options.name = name -- or options.name
local libra, err = versioning.bind_one_library(name, lib, options)
libra = libra or lib or {}
t = t .. "library.name = <b>" .. name .. "</b>, library.binded_in = <b>" .. options.binded_in .. "</b>, " .. options.err
end
local name, name_I18N, tt, lang_N, text_N
local nm = "<br>Libraries after bind_one_library in bind_libraries() : "
for name, library in pairs(package.loaded) do nm = nm .. name .. ", " end
versioning.tracki18n_new_libraries123 = nm or "no library in package.loaded"
-- Binding 1 - Bind first central libraries and their /I18N sub-modules.
t = t .. "\n* effective versioning.bind_central_libraries() : "
for title, obj in pairs(_G) do
-- if object.hasi18n and object.isLibrary then
if (type(obj) == "table") and (type(obj.i18n) == "table") then
-- Get a module or a library, then form and record a descriptor of it.
local get, module = versioning.get_one_module_or_library(title, obj)
local loaded = versioning.loaded_modules_and_libraries
--[ [
t = t .. "\n*" .. viewer.ta("get.title", get.title) -- .. viewer.ta("library", get.module)
-- t = t .. viewer.ta("get.versionName", get.versionName) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("isLibrary", get.isLibrary) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("i18n", get.i18n) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
-- t = t .. viewer.ta("get.viewI18N", get.viewI18N) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
--] ]
end
end
-- Same pointers insure later same contents.
if (type(translate) == "table") and (type(versioning.main_i18n) == "table") then translate.main_i18n = versioning.main_i18n end
-- versioning.bind_i18n_report = (versioning.bind_i18n_report or ".") .. (t or ".")
translate.track_i18n_t = translate.track_i18n_t .. t
-- versioning.bind_central_libraries_t = t
return t
end -- function versioning.bind_central_libraries(librariesList, opt)
-- deprecated : versioning.sort_central_modules_report(t) -- Sorted list of central modules and libraries
function versioning.bind_central_modules_report(t) -- Sorted list of central modules and libraries
-- versioning_sort_central_modules_title = "versioning.sort_central_modules_report() Sorted list of central modules and libraries.",
-- versioning_sort_central_modules_headers = "Title; Version; Date; Translations / Languages",
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>versioning.sort_central_modules_report()</b> -- Sorted list of central modules and libraries."
-- local loaded_pack, loaded_txt, modu = versioning.get_loaded_modules()
local loaded_sorted = {}
-- table.sort(loaded_sorted, function (a, b) return ( a.pagename < b.pagename ) end )
local tabView = { -- Adapt all options for all uses, before all other adaptations.
testGroup = versioning.loaded_modules_and_libraries,
headers = "versioning_sort_central_modules_headers",
headers_class = "wikitable alternative center sortable",
-- form_elem_detail = "this + %2/%3 T/L, ",
form_elem_detail = "versioning_sort_central_modules_counts", -- "this + %2/%3 T/L, "
}
function tabView.tableView_form_one_case(get) -- Generally to define: Convert a case from testGroup to rowGroup.
local subI18N = ""
if get.i18n then -- get.i18n
local vers18 = get.versionName --; if not get.isI18N then vers18 = "" end
if get.isModule then get.pagename = "Module:" .. get.versionName end -- Locate translations example in Module:Central/I18N
if get.isLibrary then get.pagename = "Library:" .. get.versionName end -- Locate translations example in Module:Library/versioning/I18N
-- local t ... = luaTable.formSubCounts(tabname, tablebase, text_form)
-- get.counts = luaTable.formSubCounts(get.i18nRoot .. ".i18n", "this + %2/%3 T/L, ") -- versioning_sort_central_modules_counts
get.counts = luaTable.formSubCounts(get.i18nRoot .. ".i18n", tabView.form_elem_detail) -- versioning_sort_central_modules_counts
if get.has_I18N then get.counts = get.counts .. "<br>+ i18n in: <b>" .. get.viewI18N .. "</b>" end -- version_I18N
-- luaTable.formSubCounts("versioning.main_i18n", versioning.main_i18n, ", (all = %2/%3 T/L)")
if get.versionName and get.pagename then
-- t2 = viewer.form9user("<br>* alias <b>%1</b> = <b>%2</b>, version = <b>%3</b>, date = <b>%4</b>",
-- get.pagename, get.versionName, get.shortVersion, get.versionDate)
end
end
return { (get.pagename or ""), (get.viewI18N or ""), (get.versionDate .. "<br>" .. get.shortVersion), get.counts }
-- return { (get.pagename or ""), (get.versionName or ""), (get.versionDate .. "<br>" .. get.shortVersion), get.counts }
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function versioning.bind_central_modules_report(t) -- Sorted list of central modules and libraries
-- local tt, vers_test = versioning.bind_sub_modules(p, vers_test) -- The main module can bind all its sub-modules versions, and their /I18N sub-modules.
function versioning.bind_sub_modules(main_p, vers_test) -- Bind all modules and sub-modules versions, without their translations
-- versioning.actual_modules = versioning.actual_modules or "actual_modules = <b>bind_sub_modules()</b>:"
local recursiveLevel, recursiveLimit, recursiveLevel_err = 1, 1111, ""
if versioning.main_i18n_complete then
recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, modes.recursiveLimit)
end
-- local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, modes.recursiveLimit)
local versioning_main_i18n_memo = versioning.main_i18n
-- local modes_args_source_memo = modes.args_source
-- local modes_args_config_memo = modes.args_config
-- modes.args_source = new_source -- = nil
-- modes.args_config = args_config -- = nil
-- versioning.invoke_record_module_correct_T122752( ) -- Correct the bug T122752 : #invoke do not record the main module in package.loaded
local t = "\n*<b>versioning.bind_sub_modules() start</b>, effective Search the main module: "
-- Waiting the debug of T119978 Get the own module name and last record date-time from each module
-- versioning.main_versions = nil
-- versioning.main_module = nil
local main_module = nil -- To get first
local main_versions = nil
local versions, version = nil
local title = nil
local gettitle = mw.getCurrentFrame():getTitle() -- get the mainmodule title
local package_loaded_gettitle = package.loaded[gettitle]
versioning.main_gettitle = gettitle
-- t = t .. viewer.ta("gettitle", gettitle)
main_p = main_p or versioning.debugT122752_main_module -- waiting debug of T122752 module found module.versions.sought
-- Normal process
if type(main_p) == "table" then -- A module can lauch itself or another as main module.
main_module = main_p
-- t = t .. viewer.ta("main_p", main_p)
if type(main_p) == "table" and type(main_p.versions) == "table" then -- For main modules using versions management
title = versioning.ModuleNS .. main_p.versions.versionName
versioning.main_p_versions_txt = "main_p.versions : "
-- .. viewer.ta("main_p.title", title) .. viewer.ta("main_p.versionNumber", main_p.versions.versionNumber)
-- .. viewer.ta("main_p.sought", main_p.versions.sought) .. viewer.ta("main_p.known", main_p.versions.known)
end
-- bd : bind_sub_modules from main to sub, then compute all subI18N, then in reverse order addi18n from subI18N.i18n as .sub_i18n
-- bd : versioning.init, bind_libraries_modules_translations, bind_central_libraries, bind_sub_modules, bind_i18n_translations,
-- bd : get_one_module_or_library, bind_central_modules_report
elseif type(package_loaded_gettitle) == "table" then -- If #invoke has already loaded the main module in package.loaded
-- local main_i18n_memo = mw.clone(versioning.main_i18n)
main_p = package_loaded_gettitle
main_module = main_p
-- t = t .. "\n* main module from gettitle : correct T122752 <b>" .. tostring(gettitle) .. "</b>. "
if type(main_p) == "table" and type(main_p.versions) == "table" then -- For main modules using versions management
versioning.gettitle_versions_txt = "getTitle.versions : "
-- .. viewer.ta("getTitle.versionName", main_p.versions.versionName) .. viewer.ta("getTitle.versionNumber", main_p.versions.versionNumber)
-- .. viewer.ta("getTitle.sought", main_p.versions.sought) .. viewer.ta("getTitle.known", main_p.versions.known)
end
else -- If the main module was not recorded in package.loaded, try to require() it.
-- local module = versioning.pcallRequire(gettitle) -- require() must not fail and block the page.
if module then-- Alert by a warning in edit mode: the bug is already fixed.
local main_i18n_memo = versioning.main_i18n
main_p = module
main_module = main_p
-- t = t .. "\n* main module from gettitle : repairs T122752 <b>" .. tostring(gettitle) .. "</b>. "
else -- The main module called this module, but something else is in error.
-- local main_i18n_memo = versioning.main_i18n
main_p = p
main_module = main_p
-- t = t .. "\n* main module from gettitle : not found <b>" .. tostring(gettitle) .. "</b>. "
end -- If not loaded, return only get.isTitled and get.title
end
-- After get the main module, get the versions for management.
-- The main module can use or not the versions management.
if type(main_p) == "table" and type(main_p.versions) == "table" then -- For main modules using versions management
main_module = main_p
versioning.main_module = main_module
-- t = t .. viewer.ta("versioning.main_module", versioning.main_module)
main_versions = main_p.versions
-- t = t .. viewer.ta("versioning.main_versions", versioning.main_versions)
end
if not versioning.main_module then -- The main module is not found.
return viewer.errorColor( viewer.form9user("versioning_main_module_missing_err") )
end
versioning.main_i18n = versioning_main_i18n_memo -- Restore from versioning.bind_central_libraries()
-- modes.args_source = modes_args_source_memo -- Restore from modes.argsConfigIinit()
-- modes.args_config = modes_args_config_memo -- Restore from modes.argsConfigIinit()
-- In normal cases
if type(versioning) == "table" and type(versioning.main_gettitle) == "string" then
main_versions.versionName = string.gsub(versioning.main_gettitle, versioning.ModuleNS, "") -- without Module:
end
--
if (type(vers_test) == "table") then -- In tests cases
main_module.versions = vers_test -- In versions management test, vers_test replace the main versions
main_versions = main_module.versions
main_versions.used = ";"
end
-- t = t .. "<br>" .. viewer.ta("main_module", main_module) .. viewer.ta("main_versions", main_versions)
-- t = t .. "<br>BEFORE sought, known, versionName, versionNumber, version, main_module : <br>"
if type(main_module) == "table" and type(main_versions) == "table" then -- Verify main module and versions management ability.
sought = main_versions.sought
known = main_versions.known
versionName = main_versions.versionName
versionNumber = main_versions.versionNumber
-- t = t .. viewer.ta("main_module", main_module) .. viewer.ta("main_versions", main_versions)
-- t = t .. viewer.ta("sought", sought) .. viewer.ta("known", known)
-- t = t .. viewer.ta("versionName", versionName) .. viewer.ta("versionNumber", versionNumber)
end
t = t .. "<br>AFTER sought, known, versionName, versionNumber, version, main_module : "
versioning.bind_modules_start = t
if type(main_versions.sought) == "string" and type(main_versions.known) == "string" then
known = main_versions.known
sought = main_versions.sought
end
t = t .. "\n*bind_sub_modules() starts: "
local sought_t = string.gsub(main_versions.sought or sought or "", " ", ";") -- ";" .. .. ";"
local sought_tab = mw.text.split(sought_t, " ", true)
local sought_maxn = table.maxn(sought_tab)
--
local known_tab = mw.text.split(main_versions.known or known or "", "*", true)
local known_maxn = table.maxn(known_tab) -- local known_maxn = #known_tab
local used = ";"
local t = ""
t = t .. "\n* list versioningsought.bind_sub_modules : "
-- .. viewer.ta("main_versions.versionName", main_versions.versionName)
-- .. viewer.ta("main_versions.", main_versions.sought) .. viewer.ta("sought_maxn", sought_maxn)
-- .. "<br>" .. viewer.ta("main_versions.known", main_versions.known) .. viewer.ta("known_max", known_max)
local alternatives, kind
for i = known_maxn, 1, -1 do -- alternatives = known_tab[i]
alternatives = known_tab[i]
alternatives = ";" .. mw.text.trim(alternatives) .. ";" -- normalize versions between ";"
-- alternatives = viewer.simpleList(alternatives)
local altern_tab = mw.text.split(alternatives, ";", true)
local elem, module, normal, alias, name_I18N
normal = "" ; version = ""
altern = tostring(altern)
altern = mw.text.trim(altern)
for v, altern in ipairs(altern_tab) do
-- versioning.actual_modules = versioning.actual_modules .. ";" .. altern
if v == 1 and string.find(";" .. sought .. ";", ";" .. altern .. ";", 1, true) then
-- if v == 1 and viewer.is_in_sp(altern, sought, ";") then
normal = altern
kind = "normal"
end
if v > 1 and string.find(";" .. sought .. ";", ";" .. altern .. ";", 1, true) then
-- if v > 1 and viewer.is_in_sp(altern, sought, ";") then
version = altern
kind = "version"
end
local name_mod, name_I18N, tt, lang_N, text_N, get_i18n, getI18N
if vers_test then -- In versions management test
if string.find(";" .. vers_test.loaded_list .. ";", ";" .. altern .. ";", 1, true) then
-- if viewer.is_in_sp(altern, vers_test.loaded_list, ";") then
used = (used or "- ") .. altern .. "; "
end
name_I18N = altern .. "/I18N"
-- Get a module or a library, then form and record a descriptor of it.
local get, module = versioning.get_one_module_or_library(name_I18N)
-- versioning.actual_modules = versioning.actual_modules .. ";" .. get.title
if (type(get.module) == "table") and (type(get.moduleName) == "string") then -- Verify main module and versions management ability.
end
-- bd : bind_sub_modules from main to sub, then compute all subI18N, then in reverse order addi18n from subI18N.i18n as .sub_i18n
-- bd : versioning.init, bind_libraries_modules_translations, bind_central_libraries, bind_sub_modules, bind_i18n_translations,
-- bd : get_one_module_or_library, bind_central_modules_report
else -- In normal run
-- addi18n from the module itself
if (type(getI18N) == "table") and (type(getI18N.moduleName) == "string") then -- Verify main module and versions management ability.
-- t = t .. "\n*" .. tostring(tb) .. viewer.ta("I18N", getI18N.moduleName) -- .. viewer.ta("name_I18N", name_I18N)
-- versioning.actual_modules = versioning.actual_modules .. ";" .. getI18N.title
end
end
if vers_test then -- In versions management test
if viewer.is_in_sp(name_I18N, vers_test.loaded_list, ";") then
used = (used or "- ") .. name_I18N .. "; "
end
else -- wait later versioning.bind_i18n_translations() to get I18N
end
end -- for v, altern in ipairs(altern_tab) do
end -- for i = known_maxn, 1, -1 do -- alternatives = known_tab[i]
local word, errs = "", ""
if type(vers_test) == "table" then -- In tests run
-- Versions management errors from overall look on modules
local alloncesort = viewer.simpleList(vers_test.sought .. ";" .. vers_test.known .. ";" .. vers_test.used)
local alloncetab = mw.text.split(alloncesort, ',') -- table of words
for i, name in ipairs(alloncetab) do -- list all used names, only one each, in alphabetic order
if viewer.is_in_sp(name, vers_test.sought, ";") and not viewer.is_in_sp(name, vers_test.known, ";") then
errs = errs .. ";" .. events.add_err("versioning_missing_versions_err", name, vers_test.versionName ) -- new
-- versioning_missing_versions_err = "The module <b>%1</b> misses in the main module <b>%2</b>.",
end
if viewer.is_in_sp(name, vers_test.used, ";") and not viewer.is_in_sp(name, vers_test.sought, ";") then
vers_test.replaced = (vers_test.replaced or "") .. name .. ";" -- sought but not found
errs = errs .. ";" .. events.add_err("versioning_replaced_versions_err", name, vers_test.versionName ) -- new
-- versioning_replaced_versions_err = "The module <b>%1</b> replaces the missing module in the main module <b>%2</b>.",
-- versioning_select_unknown_module_err = "Internal error: The missing Module:<b>%1</b> is replaced by the normal Module:<b>%2</b>.", -- versionsmanagement
end
if viewer.is_in_sp(name, vers_test.alloncesort, ";") and not viewer.is_in_sp(name, vers_test.known, ";") then
vers_test.unknown = (vers_test.replaced or "") .. name .. ";" -- sought but not found
errs = errs .. ";" .. events.add_err("versioning_unknownversions_err", name, vers_test.versionName ) -- new
-- versioning_unknownversions_err = "The module <b>%1</b> is unknown in the main module <b>%2</b>.",
end
end -- for v, altern in ipairs(altern_tab) do
end
main_versions.used = used
if not (type(vers_test) == "table") then -- In normal run
versioning.main_module = main_module -- In normal cases and not in tests cases
versioning.main_versions = mw.clone(main_versions) -- In normal cases and not in tests cases
end
--
t = t .. "\n* versioning.bind_sub_modules END : "
-- .. viewer.ta("main_versions.used", main_versions.used) .. viewer.ta("#loaded_pack", #versioning.loaded_modules_and_libraries)
versioning.bind_modules_start = t
versioning.required_descriptors = loaded_pack
versioning.bind_i18n_report = (versioning.bind_i18n_report or ".") .. (t or ".")
return t, main_versions -- loaded_pack, versioning.track_i18n_vers
end -- function versioning.bind_sub_modules(main_p, vers_test) -- Bind all modules and sub-modules versions, without their translations
-- local tt, vers_test = versioning.bind_sub_modules(p, vers_test) -- The main module can bind all its sub-modules versions, and their /I18N sub-modules.
function versioning.bind_i18n_translations(main_versions, loaded_pack) -- Bind all i18n translations from modules and their /I18N translations sub-modules
local main_versions = main_versions or versioning.main_versions
local t = "\n* <b>versioning.bind_i18n_translations()<b>"
--
-- Todo: Bind i18n in reverse order of versioning.bind_sub_modules()
-- bd : bind_sub_modules from main to sub, then compute all subI18N, then in reverse order addi18n from subI18N.i18n as .sub_i18n
--
if (type(versioning.main_module) == "table") and (type(versioning.main_module.i18n) == "table") then
-- Insert main i18n after any other i18n, then the main module could adapt sub_modules translations.
-- table.insert(versioning.loaded_modules_and_libraries, versioning.main_module)
end
--
for i, get in pairs(versioning.loaded_modules_and_libraries) do
if (type(get.title) == "string") and (type(get.i18n) == "table") then
versioning.add_one_i18n("", get.title, get.i18n) -- Add with previews an i18n translations table
t = t .. "\n*" .. viewer.ta("title", get.title)
t = t .. viewer.ta("#i18n", #get.i18n)
end
-- Bind i18n sub-modules, for each its internal i18n then its /I18N sub-module.
if (type(get.subI18N) == "string") and (type(get.module) == "table") then
versioning.add_one_i18n("", get.subI18N, get.module) -- Add with previews an i18n translations table
t = t .. viewer.ta("#i18n", #get.i18n)
end
end
-- local flag_of_country = viewer.form9user("flag_of_country") -- "fails to debug on 20170424 Rical". (This work fine for many other cases.) bind main_module.i18n
--[[ if get.isI18N then
t = t .. "\n*" .. viewer.ta("get.title", get.title) -- .. viewer.ta("library", get.module)
t = t .. viewer.ta("get.versionName", get.versionName) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.isLibrary", get.isLibrary) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.i18n", get.i18n) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.viewI18N", get.viewI18N) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
--]]
return t
end -- t = versioning.bind_i18n_translations(main_versions, loaded_pack)
function versioning.bind_libraries_modules_translations(main_p, vers_test) -- Bind central libraries, modules, and their i18n translations
local librariesList = versioning.librariesList
-- Actual binding process
-- Normalize recursiveLevel for any further process.
local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, modes.recursiveLimit)
versioning.main_i18n = versioning.main_i18n or {}
-- bd : bind_sub_modules from main to sub, then compute all subI18N, then in reverse order addi18n from subI18N.i18n as .sub_i18n
-- bd : versioning.init, bind_libraries_modules_translations, bind_central_libraries, bind_sub_modules, bind_i18n_translations,
-- bd : get_one_module_or_library, bind_central_modules_report
versioning.bind_central_libraries(librariesList, opt) -- Bind translatable libraries before bind modules and versions.
if type(translate) == "table" then translate.main_i18n = versioning.main_i18n end -- Same pointers insure later same contents.
versioning.bind_sub_modules(main_p, vers_test) -- -- Bind all modules and sub-modules versions, without their translations
-- Bind all i18n translations from libraries, modules and their /I18N translations sub-modules
versioning.bind_i18n_translations(main_p, package.loaded, opt) -- Bind all modules i18n translations.
local t = "\n* <b>versioning.bind_libraries_modules_translations()</b>"
for i, get in pairs(versioning.loaded_modules_and_libraries) do
-- if (type(get.subI18N) == "string") and viewer.is_in(get.subI18N, "/I18N") then
local get, module = versioning.get_one_module_or_library(get.subI18N)
local NAME = get.NAME
local object = get.module
get.is_binded_in = "xx"
-- if (type(package.loaded[NAME]) == object) then _G[NAME] = nil end
if (type(_G[NAME]) == object) then options.is_binded_in = "_G" end
if (type(package.loaded[NAME]) == object) then options.is_binded_in = "LD" end
--[ [ if get.isI18N then
t = t .. "\n*" .. viewer.ta("get.title", get.title) -- .. viewer.ta("library", get.module)
t = t .. viewer.ta("get.versionName", get.versionName) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.isLibrary", get.isLibrary) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.i18n", get.i18n) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.viewI18N", get.viewI18N) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
t = t .. viewer.ta("get.is_binded_in", get.is_binded_in) -- .. viewer.ta("name", get.libraryName) -- .. viewer.ta("name_I18N", name_I18N)
--] ]
-- end
end
--[[ if get.isI18N then
local NAME = options.NAME
options.is_binded_in = "xx"
if (type(package.loaded[NAME]) == object) then _G[NAME] = nil end
if (type(_G[NAME]) == object) then options.is_binded_in = "_G" end
if (type(package.loaded[NAME]) == object) then options.is_binded_in = "LD" end
--]]
-- bd : bind_sub_modules from main to sub, then compute all subI18N, then in reverse order addi18n from subI18N.i18n as .sub_i18n
-- bd : versioning.init, bind_libraries_modules_translations, bind_central_libraries, bind_sub_modules, bind_i18n_translations,
-- bd : get_one_module_or_library, bind_central_modules_report
local main_versions
if type(versioning.main_module) == "table" and type(versioning.main_versions) == "table" then
main_versions = versioning.main_versions or { versionName = "versionName", versionNumber = "0.0", }
versioning.report_main_short = main_versions.versionName .. " " .. main_versions.versionNumber
versioning.report_main_discreet = viewer.discreetColor( versioning.report_main_short )
versioning.report_REVISIONTIMESTAMP = mw.getCurrentFrame():preprocess( "{{REVISIONTIMESTAMP}}" )
versioning.report_actual_versions = (versioning.report_main_discreet or "versioning.report_main_discreet") -- .. versioning.report_REVISIONTIMESTAMP .. " "
else
versioning.report_main_short = "versioning.report_main_short is missing."
versioning.report_main_discreet = "versioning.report_main_discreet is missing."
versioning.report_REVISIONTIMESTAMP = "versioning.report_REVISIONTIMESTAMP is missing."
versioning.report_actual_versions = "versioning.report_actual_versions is missing."
end
-- bind_is_in
if type(translate) == "table" then translate.main_i18n = versioning.main_i18n end -- Same pointers insure later same contents.
-- initialize or change the wiki, the user and the page languages and their tables
translate.init_wiki_user_page_lang(wiki_lang, user_lang, page_lang)
return t, librariesList
end -- t, librariesList = function versioning.bind_libraries_modules_translations(main_p, vers_test)
function versioning.add_module_in_loaded_pack(tab, name, elem)
-- Add an element to a table, with an index to permit later to sort the table in the insert order
if not (type(tab) == "table") then
tab = {}
end
if (type(tab) == "table") and (type(name) == "string") and (type(elem) == "table") then
tab[name] = elem
elem.elem_index_order = #tab -- order of insert
end
return tab
end -- function versioning.add_module_in_loaded_pack(tab, name, elem)
-- for loaded_descriptors and other
function versioning.sort_table_in_insert_order(tab)
-- Sort a table in the insert order of its elements, previously adapted
if not (type(tab) == "table") then
tab = {}
end
local tab_to_sort = mw.clone(tab) or {}
table.sort(tab_to_sort, function (a, b) -- in recording order
return ( a.elem_index_order < b.elem_index_order )
end )
return tab_to_sort
end -- function versioning.sort_table_in_insert_order(tab)
function versioning.tab_elem_report(tab, key) -- simple text report of versions elements
local mode = mode or 1
local t = ""
if (type(tab) == "table") and (type(key) == "number") then
for i, elem in ipairs(tab) do
t = t .. "\n* " .. viewer.ta("i", i) .. viewer.ta("title", elem.title)
t = t .. viewer.ta("versionName", elem.versionName) .. viewer.ta("versionNumber", elem.versionNumber)
t = t .. viewer.ta("versionDate", elem.versionDate) .. viewer.ta("i18n_varstabs", elem.i18n_varstabs)
end
end
if (type(tab) == "table") and (type(key) == "string") then
for k, elem in pairs(tab) do
if not tonumber(key) then
t = t .. "\n* " .. viewer.ta(key, k)
t = t .. viewer.ta("versionName", elem.versionName) .. viewer.ta("versionNumber", elem.versionNumber)
t = t .. viewer.ta("versionDate", elem.versionDate) .. viewer.ta("i18n_varstabs", elem.i18n_varstabs)
end
end
end
return t
end -- function versioning.tab_elem_report(tab, key)
function versioning.version_warning_normal_list(d) -- From alternatives forms version, title, alias, warning, normal
local d = d.versions or versioning.versions or {} -- descriptor of submodule
-- example of d.alternatives = "Central,CA,Central1,Central3"
if type(d.alternates) == "string" then d.alternates = mw.text.trim(d.alternates) end
if not d.alternates then d.alternates = "" ; return d end
local altern_tab = mw.text.split(d.alternates, ";", true)
local version, alias, normal
for v, altern in ipairs(altern_tab) do
altern = mw.text.trim(altern)
if v == 1 and viewer.is_in(altern, d.selector) then normal = altern ; version = altern end
if v == 2 and viewer.is_in(altern, d.selector) then normal = altern ; version = altern end
if v > 2 and viewer.is_in(altern, d.selector) then version = altern end
end
if version then
d.version = string.gsub(version, versioning.ModuleNS, "") -- version without Module:
d.title = versioning.ModuleNS .. d.version
d.normal = normal
d.normal_I18N = versioning.ModuleNS .. normal .. "/I18N"
d.normal_I18N = string.gsub(d.normal_I18N, "/I18N/I18N", "/I18N")
d.version_I18N = versioning.ModuleNS .. version .. "/I18N"
d.version_I18N = string.gsub(d.version_I18N, "/I18N/I18N", "/I18N")
d.pagename = alias
if d.normal and not viewer.is_in(d.normal, d.norm or " ") then d.norm = (d.norm or " ") .. " " .. d.normal .. " " end
if d.version and not viewer.is_in(d.version, d.list or " ") then d.list = (d.list or " ") .. " " .. d.version .. " " end
if d.normal_I18N and package.loaded[d.normal_I18N] and not viewer.is_in(d.normal_I18N, d.list or " ") then d.list = (d.list or " ") .. " " .. d.normal_I18N .. " " end
if d.version_I18N and package.loaded[d.version_I18N] and not viewer.is_in(d.version_I18N, d.list or " ") then d.list = (d.list or " ") .. " " .. d.version_I18N .. " " end
-- d.missing = d.missing .. " " .. d.version .. " " -- managed elsewhere
-- d.excess = d.excess .. " " .. d.version .. " " -- managed elsewhere
end
return d
end -- function versioning.version_warning_normal_list(d)
-- Detect the task T122752 : #invoke seems do not record the module
local debugT122752_task_state = "triage" -- default value, at Require() time
local debugT122752_gettitle = mw.getCurrentFrame():getTitle() -- get the mainmodule title
if type(package.loaded[debugT122752_gettitle]) == "table" -- get task state at Require() time
then debugT122752_task_state = "OK" else debugT122752_task_state = "triage" end -- Detect T122752 : #invoke seems do not record the module
function versioning.invoke_record_module_debug_T122752() -- Detect T122752 : #invoke seems do not record the module
local gettitle = mw.getCurrentFrame():getTitle() -- get the mainmodule title
if debugT122752_task_state then return end
if type(package.loaded[gettitle]) == "table" then debugT122752_task_state = "OK" else debugT122752_task_state = "triage" end
end
function versioning.invoke_record_module_correct_T122752(t) -- Bypass the bug T122752 : #invoke do not record the main module in package.loaded
-- When the parser build a wiki page, it do {{#invoke:MainModule | ... "}}
-- Because the bug T122752 : #invoke do not record the main module in package.loaded
-- but the MainModule is active and require("Module:Central")
-- Then versioning.invoke_record_module_correct_T122752() verify versioning.debugT122752_status
-- before versioning.bind_sub_modules() bind all modules and versions, and their translations
local t = t or ""
local gettitle = mw.getCurrentFrame():getTitle() -- get the mainmodule title
versioning.main_gettitle = gettitle
local module
if type(package.loaded[gettitle]) == "table" then
versioning.debugT122752_status = "Resolved"
else
versioning.debugT122752_status = "getmodule" -- "Open"
module = versioning.pcallRequire(gettitle) -- require() must not fail and block the page if the module do not exists.
if module then -- Alert? by a warning in edit mode: the bug is already fixed.
versioning.debugT122752_main_module = module
versioning.debugT122752_status = "module found" -- "Open"
-- t = t .. viewer.form9user("versioning_try_waits_debug_T122752", tostring(gettitle) ) .. "#invoke T122752 replaced by pcallRequire."
t = t .. "\n* invoke_record_module_correct_T122752: repairs the main <b>" .. tostring(gettitle) .. "</b>. See: [https://phabricator.wikimedia.org/T122752 T122752 #invoke seems do not record the module] "
if type(package.loaded[gettitle]) == "table" then versioning.debugT122752_status = "get corrected Resolved" end
else
versioning.debugT122752_status = "module missing" -- "Open" -- Main error, there is no main module.
end
end
versioning.debugT122752_status = versioning.debugT122752_status or "nil status" -- "Open"
return t
end -- function versioning.invoke_record_module_correct_T122752(t) -- Bypass the bug T122752 : #invoke do not record the main module in package.loaded
function versioning.deprecatedFunction(old, new, kind) -- Deprecated function. Replace it in the module.
local res = ""
-- if type(translate.user_lang) == "string" then
res = events.add_err("versioning_add_deprecated_err", old, new, versioning.main_versions.versionName)
events.add_cat("modes_no_source_arguments_cat")
-- end
versioning.deprecatedFunctionGroup = versioning.deprecatedFunctionGroup or {}
table.insert(versioning.deprecatedFunctionGroup, {
old, new, versioning.main_versions.versionName, (kind or "actual"),
} )
return res
end
function versioning.deprecatedFunction_test(t) -- Tests of deprecated function.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or ""
t = t .. "\n* Test <b>versioning.deprecatedFunction_tests</b> :"
-- deprec
-- versioning.deprecatedFunction("tools.option", "modes.option")
local func, argmt, old, new = modes.option, "docview", "tools.option", "modes.option"
local ifyes, used, available_options = func(argmt)
t = t .. "\n\n* Test 1 : " .. viewer.ta("old", old) .. viewer.ta("new", new) .. viewer.ta("ifyes", ifyes) .. viewer.ta("available_options", available_options)
--
-- versioning.deprecatedFunction("tools.luaTabStruc", "luaTable.structure")
local func, argmt, old, new = luaTable.structure, {}, "tools.luaTabStruc", "luaTable.structure"
local test = func(argmt)
t = t .. "\n\n* Test 2 : " .. viewer.ta("old", old) .. viewer.ta("new", new) .. viewer.ta("test", test)
versioning.deprecatedFunctionGroup = versioning.deprecatedFunctionGroup or {}
-- table.insert(versioning.deprecatedFunctionGroup, {
-- old, new, versioning.main_versions.versionName, "test")
-- } )
local version = versioning.main_versions.versionName -- Save global configuration before eventual changes.
local t = t or "\n* <b>Tests of main central modules:</b> :"
local tabView = {
testGroup = { -- versioning.deprecatedFunctionGroup
{ "versioning.bind_sub_modules", "versioning.bind_main_module", version, "test" },
-- { "tools.luaTabStruc", "luaTable.structure", version, "test" },
{ "p.form_result", "modes.form_result", version, "test" },
{ "tools.option", "modes.option", version, "test" },
{ "tools.closeCatsErrs", "events.close", version, "test" },
{ "tools.initCatsErrs", "events.memorize", version, "test" },
{ "versioning.bind_sub_modules", "versioning.bind_main_module", version, "test" },
{ "tools.luaTabStruc", "luaTable.structure", version, "test" },
{ "versioning.versionsmanagement_test", "versioning.versions_management_test", version, "actual", versioning.versionsmanagement_test },
headers = "old; new; versionName; kind",
}
}
function tabView.tableView_form_one_case(case) -- Generally to define: Convert a case from testGroup to rowGroup.
--[[ Todo later: too complex.
if type(case[5]) == "function" then return pcall(case[5], ...)
--]]
return case
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
local t = "\n* Test <b>versioning.deprecatedFunction()</b> :"
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function versioning.deprecatedFunction_test(t)
function versioning.all_versions_text(all_versions) -- DEBUG
all_versions = all_versions or versioning.all_versions
if type(all_versions) == "string" then return all_versions end
-- if type(all_versions) == "string" then all_versions = { all_versions } end
if type(all_versions) == "table" then return table.concat(all_versions, " >> ")
else return "" end
end
function versioning.sort_central_modules_report(t) -- Sorted list of central modules and libraries
-- versioning_sort_central_modules_title = "versioning.sort_central_modules_report() Sorted list of central modules and libraries.",
-- versioning_sort_central_modules_headers = "Title; Version; Date; Translations / Languages",
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or "\n* <b>versioning.sort_central_modules_report()</b> -- Sorted list of central modules and libraries."
local loaded_sorted = {}
for key, elem in pairs(versioning.loaded_modules_and_libraries) do
-- if elem.isModule then elem.pagename = "Module:" .. elem.versionName end -- Locate translations example in Module:Central/I18N
-- if elem.isLibrary then elem.pagename = "Library:" .. elem.versionName end -- Locate translations example in Module:Library/versioning/I18N
if elem.hasi18n and elem.isLibrary then table.insert(loaded_sorted, elem) end
if elem.hasi18n and elem.isModule then table.insert(loaded_sorted, elem) end
if versioning.loaded_modules_and_libraries[elem.subI18N] then elem.has_I18N = true end
end
-- loaded_modules_and_libraries
local loaded_pack, loaded_txt, modu = versioning.loaded_modules_and_libraries
-- loaded_sorted = versioning.loaded_modules_and_libraries
versioning.loaded_modules_track = "\n* versioning.loaded_modules_track : " .. viewer.ta("#versioning.loaded_modules_and_libraries", #versioning.loaded_modules_and_libraries)
-- t = t .. "\n* List versioning.actual_modules : " .. versioning.actual_modules
t = t .. versioning.loaded_modules_track
table.sort(versioning.loaded_modules_and_libraries, function (a, b) return ( a.pagename < b.pagename ) end )
local tabView = { -- Adapt all options for all uses, before all other adaptations.
testGroup = versioning.loaded_modules_and_libraries,
headers = "versioning_sort_central_modules_headers",
headers_class = "wikitable alternative center sortable",
-- form_elem_detail = "this + %2/%3 T/L, ",
form_elem_detail = "versioning_sort_central_modules_counts", -- "this + %2/%3 T/L, "
}
function tabView.tableView_form_one_case(elem) -- Generally to define: Convert a case from testGroup to rowGroup.
local subI18N = ""
if elem.i18n then -- elem.i18n
local vers18 = elem.versionName --; if not elem.isI18N then vers18 = "" end
if elem.isModule then elem.pagename = "Module:" .. elem.versionName end -- Locate translations example in Module:Central/I18N
if elem.isLibrary then elem.pagename = "Library:" .. elem.versionName end -- Locate translations example in Module:Library/versioning/I18N
-- local t ... = luaTable.formSubCounts(tabname, tablebase, text_form)
-- elem.counts = luaTable.formSubCounts(elem.i18nRoot .. ".i18n", "this + %2/%3 T/L, ") -- versioning_sort_central_modules_counts
elem.counts = luaTable.formSubCounts(elem.i18nRoot .. ".i18n", tabView.form_elem_detail) -- versioning_sort_central_modules_counts
if elem.has_I18N then elem.counts = elem.counts .. "<br>+ i18n in: <b>" .. elem.viewI18N .. "</b>" end -- version_I18N
-- luaTable.formSubCounts("versioning.main_i18n", versioning.main_i18n, ", (all = %2/%3 T/L)")
if elem.versionName and elem.pagename then
-- t2 = viewer.form9user("<br>* alias <b>%1</b> = <b>%2</b>, version = <b>%3</b>, date = <b>%4</b>",
-- elem.pagename, elem.versionName, elem.shortVersion, elem.versionDate)
end
end
elem.is_binded_in = versioning.binded_in(elem.versionName, elem.module)
return { (elem.pagename or ""), (elem.viewI18N or ""), ( elem.versionDate .. "<br>" .. elem.shortVersion .. " in:" .. elem.is_binded_in ), elem.counts }
-- return { (elem.pagename or ""), (elem.versionName or ""), (elem.versionDate .. "<br>" .. elem.shortVersion), elem.counts }
end
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function versioning.sort_central_modules_report(t) -- Sorted list of central modules and libraries
function versioning.tasks_changes_report(t) -- The tests function uses mode and options to include edit or tests.
local res = t or ""
-- res = res .. "\n: Documentation of Module:Central: [[s:fr:Rical/Central modules|wikisource:Central modules]]."
-- res = res .. "\n: Development of Module:Central: [[s:fr:Module:Central|wikisource:Module:Central]]."
-- res = res .. "\n: Example of use: [[s:fr:Utilisateur:Rical/Victor_Hugo|wikisource:Rical/Victor_Hugo]]."
-- res = res .. versioning.tasks_changes_report_short
res = res .. "\n* List of blocking tasks: " .. versioning.tasks_changes_report_normal()
return res -- versioning.tasks_changes_report_normal -- versioning_tasks_changes_report
end -- function versioning.tasks_changes_report(t)
function versioning.versioning_tasks_report(t, short) -- List states of known bugs or tasks.
-- versioning.versioning_tasks_report() États des tâches connues
local t = t or "\n* <b>versioning.versioning_tasks_report()</b> List states of known bugs or tasks, to support the tasks management from inside versions."
versioning.debugT53660isEdited = mw.title.getCurrentTitle().isEdited or "Open"
-- Detect the status of the task : T68051_status.
versioning.debugT68051_status = mw.uri.new().userLanguage
if versioning.debugT68051_status then versioning.debugT68051_status = "Resolved" else versioning.debugT68051_status = "args" end
-- { 18, "Important", "T68051", 1, "Open", "Central modules need the user language to display errors and category names", "user language for errors", },
-- Detect the status of the task : T133498_status.
local mwtitle = mw.title.getCurrentTitle()
local url = tostring(mwtitle:canonicalUrl( ))
-- versioning.debugT133498_status = mw.uri.canonicalUrl() -- mw.uri.canonicalUrl
local title_object = mw.title.new(url) -- .itemid -- mw.uri.canonicalUrl
if title_object then versioning.debugT133498_status = title_object.itemid end -- mw.uri.canonicalUrl
if versioning.debugT133498_status then versioning.debugT133498_status = "Resolved" else versioning.debugT133498_status = "Open" end
-- Any title with datas in wikibase give its item.id to any module. Probably across mw.title.new().itemid
-- headers
local tabView = {
testGroup = {
-- case.sort = case[1] ; case.importance = case[2] ; case.task = case[3] ; case.state = case[4]
-- case.state = case[5] ; case.title = case[6] ; case.shortext = case[7]
-- datas: sort, importance, taskNumber, detect, state, title, shortext.
-- Importance: Important
{ 10, "Important", "20170130", "T20170130", 0, "ToCreate", "Begin to use central modules in 10 wikis", "Begin to use central", },
-- T20170130 : Not a one man task, continue until 10 helpers, 10 projects, 10 languages and 10 modules use central modules.
{ 11, "Important", "20170325", "T20170325", 0, "ToCreate", "Centralize and share central datas about central modules", "share central datas", },
-- T20170325 : Centralize datas as mediawiki versions installations in each lang-project, uses of central modules (helpers, projects, languages ...).
{ 12, "Important", "20170320", "T135845", 0, "Assigned", "Convert any module as central or centralisable", "Convert as central", },
{ 14, "Important", "20170320", "T53660", 0, "Open", "Detect the edit state for modules which help users and helpers", "edit state", },
{ 16, "Important", "20170320", "T4085", 0, "Assigned", "Add a {{USERLANGUAGE}}/{{USERLANG}} magic word", "USERLANGUAGE", },
{ 18, "Important", "20170320", "T68051", 1, "Open", "Central modules need the user language to display errors and category names", "user language for errors", },
{ 20, "Important", "20170320", "T142906", 1, "Stalled", "Data access in user language doesn't obey the uselang get parameter", "User language not OK", },
--[[ T142906 Data access in user language do not obey the uselang get parameter / Apparently
We use the former as an optimization in
Scribunto_LuaWikibaseLibrary::getLanguage and
Scribunto_LuaWikibaseEntityLibrary::getLanguage to only split the parser cache when actually needed. --]]
{ 21, "Important", "20170320", "T85461", 0, "Gerrit", "Lua error: too many language codes requested", "too many language", },
-- T85461 https://meta.wikimedia.org/wiki/Module:Assemble_multilingual_message
-- T85461 https://meta.wikimedia.org/w/index.php?title=Module:Assemble_multilingual_message&action=edit#mw-ce-l46
{ 22, "Important", "20170309", "T159322", 0, "Open", "Central categories and alerts for central modules", "Central categories/alerts", },
-- T159322 : Does the community agree to implement central categories and alerts for central modules?
-- T159322 : This enhances the efficiency of the detection and the correction of errors, in some ways:
{ 24, "Important", "20160522", "T85419", 0, "Open", "User groups should be exposed to Scribunto", "user groups", },
-- T85419: to adapt errors and warning for administrators or modules coders
{ 26, "Important", "20161026", "T142093", 0, "Open", "Decide how to do usage tracking for strings used to lookup entities (page titles, external ids, …)", "how to link entities/titles", },
{ 28, "Important", "20170211", "T20170211", 1, "ToCreate", "In mw.language.fetchLanguageNames( 'fr' ) some languages names are not in French", "French languages names", },
{ 30, "Important", "20170403", "T20161220", 0, "Assigned", "To test: Central modules need the page language to display errors categories and datas for helpers", "user language getContentLanguage()", },
-- T20161220 : ToDo: test: local getContentLanguage = mw.language.getContentLanguage().code -- default wiki_lang
{ 32, "Important", "20170320", "T147618", 0, "Open", "Localize one or more major WMF software products related to new editor retention to hu.wikipedia", "Localize new editor retention", },
{ 34, "Important", "20170121", "T122752", 1, "Open", "#invoke do not record the main module in package.loaded", "invoke# main not loaded", },
-- T122752: 20161202 18:25 See example https://fr.wikisource.org/wiki/Module:Phab.TestpackG : detect "in " "_G" or package.loaded
-- T122752: 20160102 22:46 See example https://fr.wikisource.org/wiki/Module:TestRequire
-- T122752: To locate and to debug the bug T122752 in time, Rical lists here the versions of fr.wikisource.org/wiki/Module:ControlArgs1
-- T122752: Oldest research of "Replace the missing of record of the module by" : ModuleControlArgs 6 tools...lua 2016-01-16
-- T122752: (actu | diff) 2015-11-25T11:43:11 Rical (discussion | contributions | bloquer) . . (261 314 octets) (-3 519) . . (The versions management seems OK) (annuler)
-- T122752: (actu | diff) 2015-11-28T09:55:37 Rical (discussion | contributions | bloquer) . . (267 472 octets) (+5 809) . . (find_main_module)
-- T122752: (actu | diff) 2015-12-01T14:18:22 Rical (discussion | contributions | bloquer) . . (268 956 octets) (+1 614) . . (find_main_module OK ?)
-- T122752: (actu | diff) 2016-01-18T02:09:45 Rical (discussion | contributions | bloquer) . . (319 599 octets) (+10 183) . . (translate library.i18n first)
-- T122752: 2016-01-02 phabricator: T122752 Rical created this task. Sat, Jan 2, 2016-01-02 23:08
{ 36, "Important", "20170323", "T85461", 0, "Open", "Lua error: too many language codes requested", "many language codes", },
--
-- Importance: Central
{ 40, "Central", "20170301", "T121470", 0, "Open", "Central Global Repository for Templates, Lua modules, and Gadgets", "central repository", },
{ 42, "Central", "20170121", "T52329", 0, "Stalled", "We need a common repository for Scribunto modules and templates", "common repository", },
{ 44, "Central", "20160523", "T41610", 0, "Open", "Scribunto should support global module invocations", "global invocations", },
{ 46, "Central", "20170301", "T20170301", 0, "ToCreate", "Phabricator tasks states for easier versions management of modules", "Phab tasks states", },
-- datas to get for each query: Task number, title, state, priority, Authored By and date, Last event date, number of subscribers, Assigned.
{ 48, "Central", "20170225", "T20170225", 0, "ToCreate", "? Report Mediawiki changes for the versions management, and use {{subst:}}", "Mediawiki changes", },
-- T20170225: The gerrit team needs the date of a bug and the dates of mw install in each wiki to debug mw.
-- T20170225: We could detect, record and report all date-time changes of mediawiki, for some weeks.
-- T20170225: We could use {{subst:}} in 2 ways. See https://www.mediawiki.org/wiki/Manual:Substitution
-- T20170225: duplicate of T121470: Central Global Repository for Templates, Lua modules, and Gadgets.
{ 50, "Central", "20170314", "T1238", 0, "Close", "Central Code Repository for code used on wikis (Templates, Lua modules, Gadgets)", "Code Repository", },
--
-- Importance: Other
{ 66, "Other", "20170526", "T104109", 0, "Close", "No syntax highlight for large JavaScript/CSS/Lua/API pages", "loadTemplateData", },
--[[ T104109: Have you the same bug?
Where could this effect coming from?
- My user:vector.css or common.css? But I have them only in fr.wikisource.org and not in vi.wikipedia.org
- A step to prepare T121470 Central Global Repository?
- A step to prepare T156048 syntax highlighting?
- A change in my Module:Central itself, which forms many viewers, always inside <div>...</div> ? But I edit with the edit-panel first, up in the page, and the result of the module below, later. Also these "div" tags are, in the page, in other tags which protect them to interfere.
- A mix of these origins?
Small or large modules edit panels lost their syntax highlighting and line numbers.
Tech News: 2017-15 : replacement of HTML_Tidy, Extension:ParserMigration, see https://meta.wikimedia.org/wiki/Tech/News/2017/15
T104109 --]]
{ 68, "Other", "20170407", "T20170407", 0, "ToCreate?", "When edit, the modification of Module:Central-s-fr do not display lines numbers", "Edit module misses lines numbers", },
{ 70, "Other", "20170308", "T63958", 0, "Open", "Use existing $dateFormats to format dates on Wikidata", "Use $dateFormats on Wikidata", },
{ 72, "Other", "20160520", "T85412", 0, "Open", "The formatPropertyValues needs an option to format data from date-time, angle or geographic coordinates", "format date-time", },
{ 74, "Other", "20170228", "T156048", 0, "Open", "Add syntax highlighting to wiki diff of source code pages (like Gerrit)", "syntax highlighting", },
{ 76, "Other", "20170313", "T107119", 0, "Open", "Provide a Lua method mw.loadTemplateData()", "loadTemplateData", },
{ 78, "Other", "20170213", "T20170213", 0, "ToCreate", "Some languages have not French names in French language", "languages in stranger names", },
{ 80, "Other", "20151215", "T20151215", 0, "ToCreate", "In some cases the box of the dropbox is not displayed", "dropbox not displayed", },
-- T20151215: .. "\n------ " -- This code interact with DropBox and debug the task T20151215 2016-11-13 17:57.
-- T20151215: if there is "\n------ " before editDocBox and then the editDocBox "div" is only a bar of 1 em hight, and its content is after the "div". Rical 2016-10-24 08:15.
-- T20151215: Original code from fr.wikisource : "{{Boîte déroulante/début|titre=" .. title .. "|alignT=" .. alignT .. "}}" .. content .. "{{Boîte déroulante/fin}}"
{ 82, "Other", "20160616", "T20160616", 0, "ToCreate", "? Add module and library types in scribunto ?", "module and library types?", },
-- T20160616: get.isLibrary = ( true ) -- true if the object is a library
--
-- Importance: Obsolete: Do not create, these functions come from mw... library.
{ 90, "Obsolete", "20161022", "T20161022", 0, "ToCreate", "? Scribunto functions are out of package.loaded", "Lua functions out of package.loaded", },
-- T20161022: -- Found in Lua_reference_manual but not in Module:Central-s-fr :
-- T20161022: -- 2016-10-22 15:45 : versioning.list_all_G_and_loaded() : Variables in _G global space without libraries and modules in packageloaded. , xpcall = function , tostring = function , _VERSION = Lua 5.1 , unpack = function , require = function , pairs = function , next = function , assert = function , ipairs = function , rawequal = function , getmetatable = function , rawset = function , pcall = function , type = function , selector = function , rawget = function , tonumber = function , error = function , setmetatable = function
{ 91, "Obsolete", "20170324", "T133498", 1, "Declined", "Detect and extend known title <-> entity links in a semi-automatic way", "semi-automatic wikidata itemid", },
{ 92, "Obsolete", "20161128", "T151715", 0, "Invalid", 'string.gsub( s, "%%1", repl) fails as "invalid capture index"', 'string.gsub(s,"%%1",r) fails', },
{ 93, "Obsolete", "20170110", "T154769", 0, "Invalid", 'When "Erreur Lua : attempt to call a string value", where?', "Error Lua call a string where?", },
-- T154769: Rical 2017-01-08 My main mistake was to write xpcall() where pcall() is right.
-- T154769: Tests are there https://fr.wikisource.org/wiki/Module:Phab.T154769.Test
-- T154769: versioning.antiCrash() preserve pages against residual errors which can crash pages.
{ 94, "Obsolete", "20170202", "T155898", 0, "Invalid", "Preview change from external local editors", "Change from local", },
-- T155898: OK, I will continue to search in JEdit plugins. Perhaps I will ask them an adapted solution.
{ 95, "Obsolete", "20160424", "T67507", 0, "Resolved", "It should be possible to get entity id from page title", "entity id from title", },
{ 96, "Obsolete", "20160524", "T119978", 0, "Invalid", "Get name and record-time of all modules to better manage their versions", "own module name", },
{ 98, "Obsolete", "20160813", "T75460", 0, "Resolved", "[Story] Make Lua functions default to the user's language on multilingual wikis", "multilingual wikis", },
{ 99, "Obsolete", "20160524", "T119978", 0, "Invalid", "Get name and record-time of all modules to better manage their versions", "own module name", },
},
title_memo = "versioning_tasks_report_title", -- "versioning.versioning_tasks_report() States of known tasks",
headers = "versioning_tasks_report_headers", -- "Importance; Task; State; Title; In short",
}
tabView.headers = "versioning_tasks_report_headers"
-- tabView.headers = "Importance; Task; State; Title; In short"
-- tabView.headers = "Importancia; Tarea; Estado; Título; En breve"
-- tabView.headers = "Importance; Tâche; Etat; Titre; En bref"
function tabView.tableView_form_one_case(case) -- Generally to define: Convert a case from testGroup to rowGroup.
case.sort = case[1] ; case.importance = case[2] ; case.date = case[3] ; case.task = case[4] ; case.detect = case[5]
case.state = case[6] ; case.title = case[7] ; case.shortext = case[8]
case.task = "[[phab:" .. case.task .. "|" .. case.task .. "]]"
local usual = "discreet"
if viewer.is_in(case.state, "ToCreate, Declined, Invalid, ") then usual = "discreet"
elseif viewer.is_in(case.state, "Open, Stalled, Assigned, Gerrit") then usual = "add"
elseif viewer.is_in(case.state, "Resolved") then usual = "discreet"
else usual = "discreet" end -- All states : ToCreate, Open, Stalled, Assigned, Resolved, Declined, Invalid, Gerrit
case.title = viewer.usualColor(case.title, usual)
if case.detect == 1 then case.title = case.title .. " - ( detected state )" end
-- headers = "Importance; Task; State; Title; In short"
local importance = case.importance .. viewer.discreetColor(" on " .. case.date)
return { importance , case.task, case.state, case.title, case.shortext }
end -- function viewer.errorColor(
-- See viewer.usual_colors :
-- { ["add"] = "blue", ["delete"] = "#C0C000" = yellow, ["discreet"] = "#B0B0B0" = light grey, ["error"] = "red",
-- ["invoke"] = "#804020" = brown, ["normal"] = "black", ["warning"] = "#804020" = brown, ["wikidata"] = "green", }
t = t .. "<br>Used colors: "
.. viewer.ta("ToCreate, Stalled, Declined, Invalid", viewer.usualColor("task to create or activate", "discreet") )
.. viewer.ta("Resolved", viewer.usualColor("task already Resolved", "discreet") )
.. viewer.ta("Open, Stalled, Assigned, Gerrit", viewer.usualColor("task in way to Resolved", "add") )
.. viewer.ta("Other", viewer.usualColor("other tasks", "discreet") )
--
local tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function versioning.versioning_tasks_report(t, short)
-- function versioning.init(frame, mode_name, args_known, options_for_modes, itemid)
function versioning.init(frame, Central_version)
-- Initializes translations, bind_libraries, bind_sub_modules, get arguments, modes, options.
-- Imports arguments from wikidata, module and template with increasing priorities.
local res, t = "", ""
translate.track_i18n("versioning.init:frame")
versioning.main_i18n_complete = false -- Mask any views to avoid failures until enough init.
-- translate.Central_x_y = p.Central_x_y -- To adapt the version of Module:Central in any translated text.
Central_version = Central_version or translate.Module_Central_version -- or p.Module_Central_version
versioning.bind_libraries_modules_translations() -- Bind central libraries, modules, and their i18n translations
translate.track_i18n("versioning.init:bind_modules_method")
versioning.main_i18n_complete = true -- Unmask all views after enough init.
res = res .. versioning.detect_mediawiki_changes()
translate.track_i18n("versioning.init:detect_mediawiki_changes")
return res
end -- function versioning.init(frame, Central_version)
function versioning.versionsmanagement_test(t) -- Deprecated alias function
versioning.deprecatedFunction("versioning.versionsmanagement_test", "versioning.versions_management_test", t)
return versioning.versions_management_test(t)
end
function versioning.versions_management_test(t) -- Test : List all loaded modules versioning_bind_modules_tests_title
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = (t or "") .. "\n* <b>versioning.versions_management_test</b> : The selector = <b> Box3, Group, Item1 </b> means: check these modules versions among those available."
t = t .. "<br>" .. luaTable.formSubCounts("versioning.i18n")
local loaded_tests = { -- loaded_tests
-- Cases to look for the main module
{ key = "Box", versionName = "Box", versionDate = "2015-12-02 02:02",
request = "normal modules", comment = 'normal module for Box, with alias like : <code>local Box = require("Box")</code>',
i18n = { en = { a = "a" } }, sought = "Box", known = "Box", loaded_list = ";Box;", },
--
{ key = "Box/I18N", versionName = "Box", versionDate = "2016-05-07 18:36",
request = "normal with /I18N", comment = "I18N translations for Box",
i18n = { en = { a = "a" } }, sought = "Box", known = "Box", loaded_list = ";Box;Box/I18N;", },
--
{ key = "Box3", versionName = "Box2", versionDate = "2016-05-07 11:11",
request = "normal replace known alternate", comment = "alternate version module for Box",
i18n = { en = { a = "a" } }, sought = "Box2", known = "Box;Box2", loaded_list = ";Box;Box/I18N;Box2;Box2/I18N;", },
--
{ key = "Box2/I18N", versionName = "Box2", versionDate = "2016-05-07 19:19",
request = "missing actual module", comment = "I18N translations without basic module. Form an alert.",
i18n = { en = { a = "a" } }, sought = "Box", known = "Box2;Box3", loaded_list = ";Box3;Box3/I18N;Box2;Box2/I18N;", },
-- Cases to look for sub-modules
--
{ key = "Group", versionName = "Box", I18N = "Group/I18N",
request = "normal sub-module", comment = "normal module for Group",
i18n = { en = { a = "a" } }, sought = "Group", known = "Group", loaded_list = ";Group;Group/I18N;", },
--
{ key = "Group4", versionName = "Box", versionDate = "2015-12-11 11:11",
request = "unknown sought version", comment = "Mask this to test missing sought version",
i18n = { en = { a = "a" } }, sought = "Box;Group", known = "Box", loaded_list = ";Box;", },
--
{ key = "Group/I18N", versionName = "Box", versionDate = "2016-05-07 22:2",
request = "sub-module not exists", comment = "I18N translations for the normal module Group",
i18n = { en = { a = "a" } }, sought = "Box;Group", known = "Box * Group", loaded_list = ";Box;", },
--
-- Cases to look for /I18N sub-modules
{ key = "Group2", versionName = "Box3", versionDate = "2015-12-22 22:2", versionDate = "2016-05-07 05:05",
request = "normal sub-module with normal /18N", comment = "normal alternate sub-module Group for Group2",
i18n = { en = { a = "a" } }, sought = "Box;Group2", known = "Box;Box2 * Group;Group2", loaded_list = ";Group;Group/I18N;Group2;Group2/I18N;Box;Box/I18N;Box2;Box2/I18N;", },
--
{ key = "Group2", versionName = "Box3", versionDate = "2015-12-22 22:2", versionDate = "2016-05-07 05:05",
request = "unknown module for /18N sub-module", comment = "normal alternate sub-module Group for Group2",
i18n = { en = { a = "a" } }, sought = "Box;Group2", known = "Box;Box2 * Group;Group2", loaded_list = ";Group;Group/I18N;Group2;Group2/I18N;Box;Box/I18N;Box2;Box2/I18N;", },
--
{ key = "Group2", versionName = "Box3", versionDate = "2015-12-22 22:2", versionDate = "2016-05-07 05:05",
request = "missing module Box for /18N sub-module", comment = "normal alternate sub-module Group for Group2",
i18n = { en = { a = "a" } }, sought = "Box;Group2", known = "Box;Box2 * Group;Group2", loaded_list = ";Group;Group/I18N;Group2;Group2/I18N;Box/I18N;Box2;Box2/I18N;", },
--
{ key = "Jocker", versionName = "Jocker", versionDate = "2015-12-21 11:33",
request = "not central module, without i18n", comment = "Any module can have no i18n table.",
sought = "Box", known = "Box", loaded_list = ";Box;", }, -- i18n = { en = { a = "a" } },
--
{ key = "Jocker", versionName = "Jocker", versionDate = "2015-12-21 11:33",
request = "unknown and not sought actual module", comment = "Any module can be outside of the central system.",
i18n = { en = { a = "a" } }, sought = "Jocker.2", known = "Jocker.2", loaded_list = ";Box;", },
}
local function bind_modules_test1(t, vers_test)
local tt, vers = vers_test -- versioning.bind_sub_modules(main_p, vers_test) -- Bind all modules and versions
local x, vers_err = versioning.versions_management_report(vers) -- Detect versions management errors and warnings after bind_sub_modules
vers.sought = viewer.simpleList(vers.sought)
-- local vers_sought = viewer.simpleList(vers.used)
local vers_sought = ";" .. string.gsub( (vers.sought or "-s-"), ";", ",<br>" ) .. ";" -- names in column
local vers_used = viewer.simpleList(vers.used)
vers_used = ";" ..string.gsub( (vers_used or "-u-"), ";", ",<br>" ) .. ";" -- names in column
local vers_known = ";" .. string.gsub( (vers.known or ""), ";", "; " ) .. ";" -- add spaces
local vers_loaded_list = ";" .. (vers.versionName or "versionName") .. ";"
.. (vers.sought or "sought") .. ";" .. (vers.known or "known") .. ";"
vers_loaded_list = vers.loaded_list or vers_loaded_list or "empty loaded list"
vers_loaded_list = viewer.simpleList(vers_loaded_list)
vers_loaded_list = ";" .. string.gsub(vers_loaded_list, ";", "; " ) .. ";" -- add spaces
local vers_results = "<b>" .. (vers.request or "vers.request") .. "</b>"
.. "<br>sought: " .. (vers.sought or "") .. " in the main module: <b>" .. vers.versionName .. "</b>"
.. "<br>" .. (vers_err or "")
.. "<br>known: " .. (vers_known or "")
.. "<br>loaded list: " .. vers_loaded_list
.. "<br>comment: " .. (vers.comment or "")
t = (t or "") .. viewer.Tr() .. viewer.Td(vers_sought) .. viewer.Td(vers_used) .. viewer.Td(vers_results)
return t -- viewer.Td(vers.used) ..
end
t = t .. "\n* <b>loaded_vers</b> : Table of all loaded modules, or simulation."
t = t .. "\n* Simulate existing versions: "
-- local loaded_versions = "Group;Group/I18N;Group2;Box;Box/I18N;Box2/I18N;Box3;Item;Item1/I18N;Jocker" -- example
local loaded_versions = ";"
local loaded_vers = {}
local head = mw.text.split( viewer.form9user("versioning_bind_modules_test_headers") , ';') -- versioning_bind_modules_tests_title
t = t .. viewer.Th() .. viewer.Tc(head[1]) .. viewer.Tc(head[2]) .. viewer.Tc(head[4])
t = bind_modules_test1( t, nil )
t = t .. viewer.Tr() .. viewer.Tc(head[1]) .. viewer.Tc(head[2]) .. viewer.Tc(head[5])
local i = 0
for i, tst in ipairs(loaded_tests) do -- build a simili loaded_vers, from loaded_tests, for only versions management
local vers_test = mw.clone(tst) -- vers_test is an empty module, only for version management.
vers_test.comment = tst.comment -- .. "<br>known : " .. tst.known
-- vers_test.loaded_list = "Box,Box/I18N;Box2/I18N;Box3;Group;Group/I18N;Group2;Item;Item1/I18N;Jocker"
local loaded_list = ";" .. vers_test.key .. ";" .. (vers_test.versionName or "versionName") .. ";"
.. (vers_test.sought or "sought") .. ";" .. (vers_test.known or "known") .. ";"
vers_test.loaded_list = tst.loaded_list or viewer.simpleList(vers_test.loaded_list)
-- vers_test.i18n = { en = { txt = "txt" } } --
if viewer.is_in("/I18N", vers_test.key) then vers_test.isI18N = true end
loaded_vers[i] = vers_test
t = bind_modules_test1( t, vers_test)
-- t = t .. "<b>" .. vers_test.key .. "</b>, "
end
t = t .. viewer.Tr() .. viewer.Tc(head[1]) .. viewer.Tc(head[2]) .. viewer.Tc(head[5])
t = t .. viewer.Te()
local t2 = ""
local head = mw.text.split( viewer.form9user("versioning_sort_central_modules_headers") , ';')
t2 = t2 .. "\n* The table below simulates loaded modules for behind tests cases."
t2 = t2 .. viewer.Th() .. viewer.Tc(head[1]) .. viewer.Tc(head[2]) .. viewer.Tc(head[3]) .. viewer.Tc(head[4]) .. viewer.Tc(head[5])
for key, elem in pairs(loaded_tests) do
t2 = t2 .. viewer.Tr() .. viewer.Td(elem.key) .. viewer.Td(elem.versionName) .. viewer.Td(elem.versionDate) .. viewer.Td( type(elem.i18n) ) .. viewer.Td(elem.comment)
end
t2 = t2 .. viewer.Te()
t2 = t2 .. "\n* " .. viewer.ta("Number of versions simulated:", #loaded_tests)
t = t .. (t2 or " ")
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function versioning.versions_management_test(t)
function versioning.antiCrash_wanted_error() -- Bug to test versioning.antiCrash()
versioning.antiCrash_wanted_error_text = "antiCrash_bug_text_before_BUG"
local x = wanted.error.runtime -- Produces a wanted.runtime.error because these sub-tables do not exist.
-- local x = "wanted.error.runtime" -- Produces a normal string.
versioning.antiCrash_wanted_error_text = "antiCrash_bug_text_after_OK"
return versioning.antiCrash_wanted_error_text
end -- function versioning.antiCrash_wanted_error() -- Bug to test versioning.antiCrash()
function versioning.antiLoop(funcname, n, func, ...) -- Limit the n-th reentrant call of any function.
if true then return end
-- Enhancement: search the shortest loop?
local memo = events.save_configs() -- Save global configuration before eventual changes.
if type(funcname) ~= "string" then funcname = "funcname" end
if type(n) ~= "number" then n = 3 end
if type(func) ~= "function" then n = 0 end
versioning.antiLoop_memo = versioning.antiLoop_memo or {}
versioning.antiLoop_memo[funcname .. "_" .. n] = {funcname, n, func, ...}
versioning.antiLoop_list_t = versioning.antiLoop_list_t or ""
versioning.antiLoop_list_t = versioning.antiLoop_list_t
-- versioning_antiLoop_function_err = "versioning.antiLoop() error in the <b>%3</b> <b>%1()</b>, loop n = <b>%2</b>, args = ",
.. "\n* antiLoop: " .. viewer.form9user("versioning_antiLoop_function_err", tostring(funcname .. "_" .. n), n, viewer.value(func), ... )
.. translate.formTestCase(tostring(funcname .. "_" .. n), n, viewer.value(func), ... )
-- versioning.antiLoop_list_t = versioning.antiLoop_list_t .. "\n* antiLoop: " .. translate.formTestCase(tostring(funcname .. "_" .. n), n, viewer.value(func), ... )
events.add_cat("modes_no_source_arguments_cat")
n = n - 1
events.restore_configs(memo) -- Restore global configurations after eventual changes.
if n < 1 then return end
return versioning.antiLoop(funcname, n, func, ...) -- Loop only in limited n times.
end -- function versioning.antiLoop(funcname, n, func, ...)
function versioning.antiLoop_list(t) -- List versioning.antiLoop().
local t = t or ""
t = t .. "\n* List <b>versioning.antiLoop()</b> :"
if (type(versioning.antiLoop_list_t) == "string") then
t = t .. versioning.antiLoop_list_t
end
t = t .. "<br/>"
return t
end -- function versioning.antiLoop_list(t)
-- {{#invoke:Phab.T154769.Test|antiCrash_frame}}
-- Simplified code to test
function versioning.antiCrash(options, content_or_func, ...) -- Form the display of a running error.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local res, t = "", ""
local ac_opt = {}
if type(options) == "table" then -- Easy long term compatibility against variable arguments number.
ac_opt = options -- Always use the same table to transmit details across pcall or xpcall.
end
if (ac_opt.selector == "nocontent") then -- "nocontent" always masks the internal content without try it.
ac_opt.success = true -- because sought
ac_opt.content = ""
return (ac_opt.content or "ac_opt.content"), ac_opt
end
-- - - - - - ----------------- To debug : start with only pcall() then step by step, add other code -------------------
--
function pcall_protect(content_or_func, ac_opt)
if (type(content_or_func) == "function") then -- replaces result = func( ... ) without blocking cases to avoid crash.
ac_opt.try_success, ac_opt.try_content = pcall( content_or_func(luaTable.toList(ac_opt.args) ), "pcall_protect(content_or_func, ac_opt)" ) -- Try test case.
end
ac_opt.try_content = ac_opt.try_content or "ac_opt.try_content"
return ac_opt.try_content -- , ac_opt
end
if ac_opt.errortype == "wanted_error" then -- replaces result = func( ... ) without blocking cases to avoid crash.
ac_opt.try_success, ac_opt.try_content = pcall( versioning.antiCrash_wanted_error(...), "pcall_protect(content_or_func, ac_opt)" ) -- Try test case.
-- res = res .. versioning.antiCrash(ac_opt, versioning.antiCrash_wanted_error() )
elseif (type(content_or_func) == "string") then -- replaces result = func( ... ) without blocking cases to avoid crash.
ac_opt.try_content = content_or_func -- Minimal default
ac_opt.try_success = true
elseif (type(content_or_func) == "function") then -- replaces result = func( ... ) without blocking cases to avoid crash.
ac_opt.try_success, ac_opt.try_content = pcall( content_or_func(...), "pcall_protect(content_or_func, ac_opt)" ) -- Try test case.
-- debug.traceback( "beginning message", level ) -- Returns a string with a traceback of the call stack from level, else level=1.
-- ac_opt.try_content = ", try_content = " .. ac_opt.try_content .. ", traceback = " .. debug.traceback()
local TB = debug.traceback()
local tb = string.gsub(TB, "\n", "")
-- tb = string.gsub(tb, "<br>", "br")
tb = string.gsub(tb, "stack traceback:", "")
tb = string.gsub(tb, "%sModule:", "<br>Module:")
tb = string.gsub(tb, "%smw.lua:", "<br>mw.lua:") -- enhanced traceback
t = t .. TB
if ac_opt.try_success then -- replaces result = func( ... ) without blocking cases to avoid crash.
-- t = t .. viewer.ta("traceback", debug.traceback( "antiCrash success:" ))
t = viewer.ta("try_success", ac_opt.try_success)
t = t .. viewer.ta("try_content", ac_opt.try_content)
t = t .. "<b>antiCrash success:" .. tb .. "</b>"
else -- replaces result = func( ... ) without blocking cases to avoid crash.
-- t = t .. viewer.ta("traceback", debug.traceback( "antiCrash ERROR:" ))
t = viewer.ta("try_success", ac_opt.try_success)
t = t .. viewer.ta("try_content", ac_opt.try_content)
t = t .. "<b>antiCrash ERROR:" .. tb .. "</b>"
ac_opt.try_content = ac_opt.try_content .. t
end
elseif (type(content_or_func) == "table") then -- replaces result = func( ... ) without blocking cases to avoid crash.
ac_opt.try_content = ac_opt.try_content .. "-tbl-" .. viewer.value(content_or_func)
-- ac_opt.try_content = "content table OK"
ac_opt.try_success = true
else
ac_opt.try_content = "content_or_func_else OK"
ac_opt.try_success = true
end
ac_opt.content = ac_opt.try_content
ac_opt.content = ac_opt.title .. (ac_opt.content or "antiCrash.ac_opt.content")
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return (ac_opt.content or "ac_opt.content"), ac_opt
end -- function versioning.antiCrash(ac_opt, content_or_func, ...) -- Form the display of a running error.
function versioning.antiCrash2(ac_opt, content_or_func, ...) -- Recursive.antiCrash test 2
return versioning.antiCrash(ac_opt, content_or_func, ...)
end
function versioning.antiCrash3(ac_opt, content_or_func, ...) -- Recursive.antiCrash test 3
return versioning.antiCrash2(ac_opt, content_or_func, ...)
end
-- {{#invoke:Phab.T154769.Test|antiCrash_frame}}
function versioning.antiCrash_tests() -- Main test
local res = "\n* Tests of versioning.antiCrash(ac_opt, content_or_func, ...) : "
res = res .. "\n* This test is suspended to less delay central modules."
if 1 then return res end
-- {{#invoke:Phab.T154769.Test|antiCrash_frame}}
--function versioning.antiCrash_tests() -- Main test
-- local res = "\n* Central-s-fr.T154769.Tests of versioning.antiCrash(ac_opt, content_or_func, ...) : "
local ac_opt = {}
-- Parser errors without ModuleName:line:
-- Erreur Lua : attempt to call a string value
-- Erreur Lua : ...?
--
local tst = "\n* <b>Crash test</b> input: "
ac_opt.title = tst .. "a simple string : "
local content_or_func = "simple test of string"
res = res .. versioning.antiCrash(ac_opt, content_or_func)
--
ac_opt.title = tst .. 'a function return a "string": '
function content_or_func() return "string from function" end -- T154769 Erreur Lua : attempt to call a string value
res = res .. versioning.antiCrash(ac_opt, content_or_func)
--
ac_opt.title = tst .. "a table = { x=1, y=2 } : "
local content_or_func = { x=1, y=2 }
res = res .. versioning.antiCrash(ac_opt, content_or_func)
--
local content_or_func = "x = wanted.runtime.error fails"
ac_opt.title = tst .. "wanted.runtime.error : "
ac_opt.errortype = "wanted_error"
res = res .. versioning.antiCrash(ac_opt, "wanted_error call" )
--
ac_opt.title = tst .. "Recursive antiCrash3() : "
local content_or_func = "antiCrash3 test" -- Recursive.antiCrash test 3
res = res .. versioning.antiCrash3(ac_opt, versioning.antiCrash_wanted_error() )
return res
end -- function versioning.antiCrash_tests(frame) -- Main test
function versioning.antiCrashFormError(funcname, title, errortext, ...) -- Form the running error: text, event and category.
if type(funcname) ~= "string" then funcname = "funcname" end
if type(title) ~= "string" then title = "title" end
if type(errortext) ~= "string" then errortext = "errortext" end
local t = ""
local args = translate.formTestCase("", ...)
t = t .. viewer.ta("function", viewer.errorColor(funcname) .. "( " .. args .. " ), ")
t = t .. viewer.ta("title", viewer.errorColor(title) )
t = t .. viewer.ta("error", viewer.errorColor(errortext) )
local cat = events.add_cat("modes_no_source_arguments_cat")
if string.sub(cat, 1, 3) ~= "[[:" then cat = "[[:" .. string.sub(cat, 4) end -- To always display de link to the category, with or without catview.
t = t .. "See: " .. cat -- link to internal_error_cat
events.categories_lister("") -- activate categories at page level
return t
end -- function versioning.antiCrashFormError(funcname, title, errortext, ...)
function versioning.antiCrash_details(ac_opt) -- Details about antiCrash
local res = "\n* " .. viewer.ta("ac_opt.title", ac_opt.title)
res = res .. "\n* " .. viewer.ta("ac_opt.title_error", ac_opt.title_error)
res = res .. "\n* " .. viewer.ta("ac_opt.selector", ac_opt.selector)
res = res .. "\n* " .. viewer.ta("ac_opt.try_success", ac_opt.try_success)
res = res .. "\n* " .. viewer.ta("ac_opt.success", ac_opt.success)
res = res .. "\n* " .. viewer.ta("ac_opt.try_error", ac_opt.try_error)
res = res .. "\n* " .. viewer.ta("ac_opt.try_error_string", ac_opt.try_error_string)
res = res .. "\n* " .. viewer.ta("ac_opt.try_error_string_color", ac_opt.try_error_string_color)
res = res .. "\n* " .. viewer.ta("ac_opt.funcname", ac_opt.funcname)
res = res .. "\n* " .. viewer.ta("ac_opt.try_form_error", ac_opt.try_form_error)
res = res .. "\n* " .. viewer.ta("ac_opt.resultKind", ac_opt.resultKind)
res = res .. "\n* " .. viewer.ta("ac_opt.try_error_color_ref", ac_opt.try_error_color_ref)
res = res .. "\n* " .. viewer.ta("ac_opt.try_error_ref", ac_opt.try_error_ref)
res = res .. "\n* " .. viewer.ta("ac_opt.content_error", ac_opt.content_error)
res = res .. "\n* " .. viewer.ta("ac_opt.try_content", ac_opt.try_content)
res = res .. "\n* " .. viewer.ta("ac_opt.content", ac_opt.content)
-- res = res .. "\n* " .. viewer.ta("ac_opt.result", ac_opt.result)
return res
end
-- function versioning.antiCrash(options, content_or_func, ...) -- Form the display of a running error.
-- function versioning.antiLoop("luaTable.SubCounts", 11, luaTable.SubCounts, tablebase, tabname, opt, recursiveLevel) -- Limit the n-th reentrant call of any function.
--[[
Another versioning means is : successive states of a page or a module.
Here versions management means:
To manage versions in a main_module, a user defines a list of soughtversions included in a list of knownversions.
Example of arg: soughtversions = "Author3 MathRoman2 Central1"
Example of arg: knownversions = " Author,Author3 * MathRoman,MathRoman2 * Central,Central1 "
The user changes sought and known at module level or at Args level.
And the "versions" library supports the module and the user.
The main_module can display warnings like:
versioning_all_versions_tests = "Versions warning: <b>%1</b>, normal: <b>%2</b>, listall: <b>%3</b>.", -- versionsmanagement
versioning_select_unknown_module_err = "Internal error: The missing Module:<b>%1</b> is replaced by the normal Module:<b>%2</b>.", -- versionsmanagement
versioning_I18N_module_no_base_err = "The <b>%1</b> translations module has no basic version.", -- versionsmanagement
versioning_no_versions_module_err = "The module <b>%1</b> is not in the system versioning.", -- versionsmanagement
--]]
--[[ --] ]
function tools.versionsmanagement_report(vers) -- Deprecated alias function
versioning.deprecatedFunction("tools.versionsmanagement_report", "versioning.versions_management_report")
return versioning.versions_management_report(vers)
end
--]]
function versioning.versions_management_report(vers) -- Detect versions management errors and warnings after bind_sub_modules
local memo = events.save_configs() -- Save global configuration before eventual changes.
local errs, cats = "", ""
if type(vers) ~= "table" then vers = versioning.main_versions end
if type(vers) ~= "table" then vers = versioning.main_versions end
--[[ Example in a module:
p.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
versionName = "Author3", versionNumber = "3.03", versionDate = "2016-04-25 10:31",
sought = " Author3, Central01 ", -- sought submodules versions
known = " Author3 * Central;Central01 ", -- known submodules versions
} --]]
local sought_report = viewer.simpleList(vers.sought)
local known_report = viewer.simpleList(vers.known)
local loaded_report = viewer.simpleList(vers.loaded_list)
local used_report = viewer.simpleList(vers.used)
local alloncesort = viewer.simpleList(sought_report .. ";" .. known_report .. ";" .. used_report) -- .. ";" .. loaded_report)
local missing_report = ""
local replaced_report = ""
local unknown_report = ""
-- t = t .. "\n* <b>Versions management report</b>, second: " .. alloncesort
-- local argm = modes.args_known
local alloncetab = mw.text.split(alloncesort, ';') -- table of words
for i, name in ipairs(alloncetab) do -- list all used names, only one each, in alphabetic order
local name_I18N = string.find(name, "/I18N")
if viewer.is_in_sp(name, sought_report, ";") and not viewer.is_in_sp(name, known_report, ";") and not name_I18N then
missing_report = missing_report .. name .. ";" -- sought but not found
errs = errs .. ";" .. events.add_err("versioning_missing_versions_err", name, vers.versionName ) .. ";"
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
end
if viewer.is_in_sp(name, used_report, ";") and not viewer.is_in_sp(name, sought_report, ";") and not name_I18N then
replaced_report = replaced_report .. name .. ";" -- missing version replaced by normal
errs = errs .. ";" .. events.add_err("versioning_replaced_versions_err", name, vers.versionName ) .. ";"
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
end
if viewer.is_in_sp(name, alloncesort, ";") and not viewer.is_in_sp(name, known_report, ";") and not name_I18N then
unknown_report = unknown_report .. name .. ";" -- found but not known
errs = errs .. ";" .. events.add_err("versioning_unknownversions_err", name, vers.versionName ) .. ";"
cats = cats .. events.add_cat("versioning_module_usage_error_cat")
end
end
local loaded_report = viewer.simpleList(loaded_report)
local used_report = viewer.simpleList(used_report)
local missing_report = viewer.simpleList(missing_report)
local replaced_report = viewer.simpleList(replaced_report)
local unknown_report = viewer.simpleList(unknown_report)
local t = "\n* <b>Versions management_details</b>:"
t = t .. "<br/>" .. viewer.ta("sought_report", sought_report)
t = t .. "<br/>" .. viewer.ta("known_report", known_report)
t = t .. "<br/>To understand:"
t = t .. "<br/>" .. viewer.ta("loaded_report", loaded_report)
t = t .. "<br/>" .. viewer.ta("used_report", used_report)
t = t .. "<br/>" .. viewer.ta("missing_report", missing_report)
t = t .. "<br/>" .. viewer.ta("replaced_report", replaced_report)
t = t .. "<br/>" .. viewer.ta("unknown_report", unknown_report)
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t, errs
end -- function versioning.versions_management_report(vers)
-- res = res .. versioning.docDropBox(selector, "versioning_list_all_G_and_loaded_title", versioning.list_all_G_and_loaded)
function versioning.list_all_G_and_loaded(t) -- List all objects in _G global space and in package.loaded
local t = t or "\n* <b>versioning.list_all_G_and_loaded()</b> List all objects in _G global space and in package.loaded. "
t = t .. translate.track_counts("list_all_G:begin", "versioning.i18n", trans, tables, versioning.i18n)
t = t .. translate.track_counts("list_all_G:begin", "translate.i18n", trans, tables, translate.i18n)
t = t .. translate.track_counts("list_all_G:begin", "versioning.main_i18n", trans, tables, versioning.main_i18n)
t = t .. translate.track_counts("list_all_G:begin", "translate.main_i18n", trans, tables, translate.main_i18n)
local memo = events.save_configs() -- Save global configuration before eventual changes.
t = t .. viewer.usualColor("\n* <b>viewer.usualColor()</b> Available usual fonctional styles: ") -- Fonctional style for usual cases.
function sort_and_list_objects(Objects)
local sort_key, t = {}, ""
for key, obj in pairs(Objects) do table.insert( sort_key, key ) end
-- t = t .. viewer.ta("#sort_key before", #sort_key) .. ", "
if #sort_key > 0 then
table.sort(sort_key, function (a, b) return (a < b) end ) -- alphabetic sort of objects
for i, key in pairs(sort_key) do
local obj = Objects[key]
if obj then usual = "discreet" end -- "central module or library"
if type(obj) == "function" then usual = "error" end -- "function in _G global space"
-- see: { 90, "Obsolete", "T20161022", 0, "ToCreate", "? Scribunto functions are out of package.loaded", "Lua functions out of package.loaded", },
if type(obj) == "string" then usual = "normal" end -- "value from mediawiki"
if type(obj) == "table" then usual = "invoke" end -- "mediawiki library"
if (type(obj) == "table") and (type(obj.i18n) == "table") then usual = "add" end -- "central module or library"
t = t .. viewer.usualColor(key, usual) .. ", "
end
-- t = t .. viewer.ta("#sort_key after", #sort_key) .. ", "
else
-- t = t .. viewer.ta("#sort_key else", #sort_key) .. ", "
end
return t
end
t = t .. "\n\n* <b>versioning.list_all_G_and_loaded()</b>: Objects in <b>_G</b> global space: "
t = t .. sort_and_list_objects(_G)
t = t .. "\n\n* <b>versioning.list_all_G_and_loaded()</b>: Objects in <b>package.loaded</b>: "
t = t .. sort_and_list_objects(package.loaded)
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function versioning.list_all_G_and_loaded(t)
function viewer.wiki_modules_users_stat() -- Modules, users and stats in this wiki.
local mwuri = mw.uri.new()
res = ""
res = res .. "\n*. <b>Modules</b>: "
res = res .. viewer.ta("Main module", tostring(versioning.mainversion) )
res = res .. viewer.ta("Proto version", tostring(Central.versions.versionName ) )
res = res .. viewer.ta("Modules in this wiki", tostring(mw.site.stats.pagesInNamespace( 828 ) ) )
-- Users
res = res .. "<br/>\n* <b>Users activities</b>: "
res = res .. viewer.ta("activeUsers", tostring(mw.site.stats.activeUsers ) )
res = res .. viewer.ta("Administrators(sysop)", tostring(mw.site.stats.usersInGroup( "sysop" ) ) )
res = res .. viewer.ta("bots(bot)", tostring(mw.site.stats.usersInGroup( "bot" ) ) )
res = res .. viewer.ta("patrollers(patroller)", tostring(mw.site.stats.usersInGroup( "patroller" ) ) )
res = res .. viewer.ta("bureaucrats(bureaucrat)", tostring(mw.site.stats.usersInGroup( "bureaucrat" ) ) )
res = res .. "\n* [[Special:Statistics | Statistics on users and content]] "
-- res = res .. viewer.ta("checkuser(checkuser)", tostring(mw.site.stats.usersInGroup( "checkuser" ) ) )
-- res = res .. viewer.ta("autoconfirmed(autoconfirmed)", tostring(mw.site.stats.usersInGroup( "autoconfirmed" ) ) )
-- res = res .. viewer.ta("Autopatrol users(autoreview)", tostring(mw.site.stats.usersInGroup( "autoreview" ) ) )
-- res = res .. viewer.ta("Account creators(accountcreator)", tostring(mw.site.stats.usersInGroup( "accountcreator" ) ) )
res = res .. " mw [[:mw:Special:ListGroupRights]] " -- https://www.mediawiki.org/wiki/Special:ListGroupRights
-- Last revision
res = res .. "<br/>\n* <b>Last revision</b>: "
res = res .. viewer.ta("REVISIONTIMESTAMP", modes.frame:preprocess( "{{REVISIONTIMESTAMP}}" ) )
res = res .. viewer.ta("REVISIONUSER", modes.frame:preprocess( "{{REVISIONUSER}}" ) )
-- Languages
res = res .. "<br/>\n* <b>Languages</b>: "
res = res .. viewer.ta("PAGELANGUAGE", modes.frame:preprocess( "{{PAGELANGUAGE}}" ) )
-- res = res .. viewer.ta("PAGELANGUAGE", mw.getCurrentFrame():expandTemplate{ title = 'PAGELANGUAGE' } )
res = res .. viewer.ta("CONTENTLANGUAGE", modes.frame:preprocess( "{{CONTENTLANGUAGE}}" ) )
--
res = res .. "\n* <b>User language</b>: "
res = res .. viewer.ta("USERLANG", modes.frame:preprocess( "{{USERLANG}}" ) )
res = res .. viewer.ta("UILANGCODE", modes.frame:preprocess( "{{UILANGCODE}}" ) )
res = res .. viewer.ta("USERLANG", modes.frame:preprocess( "{{USERLANG}}" ) )
res = res .. viewer.ta("USERLANGUAGE", modes.frame:preprocess( "{{USERLANGUAGE}}" ) )
res = res .. viewer.ta("USERIFCODE", modes.frame:preprocess( "{{USERIFCODE}}" ) )
-- res = res .. viewer.ta("USERLANG", mw.getCurrentFrame():expandTemplate{ title = 'USERLANG' } )
--
res = res .. "\n* <b>Scribunto</b>: "
res = res .. ", [[ mw:Extension:Scribunto | Extension:Scribunto ]]"
res = res .. viewer.ta("[http://tylerneylon.com/a/learn-lua/ Lua] [[ mw:Extension:Scribunto/Lua_reference_manual | manual ]], version: ", _VERSION )
--
res = res .. "\n* <b>Server mw.uri.new</b>: "
res = res .. viewer.ta("protocol", mwuri.protocol )
res = res .. viewer.ta("user", mwuri.user )
res = res .. viewer.ta("password", mwuri.password )
res = res .. viewer.ta("host", mwuri.host )
res = res .. viewer.ta("port", mwuri.port )
res = res .. viewer.ta("path", mwuri.path )
res = res .. viewer.ta("query", mwuri.query )
res = res .. viewer.ta("fragment", mwuri.fragment )
res = res .. viewer.ta("userInfo", mwuri.userInfo )
res = res .. viewer.ta("hostPort", mwuri.hostPort )
res = res .. viewer.ta("authority", mwuri.authority )
res = res .. viewer.ta("queryString", mwuri.queryString )
res = res .. viewer.ta("relativePath", mwuri.relativePath )
-- res = res .. mwuri:parse( "uri:parse : user, ( userInfo ), host-Port = hostPort" )
return res
end -- function viewer.wiki_modules_users_stat(t)
function versioning.running_times(no_view, res, time1, time2, time3, time4) -- Form running times and references for Lua-coders.
-- Last update example:
-- Execution time and page: 2017-04-27 10:01:50 UTC , url = https://fr.wikisource.org/wiki/Module:Central-s-fr/Documentation
-- Running times: , start in page = 171 mS , import + 0 mS , form result + 0 mS , tests + 522 mS , duration = 522 mS
local res = "" -- res or "\n* versioning.running_times() Modules, users and stats in this wiki"
local mwuri = mw.uri.new()
local currentVersion = tostring(mw.site.currentVersion)
if currentVersion ~= versioning.site_currentVersion_memo then currentVersion = viewer.errorColor(currentVersion) end
res = res .. "\n* " .. viewer.ta("[[ Special:Version | Local MediaWiki version ]]", currentVersion )
res = res .. viewer.wiki_modules_users_stat() -- Modules, users and stats in this wiki.
modes.time4 = os.clock()
if no_view then return default_res end
local time4 = time4 or modes.time4
local time3 = time3 or modes.time3 or time4
local time2 = time2 or modes.time2 or time3
local time1 = time1 or modes.time1 or time2
if time2 < time1 then time2 = time1 end
if time3 < time2 then time3 = time2 end
if time4 < time3 then time4 = time3 end
local nowtime = os.date("%Y-%m-%d %H:%M:%S")
local mwtitle = mw.title.getCurrentTitle()
local url = tostring(mwtitle:canonicalUrl( ))
local time2d = time2 - time1
local time3d = time3 - time2
local time4d = time4 - time3
local duration = time2d + time3d + time4d
time1 = tostring(math.floor( time1 * 1000 )) .. " mS"
time2d = tostring(math.floor( time2d * 1000 )) .. " mS"
time3d = tostring(math.floor( time3d * 1000 )) .. " mS"
time4d = tostring(math.floor( time4d * 1000 )) .. " mS"
duration = tostring(math.floor( duration * 1000 )) .. " mS"
res = res .. "\n* <b>Execution time and page</b>: " .. nowtime .. " UTC" .. viewer.ta("url", url) -- prefixedText
res = res .. "\n* <b>Running times</b>: "
res = res .. viewer.ta("start in page", time1) .. viewer.ta("import", time2d, "+")
res = res .. viewer.ta("form result", time3d, "+") .. viewer.ta("tests", time4d, "+") .. viewer.ta("duration", duration)
--[[ Display example :
Revision time: , module = 20161223063818 , page = 20161216171553 , user = Rical , REVISIONID = 6431229
Running times: , start in page = 680 mS , import + 0 mS , form result + 91 mS , tests + 58 mS , duration = 150 mS
Execution and test_time: 2016-12-23 06:38:19 UTC , url = https://fr.wikisource.org/wiki/Module:Central-s-fr/Documentation
--]]
return res
end -- function versioning.running_times(no_view, res, time1, time2, time3, time4)
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- The Library:viewer forms some viewers for tables(in lines and columns), dropboxes, recursive luatables...
-- The name"luaTable" avoids ambiguities. To enhance rather than add it, we could write here : luaTable = table.
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- viewer = {} -- already declared by Scribunto, else in _G space.
-- Translations for viewer library
viewer.i18n = {}
viewer.i18n.en = {
-- Main texts, errors and categories of tools
viewer_test_no_values = "Test: without values",
viewer_test_the_value_is_table = "Test: the value is a table",
viewer_test_all_types_values = "Test: values of all types",
viewer_DropBox_label_Unwrap = "Unwrap/Wrap",
viewer_page_tests_title = "Testing and information related to this page:",
viewer_page_tests_h2_title = "Tests of this page",
viewer_module_tests_h2_title = "Tests of this module",
viewer_internal_tests_h2_title = "Internal tests",
viewer_dropdown_missing_title = "Missing title for this dropbox",
-- Titles of tests
viewer_module_tests_title = "Testing and information related to this module:",
viewer_internal_tests_title = "Internal regression tests:",
viewer_tableView_tests_headers = "Case;Value;Result",
viewer_tableView_tests_title = "viewer.tableView() Test: Form a table with lines and columns.",
viewer_tabView_form_elem_detail = "detail = %1 | %2 | %3 | %4 | %5.",
viewer_tableView_tests_err = "Internal error : viewer.tableView() abnormal fail.",
viewer_format_time_tests_title = "viewer.formatDate() Tests of coding and conversion of dates",
viewer_parts_of_date_tests_title = "viewer.date_to_part() Tests of date to day, month, year or era",
viewer_simpleList_tests_title = "viewer.simpleList() Test: Sort a list of words without repetition",
} -- viewer.i18n.en
viewer.i18n.es = {
-- Textos principales, errores y categorías de instrumentos
viewer_test_no_values = "Prueba: sin valores",
viewer_test_the_value_is_table = "Prueba: el valor es una tabla",
viewer_test_all_types_values = "Prueba: valores de todos los tipos",
viewer_DropBox_label_Unwrap = "Desenvolver/Envolver",
viewer_page_tests_title = "Pruebas y información relacionada con esta página:",
viewer_page_tests_h2_title = "Pruebas de esta página",
viewer_module_tests_h2_title = "Pruebas de esto página",
viewer_internal_tests_h2_title = "Pruebas internas",
viewer_dropdown_missing_title = "Falta el título para este dropbox",
-- Titres des pruebas
viewer_page_tests_title = "Pruebas y información relacionada con esta página:",
viewer_module_tests_title = "Pruebas y información relacionada con esto módulo:",
viewer_internal_tests_title = "Pruebas de no regresión internas:",
viewer_tableView_tests_headers = "Caso; Valor; Resultado",
viewer_tableView_tests_title = "viewer.tableView() Prueba: Formar una tabla con líneas y columnas.",
viewer_tabView_form_elem_detail = "detalle = %1 | %2 | %3 | %4 | %5.",
viewer_tableView_tests_err = "Error interno: viewer.tableView() error anormal.",
viewer_format_time_tests_title = "viewer.formatDate() Pruebas de codificación y conversión fechas",
viewer_parts_of_date_tests_title = "viewer.date_to_part() Pruebas de fecha a día, mes, año o época",
viewer_simpleList_tests_title = "viewer.simpleList() Prueba: Ordenar una lista de palabras sin repetición",
} -- viewer.i18n.es
viewer.i18n.fr = {
-- Principaux textes, erreurs et catégories des outils
viewer_test_no_values = "Test: sans valeurs",
viewer_test_the_value_is_table = "Test: la valeur est une table",
viewer_test_all_types_values = "Test: valeurs de tous types",
viewer_DropBox_label_Unwrap = "Dérouler/Enrouler",
viewer_page_tests_title = "Tests et informations liées à cette page :",
viewer_page_tests_h2_title = "Tests de cette page",
viewer_module_tests_h2_title = "Tests de ce module",
viewer_internal_tests_h2_title = "Tests internes",
viewer_dropdown_missing_title = "Titre manquant pour cette boite déroulante",
-- Titres des tests
viewer_page_tests_title = "Tests et informations liées à cette page :",
viewer_module_tests_title = "Tests et informations liées à ce module :",
viewer_internal_tests_title = "Tests internes de non régression :",
viewer_tableView_tests_headers = "Case;Value;Result",
viewer_tableView_tests_title = "viewer.tableView() Test: former un tableau avec lignes et colonnes.",
viewer_tabView_form_elem_detail = "détail = %1 | %2 | %3 | %4 | %5.",
viewer_tableView_tests_err = "Erreur interne: viewer.tableView() échec anormal.",
viewer_format_time_tests_title = "viewer.formatDate() Tests de codage et conversions de dates",
viewer_parts_of_date_tests_title = "viewer.date_to_part() Tests de date vers jour, mois, année ou ère",
viewer_simpleList_tests_title = "viewer.simpleList() Test: Trier une liste de mots sans répétition",
} -- viewer.i18n.fr
-- function versioning.antiLoop(funcname, n, func, ...) -- Limit the n-th reentrant call of any function.
-- Try versioning.antiLoop() in functions recently changes, in case of errors:
-- "Erreur Lua : stack overflow" or "Le temps alloué pour l’exécution des scripts a expiré." or "The time allowed for script execution has expired".
-- $wgParserCacheExpireTime - Expiration time (in seconds) of cached parser information
-- function versioning.antiLoop_list(t) -- List versioning.antiLoop().
-- See also string.format( formatstring, ... ) -- 2016-06-25 Rical
-- Example printf("%1$d:%2$.*3$d:%4$.*3$d\n", hour, min, precision, sec); -- 2016-06-25 Rical
-- See also http://pubs.opengroup.org/onlinepubs/9699919799/functions/printf.html -- 2016-06-25 Rical
function viewer.is_in(word, text) -- The word is it in the text, even inside another word?
local i = string.find(text or "", word or "", 1, true)
return (i and true)
end
function viewer.is_in_sp(word, text, sep) -- The word is it in the text, beetwen spaces or separators, not inside another word?
sep = sep or " " -- default separator is space. But could be * ; , or even any string.
if type(word) ~= "string" then word = "" end
if type(text) ~= "string" then text = "" end
local i = string.find(sep .. text .. sep, sep .. word .. sep, 1, true)
if i then i = true else i = false end
return i
end
function viewer.isDef(x) -- x is defined or no. x est défini ou non
return (type(x) == "string") and (x ~= "") and (x ~= " ") and (x ~= "nil")
end
function viewer.value(value) -- Form a string to discribe a value like: true, 123.456, "abcd", func(), table{}
local typ, view = type(value), "-"
if typ == "boolean" then
if value == true then view = "true" else view = "false" end
elseif typ == "function" then view = "func()"
elseif typ == "number" then view = tostring(value)
elseif typ == "string" then view = '"' .. value .. '"'
elseif typ == "table" then view = "table{}"
elseif typ == "nil" then view = "nil"
end
return view
end -- function viewer.value(value)
function viewer.ta(txt, val, sep) -- Form an argument and its value in a documentation. The text is "nil" if the value is nil.
if val == nil then val = "nil" end
if sep == nil then sep = "=" end
return " , " .. tostring(txt) .. " " .. tostring(sep) .. " <b>" .. tostring(val) .. "</b> "
end
function viewer.tam(txt, val, sep) -- Form an argument and its value, or mask it if nil.
if not val then return "" end
return viewer.ta(txt, val, sep)
end
-- Build a table, with headers for columns. Example:
-- ! style="text-align:left;"| Item
-- {| class="wikitable" style="text-align: center; color: green;"
-- {| border="1" style="border-crash:crash"
-- {| class="wikitable sortable" border="1" mw-collapsible mw-crashd"
-- |} end of table
function viewer.Th(t) return '\n{| class="' .. tostring( t or 'wikitable alternative center' ) .. '" | ' end -- Table columns headers -- or " "
-- A triable table start with : {| class="wikitable sortable"
-- A column become fix and not triable with : ||class="unsortable"|
-- A row become fix and not triable with : |- class="sortbottom"
function viewer.Tc(t) return '\n! scope="col" | ' .. tostring( t or " " ) end -- Table repeated or different columns headers
function viewer.Tr(t) return "\n|- " .. tostring( t or " " ) end -- Table -- row
function viewer.Td(t) return "\n| " .. tostring( t or " ") end -- Table data -- or " "
function viewer.Te(t) return "\n|}" end -- Table end
-- Fonctional styles in central modules.
viewer.usual_colors = { -- Available usual fonctional styles for central modules and those using them.
["add"] = "blue", -- Usual fonctional style for add in blue; blue/yellow are more accessible, see T156048.
["delete"] = "#C0C000",-- Usual fonctional style for delete in yellow; blue/yellow are more accessible, see T156048.
["discreet"]= "#B0B0B0",-- Usual fonctional style for discreet in light grey.
["error"] = "red", -- Usual fonctional style for error in red.
["invoke"] = "#804020",-- Usual fonctional style for invoke args in brown.
["normal"] = "black", -- Usual fonctional style for other standard in black.
["warning"] = "#804020",-- Usual fonctional style for warnings in brown.
["wikidata"]= "green", -- Usual fonctional style for wikidata in green.
}
function viewer.usualColor(t, usual) -- Fonctional style for available usual cases.
if type(usual) ~= "string" then usual = "normal" end
local t = tostring(t)
-- template style: '<span style="color:black;" > usual </span>' -- template style
local usual_in_style = '<span style="color:' .. viewer.usual_colors["normal"] .. ';" >' .. t .. '</span>' -- default style
if viewer.usual_colors[usual] then -- Adapt the style of usual, if it exists.
usual_in_style = '<span style="color:' .. viewer.usual_colors[ usual ] .. ';" >' .. t .. '</span>' -- actual style
end -- Style for add in blue; blue/yellow are more accessible, see T156048.
return usual_in_style
end -- function viewer.usualColor(t, usual)
function viewer.addColor(t) return viewer.usualColor(t, "add") end
function viewer.deleteColor(t) return viewer.usualColor(t, "delete") end
function viewer.discreetColor(t) return viewer.usualColor(t, "discreet") end
function viewer.errorColor(t) return viewer.usualColor(t, "error") end
function viewer.invokeColor(t) return viewer.usualColor(t, "invoke") end
function viewer.normalColor(t) return viewer.usualColor(t, "normal") end
function viewer.warningColor(t) return viewer.usualColor(t, "warning") end
function viewer.wikidataColor(t) return viewer.usualColor(t, "wikidata") end
function viewer.CSS_styles() -- Define viewers CSS_styles.
-- viewer.errorColor()
local CentralDocBox = '<div class="CentralDocBox" style=" width=90%; border: 1px solid #AAAAAA; margin:1em; background-color:#F1F1F1; padding:0.3em; ">' .. res .. '</div>'
local CentralDropBox = '<div class="NavFrame CentralDropBox" style="clear:both; margin-bottom:'.. s.margin_bottom ..'; width:'.. s.width ..'; border-style:solid; -moz-border-radius:'.. s.border_radius ..'; border-color:'.. s.border_color ..'; background-color:'.. s.background_color ..'; " title="'.. s.label ..'" >'
return
end -- function viewer.CSS_styles()
function viewer.smallCapsStyle(t) -- Display a text in small-caps style.
return '<span style="font-variant: small-caps">' .. t .. '</span>'
end
function viewer.classDayTimeStyle(title, DATE) -- Display a date in class="(b|d)day" style.
-- Todo: Tpt 20121005 19:48 : <span class="(b|d)day" title="DATE AU FORMAT YYYY">AFFICHAGE DE LA DATE</span> Tpt (d) 5 septembre 2012 à 19:48 (UTC)
if type(title) ~= "string" then title = "title" end
if type(DATE) ~= "string" then DATE = "DATE" end
return '<span class="(b|d)day" title="' .. title .. '">' .. DATE .. '</span>'
end
-- Extract a part of date following a pre-defined format which starts with separator
function viewer.date_split(date, format)
-- local dd, mmmm, yyyy, era = viewer.date_split(a.birthdate, " dd mmmm yyyy")
local dd, mmmm, yyyy, era
local format_split = mw.text.split(format, "%s")
local split = mw.text.split(date, "%s")
for i, date_part in ipairs(split) do
if format_split[i] == "dd" then dd = tonumber(date_part) end
if format_split[i] == "mmmm" then mmmm = date_part end
if format_split[i] == "yyyy" then yyyy = tonumber(date_part) end
if format_split[i] == "era" then era = date_part end
end
return dd, mmmm, yyyy, era
end -- function viewer.date_split(date, format)
-- Extract a part of date following a pre-defined format which starts with separator
function viewer.date_to_part(date, part)
-- local t, err = viewer.date_to_part(a.birthyear, " dd mmmm yyyy", "yyyy")
part = part or "yyyy"
local dd, mmmm, yyyy, era
local found = false
-- local err = "modes_date_to_part_not_found_err"
if not found then
dd, mmmm, yyyy, era = viewer.date_split(date, "dd mmmm yyyy")
if dd and mmmm and yyyy and not era then
found = true
end
end
if not found then
dd, mmmm, yyyy, era = viewer.date_split(date, "mmmm dd yyyy")
if dd and mmmm and yyyy and not era then
found = true
end
end
if not found then
dd, mmmm, yyyy, era = viewer.date_split(date, "yyyy era")
if not dd and not mmmm and yyyy then
if era == "BCE" then yyyy = - yyyy end
found = true
end
end
if not found then
dd, mmmm, yyyy, era = viewer.date_split(date, "mmmm yyyy")
if not dd and mmmm and yyyy and not era then
-- modes_date_months_names = "January, February, March, April, May, June, July, August, September, October, November, December",
-- modes_date_months_names = "Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre",
-- modes_date_months_names = "Janvier, Février, Mars, Avril, Mai, Juin, Juillet, Août, Septembre, Octobre, Novembre, Décembre",
found = true
end
end
if not found then
dd, mmmm, yyyy, era = viewer.date_split(date, "yyyy")
if not dd and not mmmm and yyyy and not era then
found = true
end
end
-- + cccc = roman number ?
if found then
if part == "yyyy" then return yyyy or "" end
if part == "mmmm" then return mmmm or "" end
if part == "dd" then return dd or "" end
if part == "era" then return era or "" end
end
return "" -- tostring(dd)..tostring(mmmm)..tostring(yyyy)..tostring(era)
-- A faire : Titus Livius (Q2039), format de dates : P569 = date of birth = 59 BCE, P570 = date of death = 17
-- Socrate (470-399 av. J.-C.).
end -- function viewer.date_to_part(date, part)
function mw.text.sortCommaList(list, sep1, sep2, sep3) -- Sort without repeat a list with separators like "Central01;versioning 2.4;tools;two words"
versioning.deprecatedFunction("mw.text.sortCommaList", "viewer.simpleList")
return viewer.simpleList(list, sep1, sep2, sep3, sep4)
end
function viewer.simpleList(list, sep1, sep2, sep3, sep4) -- Remove repeats in a string list with separators. Can also sort.
-- sep1 is used in final list. sep1 to sep4 can be "sort" or "trim".
-- wanted.
local sort, trim = false, false
if sep1 == "sort" then sep1 = "" ; sort = true end
if sep2 == "sort" then sep2 = "" ; sort = true end
if sep3 == "sort" then sep3 = "" ; sort = true end
if sep4 == "sort" then sep4 = "" ; sort = true end
if sep1 == "trim" then sep1 = "" ; trim = true end
if sep2 == "trim" then sep2 = "" ; trim = true end
if sep3 == "trim" then sep3 = "" ; trim = true end
if sep4 == "trim" then sep4 = "" ; trim = true end
if type(list) ~= "string" then list = "" end
if type(sep1) ~= "string" then sep1 = "" end -- Default separators value
if type(sep2) ~= "string" then sep2 = "" end
if type(sep3) ~= "string" then sep3 = "" end
if type(sep4) ~= "string" then sep4 = "" end
-- Patterns: Dot (.) always matches all characters, including newlines.
-- Patterns: Quantifiers (*, +, ?, and -) may only be applied to individual characters.
if viewer.is_in(sep1, ".*+?-/") then sep1 = "%" .. sep1 end
if viewer.is_in(sep2, ".*+?-/") then sep2 = "%" .. sep2 end
if viewer.is_in(sep3, ".*+?-/") then sep3 = "%" .. sep3 end
if viewer.is_in(sep4, ".*+?-/") then sep4 = "%" .. sep4 end
local listtab = mw.text.split(list or "", sep1, true) -- names between commas
local listtabOut = {}
local listtabSingle = {}
local list2 = ""
local t = " * t = "
for i, name in ipairs(listtab) do -- list all names, only one each, in alphabetic order
-- t = t .. "-" .. i
if trim then name = mw.text.trim(name) end -- do not keep spaces inside each name
if not listtabSingle[name] then
listtabSingle[name] = name
list2 = list2 .. name .. sep1
end
-- if (name ~= "") and not viewer.is_in_sp(name, list2, sep1) then list2 = list2 .. name .. sep1 end
end
if sort then
table.sort(listtabSingle, function (a, b) return (a < b) end ) -- sort in alphabetic order
end
--[[
for i, name in ipairs(listtabSingle) do -- for all names
-- if trim then name = mw.text.trim(name) end -- do not keep spaces inside each name
-- table.insert(listtabOut, name)
-- listtabSingle[name] = name
-- list2 = list2 .. name .. sep1
end --]]
t = t .. " * list2 = " .. list2 .. " * "
local output = string.sub( list2, 1, (-string.len(sep1)-1) ) -- without last sep1 or ;
return output -- .. t
end -- function viewer.simpleList(list, sep1, sep2, sep3)
function viewer.simpleList_test(t) -- Test of : Sort without repeat a list with separators like "Central01;versioning 2.4;tools;two words"
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = t or ""
t = t .. "\n* Test <b>viewer.simpleList(list, sep1, sep2, sep3)</b>: "
t = t .. '\n* Remove repeats in a string list with separators. Can also sort.'
local function simpleList_test_1(t, input, sep1, sep2, sep3, sep4)
local output = tostring( viewer.simpleList(input, sep1, sep2, sep3, sep4) )
-- input = viewer.value(input) -- ; viewer.value(input) ;
-- t = t .. viewer.Tr() .. viewer.Td(viewer.value(input)) .. viewer.Td(sep1) .. viewer.Td(sep2)
-- t = t .. viewer.Td(sep3) .. viewer.Td(sep4) .. viewer.Td(output)
t = t .. viewer.Tr() .. viewer.Td(viewer.value(input)) .. viewer.Td(viewer.value(sep1)) .. viewer.Td(viewer.value(sep2))
t = t .. viewer.Td(viewer.value(sep3)) .. viewer.Td(viewer.value(sep4)) .. viewer.Td(viewer.value(output))
-- .. viewer.Td(viewer.value(input)) .. viewer.Td(viewer.value(input)) .. viewer.Td(sep1) .. viewer.Td(sep2) .. viewer.Td(sep3) .. viewer.Td(sep4) .. viewer.Td(output)
return t
end
t = t .. viewer.Th() .. viewer.Tc("input") .. viewer.Tc("sep1") .. viewer.Tc("sep2") .. viewer.Tc("sep3") .. viewer.Tc("sep4") .. viewer.Tc("output")
t = simpleList_test_1(t, "abc;def;abc", ";", "-", "|")
t = simpleList_test_1(t, "xyz;def;abc", ";", "sort")
t = simpleList_test_1(t, "abc-def=abc", "-", "=")
t = simpleList_test_1(t, "abc - def = abc", "-", "=", "sort")
t = simpleList_test_1(t, "abc - def = abc", "-", "=", "sort", "trim")
t = simpleList_test_1(t, ";;", ";", ";", ",")
t = simpleList_test_1(t, "abc/def;abc", ";", "/")
t = simpleList_test_1(t, "abc;def/abc/def;abc;def;abc", ";", "/", "-")
t = simpleList_test_1(t, "abc;def;abc", ";", ";", "")
t = t .. viewer.Te()
--[[
local t = t or "\n* Test <b>viewer.simpleList(list, sep1, sep2, sep3, sep4)</b>:<br> "
t = t .. '\n* Remove repeats in a string list with separators. Can also sort.'
local s = "x"
s = "abc;def;abc" ; t = t .. "\n* " .. s .. " --> ; --> " .. viewer.simpleList(s, ";")
s = "abc;def,abc;" ; t = t .. "\n* " .. s .. " --> , --> " .. viewer.simpleList(s, ",")
s = ",ABC - XYZ , abc" ; t = t .. "\n* " .. s .. " --> ; --> " .. viewer.simpleList(s, ";")
s = ";abc;def;def;abc;" ; t = t .. "\n* " .. s .. " --> ; --> " .. viewer.simpleList(s, ";")
s = ";abc;def;def;:123;abc;" ; t = t .. "\n* " .. s .. " --> ; --> " .. viewer.simpleList(s, ";")
s = ";abc;def;def;:123;abc;" ; t = t .. "\n* " .. s .. " --> ; : --> " .. viewer.simpleList(s, ";", ":")
s = ";abc/def;def;/123///xyz" ; t = t .. "\n* " .. s .. " --> ; / --> " .. viewer.simpleList(s, ";", "/")
s = ";abc/def;def;/123///xyz" ; t = t .. "\n* " .. s .. " --> ; : / --> " .. viewer.simpleList(s, ";", ":", "/")
s = ";abc/def;def;/123///xyz" ; t = t .. "\n* " .. s .. " --> ; / : --> " .. viewer.simpleList(s, ";", "/", ":")
t = t .. "\n* Special separators chars or cases:"
s = ";Other;Middle;Begin" ; t = t .. "\n* " .. s .. " --> sort --> " .. viewer.simpleList(s, "sort")
s = ";Other;Middle;Begin" ; t = t .. "\n* " .. s .. " --> ; sort --> " .. viewer.simpleList(s, ";", "sort")
s = ";def;abc;def;abc" ; t = t .. "\n* " .. s .. " --> ; sort --> " .. viewer.simpleList(s, ";", "sort")
s = ";abc,def;def,abc" ; t = t .. "\n* " .. s .. " --> sort ; , --> " .. viewer.simpleList(s, "sort", ";", ",")
s = ";abc.def;def.abc" ; t = t .. "\n* " .. s .. " --> ; . --> " .. viewer.simpleList(s, ";", ".")
s = ";abc.def;def.abc" ; t = t .. "\n* " .. s .. " --> ; . --> " .. viewer.simpleList(s, ";", ".")
s = ";abc,def;def,abc" ; t = t .. "\n* " .. s .. " --> ; , --> " .. viewer.simpleList(s, ";", ",")
s = ";abc-def;def-abc" ; t = t .. "\n* " .. s .. " --> ; - --> " .. viewer.simpleList(s, ";", "-")
--]]
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- viewer.simpleList_test(t)
-- mw.language:formatDate lang:formatDate( format, timestamp, local )
-- Formats a date according to the given format string. timestamp else current time. The value for local must be a boolean or nil; if true, the time is formatted in the wiki's local time rather else in UTC.
-- The format string and supported values for timestamp are identical to those for the #time parser function from Extension:ParserFunctions. Note that backslashes may need to be doubled in the Lua string where they wouldn't in wikitext:
-- {{#time:d F Y|1988-02-28|nl}} → 28 februari 1988
-- {{#time: U | now }} → 1424087375
-- {{#time: r|@1424087374}} → Mon, 16 Feb 2015 11:49:34 +0000
function viewer.day_to_UTC(jj, mm, aaaa)
local t = "@" .. tostring( jj*86400 + mm*30*86400 + (aaaa-1970)*31556926 )
return t
end
function viewer.day_to_stamp(jj, mm, aaaa)
jj = tonumber(jj)
if not jj then jj = "2" else jj = string.sub("0000" .. tostring(jj), -2, -1 ) end
mm = tonumber(mm)
if not mm then mm = "2" else mm = string.sub("0000" .. tostring(mm), -2, -1 ) end
aaaa = tonumber(aaaa)
if not aaaa then aaaa = "2000" else aaaa = string.sub("0000" .. tostring(aaaa), -4, -1 ) end
return aaaa .. "-" .. mm .. "-" .. jj
end
function viewer.formatDate(format, timestamp, lang, loc)
if not viewer.language_obj then viewer.language_obj = mw.language.new( "fr" ) end
if lang then viewer.language_obj = mw.language.new( lang ) end
if viewer.language_obj then viewer.language_code = viewer.language_obj:getCode() end
if type(loc) ~= "boolean" then loc = true end
return tostring(viewer.language_obj:formatDate(format, timestamp, loc))
end -- function viewer.formatDate(format, timestamp, loc)
function viewer.time_format_test_1(t, test, format, timestamp, lang, loc)
if lang then viewer.language_obj = mw.language.new( lang ) end
t = t .. viewer.Tr() .. viewer.Td(test or "-") .. viewer.Td(format or "-") .. viewer.Td(timestamp or "-") .. viewer.Td(tostring(lang)) .. viewer.Td( viewer.formatDate(format, timestamp, loc) )
return t
end
function viewer.format_time_tests(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
if not viewer.language_obj then viewer.language_obj = mw.language.new( "fr" ) end
if viewer.language_obj then viewer.language_code = viewer.language_obj:getCode() end
local t = t or "\n<b>time_format_test</b> :"
t = t .. "\nCoding and conversion of dates by the parser function language_obj:formatDate(format, timestamp, loc)."
t = t .. viewer.ta("viewer.language_code", viewer.language_code)
t = t .. "<br>Verify some date formats: Vérifier quelques formats de dates :"
t = t .. viewer.Th() .. viewer.Tc("Test dates from seconds") .. viewer.Tc("format") .. viewer.Tc("timestamp") .. viewer.Tc("lang") .. viewer.Tc("Formated date")
t = viewer.time_format_test_1(t, " now", "U", "now")
t = viewer.time_format_test_1(t, " now", "F j Y", "now")
t = viewer.time_format_test_1(t, " seconds to full UTC ", "r", "@1421117374")
t = viewer.time_format_test_1(t, " seconds to full UTC ", "r", "@1424087374")
t = viewer.time_format_test_1(t, " 2015-02-16T11:49:34+00:00 ", "c", "@1424107003")
t = viewer.time_format_test_1(t, " 14/7/1789 to english ", "F j Y", viewer.day_to_UTC(14, 7, 1789), "en")
t = viewer.time_format_test_1(t, " seconds to french format ", "j F Y", "@1499997003")
t = viewer.time_format_test_1(t, " french 14/7/1789 ", "j F Y", viewer.day_to_UTC(14, 7, 1789), "fr")
t = viewer.time_format_test_1(t, " french 14/7/234 ", "j F Y", viewer.day_to_UTC(14, 7, 234), "fr")
t = t .. viewer.Tr() .. viewer.Tc("Test from UTC") .. viewer.Tc("format") .. viewer.Tc("timestamp") .. viewer.Tc("lang") .. viewer.Tc("Formated date")
t = viewer.time_format_test_1(t, " french date ", "j F Y", "1915-02-16T17:16:43+00:00", "fr")
t = viewer.time_format_test_1(t, " french date ", "j F Y", "1515-02-22T17:16:43+00:00", "fr")
t = t .. viewer.Tr() .. viewer.Tc("Test dates only") .. viewer.Tc("format") .. viewer.Tc("timestamp") .. viewer.Tc("lang") .. viewer.Tc("Formated date")
t = viewer.time_format_test_1(t, " french 2015-02-16 ", "j F Y", "2015-02-16", "fr")
t = viewer.time_format_test_1(t, " french 32-12-25 ", "j F Y", "32-12-25", "fr")
t = viewer.time_format_test_1(t, " french 0032-12-25 ", "j F Y", "0032-12-25", "fr")
t = viewer.time_format_test_1(t, " french 3/4/5 ", "j F Y", viewer.day_to_stamp(3, 4, 5), "fr")
t = viewer.time_format_test_1(t, " french 24/11/31 ", "j F Y", viewer.day_to_stamp(24, 11, 31), "fr")
t = viewer.time_format_test_1(t, " french 24/11/32 ", "j F Y", viewer.day_to_stamp(24, 11, 32) )
t = viewer.time_format_test_1(t, " french 24/12/32 ", "j F Y", viewer.day_to_stamp(24, 12, 32) )
t = viewer.time_format_test_1(t, " french 25/12/32 ", "j F Y", viewer.day_to_stamp(25, 12, 32) )
t = viewer.time_format_test_1(t, " french 25/12/32 roman year ", "j F xrY", viewer.day_to_stamp(25, 12, 32) )
t = t .. viewer.Tr() .. viewer.Tc("Test partial formats & missing datas") .. viewer.Tc("format") .. viewer.Tc("timestamp") .. viewer.Tc("lang") .. viewer.Tc("Formated date")
t = viewer.time_format_test_1(t, " partial format 3/4/5 ", "j F Y", viewer.day_to_stamp(3, 4, 5) )
t = viewer.time_format_test_1(t, " partial format 3/4/5 ", "Y", viewer.day_to_stamp(3, 4, 5) )
t = viewer.time_format_test_1(t, " missing day -/4/5 ", "F Y", viewer.day_to_stamp(nil, 4, 5) )
t = viewer.time_format_test_1(t, " missing month 3/-/5 ", "j Y", viewer.day_to_stamp(3, nil, 5) )
t = viewer.time_format_test_1(t, " missing year 3/4/- ", "j F", viewer.day_to_stamp(3, 4, nil) )
t = viewer.time_format_test_1(t, " missing day -/4/5 ", "F Y", viewer.day_to_stamp(nil, 4, 5) )
t = viewer.time_format_test_1(t, " missing month 3/-/5 ", "j Y", viewer.day_to_stamp(3, nil, 5) )
t = viewer.time_format_test_1(t, " missing year 3/4/- ", "j F", viewer.day_to_stamp(3, 4, nil) )
t = t .. viewer.Te()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function viewer.format_time_tests(t)
function viewer.parts_of_date_tests(t)
local memo = events.save_configs() -- Save global configuration before eventual changes.
local function date_to_part_test_1(t, nom, date, part)
t = t .. viewer.Tr() .. viewer.Td(nom) .. viewer.Td(date) .. viewer.Td(part) .. viewer.Td(tostring(viewer.date_to_part(date, part)))
return t
end
local t = t or "\n* <b>date_to_part</b> :"
t = t .. "\n* Verify each value of part of date:"
t = t .. viewer.Th() .. viewer.Tc("Example") .. viewer.Tc("date") .. viewer.Tc("part") .. viewer.Tc("value")
t = date_to_part_test_1(t, "Socrate birth", "470 BCE", "era")
t = date_to_part_test_1(t, "Tite-Live birth", "59 BCE", "yyyy")
t = date_to_part_test_1(t, "Tite-Live death", "17", "yyyy")
t = date_to_part_test_1(t, "empty", "", "yyyy")
t = date_to_part_test_1(t, "Revolution", "14 July 1789", "mmmm")
t = date_to_part_test_1(t, "Walk on Moon", "20 July 1969", " ")
t = date_to_part_test_1(t, "English date", "July 20 1969", "yyyy")
t = date_to_part_test_1(t, "English date", "July 20 1969", "mmmm")
t = date_to_part_test_1(t, "Nelson Mandela birth", "July 1918", "yyyy")
t = date_to_part_test_1(t, "Nelson Mandela death", "5 Decembre 2013", "dd")
t = t .. viewer.Te()
-- see https://fr.wikipedia.org/wiki/Discussion:ISO_8601#Av._J.C._:_contradiction_avec_l.27article_anglais
-- see https://fr.wikipedia.org/w/index.php?title=ISO_8601&diff=next&oldid=12449725
-- see ISO 8601 time format like : 1977-04-22T01:00:00-05:00 (5 heures de décalage) = 1977-04-22T06:00:00Z local time
-- os.date( format, time ) get datetime
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end -- function viewer.parts_of_date_tests(t)
function viewer.tableView(tabView) -- Form a table with lines and columns. Using a tableView object.
local memo = events.save_configs() -- Save global configuration before eventual changes.
if type(tabView) ~= "table" then tabView = {} end -- tabView must be a table
local tabView = mw.clone(tabView)
tabView.t = (tabView.t or "") .. viewer.ta("tableView: ", "tabView.t:")
local err = nil -- viewer.form9user("viewer_tableView_tests_title")
local t = ""
function tabView.tableView_form_one_case(case) -- Generally to define: Convert a case from testGroup to rowGroup.
return case
end
tabView = viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- t = t .. tabView.t -- internal track for debug
t = t .. tabView.form_whole_tableView() -- Form whole the viewer.tableView()
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t, err, tabView
end -- function viewer.tableView(tabView)
function viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
memo = events.save_configs() -- Save global configuration before eventual changes.
if type(tabView) ~= "table" then tabView = {} end -- tabView must be a table
tabView.headers = tabView.headers or "viewer_tableView_tests_headers"
tabView.headers = viewer.form9user(tabView.headers)
tabView.form_elem_detail = tabView.form_elem_detail or "viewer_tabView_form_elem_detail" -- "detail = %1 | %2 | %3 | %4 | %5."
tabView.headers_class = tabView.headers_class or "wikitable alternative center"
-- headers_class = "wikitable alternative center sortable",
-- A triable table start with : {| class="wikitable sortable"
-- A column become fix and not triable with : ||class="unsortable"|
tabView.tableStyle = tabView.tableStyle or " "
tabView.testGroup = tabView.testGroup or {
{ "abc", 123, "A1, B2, C3" },
{ "equation", "y =", "a * x2 + b * x + c" },
{ "Matrix:", { "2.1.0", "v4-6, ISO_8601, FC14 h6" } },
{ "pi = ", 3.14, "circle / diameter" },
{ "quadrature", "function end", "convert a square to a circle" },
}
tabView.t = (tabView.t or "") .. viewer.ta("tableView.tabView.testGroup: ", #tabView.testGroup) -- track to debug
tabView.rowGroup = tabView.rowGroup or {}
function tableView_form_one_case(case) -- Default: Convert a case from testGroup to rowGroup.
local tocase = case -- {}
-- for i, val in pairs(case) do table.insert( tocase, val) end
tabView.t = tabView.t .. viewer.ta("tableView_form_one_case#tocase: ", #tocase) -- track to debug
return tocase
end
tabView.tableView_form_one_case = tabView.tableView_form_one_case or tableView_form_one_case
function tabView.add_Row(case) -- Default: Add a row to rowGroup.
tabView.t = tabView.t .. viewer.ta("add_Row-#case: ", #case) -- track to debug
table.insert( tabView.rowGroup, case)
end -- In other tableView objects this function could, from each case, select or duplicate some rows.
function tabView.tableView_form_all_cases() -- Default: Convert all tests cases from testGroup to rowGroup.
-- local memo = events.save_configs() -- Save global configuration before eventual changes.
tabView.t = tabView.t .. viewer.ta("start#testGroup", #tabView.testGroup) -- track to debug
tabView.t = tabView.t .. viewer.ta("start#rowGroup", #tabView.rowGroup) -- track to debug
for i, case in ipairs(tabView.testGroup) do
tabView.t = tabView.t .. viewer.ta("i", i)
-- local tocase = {}
if type(case) ~= "table" then
case = { case }
tabView.t = tabView.t .. viewer.ta("case={no_table}", i)
end -- Cases must be tables of values.
if type(tabView.tableView_form_one_case) == "function" then -- Convert all tests cases from testGroup to rowGroup.
case = tabView.tableView_form_one_case(case) -- Form one case
tabView.t = tabView.t .. viewer.ta("one.is_function", i)
else
case = case -- if tableView_form_one_case() is not defined, do not Form the case
tabView.t = tabView.t .. viewer.ta("one.not_function", i)
end
-- if (type(case) == "table") and (type(tabView.add_Row) == "function") then -- Do not fail if case is nil or {}.
-- tabView.add_Row(case)
if (type(case) == "table") and (type(tabView.rowGroup) == "table") then -- Do not fail if case is nil or {}.
table.insert( tabView.rowGroup, case)
tabView.t = tabView.t .. viewer.ta("one.#case", #case) -- track to debug
tabView.t = tabView.t .. viewer.ta("one.insert", i) -- track to debug
end
end
tabView.t = tabView.t .. viewer.ta("end#testGroup", #tabView.testGroup) -- track to debug
tabView.t = tabView.t .. viewer.ta("end#rowGroup", #tabView.rowGroup) -- track to debug
-- t = (t or "") .. viewer.ta("support_central_modules: ", "end")
-- events.restore_configs(memo) -- Restore global configurations after eventual changes.
end
function tabView.form_whole_tableView(headers_class) -- Form whole the viewer.tableView()
-- local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = viewer.Th(headers_class or tabView.headers_class)
local head = mw.text.split( viewer.form9user(tabView.headers), ";")
for i, header in ipairs(head) do -- Form headers of the table.
t = t .. viewer.Tc(header)
end
for row_i, columns_i in ipairs(tabView.rowGroup) do -- Form the content of each of rows.
t = t .. viewer.Tr()
for col, val in ipairs(columns_i) do
t = t .. viewer.Td(val) -- each value in columns of row_i
end
end
t = t .. viewer.Te()
-- Do not events.restore_configs(memo) to not disturb adaptations
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return t
end
-- Do not events.restore_configs(memo) to not disturb adaptations
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return tabView
end -- function viewer.tableView_adapt_options(tabView) -- Adapt all options for all uses, before all other adaptations.
function viewer.tableView_test() -- Test viewer.tableView()
return viewer.tableView() -- "viewer_tableView_tests_title" -- Form a table with lines and columns.
end
function viewer.docSection(selector, section, style)
-- res = res .. viewer.docSection(selector, "viewer_page_tests_h2_title", "h2") -- example
-- selector = "allwaysview" -- To allways display one view.
local res = ""
if type(section) ~= "string" then section = "missing section" end
if type(style) ~= "string" then style = "h3" end
if not ( (selector == true) or (selector == section) or (selector == "allwaysview") or (selector == "alltestsview") or (selector == "enforcerun") ) then return "" end
if selector == "allwaysview" then
local sec = viewer.form9user(section) -- debug not translate
-- res = res .. viewer.form9user("<%1>" .. sec .. "</%1>", style) -- debug style ok
res = res .. "<" .. style .. ">" .. sec .. "</" .. style .. ">" -- debug style ok
end
viewer.docSection_t = res
return res
end -- function viewer.docSection(selector, section, style)
--[[
function tools.dropbox(title, content, boxstyle) -- Deprecated alias function
versioning.deprecatedFunction("tools.dropbox", "viewer.DropBox")
return viewer.DropBox(title, content, boxstyle)
end
--]]
function viewer.DropBox(title, content, boxstyle) -- Form a drop box. Formar un cuadro desplegable. Former une boite déroulante.
-- Easy Dropbox style from a list of named options.
-- alignT, image, alignB, margin_bottom, width, border_radius, border_color, background_color)
-- Original code from fr.wikisource : "{{Boîte déroulante/début|titre=" .. title .. "|alignT=" .. alignT .. "}}" .. content .. "{{Boîte déroulante/fin}}"
if type(title) ~= "string" then title = "viewer_dropdown_missing_title" end
title = viewer.form9user(title)
local s = { -- options for style and other
image = nil,
alignT = alignT or "left", -- align
alignB = alignB or "left", -- align
margin_all = margin_all or "0px", -- margin
margin_bottom = margin_bottom or "1em", -- margin-bottom
width = width or "99%", -- width
border_radius = border_radius or "0", -- -moz-border-radius
text_color = text_color or "black", -- color
background_color = background_color or "#FFFFFF", -- background-color
border_color = "#AAAAAA", -- border-color
height = "1.6em", -- height
display = "block", -- not efficient, "block" to view, "none" to mask the list
label = "▼ /▶ ", -- = "Unwrap/Wrap",
-- ▼ = ▼ -- ▶ = ▶ https://fr.wikipedia.org/wiki/Table_des_caract%C3%A8res_Unicode/U25A0
-- label = label or viewer.form9user("viewer_DropBox_label_Unwrap"), -- = "Unwrap/Wrap", = "Unwrap/Wrap",
}
s.title = title
-- s.content = content or "no s.content"
s.content = tostring(content)
if type(boxstyle) == "table" then
for key, val in pairs(boxstyle) do
if type(val) == "string" then s[key] = val end
end
end
-- local txt = "{{Boîte déroulante/début|titre=" .. title .. "|alignT=" .. alignT .. "}}" .. content .. "{{Boîte déroulante/fin}}"
-- image = image or "Nuvola_apps_bookcase_2.svg" -- image
if type(s.image) == "string" then
s.image = ''
.. '<div class="NavPic" style=" background-color:' .. s.background_color .. '; " >'
.. '[[File:' .. s.image .. '|22px]]'
.. '</div>' --
else
s.image = ''
end
-- local res = '<div>' -- try to debug task T20151215
-- local res = '</div><div> </div>' -- try to debug task T20151215
local res = ''
.. "\n------ " -- This code interact with DropBox and debug the task T20151215 2016-11-13 17:57.
-- Original code from wikisource : "{{Boîte déroulante/début|titre=" .. title .. "|alignT=" .. alignT .. "}}" .. content .. "{{Boîte déroulante/fin}}"
.. '<div align="'.. s.alignB ..'" >'
.. '<div class="NavFrame" style="clear:both; margin-bottom:'.. s.margin_bottom ..'; width:'.. s.width ..'; border-style:solid; -moz-border-radius:'.. s.border_radius ..'; border-color:'.. s.border_color ..'; background-color:'.. s.background_color ..'; " title="'.. s.label ..'" >'
.. '<div class="NavHead" align="'.. s.alignT ..'" style=" height:'.. s.height ..'; background-color:'.. s.background_color ..'; color:'.. s.text_color ..'; " >'
.. s.title
.. '</div>'
.. '<div class="NavContent" align="'.. s.alignB ..'" style="margin:'.. s.margin_all ..'; background-color:'.. s.background_color ..'; display=block; " >'
.. s.image
.. s.content
.. '</div>'
.. '</div>'
.. '</div>'
--[[ -- alternative dropbox for template optimisation. Misses title.
local res = ''
.. '<div class="templatesUsed">' -- \n------
.. '<div class="mw-templatesUsedExplanation mw-editfooter-toggler mw-icon-arrow-expanded" tabindex="0" role="button">'
.. '<ul class="mw-editfooter-list mw-collapsible mw-crashd" style="display: none;"><p>'
.. s.title
.. '</p></ul>'
.. '<li>'
.. s.image
.. s.content
.. '</li>'
.. '</div>'
.. '</div>'
--]]
viewer.DropBox_t = res
return res
end -- function viewer.DropBox(title, content, boxstyle)
--[==[ How to code a local note in html:
* content with a note <sup>[[#binop-note|†]]</sup>
<div id="binop-note" >content of the note</div>
--]==] -- Rical 2017-02-07 from https://www.mediawiki.org/wiki/Extension:Scribunto/Lua_reference_manual#Metatables
-- libraryUtil.makeCheckSelfFunction( libraryName, varName, selfObj, selfObjDesc )
function viewer.docDropBoxTitle() -- Support desk title of the docDropBox of the edit box.
-- versioning_support_desk_title = "Support desk for %1 : %2 translations in %3 languages", -- en
-- versioning_support_desk_table = "viewer.docDropBoxTitle",
local tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(translate.main_i18n, "translate.main_i18n")
local title = viewer.form9user("versioning_support_desk_title", versioning.report_main_discreet, vr_tb, tot_tabs)
return title
end -- function viewer.docDropBoxTitle()
function viewer.docDropBox(selector, title, content_or_func, ...) -- Form a DropBox for a doc or a group of tests.
-- Style options in boxstyle{}: alignT, image, alignB, margin_bottom, width, border_radius, border_color, background_color)
-- selector = "allwaysview" -- To allways display one view. -- selector = "enforcerun" -- To debug one box with INTERNAL ERROR.
local memo = events.save_configs() -- Save global configuration before eventual changes.
local t = ""
if not ( (selector == true) or (selector == title) or viewer.is_in_sp(selector, "allwaysview alltestsview enforcerun failinref nocontent") ) then return "" end
local Default_title = "Default counts in %1: %2 translations e=in %3 languages"
if (type(title) ~= "string") then title = Default_title end
local key_title = title
local informed_title = title
local key_table = string.sub(key_title, 1, -7) .. "_table" -- in key_title replace "_title" with "_table"
local subnames = viewer.form9user(key_table) -- "translate.main_i18n" -- example
if subnames ~= key_table then -- If key_table exist, use it.
t = t .."tag docDropBox : "
t = t ..", key_title="..key_title
t = t ..", key_table="..key_table
t = t ..", use key_table: "
local subnames_split = mw.text.split(subnames, ";") -- "translate.main_i18n;string" -- example
local subnames = subnames_split[1] or subnames -- "translate.main_i18n" -- example
local sub_type = subnames_split[2] or "string" -- "string" -- example
t = t ..", sub_type="..sub_type
local object_loaded, sub_names, count = luaTable.from_subnames(subnames, base_table, sub_type) -- Get the last sub-table from its sub-names.
local tot_vars, tot_tabs, tot_func, vr_tb = 0, 0, 0, 0
--
if (type(object_loaded) == "string") then -- and (type(sub_type) == "string") The string is a subtable name.
tot_vars, tot_tabs, tot_func, vr_tb = luaTable.SubCounts(object_loaded) -- counts of translations
informed_title = viewer.form9user(key_title, subnames, vr_tb, tot_tabs) -- final title
t = t ..",s"..","..tostring(vr_tb)
--
elseif (type(object_loaded) == "function") then -- and (type(sub_type) == "function") The function computes counts of translations.
informed_title = object_loaded() -- like viewer.docDropBoxTitle() -- Title of the title box of the edit box.
t = t ..",f"..","..tostring(vr_tb)
--
elseif (type(object_loaded) == "table") then -- and (type(sub_type) == "table") The table is a subtable to count.
informed_title = informed_title
t = t ..",t"..","..tostring(vr_tb)
--Fonction d'aide :
end
end
-- new code end
local args = { ... } -- optional arguments
local boxstyle = {}
for i, tab in ipairs(args) do -- Get the style options for the box,
modes.recursiveLoop = (modes.recursiveLoop or 0) + 1
if modes.recursiveLoop > 3 then return "" end
if type(tab) == "table" and tab.boxstyle == "boxstyle" then
boxstyle = mw.clone( args[i] )
args[i] = nil -- then mask this style for functions giving the content.
end
end
local success, result = true, ""
if type(title) ~= "string" then title = "viewer_dropdown_missing_title" end
local ac_opt = {} -- for antiCrash
ac_opt.selector = selector
ac_opt.title = tostring(informed_title or title)
-- ..","..tostring(vr_tb) -- .. viewer.ta("type", sub_type) .. viewer.ta("vr_tb", vr_tb) .. viewer.ta("key_title", key_title) .. viewer.ta("tot_tabs", tot_tabs)
ac_opt.content = content_or_func
ac_opt.success = true
ac_opt.content_error = ""
if type(content_or_func) == "function" then
local memo = events.save_configs() -- Save global configuration before eventual changes.
ac_opt.content, ac_opt.title_errors = content_or_func( ... )
events.restore_configs(memo) -- Restore global configurations after eventual changes.
end
ac_opt.title = ac_opt.title .. ( ac_opt.title_errors or "" )
ac_opt.resultKind = "ref"
ac_opt.result = ""
-- local contt, ac_opt = versioning.antiCrash(ac_opt, content_or_func, ...) -- Form the display of a running error.
local res = viewer.DropBox(ac_opt.title, ac_opt.content, boxstyle)
if not ac_opt.success then
ac_opt.content_ref = "content_error<ref>" .. viewer.errorColor( ac_opt.content_error) .. "</ref>"
ac_opt.content = ac_opt.content_ref
end
local list, count, level, split = luaTable.level_list(package.loaded)
-- res = "* level_list = { " .. list .. " } ; " .. res
-- translate.track_i18n(tostring(title) .. ":End")
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res -- t .. res
end -- function viewer.docDropBox(selector, title, content, ...)
function viewer.formResult(options_for_modes, mode) -- Forms the result using actual mode options
-- viewer.formResult(p.options_for_modes, "edit") -- example
-- local res = res .. versioning.init(frame, Central_version)
-- res = res .. translate.track_language("viewer.formResul()")
local res, options = "\n* viewer.formResult : ", ""
if type(options_for_modes) ~= "table" then options_for_modes = modes.options_for_modes end
local opt_t, elem, module, normal, alias, name_I18N
-- collect all options
options = tostring(modes.mode_options) .. tostring(modes.invoke_options)
res = res .. viewer.ta("options_for_modes", options_for_modes)
res = res .. viewer.ta("mode", mode)
res = res .. viewer.ta("options", options)
if (type(options_for_modes) == "table") then
local options_tab = mw.text.split(options, " ", true)
for i, opt in ipairs(options_tab) do -- run all options
res = res .. viewer.ta("i", i) .. tostring(opt)
if (type(opt) == "function") and (type(opt) == "function") then
opt_t = opt
res = res .. viewer.value(opt) .. tostring(opt_t)
elseif (type(opt) == "string") and (opt ~= "") and (type(viewer[opt]) == "function") then
if opt == "docGroup"
then opt_t = viewer.docGroup("allwaysview")
else opt_t = viewer[opt] end
res = res .. viewer.value(opt) .. viewer.ta("viewer[opt]", type(viewer[opt])) .. tostring(opt_t)
elseif (type(opt) == "string") and (opt ~= "") and (type(viewer[opt]) == "string") then
opt_t = viewer[opt]
res = res .. viewer.value(opt) .. viewer.ta("viewer[opt]", type(viewer[opt])) .. tostring(opt_t)
elseif (type(opt) == "string") and (opt ~= "") then
opt_t = opt
res = res .. viewer.ta("i", i) .. viewer.value(opt) .. tostring(opt_t)
end
end
end
res = res .. "<br/><br/>"
viewer.formResult_t = res
return res
end -- function viewer.formResult()
function viewer.docPage(selector, itemid) -- Form some dropboxes of tests to document a page.
local memo = events.init_configs() -- Save global configuration before eventual changes.
local res = ""
res = res .. viewer.docSection(selector, "viewer_page_tests_h2_title", "h2")
-- on viewer.docDropBox(
res = res .. viewer.docDropBox(selector, "modes_used_options_title", modes.used_options_list )
res = res .. viewer.docDropBox(selector, "modes_list_all_args_main_title", modes.list_all_args_main) -- to_debug_on 20170409
res = res .. "\n------ " -- This code interact with DropBox and debug the bug T20151215 2016-11-13 17:57.
res = res .. viewer.docDropBox(selector, "translate_translationsCounts_title", translate.translationsCounts)
res = res .. viewer.docDropBox(selector, "luaTable_table_args_source_title", luaTable.structure, modes.args_source, "modes.args_source")
res = res .. viewer.docDropBox(selector, "modes_args_known_structure_title", modes.args_known_structure) -- to_debug_on 20170409
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res
end -- function viewer.docPage(selector, itemid)
function viewer.docModule(selector, itemid) -- Form some dropboxes of tests to document a module.
local memo = events.init_configs() -- Init a new events group
local res = ""
-- res = res .. viewer.form9user("begin_support_central_modules_title") .. " docModule "
-- global _G versioning.list_all_G_and_loaded : Variables in _G global space = , br = Modulenn:Central-w-br/doc , br = Modulenn:Central-s-br/doc
res = res .. viewer.docSection(selector, "viewer_module_tests_h2_title", "h2")
res = res .. viewer.docDropBox(selector, "luaTable_table_args_unknown_title", luaTable.structure, modes.args_unknown, "modes.args_unknown",
{ boxstyle = "boxstyle", image = "Gtk-dialog-info.svg"} ) -- "[[Fichier:Gtk-dialog-info.svg|15px]]"
res = res .. viewer.docDropBox(selector, "versioning_support_desk_title", versioning.form_support_desk_report )
-- versioning.support_desk_report
-- versioning.form_support_desk_report()
-- begin.follow_central_modules() Suivre le début de l'utilisation des modules centraux.
res = res .. viewer.docDropBox(selector, "begin_support_central_modules_title", begin.support_begin_central_modules )
res = res .. viewer.docDropBox(selector, "begin_survey_sub_tasks_title", begin.survey_sub_tasks )
res = res .. viewer.docDropBox(selector, "modes_brief_options_mode_title", modes.options_from_mode_tests)
res = res .. viewer.docDropBox(selector, "modes_all_categories_list_title", modes.all_categories_list)
res = res .. viewer.docDropBox(selector, "modes_all_errors_list_title", modes.all_errors_list)
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res
end -- function viewer.docModule(selector, itemid)
function viewer.docInternal(selector, itemid) -- Form some dropboxes of tests to document internal functions.
local memo = events.init_configs() -- Init a new events group
local res = ""
res = res .. viewer.docSection(selector, "viewer_internal_tests_h2_title", "h2")
--
res = res .. viewer.docSection(selector, "Library:begin", "h3")
res = res .. viewer.docDropBox(selector, "begin_support_central_modules_title", begin.support_begin_central_modules )
res = res .. viewer.docDropBox(selector, "begin_survey_sub_tasks_title", begin.survey_sub_tasks)
res = res .. viewer.docDropBox(selector, "<b>begin.init_selected_wiki()</b> Test some wiki inits", begin.init_selected_wiki_test)
res = res .. viewer.docDropBox(selector, "begin_links_to_central_modules_title", begin.links_to_central_modules)
--
res = res .. viewer.docSection(selector, "Library:datas", "h3")
-- res = res .. viewer.docDropBox(selector, "datas_wikidata_arbitrary_tests_title", datas.wikidata_arbitrary_tests )
-- { boxstyle = "boxstyle", image = "Gtk-dialog-info.svg"} )
res = res .. viewer.docDropBox(selector, "datas_wikidata_time_details_title", luaTable.structure, datas.wikidata_time_details) --, "datas.wikidata_time_details.claims." .. (datas.TimeName or "Pxxx") )
--
res = res .. viewer.docSection(selector, "Library:events", "h3")
res = res .. viewer.docDropBox(selector, "events_all_kinds_tests_title", events.all_kinds_test)
res = res .. viewer.docDropBox(selector, "events_categ_Test_title", events.categ_Test) -- to_debug_on 20170409
res = res .. viewer.docDropBox(selector, "events_selectLang_tests_title", events.selectLang_test)
--
res = res .. viewer.docSection(selector, "Library:luaTable", "h3")
res = res .. viewer.docDropBox(selector, "luaTable_from_subnames_test_title", luaTable.from_subnames_test )
res = res .. viewer.docDropBox(selector, "luaTable_roughView_tests_title", luaTable.roughView_test )
res = res .. viewer.docDropBox(selector, "luaTable_structure_nolimits_title", luaTable.structure, luaTable.tablim, "luaTable.tablim", {} )
res = res .. viewer.docDropBox(selector, "luaTable_structure_limits_title", luaTable.structure, luaTable.tablim, "luaTable.tablim",
{ boxstyle = "boxstyle", level_maxi = 2, max_n = 2, exclude1 = "hou" } ) -- , {width = "88%", text_color = "blue"}
res = res .. viewer.docDropBox(selector, "luaTable_toList_tests_title", luaTable.toList_tests)
res = res .. viewer.docDropBox(selector, "luaTable_toTable_tests_title", luaTable.toTable_test)
-- In central modules, the Library:mathroman is a simple example of central modules support for any library.
res = res .. viewer.docSection(selector, "Library:mathroman", "h3")
res = res .. viewer.docDropBox(selector, "mathroman_roman2int_tests_title", mathroman.roman2int_tests) -- to_debug_on 20170409
res = res .. viewer.docDropBox(selector, "mathroman_int2roman_test_title", mathroman.int2roman_test) -- to_debug_on 20170409
--"enforcerun" "allwaysview"
--
res = res .. viewer.docSection(selector, "Library:modes", "h3")
res = res .. viewer.docDropBox(selector, "modes_options_from_args_tests_title", modes.options_from_args_tests)
res = res .. viewer.docDropBox(selector, "modes_brief_options_mode_title", modes.options_from_mode_tests,
{ boxstyle = "boxstyle", width = "80%", text_color="green", alignT="left", alignB="center", margin_all="2em",
background_color="yellow", border_color="red", height="2em", image="Gtk-dialog-info.svg"} )
res = res .. viewer.docDropBox(selector, "modes_options_from_mode_tests_title", modes.options_from_mode_tests,
{ boxstyle = "boxstyle", width = "80%", text_color="green", alignT="left", alignB="center", margin_all="3em",
background_color="yellow", border_color="red", height="2em", image="Gtk-dialog-info.svg"} ) -- "[[Fichier:Gtk-dialog-info.svg|15px]]"
res = res .. viewer.docDropBox(selector, "modes_recursiveNormal_tests_title", modes.recursiveNormal_tests )
-- arguments list
res = res .. viewer.docDropBox(selector, "modes_all_categories_list_title", modes.all_categories_list)
res = res .. viewer.docDropBox(selector, "modes_all_errors_list_title", modes.all_errors_list)
-- arguments support
res = res .. viewer.docDropBox(selector, "modes_multiple_selection_tests_title", modes.multiple_selection_tests)
-- res = res .. viewer.docDropBox(selector, "modes_multiple_values_tests_title", modes.multiple_values_tests)
res = res .. viewer.docDropBox(selector, "modes_similar_args_searchs_title", modes.similar_args_search_tests) -- to_debug_on 20170409
res = res .. viewer.docDropBox(selector, "modes_similar_levenshtein_tests_title", modes.similar_levenshtein_tests)
res = res .. viewer.docDropBox(selector, "modes_spaces_names_page_title", modes.spacesNamesPageTest)
-- "enforcerun"
--
res = res .. viewer.docSection(selector, "Library:testsCases", "h3")
res = res .. viewer.docDropBox(selector, "testsCases_group_Diffs_tests_title", testsCases.group_Diffs_tests ) -- Tests and report detailed differences, recursive.
res = res .. viewer.docDropBox(selector, "testsCases_search_Diffs_tests_title", testsCases.search_Diffs_tests ) -- Tests and report detailed differences, recursive.
res = res .. viewer.docDropBox(selector, "testsCases_tests_Cases_report_title", testsCases.tests_Cases_report ) -- Run a group of tests and returns one string.
-- translations support
res = res .. viewer.docSection(selector, "Library:translate", "h3")
-- res = res .. translate.track_counts("Library:translate:begin", "versioning.i18n", trans, tables, versioning.i18n)
-- res = res .. translate.track_counts("Library:translate:begin", "translate.i18n", trans, tables, translate.i18n)
-- res = res .. translate.track_counts("Library:translate:begin", "versioning.main_i18n", trans, tables, versioning.main_i18n)
-- res = res .. translate.track_counts("Library:translate:begin", "translate.main_i18n", trans, tables, translate.main_i18n)
res = res .. viewer.docDropBox(selector, "translate_translationsCounts_title", translate.translationsCounts) -- to_debug_on 20170409
res = res .. viewer.docDropBox(selector, "translate_changing_translations_title", translate.changing_translations) --, i18n, t)
res = res .. viewer.docDropBox(selector, "translate_missing_translations_title", translate.missing_translations)
res = res .. viewer.docDropBox(selector, "translate_dummy_languages_title", translate.dummy_languages)
-- res = res .. viewer.docDropBox(selector, "translate_mixed_translations_title", translate.i18n_lister)
res = res .. viewer.docDropBox(selector, "translate_abnormal_char_in_text_title", translate.abnormal_char_in_text )
-- res = res .. viewer.docDropBox(selector, "translate_list_Mediawiki_languages_title", translate.list_Mediawiki_languages )
-- res = res .. translate.track_counts("Library:translate:end", "translate.i18n", trans, tables, translate.i18n)
-- res = res .. translate.track_counts("Library:translate:end", "versioning.main_i18n", trans, tables, versioning.main_i18n)
-- res = res .. translate.track_counts("Library:translate:end", "translate.main_i18n", trans, tables, translate.main_i18n)
--"allwaysview"
--
res = res .. viewer.docSection(selector, "Library:versioning", "h3")
res = res .. viewer.docDropBox(selector, "versioning_versions_management_report", versioning.versions_management_report )
res = res .. viewer.docDropBox(selector, "versioning_list_all_G_and_loaded_title", versioning.list_all_G_and_loaded)
-- res = res .. translate.track_counts("versioning_list_all_G:end", "translate.i18n", trans, tables, translate.i18n)
-- res = res .. translate.track_counts("versioning_list_all_G:end", "translate.main_i18n", trans, tables, translate.main_i18n)
res = res .. viewer.docDropBox(selector, "versioning_bind_modules_report_title", versioning.bind_central_modules_report )
res = res .. viewer.docDropBox(selector, "versioning_deprecatedFunction_tests_title", versioning.deprecatedFunction_test)
-- res = res .. viewer.docDropBox(selector, "versioning_bind_modules_tests_title", versioning.bind_modules_test )
res = res .. viewer.docDropBox(selector, "versioning_sort_central_modules_title", versioning.sort_central_modules_report )
res = res .. viewer.docDropBox(selector, "versioning_tasks_report_title", versioning.versioning_tasks_report )
res = res .. viewer.docDropBox("nocontent", "versioning.antiCrash_tests() selector=nocontent", viewer.simpleList_test ) -- Test antiCrash()
-- res = res .. versioning.antiCrash_tests()
res = res .. viewer.docDropBox(selector, "versioning_antiCrash_tests_title", versioning.antiCrash_tests ) -- Tests antiCrash()
res = res .. viewer.docDropBox(selector, "versioning_dev_running_times_title", versioning.running_times ) -- versioning.running_times()
--
res = res .. viewer.docSection(selector, "Library:viewer", "h3")
-- The Library:viewer forms some viewers for tables(in lines and columns), dropboxes, recursive luatables...
res = res .. viewer.docDropBox(selector, "viewer_form9user_tests_title", viewer.form9user_test )
res = res .. viewer.docDropBox(selector, "viewer_form99user_tests_title", viewer.form99user_test )
res = res .. viewer.docDropBox(selector, "viewer_format_time_tests_title", viewer.format_time_tests)
res = res .. viewer.docDropBox(selector, "viewer_parts_of_date_tests_title", viewer.parts_of_date_tests)
res = res .. viewer.docDropBox(selector, "viewer_simpleList_tests_title", viewer.simpleList_test )
res = res .. viewer.docDropBox(selector, "viewer_table_tabOptions_title", viewer.table_test )
res = res .. viewer.docDropBox(selector, "viewer_tableView_tests_title", viewer.tableView_test )
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res
end -- function viewer.docInternal(selector, itemid)
function viewer.testsview(t) -- Deprecated alias function
versioning.deprecatedFunction("viewer.testsview", "viewer.docGroup")
return viewer.docGroup(t)
end
function viewer.docGroup(selector, itemid) -- Form a documentation of one dropbox or all.
local memo = events.init_configs(memo_tests) -- Init a new events group
local res = ""
res = res .. viewer.docPage(selector, itemid)
res = res .. viewer.docModule(selector, itemid)
res = res .. viewer.docInternal(selector, itemid)
-- res = res .. versioning.antiLoop_list() -- List versioning.antiLoop().
viewer.docGroup_t = res
events.restore_configs(memo) -- Restore global configurations after eventual changes.
return res
end -- function viewer.docGroup(selector, itemid)
-- - - - ------------------ - - - - ---------------------------------
-- Try part of Module:Central
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- At code level, try part tests show how to use libraries:
-- * To convert a module as centralisable using functions(frame).
-- * To form categories, errors and warnings, their collection and their activations.
-- * To form dropboxes and tableform with translatable headers.
-- * To display the structure of an internal luatable, to parameter this display and to get its counts of elements.
--
-- At page level, try part tests show how to use libraries:
-- * To get the wikitext resulting of a module in read or edit or tests or doc1 mode.
-- * In edit mode, a docbox display received arguments, errors and categories.
-- * In test mode, several dropboxes display many cases of tests that anybody can read and verify.
-- * These tests verify libraries and tools.
--
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ------------------ - - - - -----------------------------
-- - - - ------------------ - - - - ---------------------------------
-- Running internal tests and their documentations.
-- Ejecución de las pruebas internas y su documentación.
-- Exécution des tests internes et de leurs documentations.
--
-- Errors are needed to test their detection. Do not correct them.
-- Errores se necesitan para probar su detección. No corregirlos se.
-- Les erreurs sont nécessaires pour tester leur détection. Ne pas les corriger.
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- Tables of translations of settings and warnings in the languages : en, es, fr.
-- Mesas traducciones parámetros y mensajes en los idiomas : en, es, fr.
-- Tables des traductions des paramètres et warnings dans les langues : en, es, fr.
--
-- i18n translations tables to extend and update in calling modules
-- - - - ------------------ - - - - ---------------------------------
p.i18n = {} -- translations tables known in the module
p.i18n.en = {
-- Arguments linked to the main module
lastname = 'name',
lastname_descr = "Family name. Please specify to correct the sort key.",
firstname = 'firstname',
firstname_descr = "First name. Please specify to correct the sort key.",
firstname2 = 'firstname',
firstname2_descr = "First name. Please specify to correct the sort key.",
initiale = 'initial',
initiale_descr = "Initial to correct the category of authors.",
title = 'title',
title_descr = "Page title, automatic.",
country = 'country',
flag_of_country = 'Flag of England.svg',
flag_of_country_descr = 'Flag of the country',
occupation_cat = '%1',
year_number_cat = "Year %1",
birthyear = 'birthyear', -- birthyear P569 for test p_authors_birthyear_cat
birthyear_descr = "Year of birth.",
p_authors_birthyear_cat = "%1 births", -- en.wikisource 1802 births - 1885 deaths
deathyear = 'deathyear', -- deathyear P570 for test p_authors_deathyear_cat
deathyear_descr = "Year of death.",
p_authors_deathyear_cat = "%1 deaths", -- en.wikisource 1802 births - 1885 deaths
description = 'description',
description_descr = "Author's description, to clarify whether the automatic description does not fit.",
-- Arguments limited to multiple values
region = 'region', -- argument with verified multiple values
region_descr = 'Region to determine the ancient periods.',
region_values = 'other;china;india;century', -- wiki_selectors
rights = 'rights',
rights_descr = "Necessary copyrights type: 70,50,mpf,ONU,non.",
rights_values = '70;50;mpf;ONU;none',
sex = 'sex',
sex_descr = 'Genre of the author',
sex_values = 'male;female',
} -- p.i18n.en
p.i18n.es = {
-- Argumentos relacionados con el módulo principal
occupation_cat = '%1',
p_authors_deathyear_cat = "Autores-%1",
year_number_cat = "Año %1",
-- Nombres y descripciones de los argumentos
lastname = 'nombre',
lastname_descr = "Nombre. Por favor, especifique para corregir la clave de ordenación.",
firstname = 'apellido',
firstname_descr = "Primero. Proponer para corregir la autómata.",
firstname2 = 'primero',
firstname2_descr = "Primero. Proponer para corregir la autómata.",
initiale = 'inicial',
initiale_descr = "Inicial para corregir la categoría de los autores.",
title = 'titulo',
title_descr = "Título de la página, automático.",
country = 'país',
flag_of_country = 'Flag_of_Spain.svg',
flag_of_country_descr = 'Bandera del país',
birthyear = 'nacimiento',
birthyear_descr = "Año de nacimiento.",
p_authors_birthyear_cat = "N%1", -- es.wikisource N1802 - F1885
deathyear = 'muerte',
deathyear_descr = "Año de la muerte.",
p_authors_deathyear_cat = "F%1", -- es.wikisource N1802 - F1885
description = 'descripcion',
description_descr = "Descripción del autor, para aclarar si la descripción automática no encaja.",
-- Argumentos limitados a múltiples valores
region = 'región',
region_descr = 'Región para determinar los tiempos antiguos.',
region_values = "otro;china;india;siglo",
rights = 'derechos',
rights_descr = "Tipo de derechos de autor necesario: 70,50,mpf,ONU,non.",
rights_values = '70;50;mpf;ONU;no',
sex = 'sex',
sex_descr = 'Género del autor',
sex_values = 'hombre;mujer',
} -- p.i18n.es
p.i18n.fr = {
-- Arguments liés au module principal
occupation_cat = '%1',
p_authors_deathyear_cat = "Auteurs-%1",
year_number_cat = "Année %1",
-- Noms et descriptions des arguments
lastname = 'nom',
lastname_descr = "Nom. A préciser pour corriger la clé de tri.",
firstname = 'prénom',
firstname_descr = "Prénom. A préciser pour corriger la clé de tri.",
firstname2 = 'prenom',
firstname2_descr = "Prénom. A préciser pour corriger la clé de tri.",
initiale = 'initiale',
initiale_descr = "Initiale pour corriger les catégories d'ateurs.",
title = 'titre',
title_descr = "Titre de la page, automatique.",
country = 'pays',
flag_of_country = 'Flag_of_France.svg',
flag_of_country_descr = 'Drapeau du pays',
birthyear = 'anneeNaissance',
birthyear_descr = "Année de naissance",
p_authors_birthyear_cat = "Naissance en %1", -- fr.wikisource Naissance en 1802 Décès en 1885
deathyear = 'anneeDeces',
deathyear_descr = "Année de décès",
p_authors_deathyear_cat = "Décès en %1", -- fr.wikisource Naissance en 1802 Décès en 1885
description = 'description',
description_descr = "Description de l'auteur, à préciser si la description automatique ne convient pas",
-- Arguments limités à des valeurs multiples
region = 'région',
region_descr = 'Région pour déterminer les époques anciennes.',
region_values = "autre;chine;inde;siècle", -- wiki_selectors
rights = 'droits',
rights_descr = "Type de droits d'auteur nécessaire parmi : 70,50,mpf,ONU,non.",
rights_values = '70;50;mpf;ONU;non',
sex = 'sexe',
sex_descr = "Sexe de l'auteur",
sex_values = 'homme;femme',
} -- p.i18n.fr
-- - - - ------------------ - - - - ---------------------------------
-- p.i18n tables end
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- Arguments table, to change in calling modules
-- - - - ------------------ - - - - ---------------------------------
p.args_known = { -- Table of the definitions of all known arguments at module level.
-- Arguments in order without names, with their keyword for use as other arguments.
-- Arguments dans l'ordre, non nommés, avec leur keyword pour traitement comme les autres arguments.
[1] = {need = 0, syn = 2,
keyword = "mode"},
-- Special arguments to modify the fonctions and outputs of this module.
-- Arguments speciaux pour modifier le fonctionnement et les sorties de ce module.
mode = {typ = "config", need = 0,
keyword = "mode"},
c = {typ = "config", need = 0,
keyword = "c"},
options = {typ = "config", need = 0,
keyword = "options"},
-- The userlang argument permits at an administrator in his own langage (errors, warnings, catégories, tests) to help a wiki in any language.
-- El userlang argumento permisos en administrador en su propia langage (errores, advertencias, categorías, pruebas) para ayudar a un wiki en cualquier idioma.
-- L'argument userlang permet à un administrateur dans son propre langage (erreurs, warnings, catégories, tests) d'aider un wiki dans ne importe quelle langue.
-- userlang = {typ = "config", need = 0,
-- keyword = "userlang"},
-- The wikilang argument permits to verify in one unique wiki that a module can well adapt itself to any wiki language.
-- Los argumento wikilang permisos para verificar en una wiki único que un módulo puede así adaptarse a cualquier idioma de wiki.
-- L'argument wikilang permet de vérifier dans un wiki unique qu'un module peut s'adapter à n'importe quelle langue de wiki.
-- wikilang = {typ = "config", need = 0,
-- keyword = "wikilang"},
-- allversions = {typ = "config", need = 0,
-- keyword = "allversions"},
knownversions = {typ = "config", need = 0,
keyword = "knownversions"},
-- selectversions = {typ = "config", need = 0,
-- keyword = "selectversions"},
soughtversions = {typ = "config", need = 0,
keyword = "soughtversions"},
debug = {typ = "opt", need = 0,
keyword = "debug"},
category = {typ = "ctr", need = 0,
keyword = "category"},
-- All arguments have a keyword identical to the registration name, except synonyms.
-- Tous les arguments ont un keyword identique au nom d'enregistrement, sauf les synonymes.
label = {typ = "dat", need = 0,
keyword = "label" , prop = "label"},
country = {typ = "dat", need = 0,
keyword = "country", prop = "P27", },
sitelink = {typ = "dat", need = 0,
keyword = "sitelink" , prop = "sitelink"},
itemid = {typ = "dat", need = 2,
keyword = "itemid" , prop = "itemid"},
itemid2 = {typ = "dat", need = 2, syn = 2,
keyword = "itemid" , prop = "itemid"},
lastname = {typ = "dat", need = 0,
keyword = "lastname"},
lastname2 = {typ = "dat", need = 0, syn = 2,
keyword = "lastname"},
firstname = {typ = "dat", need = 0,
keyword = "firstname"},
firstname2 = {typ = "dat", need = 0, syn = 2,
keyword = "firstname"},
initiale = {typ = "dat", need = 2,
keyword = "initiale"},
title = {typ = "dat", need = 2,
keyword = "title"},
birthyear = {typ = "dat", need = 0,
keyword = "birthyear", prop = "P569", format = "year"},
deathyear = {typ = "dat", need = 0,
keyword = "deathyear", prop = "P570", format = "year"},
description = {typ = "dat", need = 0,
keyword = "description", prop = "description"},
sex = {keyword = "sex", typ = "dat", need = 0, prop = "P21",
arg_values = "sex_values", key_values = ";", }, -- wiki_selectors
region = {keyword = "region", typ = "dat", need = 0,
arg_values = "region_values", key_values = "other;china;india;century" }, -- wiki_selectors
rights = {keyword = "rights", typ = "dat", need = 2,
arg_values = "rights_values", key_values = "no;none;ONU;none;cn;50;us;70;mpf", -- wiki_selectors
delay_values = "0;0;0;0;50;50;70;70;95", arg_uses = "none;none;none;none;cn;cn;us;us;mpf" }, -- wiki_selectors
} -- p.args_known
-- - - - ------------------ - - - - ---------------------------------
-- Arguments sources examples
--
-- Errors are needed to test their detection. Do not correct them.
-- Errores se necesitan para probar su detección. No corregirlos se.
-- Les erreurs sont nécessaires pour tester leur détection. Ne pas les corriger.
-- - - - ------------------ - - - - ---------------------------------
p.WikidataEN = { label = "John Smith", deathyear = "1789", country = "France" }
p.ArgtestEN = { "mode One", "Rimbaud 2", name = "Rimbaud", firstname = "Arnaud", rights = "70", deathyear = "MDCCCJL", langue = "allemand,français,espagnol" }
p.ArgtestES = { nombre = "Rimbaud", apellido = "Arthur", optionsES = " ", derechoss = "70", anoMuerte = "MDCCCJL"}
p.ArgtestFR = { "mode Un", "Rimbaud 2", "Jonh", nom = "Smith", ["prénom"] = "Arnaud", anneeDeces = "1234", }
function p.trc(fn_mode, t)
local res = ""
-- to put in comment to desactivate
-- res = res .. "<br>* " .. t .. viewer.ta("fn_mode", fn_mode) .. viewer.ta("modes.mode_name", modes.mode_name) .. viewer.ta("modes.mode_options", modes.mode_options) .. viewer.ta("modes.invoke_options", modes.invoke_options)
res = res .. viewer.ta("trc try", viewer.form9user("viewer_internal_tests_title")) .. viewer.ta("MR", viewer.form9user("err_J_before_end")) .. viewer.ta("AT", viewer.form9user("deathyear"))
return res
end
function p.list_all_args_sub(t, args_known) -- modes_list_all_args_main_title = List of all arguments, for try
local t = t or "<br>* <b>list_all_args_sub :</b> "
-- t = t or "<br>* <b>List_all_args :</b> "
if type(args_known) ~= "table" then args_known = modes.args_known end
local descr, description = "", ""
local args = mw.clone(args_known)
local arglst = {}
for key, elem in pairs(args) do
elem.key = tostring(key)
descr = key .. "_descr" -- key for description of an argument
elem.description = translate.user_translations[descr] or "**missing translation**"
elem.user_lang_key = translate.user_translations[elem.key] or elem.key or "**missing key**"
elem.user_lang_keyword = translate.user_translations[elem.keyword] or elem.keyword or "**missing keyword**"
elem.lev_arg_txt = ""
local lst_lev = {}
local lev_min = 99
for arg_lev, elem_lev in pairs(args) do
elem_lev.levenshtein = modes.levenshtein( translate.wiki_translations[arg_lev], translate.wiki_translations[key] ) or 99
if elem_lev.levenshtein < lev_min then
lev_min = elem_lev.levenshtein
elem.levenshtein = elem_lev.levenshtein
elem.lev_min = lev_min
elem.arg_lev = arg_lev
elem.lev_lang = translate.wiki_translations[arg_lev] or arg_lev
end
elem.arg_lev = arg_lev
elem.lev_arg_txt = viewer.ta("lev", tostring(elem.lev_lang) .. ":" .. tostring(elem.lev_min) .. ":" .. elem.arg_lev )
-- events.add_err("modes_too_unnamed_arguments_err", key_N, val_src .. " LLL lev=" .. tostring(arglst[1].levenshtein) )
-- events.add_cat("versioning_module_usage_error_cat")
end
table.insert(arglst, elem)
end -- insert in the arguments their own key
table.sort(arglst, function (a, b) return (a.user_lang_key < b.user_lang_key) end )
local gr_syn, gr_need, gr_other = {}, {}, {}
for i, elem in ipairs(arglst) do -- group arguments in some groups
if elem.need == 1 or elem.need == 2 then table.insert(gr_need, elem)
else table.insert(gr_other, elem) end
end
local needed = viewer.smallCapsStyle(viewer.form9user("modes_needed_to_verify"))
local function list_group( group, needed )
needed = needed or ""
local t = ""
for key, elem in pairs(group) do
if elem.syn
then t = t .. "<br>* <b>" .. tostring(elem.user_lang_key) .. "</b> => <b>" .. elem.user_lang_keyword .. "</b> : " .. needed .. " " .. tostring(elem.description) .. elem.lev_arg_txt
else t = t .. "<br>* <b>" .. tostring(elem.user_lang_key) .. "</b> : " .. needed .. " " .. tostring(elem.description) .. elem.lev_arg_txt end
end
return t
end
t = t .. "<br><br>* <b>" .. viewer.form9user("modes_list_needed_args") .. "</b> " .. list_group( gr_need, needed )
t = t .. "<br><br>* <b>" .. viewer.form9user("modes_list_all_other_args") .. "</b> " .. list_group( gr_other )
return t
end -- function p.list_all_args_sub(t, args_known) -- modes_list_all_args_main_title for try
function p.form_support_desk_report() return versioning.form_support_desk_report() end
function versioning.form_support_desk_report()
-- Form the detailed Versions report
t = "\n* Discreet main version: " .. (versioning.report_main_discreet or " report_main_discreet missing ")
t = t .. translate.main_i18n_languages_list() -- List available translations languages
t = t .. "\n* Start versions from main module: " .. (versioning.bind_verif_modules_report_start or " bind_verif_modules_report_start missing ")
t = t .. versioning.versions_management_report()
t = t .. versioning.sort_central_modules_report()
t = t .. versioning.running_times()
return t, details
end -- function versioning.versions_management_report(vers)
-- Display the documentation in an infobox, similar to edit-boxs
-- Affichage de documentation dans un cadre (box), semblable aux boites d'edition
function p.formDocBox(args_final)
-- modes.options = " docdata docmin docdef docmax docline docsrc docview : docafter docnotice docsrc" -- for documentation
-- modes.options = " erron noerr nobox " -- without normal result
-- modes.options = " debug tests en es fr " -- for debug or enforce language
if type(args_final) ~= "table" then args_final = modes.args_final end -- optional arguments
-- local err = modes.verify_args_tables(modes.args_known, modes.args_source)
-- if err then return err end
local res = "" -- on viewer.form9user(
res = res .. viewer.errorColor("<center><b>" .. viewer.form9user("modes_delete_docbox_wng") .. "</b><br/></center>")
res = res .. viewer.docDropBox("allwaysview", "versioning_support_desk_title", versioning.form_support_desk_report )
-- res = res .. viewer.DropBox(viewer.docDropBoxTitle(), versioning.form_support_desk_report() )
-- modes.catView = ":"
-- modes.mode_options = " debug docview docdata docdef docline "
-- modes.invoke_options = ""
if modes.option("debug") then res = res .. "\n*" .. viewer.ta("modes.catView", modes.catView) .. viewer.ta("modes.invoke_options", modes.invoke_options) .. viewer.ta("modes.mode_options", modes.mode_options) end
if modes.option("docdata") then res = res .. "\n*" .. modes.generDoc(" docdef docline ", datas.args_wikidata, "Wikidata") end
if modes.option("docview") then res = res .. "\n*" .. modes.generDoc("", args_final, "Arguments") end
if not modes.option("noerr") then res = res .. "\n*" .. events.errors_lister() end
--
local t = "" -- Form events views
local wng, err, cat = events.sort_typ() -- Sort events by type in wng, err, cat.
for key, evt in pairs(wng) do
evt.res, evt = events.form(evt)
if evt.res then t = t .. "<br>* " .. tostring(evt.res) end
end
for key, evt in pairs(err) do
evt.res, evt = events.form(evt)
if evt.res then t = t .. "<br>* " .. tostring(evt.res) end
end
for key, evt in pairs(cat) do
evt.res, evt = events.form(evt)
if evt.res then t = t .. "<br>* " .. tostring(evt.res) end
end
-- local t = ""translate_main_i18n_languages_count =
t = t .. translate.main_i18n_languages_list() -- List available translations languages
--
res = res .. t
local result = "\n------ " -- This code interact with DropBox and debug the bug T20151215 2016-11-13 17:57.
result = result .. '<div class="CentralDocBox" style=" width=90%; border: 1px solid #AAAAAA; margin:1em; background-color:#F1F1F1; padding:0.3em; ">' .. res .. '</div>'
result = result .. "\n* " .. events.categories_lister(":")
return result
end -- function p.formDocBox(args_final)
function p.normal_box(args_final, title)
local res = ""
local warning_versions = versioning.report_main_short
if type(args_final) ~= "table" then args_final = modes.args_final end
if not title then title = args_final.title end
if not title then title = "TITLE" end
res = res .. "<center><b><big>" .. title .. "</big></b> " .. versioning.report_main_discreet .. " - " .. (versioning.site_currentVersion_view or "currentVersion") .. "<br></center>"
-- flag_of_country = "[[File:Flag of France.svg|border|100px]]" -- from https://commons.wikimedia.org/wiki/File:Flag_of_France.svg
local flag_of_country = viewer.form9user("flag_of_country") -- "fails to debug on 20170424 Rical". (This work fine for many other cases.) bind main_module.i18n
local flag_of_country = p.i18n[translate.user_lang]["flag_of_country"] -- direct acces to bypass "fails to debug on 20170424 Rical"
local flag_of_country_res = "[[File:" .. flag_of_country .. "|border|40px]]" -- flag_of_country_res .. " flag_svg=" .. flag_svg .. " 50px;40px " ..
res = res .. flag_of_country_res
local function arglingual(key)
local t = ""
if key and tools and translate.user_translations and translate.user_translations[key] then
t = t .. viewer.tam(translate.user_translations[key], args_final[key] )
else t = ", " end
return t
end
res = res .. arglingual("label")
res = res .. arglingual("description")
res = res .. arglingual("occupation")
res = res .. arglingual("firstname")
res = res .. arglingual("lastname")
res = res .. arglingual("birthyear")
res = res .. arglingual("deathyear")
modes.nowyear = tonumber(os.date("%Y") ) -- now_date = os.date("%Y-%m-%d %H:%M:%S")
-- local i2r = mathroman.int2roman(modes.nowyear)
-- local r2i = mathroman.roman2int(i2r)
-- local r2r = mathroman.int2roman(r2i)
res = res .. viewer.ta("int2roman", i2r) .. viewer.ta("roman2int", r2i) .. viewer.ta("int2roman", r2r)
res = res .. "<br>" .. translate.main_i18n_languages_list() -- List available translations languages
res = '<div style="margin-right:5px; box-shadow:0.2em 0.3em 0.2em #B7B7B7; background-color:#F1F1DE; padding:0.3em; width=90%; overflow-x:hidden; ">' .. res .. '</div>'
return res
end -- function p.normal_box(args_final, title)
function p.form_tests_init(res, args_source)
-- Special init for the test mode
if type(res) ~= "string" then res = "\n* Mode test : " end
if type(args_source) ~= "table" then args_source = {} end
if p.i18n and p.i18n.en then p.i18n.en.error_i18n_wanted_to_test_missing_translation = 'English error i18n wanted for tests missing translation' end
if p.i18n and p.i18n.es then p.i18n.es.error_i18n_deseada_para_probar_traduccion_faltan = 'Espagnol error i18n deseada para probar traducción faltan' end
if p.i18n and p.i18n.fr then p.i18n.fr.error_i18n_voulue_pour_test_de_traduction_manquante = 'Français erreur i18n voulue pour tests de traduction manquante' end
-- if not args_source.userlang then args_source.userlang = "en" end
-- if not args_source.wikilang then args_source.wikilang = "es" end
if not args_source.modeinvoke then args_source.modeinvoke = "catview" end
if not args_source.mode_invoke then args_source.mode_invoke = "catview" end
if not args_source.invoke_options then args_source.invoke_options = "catview" end
if not args_source.name then args_source.name = "Jack Smith" end
if not args_source.nom then args_source.nom = "Victor Hugo" end
if not args_source.region then args_source.region = "india" end
if not args_source["région"] then args_source["région"] = "chine" end
if not args_source.description then args_source.description = "Victor Hugo est très connu." end
if not args_source.langue then args_source.langue = "français,japonais" end
if not args_source.occupation then args_source.occupation = "Académiciens,Personnalités politiques" end
modes.args_source = args_source
return res
end -- function p.form_tests_init(res, args_source)
-- Interact parameters in international args_final
function modes.interact_args_final(args_import)
versioning.deprecatedFunction("modes.interact_args_final", "p.interact_args_final")
return p.interact_args_final(args_import)
end
function p.interact_args_final(args_import)
-- args_final = p.interact_args_final(args_import)
local t = ""
if type(args_import) ~= "table" then args_import = modes.args_import or {} end
local args_final = mw.clone(args_import) -- do not disturb original args_import
local a = args_import
local i = {} -- interact
-- local t = "\n* begin :" .. viewer.ta("initiale", a.initiale) .. viewer.ta("firstname", a.firstname) .. viewer.ta("lastname", a.lastname) .. viewer.ta("title", a.title)
--
local tit = nil
if not a.title then -- If title is undefined, enforce it.
if a.lastname and a.firstname then
tit = a.firstname .. " " .. a.lastname
end
i.title = a.label or tit or a.sitelink or a.lastname or modes.module_name
end
--
if not a.initiale then -- If initiale is undefined, enforce it.
-- if absent, default initiale come from the last word of title
local title = a.title or i.title
if title then
local tab = mw.text.split(title, '%s') -- table of words
local max = table.maxn( tab )
i.initiale = tab[max] -- selector the last word
i.initiale = string.sub( i.initiale, 1, 1 ) -- selector the first letter
i.initiale = string.upper( i.initiale or "" )
end
end
--
-- if absent, synonym of basic arguments, syn = 2
if not a.firstname then i.firstname = (i.firstname2 or a.firstname2) end
if not a.lastname then i.lastname = (i.lastname2 or a.lastname2) end
if not a.firstname2 then i.firstname2 = (i.firstname or a.firstname) end
if not a.lastname2 then i.lastname2 = (i.lastname or a.lastname) end
--
if a.birth and not a.birthyear then
local tt, err = viewer.date_to_part(a.birth, viewer.form9user("modes_date_to_part_format"), "yyyy")
if tt then i.birthyear = tt else
events.add_err(err, viewer.form9user("birthyear"), "yyyy")
events.add_cat("modes_date_to_part_call_cat")
end
end
-- memorize interactions in modes.args_final and show errors or warnings
local n = 0
for key, val in pairs(i) do
local args_kwn = modes.args_known[key]
if args_kwn then
args_final[key] = val -- = i[key]
args_kwn.src = "inter"
args_kwn.trk = args_kwn.trk.." i"
n = n + 1
if (args_kwn.need == 2) and not a[key] then --
-- need=2 necessary from argument or module interaction
events.add_wng("modes_auto_val_warning_wng", translate.user_translations[key], val)
end
else
events.add_err("modes_unknown_auto_arg_err", translate.wiki_translations[key], val)
end
end
if modes.args_known and modes.args_known.title then modes.args_known.title.trk = (modes.args_known.title.trk or "").."i="..n end
modes.args_final = args_final
return args_final, t
end -- function p.interact_args_final(args_import)
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
-- Interfaces, alias and functions to templates
-- Interfaces, alias y funciones para modelos
-- Interfaces, alias et fonctions pour les modèles
-- - - - ------------------ - - - - ---------------------------------
-- - - - ------------------ - - - - ---------------------------------
p.options_for_modes = { -- module options_for_modes
read = " noerr ",
edit = " docdef docline docsrc docdata catview docview : ",
doc = " nobox noerr nocat ",
tests = " docdef docline docsrc docdata catview docview : tests ",
}
function modes.init_modes_translate_events(frame, Central_version, mode_name, args_known, options_for_modes, itemid)
-- After versioning.init(), initialize modes and their options, known arguments, translations, and default item.
local res = ""
-- res = res .. versioning.detect_mediawiki_changes()
modes.frame = frame
-- translate.Central_x_y = p.Central_x_y -- To adapt the version of Module:Central in any translated text.
translate.Module_Central_version = Central_version -- To adapt the version of Module:Central in any translated text.
modes.args_known = args_known or modes.args_known
-- res = res .. versioning.site_currentVersion_view
-- clean and rewrite init for versioning, mode, options, translate, module
modes.module_init(frame) -- Get modes.args_source with modes.args_config
modes.init_options_for_modes(frame, options_for_modes, mode_name) -- Needed to init categories and errors
res = res .. modes.trackOptions("modes.init_options_for_modes", "no_track")
local mode_name, source_key, try_lang = modes.get_arg_mode(mode_name, source_key, try_lang, args_source)
res = res .. modes.trackOptions("modes.get_arg_mode")
-- modes.mode_name = mode_name or modes.mode_name or "read"
translate.init_wiki_user_page_lang(modes.args_config.wikilang, modes.args_config.userlang) -- init user and the wiki languages from args
local recursiveLevel, recursiveLimit, recursiveLevel_err = modes.recursiveNormal(recursiveLevel, modes.recursiveLimit)
events.init_configs() -- testcase, tabOptions, {}) -- Initialize global configurations and save them before eventual changes.
return res
end -- function modes.init_modes_translate_events(frame, Central_version, mode_name, args_known, options_for_modes, itemid)
--[[
local p = {}
p.v = {} -- Version descriptor for central modules updated by versioning.get_one_module_or_library()
p.v.version = "p.v.version" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.version = "[ [w:vi:Central-s-vi] ]" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.version = "Central-s-fr" -- The main module select this version, from its p.versions{}, to replace its main version.
p.v.main_version = "Central" -- Central modules share the main version from the central repositoty to any projects.
-- Later, versioning.get_one_module_or_library() -- Get a module or a library, then form and record a descriptor of it.
local Central = p
p.Module_Central_version = "p.v.version" -- To adapt the version of Module:Central in any translated text.
p.ModuleNS = mw.site.namespaces.Module.name .. ":"
p.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
versionName = "Central-s-fr", versionNumber = "03 22:57", versionDate = "2017-04-03 22:57",
sought = "Central-s-fr;Mathroman2;TestRequire", -- Sought module and submodules versions
known = "Central-s-fr;Mathroman2;TestRequire;TestBug", -- Known module and submodules versions
-- known = "Central-s-fr;p.v.version;ControlArgs1;Mathroman2;TestRequire;TestBug;Testpages", -- Known module and submodules versions
-- loaded_list = ";Central;p.v.version;",-- Module:Central
-- currentVersion = "", -- show if the mediawiki version has change ( for debug )
-- Central.fr.ws is in conflict with LUA syntax table.intable.subtable and results in overflow at runtime.
-- Then Rical renames Central.fr.ws in Central-s-fr at 16 decembre 2016-12-16 18:03.
}
--]]
function versioning.bind_all_i18n() -- Bind all i18n translations from all sub-modules in reverse order.
local t = "\n* versioning.bind_all_i18n() "
if 1 then return t end
for i = #versioning.bind_main_and_sub_modules_order, 1, -1 do -- in reverse order
sub_module_name = versioning.bind_main_and_sub_modules_order[i]
-- local get = versioning.loaded_modules_and_libraries[sub_module_name]
local get = versioning.bind_main_and_sub_modules_get[sub_module_name] -- Use the get descriptor of the sub_module.
-- Add i18n translations from the sub-module itself:
if (type(get.title) == "string") and (type(get.i18n) == "table") then
versioning.add_one_i18n("", get.title, get.i18n) -- Add i18n translations with previews one's.
t = t .. "\n*" .. viewer.ta("title", get.title)
t = t .. viewer.ta("#i18n", #get.i18n)
end
-- Add i18n translations from an eventual /I18N sub-module:
if (type(get.subI18N) == "string") then
local get, module = versioning.get_one_module_or_library(get.subI18N)
if (type(get.title) == "string") and (type(get.i18n) == "table") then
versioning.add_one_i18n("", get.title, get.i18n) -- Add i18n translations with previews one's.
t = t .. "\n*" .. viewer.ta("title", get.title)
t = t .. viewer.ta("#i18n", #get.i18n)
end
end
end
return t
end -- function versioning.bind_all_i18n() -- Bind all sub-modules of the main module.
function versioning.bind_main_module_and_i18n() -- Bind the main module, all sub-modules and all their i18n.
-- if 1 then return end
-- The main module call this function to load needed sub-modules and translations.
local res = "\n* versioning.bind_main_module_and_i18n() "
local frame = mw.getCurrentFrame()
local title = frame:getTitle() -- main module, example "Auteur"
local get, main_module = versioning.get_one_module_or_library(title) -- Get the main module.
-- Table to collect loaded sub-modules names in binding order and i18n translations in reverse order.
versioning.mainversion = title
versioning.bind_main_and_sub_modules_order = versioning.bind_main_and_sub_modules_order or {}
table.insert(versioning.bind_main_and_sub_modules_order, title) -- Record first the main module name.
versioning.bind_main_and_sub_modules_get = versioning.bind_main_and_sub_modules_get or {}
versioning.bind_main_and_sub_modules_get[title] = get -- Record the get descriptor of the main module.
--
-- After get the main module, get the versions for their management.
-- The main module can use or not the versions management.
versioning.main_module = main_module
if type(main_module) == "table" and type(main_module.versions) == "table" then -- For main modules using versions management
versioning.main_versions = main_module.versions
end
local main_versions = versioning.main_versions -- nil if the main module do not uses the versions management.
--
if not versioning.main_module then -- The main module is not found.
res = res .. viewer.errorColor( viewer.form9user("versioning_main_module_missing_err") )
end
versioning.main_i18n = versioning.main_i18n or {}
local main_versions = versioning.main_versions
-- res = res .. versioning.bind_all_i18n()
return res
end -- function versioning.bind_main_module_and_i18n() -- Bind the main module, all sub-modules and all their i18n.
function versioning.bind_all_sub_modules() -- Bind all sub-modules of the main module.
if 1 then return end
-- The main module call this function to load needed sub-modules and translations.
local main_module = versioning.main_module
local main_versions = versioning.main_versions -- nil if the main module do not uses the versions management.
--[[ Example of main_versions
main_module.versions = { -- Modules dependencies. Dependencias del módulo. Dépendances du module.
versionName = "Central-s-fr", versionNumber = "03 22:57", versionDate = "2017-04-03 22:57",
sought = "Central-s-fr;Mathroman2;TestRequire", -- Sought module and submodules versions
known = "Central-s-fr;Central-14 * Mathroman2;Mathroman34 * TestRequire;TestRequ * TestBug;TestBug4", -- Known module and submodules versions
}
--]]
if type(main_module) == "table" and type(main_module.versions) == "table" then -- For main modules using versions management
versioning.main_versions = main_module.versions
end
if type(main_module) == "table" and type(main_versions) == "table" then -- Verify main module and versions management ability.
sought = main_versions.sought
known = main_versions.known
versionName = main_versions.versionName
versionNumber = main_versions.versionNumber
-- t = t .. viewer.ta("main_module", main_module) .. viewer.ta("main_versions", main_versions)
-- t = t .. viewer.ta("sought", sought) .. viewer.ta("known", known)
-- t = t .. viewer.ta("versionName", versionName) .. viewer.ta("versionNumber", versionNumber)
end
t = t .. "<br>AFTER sought, known, versionName, versionNumber, version, main_module : "
versioning.bind_modules_start = t
if type(main_versions.sought) == "string" and type(main_versions.known) == "string" then
known = main_versions.known
sought = main_versions.sought
end
t = t .. "\n*bind_sub_modules() starts: "
local sought_t = string.gsub(main_versions.sought or sought or "", " ", ";") -- ";" .. .. ";"
local sought_tab = mw.text.split(sought_t, " ", true)
local sought_maxn = table.maxn(sought_tab)
--
local known_tab = mw.text.split(main_versions.known or known or "", "*", true)
local known_maxn = table.maxn(known_tab) -- local known_maxn = #known_tab
local used = ";"
local t = ""
t = t .. "\n* list versioningsought.bind_sub_modules : "
-- .. viewer.ta("main_versions.versionName", main_versions.versionName)
-- .. viewer.ta("main_versions.", main_versions.sought) .. viewer.ta("sought_maxn", sought_maxn)
-- .. "<br>" .. viewer.ta("main_versions.known", main_versions.known) .. viewer.ta("known_max", known_max)
local alternatives, kind
local alternatives, kind
for i = known_maxn, 1, -1 do -- alternatives = known_tab[i]
alternatives = known_tab[i]
alternatives = ";" .. mw.text.trim(alternatives) .. ";" -- normalize versions between ";"
-- alternatives = viewer.simpleList(alternatives)
local altern_tab = mw.text.split(alternatives, ";", true)
local elem, module, normal, alias, name_I18N
normal = "" ; version = ""
altern = tostring(altern)
altern = mw.text.trim(altern)
for v, altern in ipairs(altern_tab) do
-- versioning.actual_modules = versioning.actual_modules .. ";" .. altern
if v == 1 and string.find(";" .. sought .. ";", ";" .. altern .. ";", 1, true) then
-- if v == 1 and viewer.is_in_sp(altern, sought, ";") then
normal = altern
kind = "normal"
end
if v > 1 and string.find(";" .. sought .. ";", ";" .. altern .. ";", 1, true) then
-- if v > 1 and viewer.is_in_sp(altern, sought, ";") then
version = altern
kind = "version"
end
local name_mod, name_I18N, tt, lang_N, text_N, get_i18n, getI18N
if vers_test then -- In versions management test
if string.find(";" .. vers_test.loaded_list .. ";", ";" .. altern .. ";", 1, true) then
-- if viewer.is_in_sp(altern, vers_test.loaded_list, ";") then
used = (used or "- ") .. altern .. "; "
end
name_I18N = altern .. "/I18N"
-- Get a module or a library, then form and record a descriptor of it.
local get, module = versioning.get_one_module_or_library(name_I18N)
-- versioning.actual_modules = versioning.actual_modules .. ";" .. get.title
if (type(get.module) == "table") and (type(get.moduleName) == "string") then -- Verify main module and versions management ability.
end
-- bd : bind_sub_modules from main to sub, then compute all subI18N, then in reverse order addi18n from subI18N.i18n as .sub_i18n
-- bd : versioning.init, bind_libraries_modules_translations, bind_central_libraries, bind_sub_modules, bind_i18n_translations,
-- bd : get_one_module_or_library, bind_central_modules_report
else -- In normal run
-- addi18n from the module itself
if (type(getI18N) == "table") and (type(getI18N.moduleName) == "string") then -- Verify main module and versions management ability.
-- t = t .. "\n*" .. tostring(tb) .. viewer.ta("I18N", getI18N.moduleName) -- .. viewer.ta("name_I18N", name_I18N)
-- versioning.actual_modules = versioning.actual_modules .. ";" .. getI18N.title
end
end
if vers_test then -- In versions management test
if viewer.is_in_sp(name_I18N, vers_test.loaded_list, ";") then
used = (used or "- ") .. name_I18N .. "; "
end
else -- wait later versioning.bind_i18n_translations() to get I18N
end
end -- for v, altern in ipairs(altern_tab) do
end -- for i = known_maxn, 1, -1 do -- alternatives = known_tab[i]
local word, errs = "", ""
if type(vers_test) == "table" then -- In tests run
-- Versions management errors from overall look on modules
local alloncesort = viewer.simpleList(vers_test.sought .. ";" .. vers_test.known .. ";" .. vers_test.used)
local alloncetab = mw.text.split(alloncesort, ',') -- table of words
for i, name in ipairs(alloncetab) do -- list all used names, only one each, in alphabetic order
if viewer.is_in_sp(name, vers_test.sought, ";") and not viewer.is_in_sp(name, vers_test.known, ";") then
errs = errs .. ";" .. events.add_err("versioning_missing_versions_err", name, vers_test.versionName ) -- new
-- versioning_missing_versions_err = "The module <b>%1</b> misses in the main module <b>%2</b>.",
end
if viewer.is_in_sp(name, vers_test.used, ";") and not viewer.is_in_sp(name, vers_test.sought, ";") then
vers_test.replaced = (vers_test.replaced or "") .. name .. ";" -- sought but not found
errs = errs .. ";" .. events.add_err("versioning_replaced_versions_err", name, vers_test.versionName ) -- new
-- versioning_replaced_versions_err = "The module <b>%1</b> replaces the missing module in the main module <b>%2</b>.",
-- versioning_select_unknown_module_err = "Internal error: The missing Module:<b>%1</b> is replaced by the normal Module:<b>%2</b>.", -- versionsmanagement
end
if viewer.is_in_sp(name, vers_test.alloncesort, ";") and not viewer.is_in_sp(name, vers_test.known, ";") then
vers_test.unknown = (vers_test.replaced or "") .. name .. ";" -- sought but not found
errs = errs .. ";" .. events.add_err("versioning_unknownversions_err", name, vers_test.versionName ) -- new
-- versioning_unknownversions_err = "The module <b>%1</b> is unknown in the main module <b>%2</b>.",
end
end -- for v, altern in ipairs(altern_tab) do
end
end -- function versioning.bind_all_sub_modules()
function versioning.bind_sub_modules()
if 1 then return end
local res, t = "", ""
translate.track_i18n("versioning.init:frame")
versioning.main_i18n_complete = false -- Mask any views to avoid failures until enough init.
-- translate.Central_x_y = p.Central_x_y -- To adapt the version of Module:Central in any translated text.
Central_version = Central_version or translate.Module_Central_version -- or p.Module_Central_version
versioning.bind_libraries_modules_translations() -- Bind central libraries, modules, and their i18n translations
translate.track_i18n("versioning.init:bind_modules_method")
versioning.main_i18n_complete = true -- Unmask all views after enough init.
res = res .. versioning.detect_mediawiki_changes()
translate.track_i18n("versioning.init:detect_mediawiki_changes")
return res
end -- versioning.bind_main_module_and_i18n()
function Central.init(frame, Central_version, mode_name, args_known, options_for_modes, itemid)
local res = ""
modes.time1 = os.clock()
translate.track_i18n("Central.init:frame")
Central_version = Central_version or translate.Module_Central_version or p.Module_Central_version
-- modes.args_known = args_known or modes.args_known
options_for_modes = options_for_modes or modes.options_for_modes or p.options_for_modes
--
begin.init_central_versions(wiki, central, main, known_wikis) -- Automatic adaptation of central versions in main and central modules.
--
res = res .. versioning.bind_main_module_and_i18n() -- Bind the main module, all sub-modules and all their i18n translations.
--
res = res .. versioning.init(frame, Central_version)
translate.track_i18n("Central.init:versioning")
-- versioning.actual_modules = "Central.init:" .. versioning.actual_modules
-- res = res .. versioning.actual_modules
-- local flag_of_country = viewer.form9user("flag_of_country") -- "fails to debug on 20170424 Rical". (This work fine for many other cases.) bind main_module.i18n
res = res .. modes.init_modes_translate_events(frame, Central_version, mode_name, modes.args_known, options_for_modes, itemid)
modes.change_itemid(itemid) -- Select a wikidata default item if needed. Default "Q41568"
-- res = res .. translate.track_counts("Central.init", "versioning.i18n", trans, tables)
-- res = res .. translate.track_counts_t
viewer.docDropBox_title = viewer.docDropBoxTitle("versioning_support_desk_title", "versioning_support_desk_table")
return res
end -- function Central.init(frame, Central_version, mode_name, args_known, options_for_modes, itemid)
_G["central"] = {} -- A central object to group central datas
-- local t, central = versioning.host_to_CENTRALVERSION(host, central)
function versioning.host_to_CENTRALVERSION(host, central) -- Get _CENTRALVERSION from the host of the project.
-- Record centralisable libraries if they are not included in standard mw.Extension:Scribunto
-- RunOnce : Do not repeat this function to not disturb subsequent processes.
local mwuri, t = mw.uri.new(), "\n* mwuri: "
for key, val in pairs(mwuri) do
t = t .. viewer.ta(key, val)
end
t = t .. viewer.ta("_CENTRALTIME", _CENTRALTIME)
t = t .. viewer.ta("host", mwuri.host)
t = t .. viewer.ta("port", mwuri.port)
t = t .. viewer.ta("path", mwuri.path)
t = t .. viewer.ta("fragment", mwuri.fragment)
t = t .. viewer.ta("hostPort", mwuri.hostPort)
t = t .. viewer.ta("host", mwuri.host)
local nowtime = os.date("%Y-%m-%d %H:%M:%S")
local timestamp = os.date("%Y%m%d%H%M%S")
versioning.central_CENTRALVERSION = split_version
versioning.central_CENTRALSTAMP = timestamp
versioning.central_CENTRALTIME = nowtime
--
versioning.central_host = mwuri.host -- like fr.wikisource.org
local split_host = mw.text.split(versioning.central_host, ".", true)
versioning.central_shortlang = split_host[1]
versioning.central_project = split_host[2]
--
versioning.central_path = mwuri.path -- like /wiki/Module:Central-s-fr/Documentation like /wiki/Mô đun:Central-w-vi/tài liệu
local split_version = mw.text.split(versioning.central_path, ":", true)
local split_version = mw.text.split(split_version[2], "/", true)
local split_version = split_version[1]
versioning.central_CENTRALVERSION = split_version
local project_to_short = { wiki = 'p', -- project to shortproject
commons = 'cm', meta = 'meta', species = 'species', test2 = 'test2',
wikibooks = 'b', wikimedia = 'wm', wikinews = 'n', wikiquote = 'q',
wikisource = 's', wikiversity = 'v', wikivoyage = 'y', wiktionary = 't',
}
local split_version = mw.text.split(split_version, "-", true)
versioning.central_CENTRALMAIN = split_version[1]
versioning.central_shortproject = split_version[2]
versioning.central_shortlang = split_version[3]
local short_to_project = {} -- shortproject to project
for key, val in pairs(project_to_short) do short_to_project[val] = key end
--
-- local shortproject, shortlang = mwuri.port or mwuri.path or mwuri.fragment, mwuri.port or mwuri.hostPort
versioning.central_CENTRALVERSIONTIME = versioning.central_CENTRALMAIN .. "-" .. versioning.central_shortproject .. "-" .. versioning.central_shortlang .. "-" .. versioning.central_CENTRALSTAMP
t = t .. viewer.ta("_CENTRALVERSIONTIME", versioning.central_CENTRALVERSIONTIME)
t = t .. "\n* central: "
for key, val in pairs(central) do
t = t .. viewer.ta(key, val)
end
return t, central
end -- function versioning.host_to_CENTRALVERSION(host, central)
-- local central = _G["central"]
-- local t, central = versioning.host_to_CENTRALVERSION(host, central)
-- local t, central = centralbinder(host, central) -- Bind central libraries and versions.
function versioning.central_centralbinder(host, central) -- Bind central libraries and versions.
-- Record centralisable libraries if they are not included in standard mw.Extension:Scribunto
-- RunOnce : Do not repeat this function to not disturb subsequent processes.
--
_G["central"] = central or {} -- A central object to group central datas
local central = _G["central"]
_G["centralbinder"] = versioning.central_centralbinder -- This binder
--
local t, central = versioning.host_to_CENTRALVERSION(host, central)
return t, central
end -- function versioning.central_centralbinder(host, central)
function Central.read(frame) -- The read mode generates the normal result for read only users.
-- Helpers or admins can add options to include edit or tests or user language...
local res = ""
-- res = res .. versioning.central_centralbinder(host, central) -- Bind central libraries and versions.
res = res .. Central.init(frame, p.Module_Central_version, "read", p.args_known, p.options_for_modes, "Q535") -- itemid
-- versioning.actual_modules = "Central.read:" .. versioning.actual_modules
-- res = res .. versioning.actual_modules
-- res = res .. versioning.detect_mediawiki_changes()
modes.args_import, t = modes.import_arguments()
res = res .. modes.trackOptions("modes.import_arguments")
modes.args_final = p.interact_args_final(modes.args_import) -- Interactions between arguments
-- res = res .. modes.short_config("Begin")
res = res .. modes.form_result(modes.args_final)
-- res = res .. versioning.running_times(false, "")
-- res = res .. versioning.site_currentVersion_view -- in debug phase
res = res .. versioning.detect_mediawiki_changes()
-- local t, central = centralbinder(host, central) -- Bind central libraries and versions.
-- res = res .. viewer.docGroup("allwaysview")
-- res = res .. translate.track_i18n_t
return res
end -- function Central.read(frame)
function Central.edit(frame) -- The edit mode verifies arguments, displays the edit panel with errors, warnings and categories.
local res = ""
res = res .. Central.init(frame, p.Module_Central_version, "edit", p.args_known, p.options_for_modes, "Q535") -- itemid
-- res = res .. Central.init(frame, "edit", p.args_known, p.options_for_modes) -- , "Q535"
-- res = res .. versioning.detect_mediawiki_changes()
-- versioning.actual_modules = "Central.edit:" .. versioning.actual_modules
-- res = res .. versioning.actual_modules
modes.args_import, t = modes.import_arguments()
res = res .. modes.trackOptions("edit import_arguments", "no_track")
modes.args_final = p.interact_args_final(modes.args_import) -- Interactions between argumensts
-- res = res .. versioning.site_currentVersion_view
translate.init_wiki_user_page_lang()
-- local res_function = "<br/>\n" .. (versioning.main_versions.versionName or "MainModule_t") .. " " .. (versioning.main_versions.versionNumber or "0.0_t") .. ":" .. modes.mode_name .. ":" .. translate.wiki_lang .. " "
-- res = res .. res_function .. " Begin:" .. "<br>"
-- res = res .. modes.short_config("Begin")
res = res .. modes.form_result(modes.args_final)
-- res = res .. versioning.site_currentVersion_view
res = res .. versioning.detect_mediawiki_changes()
-- res = res .. translate.track_i18n_t
return res
end -- function Central.edit(frame)
function p.doc1(frame) -- Deprecated alias function
versioning.deprecatedFunction("p.doc1", "Central.doc")
return Central.doc(frame)
end
function Central.doc(frame) -- Form a documentation or a test in a dropbox.
local res = ""
-- res = res ..
Central.init(frame, p.Module_Central_version, "doc", p.args_known, p.options_for_modes, "Q535") -- itemid
modes.args_import, t = modes.import_arguments()
-- res = res .. modes.trackOptions("doc import_arguments", "no_track")
modes.args_final = p.interact_args_final(modes.args_import) -- Interactions between arguments
-- res = res .. versioning.site_currentVersion_view
res = res .. "\n*" .. viewer.ta("modes.mode_options", modes.mode_options)
res = res .. viewer.ta("modes.invoke_options", modes.invoke_options)
local dockey = modes.args_config.dockey or modes.args_source[1]
local itemid = modes.args_config.itemid or modes.args_config.id or modes.args_source[2]
modes.change_itemid(itemid) -- Select a wikidata default item if needed. Default "Q41568"
modes.args_final = p.interact_args_final(modes.args_import) -- Interactions between argumensts
translate.init_wiki_user_page_lang()
-- modes.time3 = os.clock()
if dockey then res = res .. viewer.docGroup(dockey, itemid) end
return res
end -- function Central.doc(frame)
function modes.short_config_old(where)
local res = ""
-- res = res .. "<br/>\n" .. (versioning.main_versions.versionName or "MainModule_t") .. " " .. (versioning.main_versions.versionNumber or "0.0_t") .. ":" .. modes.mode_name .. ":" .. translate.wiki_lang .. " "
res = res .. "<br/>\n" .. (versioning.main_versions.versionName or "MainModule_t")
res = res .. " " .. (versioning.main_versions.versionNumber or "0.0_t") .. ":"
res = res .. modes.mode_name .. ":" .. translate.wiki_lang
res = res .. ":" .. where .. ":"
return res
end -- function modes.short_config(where)
function Central.tests(frame)
local res = ""
--[= =[
res = res .. Central.init(frame, p.Module_Central_version, "tests", p.args_known, p.options_for_modes, "Q535") -- itemid
-- versioning.actual_modules = "Central.tests:" .. versioning.actual_modules
-- res = res .. versioning.actual_modules
-- res = res .. modes.short_config("Central.init.End")
modes.args_import, t = modes.import_arguments()
res = res .. modes.trackOptions("Central.tests import_arguments", "no_track")
res = res .. "\n* getEntityIdForCurrentPage = " .. tostring( mw.wikibase.getEntityIdForCurrentPage() ) -- Returns the Item id as string, like "Q42"
p.form_tests_init()
--[ [
modes.args_final = p.interact_args_final(modes.args_import) -- Interactions between arguments
-- modes.mode_name = modes.args_final.mode or modes.args_import.mode or modes.args_config.mode or "tests"
translate.init_wiki_user_page_lang()
versioning.main_versions = versioning.main_versions or { versionName = "versionName", versionNumber = "0.0", }
if not versioning.main_versions then versioning.main_versions = p.versions or versioning.versions end
--
-- local res_function = "<br>* " .. versioning.main_versions.versionName .. ":" .. modes.mode_name .. ":" .. translate.wiki_lang .. " "
-- If there is no MainModule, THIS version of Central is used alone
-- res = res .. res_function .. " Begin:" .. "<br>"
-- res = res .. modes.short_config("Begin")
-- versioning.loaded_modules_and_libraries = versioning.loaded_modules_and_libraries or {}
local loaded_pack, loaded_txt, modu = versioning.loaded_modules_and_libraries
versioning.loaded_modules_track = "p.tests : " .. viewer.ta("#loaded_pack", #loaded_pack)
res = res .. modes.form_result(modes.args_final) -- Generate wikitext, categories, and others
--] ]
-- res = res .. modes.short_config("End")
-- res = res .. versioning.site_currentVersion_view
-- frame:preprocess <pre>, <nowiki>, <gallery> and <ref>, will be replaced with "strip markers"
res = res .. viewer.docSection("allwaysview", viewer.form9user("versioning_antiCrash_reference_label"), "h2")
-- versioning_antiCrash_reference_label = "References",
-- res = res .. frame:preprocess( "<br>== References ==<br><references><br>" )
-- res = res .. frame:preprocess( "<br>{{Références}}" ) -- antiCrash
-- res = res .. "\n== references ==<br><references><br>"
-- res = res .. versioning.antiCrash_tests()
-- res = res .. versioning.detect_mediawiki_changes()
-- res = res .. "\n* Enforce at end of tests: \n------ "
-- res = res .. luaTable.from_subnames_test() -- Test: Get the last sub-table from a sub-table name.
-- res = res .. viewer.docDropBox(selector, "luaTable_from_subnames_test_title", luaTable.from_subnames_test )
-- res = res .. begin.support_begin_central_modules()
-- res = res .. viewer.docDropBox("allwaysview", "begin_support_central_modules_title", begin.support_begin_central_modules )
-- res = res .. versioning.sort_central_modules_report() -- Sorted list of central modules and libraries
--]= =]
-- res = res .. translate.track_i18n_t
-- res = res .. versioning.bind_central_libraries_t
-- res = res .. versioning.running_times(false, "")
return res
end -- function Central.tests(frame)
translate.track_i18n_t = "translate.track_i18n : "
function translate.track_i18n(where)
translate.track_i18n_t = (translate.track_i18n_t or "") .. "\n* " .. tostring(where)
.. viewer.ta("versioning.main_i18n", type(versioning.main_i18n) ) .. viewer.ta("translate.main_i18n", type(translate.main_i18n) )
.. viewer.ta("begin.i18n", type(begin.i18n) ) .. viewer.ta("datas.i18n", type(datas.i18n) )
return translate.track_i18n_t
-- res = res .. translate.track_i18n(where) -- , select, -- dropbox
-- res = res .. on viewer.docDropBox(selector, "mathroman_roman2int_tests_title", mathroman.roman2int_tests)
-- Todo : Search "versioning.main_i18n =" "translate.main_i18n ="
-- Todo : Search recursive loop
-- Todo : Search recursive loop in addi18n
-- Todo : limit the recursive level maxi to 3 : in versioning.i18n.en versioning=1 i18n=2 en=3
-- Todo : Search: count error fail ? by loop of count at the same level
-- Todo : Search: limit and track the counts in function luaTable.formSubCounts()
-- Todo : Search: each library is in package.loaded and in _G. Delete it in _G like datas = nil.
end
function versioning.detect_mediawiki_changes()
local t = t or "\n* <b>versioning.record_mw_changes()</b> : Detect, record and report all date-time changes of mediawiki, in each wiki."
-- T20170225 Rical: using 2 ways to use {{subst:}}, we could detect, record and report all date-time changes of mediawiki
-- in each wiki to help the gerrit team to debug mw.
-- See https://www.mediawiki.org/wiki/Manual:Substitution
versioning.site_currentVersion = mw.site.currentVersion
if mw.site.currentVersion == versioning.site_currentVersion_memo
then
versioning.site_currentVersion_view = viewer.discreetColor( versioning.site_currentVersion )
else
versioning.site_currentVersion_view = viewer.errorColor( versioning.site_currentVersion )
end
-- Spécial:Version mw.site.currentVersion
t = t .. "\n* See also the [https://www.mediawiki.org/wiki/Manual:Substitution Mediawiki Manual:Substitution]."
return "" -- t
end -- function versioning.detect_mediawiki_changes()
--[[
To get a list of Mediawiki changes:
On the actual page insert (and mask) an old list in <section begin=description /> ... texte à transclure ... <section end=description />
insert also : {{#lst:{{{page| Modèle:{{{1}}}/documentation }}}|description}} a transclusion of this list with the actual mediawiki version.
with these in 1 or 2 pages like for {{subst:CURRENTTIME}}.
See https://fr.wikisource.org/wiki/Modèle:Descriptif/documentation
See https://fr.wikipedia.org/wiki/Aide:Créer_un_modèle#subst:_imbriqué
--]]
-- Last Mediawiki-Wikisource update/upgrade versions:
-- Seen and recorded at each preview to test fr.wikisource.org/wiki/Module:Central-s-fr
-- French time UTC +1 ou +2
-- 20170221-23:50 : Mediawiki-Wikisource 1.29.0-wmf.12 (26fcd48) UTC-20170221-16:11.html
-- 20170223-09:11 : Mediawiki-Wikisource 1.29.0-wmf.13 (c70f13a) UTC-20170222-20:22.html
-- 20170225-00:09 : Mediawiki-Wikisource 1.29.0-wmf.13 (0276546) UTC-20170223-20:25.html
-- 20170228-20:35 : Mediawiki-Wikisource 1.29.0-wmf.13 (c73a5e9) UTC-20170228-14:58.html
-- 20170303-21:05 : Mediawiki-Wikisource 1.29.0-wmf.14 (ec6907e) UTC-20170228-19:03.html
-- 20170308-12:41 : Mediawiki-Wikisource 1.29.0-wmf.14 (366a0c6) UTC-20170303-19:37.html
-- 20170309-01:39 : Mediawiki-Wikisource 1.29.0-wmf.15 (01393e5) UTC-20170307-20:46.html
-- 20170315-00:04 : Mediawiki-Wikisource 1.29.0-wmf.15 (c93a3a5) UTC-20170313-23:12.html
-- 20170315-01:09 : Mediawiki-Wikisource 1.29.0-wmf.15 (38e4ae6) UTC-20170314-22:46.html
-- 20170316-01:16 : Mediawiki-Wikisource 1.29.0-wmf.16 (bb89e34) UTC-20170314-22:50.html
-- 20170322-13:08 : Mediawiki-Wikisource 1.29.0-wmf.16 (09eb188) UTC-20170321-15:56.html
-- 20170323-20:14 : Mediawiki-Wikisource 1.29.0-wmf.17 (8b8262c) UTC-20170321-18:35.html
-- 20170324-11:33 : Mediawiki-Wikisource 1.29.0-wmf.17 (f95d913) UTC-20170324-02:07.html
-- 20170328-01:18 : Mediawiki-Wikisource 1.29.0-wmf.17 (50d3b0f) UTC-20170327-11:40.html
-- 20170328-22:22 ? Mediawiki-Wikisource 1.29.0-wmf.17 (774e09e) UTC-20170328-01:03.html
-- 20170331-09:02 ? Mediawiki-Wikisource 1.29.0-wmf.18 (cbdfa46) UTC-20170328-19:42.html
-- 20170404-21:30 : Mediawiki-Wikisource 1.29.0-wmf.18 (9ab639f) UTC-20170403-15:20.html
-- <td dir="ltr"><a class="external text" href="//www.mediawiki.org/wiki/MediaWiki_1.29/wmf.19">1.29.0-wmf.19</a> <a class="external text" href="https://phabricator.wikimedia.org/r/revision/mediawiki/core;e4784c6b8dd69b07a43335f607aa8d15ec61e693">(e4784c6)</a><br/>7 avril 2017 à 20:52</td>
--
-- UTC-20170407-19:52 : fr.wikisource.org/wiki/Spécial:Version = 1.29/wmf.19 (e4784c6) UTC-20170407T20:52.html
-- UTC-20170407-20:21 : reported in T155624 Special:Version not showing SHA info for Mediawiki version on fr.wikisource
-- UTC-20170407-21:50 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.19 (e4784c6) UTC-20170407T20:52.html
-- UTC-20170408-21:54 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.19 (6765327) UTC-20170411T19:37.html
-- UTC-20170413-08:00 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.20 (f50afe2) UTC-20170413T01:15.html
-- UTC-20170414-08:04 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.20 (345b2be) UTC-20170414T01:24.html
-- UTC-20170424-11:48 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.20 (c37821a) UTC-20170420T21:04.html
-- UTC-20170424-17:55 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.20 (780d62d) UTC-20170424T14:35.html
-- UTC-20170426-17:50 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.20 (8954854) UTC-20170425T15:31.html
-- UTC-20170426-19:45 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.21 (e826acd) UTC-20170425T15:31.html
-- UTC-20170426-16:55 : fr.wikisource.org/wiki/Spécial:Version = 1.29.0-wmf.21 (e826acd) UTC-20170425T22:50.html
versioning.site_currentVersion_memo = "1.29.0-wmf.21 (e826acd)"
return p
-- Usual pages for Translations
-- Utilisateur:Rical/Victor Hugo
-- Modulenn:Central-s-br/doc {{#invoke:Central-s-br|read}} br = Breton = Brezhoneg
-- Modul:Central-s-de/Doku {{#invoke:Central-s-de|read}} de = German = Deutsch
-- Module:Central-s-en/Documentation {{#invoke:Central-s-en|read}} en = English = English
-- Module:Central-s-es/Documentación {{#invoke:Central-s-es|read}} es = Spanish = español
-- Module:Central-s-fr/Documentation {{#invoke:Central-s-fr|read}} fr = French = Français
-- Modul:Central-w-hu/doc {{#invoke:Central-w-hu|read}} hu = Hungarian = Magyar
-- Module:Central-mw-en/doc {{#invoke:Central-mw-en|read}} en = English = English
-- Mô đun:Central-w-vi/tài liệu {{#invoke:Central-w-vi|read}} vi = Vietnamese = Tiếng việt
-- MediaWiki:Scribunto/Central modules reference manual