Module:Lengoua

La documentation pour ce module peut être créée à Module:Lengoua/doc

local Lengoua = { }

local dataLengoua = mw.loadData 'Module:Lengoua/Data'
local langErrorMess = '<span class="error">lengoua pas recognua : %s</span>'

-- premierParametre renvoie le premier paramètre de Frame, que celui-ci ait été passé au module par invoke, directement au modèle,
-- ou à l'intérieur d'un module sous forme de string dans un tableau ou directement de string.
-- Si aucun de ces arguments ne contient de chaine, la fonction renvoie nil.
-- Si le deuxième paramètre est true, la chaine est renvoyée trimée et en minuscules.
local function premierParametro( frame, lowerCase )
	local arg
	if type( frame ) == 'table' then
		arg = ( frame.getParent and ( frame.args[1] or frame:getParent().args[1] ) ) or frame[1]
	elseif type( frame ) == 'string' then
		arg = frame
	end
	if type( arg ) ~= 'string' then
		arg = nil
	end
	if arg and lowerCase then
		arg = mw.ustring.lower( mw.text.trim( arg ) )
	end
	return arg
end

-- determinationCode retourne une table contenant le code de langue principal et la liste des subcode
-- si le code de langue principal n'est pas reconnu, retourne nil.
function Lengoua.determinacionCode( lengoua )
	if type( lengoua ) == 'string' and lengoua ~= '' then
		local tabCode = mw.text.split( lengoua, '-' )
		local tabLengoua = dataLengoua[ mw.ustring.lower( tabCode[1] ) ]
		if tabLengoua and tabLengoua.code then
			tabCode[1] = tabLengoua.code
			if tabLengoua.invalide then
				tabCode.invalide=true
			end
			return tabCode
		end
	end
end

-- Voir Modèle:Code langue
-- Paramètre :
--     1  : nom de langue.
function Lengoua.codeLengoua( frame )
	local arg = premierParametro( frame, true )
	local tabCode = Lengoua.determinacionCode( arg )
	return ( tabCode and table.concat( tabCode, '-' ) ) or arg or ''
end

-- Voir Modèle:Code langue 2
-- Paramètre :
--     1  : nom de langue.
function Lengoua.codeLengoua2( frame )
	local arg = premierParametro( frame, true )
	local tabCode = Lengoua.determinacionCode( arg )
	return ( tabCode and table.concat( tabCode, '-' ) ) or ''
end


-- Voir Modèle:Direction langue
-- Paramètre :
--     1  : nom de langue ou code IETF.
function Lengoua.direccionLengoua( frame )
	local arg = premierParametro( frame, true )
	if type( arg ) ~= 'string' or arg == '' then
		return 'ltr'
	end
	-- séparation du code de langue en code principal et les différents subcode.
	local tabCode = Lengoua.determinacionCode( arg )
	if tabCode then
		-- on essaye de savoir si la direction est de droite à gauche
		local codeScript = tabCode[2]
		if codeScript and string.len( codeScript ) == 4 and dataLengoua[ 'rtl script' ] then
			-- il y a un subcode d'écritrure, c'est lui qui est pris en compte
			codeScript = string.upper( string.sub( codeScript, 1, 1 ) ) .. string.sub( codeScript, 2 )
			if dataLengoua[ 'rtl script' ][ codeScript ] then
				return 'rtl'
			end
		else
			-- il n'y a pas de sub-code d'écriture, on prend en compte le code de langue principal.
			local tabLengoua = dataLengoua[ tabCode[1] ]
			if tabLengoua and tabLengoua.rtl then
				return 'rtl'
			end
		end
	end
	
	-- la langue n'est pas écrite de droite à gauche, donc ltr.
	return 'ltr'
end


local function getDataLengoua( frame )
	-- Obtenir le code de la langue 
	local codeLengoua = premierParametro( frame, true )
	-- Si le paramètre est incorrect, retourner un message d'erreur
	if type( codeLengoua ) ~= 'string' or codeLengoua == '' then
		return nil, '<span class="error">lengoua pas prècisâye</span>'
	end

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

	return tabLengoua
end

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

	-- Créer un lien pour la langue depuis le tableau
	if type( tabLengoua.page ) == 'string' then
		if tabLengoua.page ~= '' then
			return '[[' .. tabLengoua.page .. '|' .. tabLengoua.nom .. ']]'
		else
			return tabLengoua.nom
		end
	else
		return '[[' .. tabLengoua.nom .. ']]'
	end
end

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

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

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

	-- Extraire le titre de l'article depuis le tableau
	if type( tabLengoua.page ) == 'string' and tabLengoua.page ~= '' then
		return tabLengoua.page
	else
		return tabLengoua.nom
	end
