Module:In lang and Module:In lang/sandbox: Difference between pages

(Difference between pages)
Jump to navigation Jump to search
Page 1
Page 2
imported>Sdrqaz
imported>Trappist the monk
No edit summary
 
imported>Sdrqaz
m Removed protection from "Module:In lang/sandbox": No longer necessary: Requested at RfPP with one transclusion
 
Line 1: Line 1:
require('strict');
require('strict');


--[[--------------------------< _ I N _ L A N G >--------------------------------------------------------------
--[[--------------------------< _ I N _ L A N G >--------------------------------------------------------------
Line 16: Line 17:


local function _in_lang (args)
local function _in_lang (args)
    local yesno = require('Module:Yesno')
local synonym_table = mw.loadData ('Module:Lang/ISO 639 synonyms'); -- ISO 639-2/639-2T code translation to 639-1 code
local synonym_table = mw.loadData ('Module:Lang/ISO 639 synonyms'); -- ISO 639-2/639-2T code translation to 639-1 code
local list_cats = 'yes' == args['list-cats']; -- make a boolean
local list_cats = 'yes' == args['list-cats']; -- make a boolean
Line 25: Line 25:
if not args[1] then
if not args[1] then
local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided by the template)
local template = (args['template'] and table.concat ({'{{', args['template'], '}}: '})) or ''; -- make template name (if provided by the template)
return table.concat ({'<span style=\"color:#d33\">error: ', template, 'missing language tag</span>'});
return table.concat ({'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: ', template, 'missing language tag</span>'});
end
end


Line 34: Line 34:
local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization
local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization
local this_wiki_lang = mw.language.getContentLanguage().code; -- get this wiki's language code
local this_wiki_lang = mw.language.getContentLanguage().code; -- get this wiki's language code
local override_t = mw.loadData ('Module:Lang/data').override; -- this table holds IETF tag/name definitions known to Module:Lang


for i, lang in ipairs (args) do
for i, lang in ipairs (args) do
Line 40: Line 39:
local t = {code, ['link'] = args['link'], ['template'] = args['template']}; -- build an 'args' table
local t = {code, ['link'] = args['link'], ['template'] = args['template']}; -- build an 'args' table
lang = name_from_tag (t) -- get the language name
lang = name_from_tag (t) -- get the language name
table.insert (list, lang) -- add this language or error message to the list
table.insert (list, lang) -- add this language or error message to the list


if code:find ('%-') and not override_t[code] then -- except for the IETF tags listed in <override_t>
if 'ca-valencia' ~= code then -- except for valencian
code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant subtags so that they aren't used to make category names
code = code:match ('^%a%a%a?%f[^%a]'); -- strip off region, script, and variant tags so that they aren't used to make category names
end
end
if synonym_table[code] then -- if 639-2/639-2T code has a 639-1 synonym
if synonym_table[code] then -- if 639-2/639-2T code has a 639-1 synonym
if (0 == namespace) and not list_cats then -- when listing cats don't include this cat; TODO: right choice?
if (0 == namespace) and not list_cats then -- when listing cats don't include this cat; TODO: right choice?
Line 53: Line 50:
table.insert (maint_msgs, ' <span class="lang-comment" style="font-style:normal; display:none; color:#33aa33; margin-left:0.3em">')
table.insert (maint_msgs, ' <span class="lang-comment" style="font-style:normal; display:none; color:#33aa33; margin-left:0.3em">')
table.insert (maint_msgs, table.concat ({'code: ', code, ' promoted to code: ', synonym_table[code]}));
table.insert (maint_msgs, table.concat ({'code: ', code, ' promoted to code: ', synonym_table[code]}));
table.insert (maint_msgs, ';</span>');
table.insert (maint_msgs, '</span>;');
code = synonym_table[code]; -- use the synonym
code = synonym_table[code]; -- use the synonym
end
end


if (0 == namespace) or list_cats then -- when in article space
if (0 == namespace) or list_cats then -- when in article space
if lang:find ('[Ee]rror') then -- add error category (message provided by Module:Lang)
if lang:find ('error') then -- add error category (message provided by Module:Lang)
if not list_cats then -- don't include this cat when listing cats; TODO: right choice?
if not list_cats then -- don't include this cat when listin cats; TODO: right choice?
table.insert (cats, '[[Category:in lang template errors]]');
table.insert (cats, '[[Category:in lang template errors]]');
end
end
elseif this_wiki_lang ~= code:match ('^%a%a%a?') then -- categorize article only when code is not this wiki's language code or variants thereof
elseif this_wiki_lang ~= code then -- categorize article only when code is not this wiki's language code
if lang:match ('%[%[.-|.-%]%]') then -- wikilinked individual language name
if lang:match ('%[%[.-|.-%]%]') then -- wikilinked individual language name
lang = lang:match ('%[%[.-|(.-)%]%]');
lang = lang:match ('%[%[.-|(.-)%]%]');
Line 70: Line 67:


if lang:find ('languages') then -- add appropriate language-name category
if lang:find ('languages') then -- add appropriate language-name category
table.insert (cats, table.concat ({'[[Category:Articles with sources in ', lang, ' (', code, ')]]'}));
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-collective sources (', code, ')]]'}));
else
else
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-language sources (', code, ')]]'}));
table.insert (cats, table.concat ({'[[Category:Articles with ', lang, '-language sources (', code, ')]]'}));
Line 77: Line 74:
end
end
end
end
 
