imported>Stibba0 at 22:18, 7 December 2018

2018-12-07T22:18:00Z

New page

-- Extracting names from names for GCI! :)
local dutchSeparation = {
"van",
"voor",
"aan",
"uit",
"onder",
"boven",
"in",
"de",
"den",
"der",
"te",
"ten",
"ter"
}
local chineseSeperation = {
"li",
"zhang",
"chen",
"zhao",
"wu",
"zhou",
"wang",
"ma",
"pan",
"gu",
"mao"
}
local arabicSeperation = {
"el",
"al",
"ash"
}
local spanishSeperation = {
"de"
}
local spanishLetters = {
"á",
"é",
"í",
"ó",
"ú",
"ü",
"ñ"
}
local suffix = {
"Sr",
"Jr",
"I",
"V",
"X"
}
local formats = {
{"nl", dutchSeparation},
{"zh", chineseSeperation},
{"en", {}},
{"ar", arabicSeperation},
{"es", spanishSeperation}
}

local divideWords = function(text)
wordTable = {}
for word in string.gmatch(text, "%S+") do
wordTable[#wordTable+1] = word
end
for i=1, #suffix do
if string.match(wordTable[#wordTable], suffix[i]) then
if #wordTable[#wordTable] < 4 then
wordTable[#wordTable] = nil
end
end
end
return wordTable
end

local identifyFormat = function(wordList, fullname)
local nameFormat = nil
for i=1, #formats do
for z=1, #formats[i][2] do
for x=1, #wordList do
if string.lower(wordList[x]) == formats[i][2][z] then
if string.lower(wordList[x]) == "de" then
for b=1, #spanishLetters do
if string.match(fullname, spanishLetters[b]) then
return {"es", x}
end
end
for b=1, #wordList do
if wordList[b][#wordList[b]] == 'e' or wordList[b][#wordList[b]] == 'a' or wordList[b][#wordList[b]] == 'o' or wordList[b][#wordList[b]] == 'i' then
return {"es", x}
end
end
return {"nl", x}
else
return {formats[i][1], x}
end
end
end
end
end
return {"std", nil}
end

local nameSeparation = function(wordList, lastCount)
local names = {
["first"]="",
["last"]=""
}
for i=1, #wordList do
if i < lastCount then
names["first"] = names["first"] .. " " .. wordList[i]
else
names["last"] = names["last"] .. " " .. wordList[i]
end
end
return names
end

local formatName = function(wordList, nameFormat, providedFormat)
local names = {
["first"]="",
["last"]=""
}
if not(providedFormat == "") then
nameFormat[1] = providedFormat
end

if nameFormat[1] == "nl" or nameFormat[1] == "ar" then
names = nameSeparation(wordList, nameFormat[2])
end

if nameFormat[1] == "zh" then
for i=1, #wordList do
if i == 1 then
names["last"] = wordList[i]
else
names["first"] = names["first"] .. " " .. wordList[i]
end
end
end

if nameFormat[1] == "es" then
if not( nameFormat[2] == nil) then
if nameFormat[2] > 2 then
for i=1, #wordList do
if i < (nameFormat[2]-1) then
names["first"] = names["first"] .. " " .. wordList[i]
else
names["last"] = names["last"] .. " " .. wordList[i]
end
end
elseif #wordList > 3 then
names = nameSeparation(wordList, nameFormat[2])
end
else
names = nameSeparation(wordList, #wordList)
end
end

if nameFormat[1] == "std" then
names = nameSeparation(wordList, #wordList)
end

return names
end

local returnNameString = function(names)
return "<b>Given</b> = " .. names["first"] .. " -- <b>Family</b> = " .. names["last"]
end

local p = {}

p.getNames = function(frame)
local fullname = frame.args.name
local provFormat = frame.args.format or ""
local wordList = divideWords(fullname)
local nameFormat = identifyFormat(wordList, fullname)
local names = formatName(wordList, nameFormat, provFormat)
local nameString = returnNameString(names)
return nameString
end

return p

Module:Sandbox/Stibba0/Names - Revision history

imported>Stibba0 at 22:18, 7 December 2018