end

-- Voir Modèle:Langue
-- Paramètres :
--    1 : code IETF de langue ;
--    texte ou 2 : texte dans cette langue ;
--    trans : translittération du texte ;
--    dir : direction de la langue (obsolète : peut être en paramètre 1, avec code en 2 et texte en 3).
function Lengoua.lengoua( frame )
	local args = ( frame.getParent and frame:getParent().args ) or frame or { }         -- préparation pour appel par modèle ou direct.
	local code = mw.ustring.lower( mw.text.trim( args[1] or '' ) )
	local texto = args.texto or ''
	if texto == '' then
		texto = args[2] or ''
	end
	local dir = args.dir
	local namespaceCategorisation = { [0] = true, [4] = true, [10] = true, [12] = true, [14] = true, [100] = true }
	local categorisacion = namespaceCategorisation[ mw.title.getCurrentTitle().namespace ] and not args.nocat
	
	-- Décalage des paramètres si code contient la direction du texte (obsolète mais toujours possible).
	if code == 'ltr' or code == 'rtl' then
		dir = code
		code = mw.ustring.lower( mw.text.trim( args[2] ) or '' )
		texto = args[3] or ''
	end
	local codeArg = code
	
	-- sortie immédiate s'il n'y a pas de texte
	if texto == '' then
		if categorisacion then
			return '<span class="error">fôta du modèlo [[modèlo:Lengoua|{{lengoua}}]] : tèxto absent</span>[[Catègorie:Pâge qu’emplèye un modèlo avouéc na sintaxa fôssa|Lengoua]]'
		else
			return ''
		end
	end
	
	-- récursion si texte contient des blocs
	if texto:match('\n *\n') or texto:match('\n[*#:]') then
		-- les parenthèses permettent d'éliminer la seconde valeur retournée par gsub (nombre de remplacement)
		return ( texto:gsub( 
		 	'(\n?[*#:]?%s*)([^\n]+)', 
		 	function ( init, legne ) 
		 		return init .. Lengoua.lengoua{ code, legne }
		 	end
		 ) )
	end
	
	-- Si la langue est reconnue, la valeur de la table est prise en compte (permet de corriger les noms de langue en toutes lettres).
	local tabCode = Lengoua.determinacionCode( code )
	local tabLengoua
	if tabCode then
		code = table.concat( tabCode, '-' )
		tabLengoua = dataLengoua[ tabCode[1] ]
		
		local codeScript = tabCode[2]
		-- Si codeScript est bien un style d'écriture (len = 4) on applique sa direction
		if codeScript and  string.len( codeScript ) == 4 and dataLengoua[ 'rtl script' ] then
			-- formatage type Latn correspondant au fromat dans dataLangue[ 'rtl script' ]
			codeScript = string.upper( string.sub(  codeScript, 1, 1 ) ) .. string.sub(  codeScript, 2 )
			tabLengoua = { code = tabLengoua.code,
				rtl = dataLengoua[ 'rtl script' ][ codeScript ],
				envalido = tabLengoua.envalido
			}
		end
	end
		
	-- Prépatation du rendu de direction du texte.
	dir = dir and dir:lower()
	if dir ~= 'ltr' and dir ~= 'rtl' then
		dir = ( tabLengoua and tabLengoua.rtl and 'rtl' )
	end

	-- Compilation du texte à retourner.
	local html = mw.html.create( '' )
	if code == '' then
		html:wikitext( texto )
	else
		html:tag( 'span' )
				:addClass( 'lang-' .. code )
				:addClass( args.class )
				:attr{ lang = code, dir = dir }
				:wikitext( texto )
				:done()
		
		-- Translittération.
		if ( args.trans or '' ) ~= '' then
			local trans = args.trans:gsub( "^''([^'].*[^'])''$", "%1" )
			html:wikitext( " (''" )
				:tag( 'span' )
					:addClass( 'transcripcion lang-' .. code )
					:attr( 'lang', code .. '-Latn' )
					:attr( 'dir', 'ltr' )
					:wikitext( trans )
					:done()
				:wikitext( "'')" )
		end

	end

	-- Ajout de la catégorie Page avec code de langue invalide si le code langue non reconnu ou invalide.
	if success and ( type( tabLengoua ) ~= 'table' or tabCode.envalido ) then
		local fota = string.format( langErrorMess, codeArg )
		if codeArg == '' then
			fota = '<span class="error">lengoua pas prècisâye</span>'
		end
		html:wikitext( '[[Catègorie:Pâge avouéc code de lengoua envalido|Lengoua]] ' .. fota )
	end

	return tostring( html )
