imported>Nardog at 07:22, 16 January 2022

2022-01-16T07:22:37Z

New page

local p = {}

function p._encoding(s, ipaNum, xSampa, tipa, praat, keyman, braille)
local data = mw.loadData('Module:Sandbox/Nardog/10d')
local conv = require('Module:BaseConvert').convert
-- Decode HTML entities and strip dotted circle
s = mw.ustring.gsub(mw.text.decode(s), '◌', '')
local hex, dec = {}, {}
-- Initialize tables unless manually input
local newIpaNum = not ipaNum and {}
local newXSampa = not xSampa and {}
local newTipa = not tipa and {}
local newPraat = not praat and {}
local newKeyman = not keyman and {}
local newBraille = not braille and {}
local xSampaVars -- Tracks X-SAMPA variants
local keymanVars -- Tracks Keyman variants
local tipaTies -- Tracks tie bars for TIPA
for char in mw.ustring.gmatch(s, '.') do
table.insert(dec, mw.ustring.codepoint(char))
table.insert(hex, conv{ n = dec[#dec], base = 16, width = 4 })
-- Skip others if all are manually input or have reached a dead end
if newIpaNum or newXSampa or newTipa or newPraat or newKeyman or newBraille then
local t = data[char]
if t then -- Table found in data
if newIpaNum then
if t.ipaNum then
table.insert(newIpaNum, t.ipaNum)
else
newIpaNum = nil
end
end
if newXSampa then
if t.xSampa then
-- Check for variants
if type(t.xSampa) == 'table' then
-- Use the 1st variant for now
table.insert(newXSampa, t.xSampa[1])
-- Record the position, using char as the table key
xSampaVars = xSampaVars or {}
xSampaVars[char] = xSampaVars[char] or {}
table.insert(xSampaVars[char], #newXSampa)
else
table.insert(newXSampa, t.xSampa)
end
else
newXSampa = nil
end
end
if newTipa then
if t.tipa then
-- If the last entry ends in a bare macro and the new
-- entry beginds in a Latin character, insert a space
local sp = newTipa[1]
and newTipa[#newTipa]:find('\\[%u%l]+$')
and t.tipa:find('^[%u%l]') and ' ' or ''
table.insert(newTipa, sp .. t.tipa)
elseif t.tipaDia then -- Diacritic
local td = '\\' .. t.tipaDia
if newTipa[1] then
-- Remove the space inserted between a macro and a
-- Latin character
local tl = newTipa[#newTipa]:gsub('^ ', '')
-- Add brackets if the base letter is a macro (e.g.
-- \r*{\*r}), a space if the diacritic ends and the
-- base letter begins in a Latin character (\r N),
-- and nothing otherwise (\r*m)
newTipa[#newTipa] =
tl:find('^\\') and td .. '{' .. tl .. '}'
or td:find('[%u%l]$') and tl:find('^[%u%l]')
and td .. ' ' .. tl or td .. tl
else
-- This is the 1st char, just add empty brackets
table.insert(newTipa, td .. '{}')
end
elseif char == '͡' then
-- Record the position
tipaTies = tipaTies or {}
table.insert(tipaTies, #newTipa)
else
newTipa = nil
end
end
if newPraat then
if t.praat then
table.insert(newPraat, t.praat)
else
newPraat = nil
end
end
if newKeyman then
if t.keyman then
-- Check for variants
if type(t.keyman) == 'table' then
-- Use the 1st variant for now
table.insert(newKeyman, t.keyman[1])
-- Record the position, using char as the table key
keymanVars = keymanVars or {}
keymanVars[char] = keymanVars[char] or {}
table.insert(keymanVars[char], #newKeyman)
else
table.insert(newKeyman, t.keyman)
end
else
newKeyman = nil
end
end
if newBraille then
if t.braille then
for _, v in ipairs(t.braille) do
table.insert(newBraille, v)
end
else
newBraille = nil
end
end
else
-- No table for this char, abort looking in data for the rest of
-- the string
newIpaNum, newXSampa, newTipa, newPraat, newKeyman, newBraille =
nil, nil, nil, nil, nil, nil
end
end
end
ipaNum =
ipaNum or newIpaNum and newIpaNum[1] and table.concat(newIpaNum, ' ')
if not xSampa and newXSampa and newXSampa[1] then
-- Check for variants
if xSampaVars then
local newXSampas = { newXSampa }
-- Go through each char with variants
for char, _ in pairs(xSampaVars) do
local newXSampas2 = {}
-- Go through each variant
for i, variant in ipairs(data[char].xSampa) do
if i ~= 1 then -- Skip the 1st, already used
-- Go through each string (stored as a table)
for _, t in ipairs(newXSampas) do
local t2 = mw.clone(t)
-- Go through each position of variant to replace
for _, pos in ipairs(xSampaVars[char]) do
t2[pos] = variant
end
table.insert(newXSampas2, t2)
end
end
end
for _, t in ipairs(newXSampas2) do
table.insert(newXSampas, t)
end
end
xSampa = {}
for _, v in ipairs(newXSampas) do
table.insert(xSampa, table.concat(v))
end
xSampa = mw.text.listToText(xSampa, '</code>, <code>',
'</code> or <code>')
else
xSampa = table.concat(newXSampa)
end
end
if tipaTies then
for _, pos in ipairs(tipaTies) do
-- Wrap two letters in "\t{...}"
newTipa[pos] = '\\t{' .. newTipa[pos]
newTipa[pos + 1] = newTipa[pos + 1] .. '}'
end
end
tipa = tipa or newTipa and newTipa[1] and table.concat(newTipa)
praat = praat or newPraat and newPraat[1] and table.concat(newPraat)
if not keyman and newKeyman and newKeyman[1] then
-- Check for variants
if keymanVars then
local newKeymans = { newKeyman }
-- Go through each char with variants
for char, _ in pairs(keymanVars) do
local newKeymans2 = {}
-- Go through each variant
for i, variant in ipairs(data[char].keyman) do
if i ~= 1 then -- Skip the 1st, already used
-- Go through each string (stored as a table)
for _, t in ipairs(newKeymans) do
local t2 = mw.clone(t)
-- Go through each position of variant to replace
for _, pos in ipairs(keymanVars[char]) do
t2[pos] = variant
end
table.insert(newKeymans2, t2)
end
end
end
for _, t in ipairs(newKeymans2) do
table.insert(newKeymans, t)
end
end
keyman = {}
for _, v in ipairs(newKeymans) do
table.insert(keyman, mw.text.nowiki(table.concat(v)))
end
keyman = mw.text.listToText(keyman, '</code>, <code>',
'</code> or <code>')
else
keyman = mw.text.nowiki(table.concat(newKeyman))
end
end
braille = braille and mw.text.split(braille, ',')
or newBraille and newBraille[1] and newBraille

s = mw.html.create()
local function makeRow(label, data)
s:tag('tr')
:tag('th'):attr('scope', 'row'):wikitext(label):done()
:tag('td'):wikitext(data)
end
makeRow('[[Unicode]] (hex)', 'U+' .. table.concat(hex, ' U+'))
makeRow('Unicode (decimal)', table.concat(dec, ' '))
if ipaNum and ipaNum ~= 'hide' then
makeRow('[[IPA Number]]', ipaNum)
end
if xSampa and xSampa ~= 'hide' then
makeRow('[[X-SAMPA]]', '<code>' .. xSampa .. '</code>')
end
if tipa and tipa ~= 'hide' then
makeRow('[[TIPA (software)|TIPA]]', '<code>' .. tipa .. '</code>')
end
if praat and praat ~= 'hide' then
makeRow('[[Praat]]', '<code>' .. praat .. '</code>')
end
if keyman and keyman ~= 'hide' then
makeRow('Keyman', '<kbd>' .. keyman .. '</kbd>')
end
if braille and braille[1] ~= 'hide' then
braille.type = 6
braille.size = '25px'
braille = mw.getCurrentFrame():expandTemplate{
title = 'Template:Braille cell', args = braille
}
makeRow('[[IPA Braille]]', braille)
end
return s
end

function p.encoding(frame)
local args = {}
for k, v in pairs(frame.args) do
args[k] = v ~= '' and v
end
if not args[1] then return '' end
return p._encoding(args[1], args.ipa_number, args.xsampa, args.tipa,
args.praat, args.braille)
end

return p

Module:Sandbox/Nardog/10 - Revision history

imported>Nardog at 07:22, 16 January 2022