if list_cats then
if list_cats then
local cats = table.concat (cats, ', '):gsub ('[%[%]]', ''); -- make a string of categories and then strip wikilink markup
local cats = table.concat (cats, ', '):gsub ('[%[%]]', ''); -- make a string of categories and then strip wikilink markup
Line 83: Line 80:
end
end


    local capBoolean = yesno(args['cap']) or yesno(args['caps'])
local result = {'<span class="languageicon">('}; -- opening span and (
local result = {'<span class="languageicon">('}; -- opening span and (
table.insert (result, capBoolean and 'In ' or 'in ');         -- add capitalized or uncapitalized 'in'
table.insert (result, 'yes' == args['cap'] and 'In ' or 'in '); -- add capitalized or uncapitalized 'in'
table.insert (result, mw.text.listToText (list, ', ', (2 < #list) and ', and ' or ' and ' )); -- and concatenate the language list
table.insert (result, mw.text.listToText (list, ', ', (2 < #list) and ', and ' or ' and ' )); -- and concatenate the language list
 
table.insert (result, ')</span>'); -- add closing ) and closing span
table.insert (result, ')</span>'); -- add closing ) and closing span
table.insert (result, table.concat (maint_msgs) or '');         -- add maint messages, if any
table.insert (result, table.concat (maint_msgs) or '');           -- add maint messages, if any
table.insert (result, table.concat (cats)); -- add categories
table.insert (result, table.concat (cats)); -- add categories
return table.concat (result); -- make a big string and done
return table.concat (result); -- make a big string and done
Line 107: Line 104:
end
end


--[[--------------------------< N A T I V E _ N A M E _ L A N G >----------------------------------------------
experimental code; may not be retained
implements combined is_ietf_tag() and tag_from_name() in Module:Lang for various infoboxen that support a
|native_name_lang= parameter.
if {{{1}}} is a valid ietf language tag, returns that tag;
if {{{1}}} is a properly spelled (case agnostic) language name, returns the ietf language tag associated with that name
error messages else
entry point from an {{#invoke:Lang/utilities/sandbox|native_name_lang|<language name or tag>|template=<template name>}}
]]
local function native_name_lang (frame)
local lang_module = require ('Module:Lang/sandbox');
local getArgs = require ('Module:Arguments').getArgs;
local args = getArgs(frame);
if lang_module._is_ietf_tag (args[1]) then
return args[1]; -- if a tag, return the tag
else
return lang_module._tag_from_name (args); -- not a tag, attempt to get a tag from the args[1] input value; return tag or error message
end
end
--[[--------------------------< C A T _ T E S T >--------------------------------------------------------------
temporary test code to be deleted
support for {{Category articles containing non-English-language text}} that tests the language parameters provided
to that template against the category name.
{{#invoke:Lang/utilities/sandbox|cat_test}}
]]
local function cat_test (frame)
local lang_module = require ('Module:Lang');
local args = require ('Module:Arguments').getArgs (frame);
local err = false; -- boolean set true when an error is detected; one error message only
local cat_page_title = mw.title.getCurrentTitle().text; -- get the category title
local lang_name;
local index; -- positional parameter index
local lc_lang_name, lc_lang_name_col; -- individual and collective cat names are different
local lc_title;
for i, v in ipairs (args) do -- pairs because ipairs stops at nil value (empty positional parameter)
if 'number' == type (i) and args[i] then -- only positional parameters and only when they have a value
if lang_module._is_ietf_tag (v) then -- see if this thing 'v' is an ietf tag
local t = {v}; -- it is so make an args table for _name_from_tag()
lang_name = lang_module._name_from_tag (t); -- get the language name
else
lang_name = v; -- not a valid tag so presume it is a name
end
mw.logObject (lang_name, 'lang_name')
lc_lang_name = table.concat ({ -- build a string to match category name form for individual and macro languages
'containing ',
mw.ustring.lower (lang_name); -- to lowercase for comparisons
'-language',
});
mw.logObject (lc_lang_name, 'lc_lang_name')
lc_lang_name_col = table.concat ({ -- build a string to match category name form for collective languages
'the ',
mw.ustring.lower (lang_name); -- to lowercase for comparisons
' ', -- next word is languages which is included in the name retrieved from Module:lang
});
mw.logObject (lc_lang_name_col, 'lc_lang_name_col')
lc_title = mw.ustring.lower (cat_page_title);
if  not mw.ustring.find (lc_title, lc_lang_name, 1, true) and -- if lang name not found in cat title
not mw.ustring.find (lc_title, lc_lang_name_col, 1, true) then
err = true; -- set a flag
index = i; -- remember which positional param failed the test
break; -- abandon the search on first error
end
end
end
-- create error message and done
return err and table.concat ({
'<span style=\"font-size:100%; font-style:normal;\" class=\"error\">error: language: ',
lang_name, -- the thing that we think is the language name
' from {{{',
index, -- the positional parameter index: 1 in {{{1}}}
'}}} (',
args[index], -- the content of the positional parameter
') does not match category title.</span>[[Category:Lang and lang-xx template errors]]'
}) or nil;
end


--[[--------------------------< E X P O R T E D  F U N C T I O N S >------------------------------------------
--[[--------------------------< E X P O R T E D  F U N C T I O N S >------------------------------------------
Line 113: Line 203:
return {
return {
in_lang = in_lang, -- module entry from {{#invoke:}}
in_lang = in_lang, -- module entry from {{#invoke:}}
native_name_lang = native_name_lang, -- experimental code; may not be retained
_in_lang = _in_lang, -- module entry from another module


_in_lang = _in_lang, -- module entry from another module
cat_test = cat_test, -- temporary test code to be deleted
}
}
Retrieved from "http://70.231.62.181/index.php/Special:ComparePages"