end

-- Alias nom de fonction
Lengoua.lang = Lengoua.lengoua


-- Voir Modèle:Indication de langue
-- Paramètres :
--    1 : nom de langue ;
--    2 : code IETF ;
--    texte : texte dans cette langue ;
--    dir : direction de la langue.
function Lengoua.endicacionDeLengoua( frame )
	local args = ( frame.getParent and frame:getParent().args ) or frame
	local nomLengoua = mw.text.trim( args[1] or '' )
	local code = mw.text.trim( args[2] or '' )
	local texto = args.texto
	local dir = args.dir
	local wikiText = ''
	-- Cas où le premier et/ou le deuxième paramètre est vide.
	if code == '' and nomLengoua == '' then
		return texto
	elseif nomLengoua == '' then
		nomLengoua = dataLengoua[ mw.ustring.lower( code ) ]
		nomLengoua = (nomLengoua and nomLengoua.nom or '???')
	elseif code == '' then
		code = dataLengoua[ nomLengoua ]
		code = ( code and code.code or '' )
		if code == '' then
			return texto
		end
	end
	-- Gestion du texte.
	if texto and texto ~= '' then
		texto = '\194\160' .. Lengoua.lang{ code, dir = dir, texto = texto }
	else
		texto = ''
	end
	-- Compilation de l'indicateur de langue et du texte.
	local html = mw.html.create()
	html:tag( 'abbr' )
			:addClass( 'abbr' )
			:addClass( 'endiquior-lengoua' )
			:attr( 'title', 'Lengoua : ' .. nomLengoua )
			:wikitext( '(' .. code .. ')' )
			:done()
		:wikitext( texto )
	
	return tostring( html )
end

-- Voir Modèle:Mul
-- Paramètres : codes IETF ou noms de langue, en nombre indéfini (string ou nil uniquement).
function Lengoua.endicacionMultilengoua( frame )
	local args = (frame.getParent and frame:getParent().args) or frame
	local listaNom = { }
	local listaCode = { }
	local tabLengoua
	-- Valeur par défaut du premier paramètre = 'mul'.
	local code = mw.text.trim( args[1] or '' )
	if code == '' then
		code = 'mul'
	end
	
	if not args[2] and not dataLengoua[ mw.ustring.lower( code ) ] then
		local split = mw.text.split( code, '[+,;:/ .]+' )
		if #split > 1 then 
			return Lengoua.endicacionMultilengoua( split )
		end
	end
	-- Ajout des noms et codes de langue de chaque paramètre dans listeNom et ListeCode.
	local i = 1
	repeat
		code = mw.ustring.lower( code )
		local tabLengoua = dataLengoua[ code ]
		if not tabLengoua then
			code = mw.text.split( code, '-' )[1]
			tabLengoua = dataLengoua[ code ]
		end
		if type( tabLengoua ) == 'table' then
			table.insert( listaNom, tabLengoua.nom )
			table.insert( listaCode, tabLengoua.code )
		else
			table.insert( listaNom, '???' )
			local fota = string.format( langErrorMess, code )
			table.insert( listaCode, fota )
		end
		i = i + 1
		code = mw.text.trim( args[i] or '' )
	until code == ''
	
	-- Préparation et renvoi du texte.
	local n = #listaCode
	if n == 0 then
		return ''
	end
	local mouel = ( n > 1 )
	
	local html = mw.html.create( 'abbr' )
		:addClass( 'abbr' )
		:addClass( 'endiquior-lengoua' )
		:attr( 'title', 'Lengoua' .. ( mouel and 's' or '' ) .. ' : ' .. mw.text.listToText( listaNom ) )
		:wikitext( '(' .. table.concat( listaCode, '\194\160+\194\160' ) .. ')' )
	
	return tostring( html )
end


-- Voir Modèle:Langue avec nom
-- Paramètres :
--    1 : code IETF de langue ;
--    texte ou 2 : texte dans cette langue ;
--    trans : translittération du texte ;
--    dir : direction de la langue.
function Lengoua.lengouaAvouecNom( frame )
	local args = ( frame.getParent and frame:getParent().args ) or frame
	local code = mw.ustring.lower( mw.text.trim( args [1] or '') )
	local texto = args.texto or args[2] or ''
	local trans = args.trans
	local dir = args.dir
	local wikiText = ''

	-- Détection de la direction du texte.
	if code == 'ltr' or code == 'rtl' then
		dir = code
		code = mw.ustring.lower( mw.text.trim( args[2] ) )
		texte = args[3] or ''
	end

	-- Définition du nom de la langue en français.
	local nom = Lengoua.limLengoua{ code }

	if texto ~= '' then
		texto = '\194\160' .. Lengoua.lang{ code, dir = dir, texto = texto, trans = trans }
	end

	wikiText = nom .. ' :' .. texto

	return wikiText
