local p = {}
local output_mt = {}
function output_mt:insert(str)
self.n = self.n + 1
self[self.n] = str
end
function output_mt:insert_format(...)
self:insert(string.format(...))
end
output_mt.join = table.concat
output_mt.__index = output_mt
local function Output()
return setmetatable({ n = 0 }, output_mt)
end
function p.show_modules()
local output = Output()
output:insert [[
Character name data modules,
organized by first three digits of codepoint in hexadecimal base]]
for i = -1, 0xF do
if i >= 0 then
output:insert_format('\n! %X', i)
else
output:insert '\n!'
end
end
output:insert '\n|-'
local prev = -1
local row
local found_module = false
for i = 0, 0x10F do
local first_two_digits = math.floor(i / 0x10)
if first_two_digits ~= prev then
if found_module then
output:insert(row:join())
end
found_module = false
row = Output{}
row:insert_format("\n|-\n! %02Xx", first_two_digits)
prev = first_two_digits
end
row:insert '\n| '
local name_module = ('Module:Unicode data/names/%03X'):format(i)
if mw.title.new(name_module).exists then
local first_cp = i * 0x1000
row:insert_format("U+%04X–
U+%04X",
name_module, first_cp, first_cp + 0xFFF)
found_module = true
end
end
output:insert "\n|}"
return output:join()
end
return p
|
