Module:Sandbox/Erutuon: Difference between revisions

Revision as of 23:11, 3 December 2018

Latest revision as of 09:39, 16 September 2019

(3 intermediate revisions by 2 users not shown)

Line 1:

local p = {}

function p.show(frame)

local page = frame.args[1] or "User:Erutuon/Unicode/DerivedCoreProperties.txt"

local text = assert(mw.title.new(page):getContent())

local defaultIgnorable = text

:match("Derived Property: Default_Ignorable_Code_Point.-(%f[^\n]%x%x%x%x.-)%s*\n# Total code points")

local singles, ranges = {}, {}

for codePoint1, codePoint2 in defaultIgnorable:gmatch("%f[^\n%z](%x+)%.?%.?(%x*)") do

codePoint1, codePoint2 = tonumber(codePoint1, 16), tonumber(codePoint2, 16)

local lastRange = ranges[#ranges]

if lastRange and lastRange[2] == codePoint1 - 1 then

lastRange[2] = codePoint2 or codePoint1

else

if not codePoint2 then

singles[codePoint1] = true

endelse

table.insert(ranges, { codePoint1, codePoint2 })

end

end

end

local output_mttemplate = {}[[

local data = {}

data.defaultIgnorable = {

singles = {

...

},

ranges = {

...

},

}

return data

]]

local Array = require "Module:array"

local printedRanges = Array()

for _, prefixrange in ipairs(data.prefixesranges) do

local low, high, script_code = unpack(range)

printedRanges:insert(('\t\t{ 0x%05X, 0x%05X },'):format(low, high))

end

local printedSingles = Array()

for codepoint in require 'Module:TableTools'.sortedPairs(singles) do

printedSingles:insert(('\t\t[0x%05X] = true,'):format(codepoint))

end

local outputdata = Output()template

:gsub('%.%.%.', printedSingles:concat('\n'), 1)

:gsub('%.%.%.', printedRanges:concat('\n'), 1)

return data

end

local Unicode_data = require "Module:Unicode data/sandbox"

local fun = require "Module:fun"

local m_table = require "Module:TableTableTools"

local function errorf(level, ...)

Line 366 ⟶ 421:

mw.log("Invalid private-use subtag in", parsed_subtags:get_tag())

end

end

local output_mt = {}

function output_mt:insert(str)

self.n = self.n + 1

self[self.n] = str

end

-- also in [[Module:Unicode data/documentation functions]]

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(frame)

local output = Output()

for variant, data in m_table.sortedPairs(mw.loadData "Module:Language/data/iana variants") do

if data.prefixes[1] then

local tags = Output()

for _, prefix in ipairs(data.prefixes) do

tags:insert(prefix .. "-" .. variant)

end

output:insert(tags:join(", "))

end

end

return output:join("<br>")

end

Line 420 ⟶ 441:

return ("%s: %s"):format(key, value)

end,

require "Module:table"m_table.sortedPairs(

vals)),

", ")