Module:Wikt-lang

 require('strict')
 localm_data=mw.loadData("Module:Wikt-lang/data")
 locallangData=m_data.languagesorm_data

 localp={}

 localfunctionifNotEmpty(value)
 ifvalue==""then
 returnnil
 else
 returnvalue
 end
 end

 localfunctionmakeEntryName(word,languageCode)
 localdata=langData[languageCode]
 localugsub=mw.ustring.gsub
 word=tostring(word)
 ifword==nilthen
 error("The function makeEntryName requires a string argument")
 elseifword==""then
 return""
 else
 -- Remove bold and italics, so that words that contain bolding or emphasis can be linked without piping.
 word=word:gsub("\'\'\'","")
 word=word:gsub("\'\'","")
 ifdata==nilthen
 returnword
 else
 localreplacements=dataanddata["replacements"]
 ifreplacements==nilthen
 returnword
 else
 -- Decompose so that the diacritics of characters such
 -- as á can be removed in one go.
 -- No need to compose at the end, because the MediaWiki software
 -- will handle that.
 ifreplacements.decomposethen
 word=mw.ustring.toNFD(word)
 fori,frominipairs(replacements.from)do
 word=ugsub(
 word,
 from,
 replacements.toandreplacements.to[i]or"")
 end
 else
 forregex,replacementinpairs(replacements)do
 word=ugsub(word,regex,replacement)
 end
 end
 returnword
 end
 end
 end
 end

 localfunctionfixScriptCode(firstLetter,threeLetters)
 returnstring.upper(firstLetter)..string.lower(threeLetters)
 end

 localfunctiongetCodes(codes)
 locallanguageCode,scriptCode,invalidCode
 localerrorText
 ifcodes==nilorcodes==""then
 errorText='no language or script code provided'
 elseifcodes:find("^%a%a%a?$")orcodes:find("^%a%a%a?%-%a%a%a%a$")then
 -- A three- or two-letter lowercase sequence at beginning of first parameter
 languageCode=
 codes:find("^%a%a%a?")and(
 codes:match("^(%l%l%l?)")
 orcodes:match("^(%a%a%a?)")
 :gsub("(%a%a%a?)",string.lower,1)
 )
 -- One uppercase and three lowercase letters at the end of the first parameter
 scriptCode=
 codes:find("%a%a%a%a$")and(
 codes:match("(%u%l%l%l)$")
 orgsub(
 codes:match("(%a%a%a%a)$"),
 "(%a)(%a%a%a)",
 fixScriptCode,
 1
 )
 )
 elseifcodes:find("^%a%a%a?%-%a%a%a?$")
 orcodes:find("^%a%a%a%-%a%a%a%-%a%a%a$")then
 languageCode=codes

 -- Private-use subtag: x followed by one or more sequences of 1-8 lowercase
 -- letters separated by hyphens. This only allows for one sequence, as it is
 -- needed for proto-languages such as ine-x-proto (Proto-Indo-European).
 elseifcodes:find("^%a%a%a?%-x%-%a%a?%a?%a?%a?%a?%a?%a?$")then
 languageCode,scriptCode=
 codes:match("^(%a%a%a%-x%-%a%a?%a?%a?%a?%a?%a?%a?)%-?(.*)$")
 ifnotlanguageCodethen
 errorText='<code>'..codes..'</code> is not a valid language or script code.'
 elseifscriptCode~=""andnotscriptCode:find("%a%a%a%a")then
 errorText='<code>'..scriptCode..'</code> is not a valid script code.'
 else
 scriptCode=scriptCode:gsub(
 "(%a)(%a%a%a)",
 fixScriptCode,
 1
 )
 end
 elseifcodes:find("^%a%a%a?")then
 languageCode,invalidCode=codes:match("^(%a%a%a?)%-?(.*)")
 languageCode=string.lower(languageCode)
 errorText='<code>'..invalidCode..'</code> is not a valid script code.'
 elseifcodes:find("%-?%a%a%a%a$")then
 invalidCode,scriptCode=codes:match("(.*)%-?(%a%a%a%a)$")
 scriptCode=gsub(
 scriptCode,
 "(%a)(%a%a%a)",
 fixScriptCode
 )
 errorText='<code>'..invalidCode..'</code> is not a valid language code.'
 else
 errorText='<code>'..codes..'</code> is not a valid language or script code.'
 end
 iferrorTextthen
 errorText=' <span style="font-size: smaller">['..errorText..']</span>'
 else
 errorText=""
 end
 languageCode=m_data.redirects[languageCode]orlanguageCode
 returnlanguageCode,scriptCode,errorText
 end

 localfunctiontag(text,languageCode,script,italicize)
 localdata=langData[languageCode]
 -- Use Wikipedia code if it has been given: for instance,
 -- Proto-Indo-European has the Wiktionary code "ine-pro" but the Wikipedia
 -- code "ine-x-proto".
 languageCode=dataanddata.Wikipedia_codeorlanguageCode
 ifscriptandscript~=""then
 languageCode=languageCode.."-"..script
 end

 ifnottextthentext="[text?]"end

 localtextDirectionMarkers={"","",""}
 ifdataanddata["direction"]=="rtl"then
 textDirectionMarkers={' dir="rtl"','&rlm;','&lrm;'}
 end

 localout={textDirectionMarkers[2]}
 ifitalicizethen
 table.insert(out,"<i lang=\""..languageCode.."\""..textDirectionMarkers[1]..">"..text.."</i>")
 else
 table.insert(out,"<span lang=\""..languageCode.."\""..textDirectionMarkers[1]..">"..text.."</span>")
 end
 table.insert(out,textDirectionMarkers[3])

 returntable.concat(out)
 end

 localfunctionlinkToWiktionary(entry,linkText,languageCode)
 localdata=langData[languageCode]
 localname
 iflanguageCodethen
 ifdataanddata.namethen
 name=data.name
 else
 -- On other languages' wikis, use mw.getContentLanguage():getCode(),
 -- or replace 'en' with that wiki's language code.
 name=mw.language.fetchLanguageName(languageCode,'en')
 ifname==""then
 error("Name for the language code "..("%q"):format(languageCodeornil)
 .." could not be retrieved with mw.language.fetchLanguageName, "
 .."so it should be added to [[Module:Wikt-lang/data]]")
 end
 end
 ifentry:sub(1,1)=="*"then
 ifname~=""then
 entry="Reconstruction:"..name.."/"..entry:sub(2)
 else
 error("Language name is empty")
 end
 elseifdataanddata.type=="reconstructed"then
 mw.log("Reconstructed language without asterisk:",languageCode,name,entry)
 localframe=mw.getCurrentFrame()
 -- Track reconstructed entries with no asterisk by transcluding
 -- a nonexistent template. This technique is used in Wiktionary:
 -- see [[wikt:Module:debug]].
 -- [[Special:WhatLinksHere/tracking/wikt-lang/reconstructed with no asterisk]]
 pcall(frame.expandTemplate,frame,
 {title='tracking/wikt-lang/reconstructed with no asterisk'})
 ifname~=""then
 entry="Reconstruction:"..name.."/"..entry
 else
 error("Language name is empty")
 end
 elseifdataanddata.type=="appendix"then
 ifname~=""then
 entry="Appendix:"..name.."/"..entry
 else
 error("Language name is empty")
 end
 end
 ifentryandlinkTextthen
 return"[[wikt:"..entry.."#"..name.."|"..linkText.."]]"
 else
 error("linkToWiktionary needs a Wiktionary entry or link text, or both")
 end
 else
 return"[[wikt:"..entry.."|"..linkText.."]]"
 end
 end

 functionp.wiktlang(frame)
 localparent=frame:getParent()
 localargs=parent.args[1]andparent.argsorframe.args

 localcodes=args[1]andmw.text.trim(args[1])
 localword1=ifNotEmpty(args[2])
 localword2=ifNotEmpty(args[3])

 ifnotargs[2]or''==args[2]then
 return'<span style="color:#d33">[text?] Parameter 2 is required</span>';
 end

 locallanguageCode,scriptCode,errorText=getCodes(codes)

 localitalics=args.italicsorargs.iorargs.italic
 italics=not(italics=="n"oritalics=="-"oritalics=="no")

 localentry,linkText
 ifword2andword1then
 entry=makeEntryName(word1,languageCode)
 linkText=word2
 elseifword1then
 entry=makeEntryName(word1,languageCode)
 linkText=word1
 end

 localitalicize=italicsand(scriptCode=="Latn"orrequire("Module:Unicode data").is_Latin(linkText))

 localout
 iflanguageCodeandentryandlinkTextthen
 out=tag(linkToWiktionary(entry,linkText,languageCode),languageCode,scriptCode,italicize)
 elseifentryandlinkTextthen
 out=linkToWiktionary(entry,linkText)
 else
 out='<span style="font-size: smaller;">[text?]</span>'
 end

 ifoutanderrorTextthen
 returnout..errorText
 else
 returnerrorTextorerror("The function wiktlang generated nothing")
 end
 end

 returnp