Difference between revisions of "Module:Sandbox/Erutuon/random"

From blackwiki
Jump to navigation Jump to search
blackwiki>Erutuon
m (31 revisions imported)
 
(6 intermediate revisions by 2 users not shown)
Line 1: Line 1:
require("Module:No globals")
+
local p = {}
 +
 
 +
local Out_mt = {}
 +
Out_mt.__index = Out_mt
 +
 
 +
function Out_mt:add(...)
 +
for i = 1, select('#', ...) do
 +
self.i = self.i + 1
 +
self[self.i] = select(i, ...)
 +
end
 +
end
  
local p = {}
+
function Out_mt:__tostring()
 +
return table.concat(self)
 +
end
 +
 
 +
function Out()
 +
local o = setmetatable({}, Out_mt)
 +
o.i = 0
 +
return o
 +
end
  
 
function p.show(frame)
 
function p.show(frame)
local content = mw.title.new
+
local out = Out()
"Template:ISO 15924 script codes and related Unicode data"
+
:getContent()
+
local language_data = require 'Module:Language/data'
 +
local Wiktionary = {
 +
name_to_code = require 'Module:Language/Wiktionary name to code',
 +
code_to_name = require 'Module:Language/Wiktionary code to name',
 +
}
 
 
local Unicode_script_codes = {}
+
for code, data in require 'Module:TableTools'.sortedPairs(language_data.languages) do
local i = 0
+
if not Wiktionary.code_to_name[code] then
for script_code in content:gmatch("{{ISO 15924[^|]+|([^}]+)") do
+
out:add(code)
i = i + 1
+
local Wiktionary_code = data.name and Wiktionary.name_to_code[data.name]
Unicode_script_codes[i] = script_code
+
if Wiktionary_code then
 +
out:add(' → ', Wiktionary_code)
 +
local MediaWiki_name = mw.language.fetchLanguageName(Wiktionary_code, 'en')
 +
if MediaWiki_name ~= data.name then
 +
out:add(' (MediaWiki: ',
 +
MediaWiki_name ~= '' and MediaWiki_name or '<none>',
 +
', Wiktionary: ', data.name, ')')
 +
end
 +
end
 +
out:add('\n* ')
 +
elseif data.name and data.name == mw.language.fetchLanguageName(code, 'en') then
 +
out:add(code, ' (', data.name, ')')
 +
out:add('\n* ')
 +
end
 
end
 
end
 
 
return require "Module:dump"._dump(Unicode_script_codes)
+
return out
 
end
 
end
  
 
return p
 
return p

Latest revision as of 09:46, 27 September 2020

Test

  • Lua error in package.lua at line 80: module 'Module:Language/Wiktionary name to code' not found.



local p = {}

local Out_mt = {}
Out_mt.__index = Out_mt

function Out_mt:add(...)
	for i = 1, select('#', ...) do
		self.i = self.i + 1
		self[self.i] = select(i, ...)
	end
end

function Out_mt:__tostring()
	return table.concat(self)
end

function Out()
	local o = setmetatable({}, Out_mt)
	o.i = 0
	return o
end

function p.show(frame)
	local out = Out()
	
	local language_data = require 'Module:Language/data'
	local Wiktionary = {
		name_to_code = require 'Module:Language/Wiktionary name to code',
		code_to_name = require 'Module:Language/Wiktionary code to name',
	}
	
	for code, data in require 'Module:TableTools'.sortedPairs(language_data.languages) do
		if not Wiktionary.code_to_name[code] then
			out:add(code)
			local Wiktionary_code = data.name and Wiktionary.name_to_code[data.name]
			if Wiktionary_code then
				out:add(' &rarr; ', Wiktionary_code)
				local MediaWiki_name = mw.language.fetchLanguageName(Wiktionary_code, 'en')
				if MediaWiki_name ~= data.name then
					out:add(' (MediaWiki: ',
						MediaWiki_name ~= '' and MediaWiki_name or '<none>',
						', Wiktionary: ', data.name, ')')
				end
			end
			out:add('\n* ')
		elseif data.name and data.name == mw.language.fetchLanguageName(code, 'en') then
			out:add(code, ' (', data.name, ')')
			out:add('\n* ')
		end
	end
	
	return out
end

return p