Module:Sandbox/Erutuon/charinsert names: Difference between revisions

Revision as of 03:46, 2 February 2019

Revision as of 03:50, 2 February 2019

Line 1:

local p = {}

local function get_all_codepoints(str)

local codepoint_set = {}

for codepoint in mw.ustring.gcodepoint(menustr) do

if codepoint > 0x7F then

codepoint_set[codepoint] = true

end

end

local codepoint_list =return require "Module:table".keysToList(codepoint_set)

end

function p.show()

Line 7 ⟶ 17:

if not charinsert then return "Could not find charinsert" end

local codepoint_list = get_all_codepoints(charinsert)

-- Make charinsert object valid JSON.

charinsert = charinsert

:gsub("\\", "")

:gsub("'(.-)'", function (in_quotes)

return '"' .. in_quotes:gsub('"', '\\"') .. '"'

end)

if false then

return mw.getCurrentFrame():extensionTag{

name = "syntaxhighlight",

content = charinsert,

args = {

lang = "lua",

}

}

end

local charinsert_table = mw.text.jsonDecode(charinsert, mw.text.JSON_TRY_FIXING)

if not charinsert_table then return "charinsert object is not valid JSON" end

local codepoint_set = {}

for menu_name, menu in pairs(charinsert_table) do

for codepoint in mw.ustring.gcodepoint(menu) do

if codepoint > 0x7F then

codepoint_set[codepoint] = true

end

end

end

local codepoint_list = require "Module:table".keysToList(codepoint_set)

local Unicode = require "Module:Unicode data"

local words = {}

local JSON = {}

local len = 0

for i, codepoint in ipairs(codepoint_list) do

local name = Unicode.lookup_name(codepoint)

for word in name:gmatch("[^ ]+") do

words[word] = true

end

local key_and_value = '"' .. codepoint .. '":"' .. Unicode.lookup_name(codepoint) .. '"'

if len + #key_and_value > 80 then

Line 59 ⟶ 34:

table.insert(JSON, key_and_value)

end

local word_list = require "Module:table".keysToList(words)

table.sort(word_list)

mw.log(table.concat(word_list, ", "), #word_list)

return "{" .. table.concat(JSON, ",") .. "}"