end

---
-- latinOnly détermine si la chaine fournie contient uniquement des caractères latin (étendu, unicode < 880)
function Lengoua.pasLatin( frame )
	local texto = premierParametro( frame )
	for codepoint in mw.ustring.gcodepoint( texto ) do
		if codepoint > 879 and not (                  --  > 036F
			codepoint > 7423 and codepoint < 7936 or  -- suppléments phonétique, diacritiques et latin  (1D00 à 1EFF)
			codepoint > 8191 and codepoint < 11392 or -- espace, indices, monaies et symboles divers (2000 à 2C7F)
			codepoint > 42783 and codepoint < 43008   -- latin étendu D  (A720 à A7FF)
		) then
			return true
		end
	end
	return false
end

-- erreurModuleData affiche un message d'erreur si le Module:Langue/Data n'a pas été chargé correctement,
-- pour la page de discussion de la base de données et ceux qui veulent surveiller cette page.
function Lengoua.fotaModuloData()
	if type( dataLengoua ) ~= 'table'  then
		local messajo = [[<strong class="error">Lo chargement du modulo Lengoua/Data fât na fôta : </strong> <br>%s <br>

<span class="error">Cela fôta dêt étre corregiêe u més vito, des milyérs de pâges sè montront pas coment fôt.</span>
]]
		return string.format( messajo, resultat )
	end
end

-- tableauLangues génère un tableau triable de la liste des langues disponible dans Module:langue/Data.
function Lengoua.grelyeLengoues()
	local grelye = { }
	local enteta = [[{| class="wikitable alternance sortable"
|-
!scope=col|Aliâs
!scope=col|Code IETF
!scope=col|Nom principâl
!scope=col|Titro de l’articllo<br>(se difèrent du nom)
!scope=col|Lim de vers l’articllo
!scope=col|RTL
!scope=col|Envalido]]

	local legneTab, legneSrt
	for k, v in pairs( dataLengoua ) do
		if v.code then
			legneTab = {
				k,
				v.code,
				v.nom,
				v.page or '',
				Lengoua.limLengoua(v.code),
				v.rtl and '[[Fichiér:Yes check.svg|15px|ouè|lim=]]' or '',
				v.envalido and '[[Fichiér:Yes check.svg|15px|ouè|lim=]]' or '',
			}
			legneSrt = table.concat( legneTab, '\n|' )
			table.insert( grelye, legneSrt )
		end
	end
	table.sort( grelye )
	table.insert( grelye, 1, enteta )
	table.insert( grelye, '}' )
	
	return table.concat( grelye, '\n|-\n|' )
end

-- listeCodeAlias génère une liste ; les langues sont de la forme : * code : alias1, alias2
function Lengoua.listaCodeAlias()
	local lengouesTab, listaCodesAlias = { }, { }
	local code, alias, codeAlias
	for k, v in pairs( dataLengoua ) do
		-- on construit un table avec pour indices les codes de langue, et pour valeurs une table avec la liste des alias
		code = v.code
		if code and not v.envalido then
			lengouesTab[code] = lengouesTab[code] or { }
			if k ~= mw.ustring.lower( code ) then
				table.insert( lengouesTab[code], k )
			end
		end
	end
	for k, v in pairs( lengouesTab ) do
		-- transformation en un table séquence, avec pour valeur une chaine correspondant à une ligne de la liste
		alias = table.concat( v, ', ' )
		if alias == '' then
			codeAlias = '* <code>' .. k .. '</code>'
		else
			codeAlias = '* <code>' .. k .. '</code> : ' .. alias
		end
		table.insert( listaCodesAlias, codeAlias )
	end
	table.sort( listaCodesAlias )
	
	return table.concat( listaCodesAlias, '\n' )
end

-- listeAliasCode génère une liste ; les langues sont de la forme :  * alias : code
function Lengoua.listaAliasCode()
	local lengouesTab = { }
	local code
	for k, v in pairs( dataLengoua ) do
		-- on construit un table avec pour indices les codes de langue, et pour valeurs une table avec la liste des alias
		code = v.code
		if code and k ~= code and not v.envalido then
			table.insert( lengouesTab, '* ' .. k .. ' = ' .. code )
		end
	end
	table.sort( lengouesTab )
	
	return table.concat( lengouesTab, '\n' )
end

return Lengoua