Jump to content

Module:Wikt-lang/sandbox

    Add links
    From Wikipedia, the free encyclopedia
    require('strict')localm_data=mw.loadData("Module:Wikt-lang/data/sandbox")locallang_data=m_data.languagesorm_datalocalp={}localerror_msgs={internal={["get_clean_Wiktionary_page_name"]="The function get_clean_Wiktionary_page_name requires a page_name.",["language_code_missing"]="Name for the language code %q could not be retrieved. Add it to [[Module:Wikt-lang/data]].",["make_Wiktionary_link"]="The function make_Wiktionary_link needs a Wiktionary page name, display text and language code.",},["no_text"]="A Wiktionary entry is required.",["invalid_parameters"]='Invalid parameter: |%s=',}localcfg={template="Wikt-lang",valid_parameters={[1]=true,[2]=true,[3]=true,["italic"]=true,},error_msg='<span style="color: #d33;">Error: {{%s}}: %s</span>[[Category:%s]]',category="Wikt-lang template errors",namespace={appendix={name="Appendix:%s/%s",data_type="appendix",},reconstruction={name="Reconstruction:%s/%s",data_type="reconstructed",},},}--[[--------------------------< M A K E _ E R R O R >--------------------------------------------------Creates an error span with the supplied error message and attaches the error category.]]localfunctionmake_error(msg)returnstring.format(cfg.error_msg,cfg.template,msg,cfg.category)end--[[--------------------------< A D D _ N A M E S P A C E _ T O _ L I N K >--------------------------------------------------Returns the page_name with a prefix of a Wiktionary namespace, if relevant.Current namespaces that can be returned: "Appendix:" and "Reconstruction:".If not one of the above namespaces, returns the unalerted link_text.]]localfunctionadd_namespace_to_link(data,language_name,page_name)ifpage_name:sub(1,1)=="*"thenreturnstring.format(cfg.namespace.reconstruction.name,language_name,page_name:sub(2))endifdataanddata.typethenifdata.type==cfg.namespace.reconstruction.data_typethenreturnstring.format(cfg.namespace.reconstruction.name,language_name,page_name)elseifdata.type==cfg.namespace.appendix.data_typethenreturnstring.format(cfg.namespace.appendix.name,language_name,page_name)endend-- If for any reason this reaches here, return the unaltered page_name.returnpage_nameend--[[--------------------------< G E T _ L A N G U A G E _ N A M E >--------------------------------------------------Retrieves the language name.A langauge is first searched in Module:Wikt-lang/data and if found and has a language name set, returns it.That database is used to override the language names produced by Module:Lang/data.If no language is found or the language does not have a language name set, returns the language name from Module:Lang/data.]]localfunctionget_Wiktionary_language_name(data,language_name)ifdataanddata.Wiktionary_namethenreturndata.Wiktionary_nameendreturnlanguage_nameend--[[--------------------------< M A K E _ W I K T I O N A R Y _ L I N K >--------------------------------------------------Creates a Wiktionary link.A page_name, display_text and language_code are always needed. Error if they are missing.A language name can sometimes be nil if the private code is only listed at Module:Wikt-lang/data and not on Module:Lang/data.If a language name cannot be retrieved, an erorr is returned.]]localfunctionmake_Wiktionary_link(page_name,display_text,language_code,language_name)ifnotpage_nameandnotdisplay_textandnotlanguage_codethenreturnnil,make_error(error_msgs.internal.make_Wiktionary_link)endlocaldata=lang_data[language_code]language_name=get_Wiktionary_language_name(data,language_name)ifnotlanguage_namethenreturnmake_error(error_msgs.language_code_missing)endpage_name=add_namespace_to_link(data,language_name,page_name)locallink="[[wikt:%s#%s|%s]]"returnstring.format(link,page_name,language_name,display_text)end--[[--------------------------< R E P L A C E _ C H A R A C T E R S >--------------------------------------------------Replaces specific characters as defined in Module:Wikt-lang/data in a language's "replacement" value.]]localfunctionreplace_characters(data,text)localreplacements=dataanddata["replacements"]ifreplacements==nilthen-- No replacements needed; use text as is.returntextend-- 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.decomposethentext=mw.ustring.toNFD(text)fori,frominipairs(replacements.from)dotext=mw.ustring.gsub(text,from,replacements.toandreplacements.to[i]or"")endreturntextendforregex,replacementinpairs(replacements)dotext=mw.ustring.gsub(text,regex,replacement)endreturntextend--[[--------------------------< R E M O V E _ B O L D _ I T A L I C >--------------------------------------------------Removes bold and italics, so that words that contain bolding or emphasis can be linked without piping.]]localfunctionremove_bold_italic(text)ifnottextthenreturntextendtext=text:gsub("\'\'\'","")text=text:gsub("\'\'","")returntextend--[[--------------------------< G E T _ C L E A N _ W I K T I O N A R Y _ P A G E _ N A M E >--------------------------------------------------Returns a clean a Wiktionary page name by removing bold and italics, and by replacing specific characters as defined in Module:Wikt-lang/data.]]localfunctionget_clean_Wiktionary_page_name(page_name,language_code)page_name=tostring(page_name)ifpage_name==nilorpage_name==""thenreturnnil,make_error(error_msgs.internal.get_clean_Wiktionary_page_name)endpage_name=remove_bold_italic(page_name)localdata=lang_data[language_code]ifdata==nilthen-- No language specific data in module; use text as is.returnpage_nameendreturnreplace_characters(data,page_name)end--[[--------------------------< C H E C K _ F O R _ U N K N O W N _ P A R A M E T E R S >--------------------------------------------------Checks that all user-used parameters are valid.]]localfunctioncheck_for_unknown_parameters(args)forparam,_inpairs(args)doifnotcfg.valid_parameters[param]thenreturnmake_error(string.format(error_msgs.invalid_parameters,param))endendend--[[--------------------------< M A I N >--------------------------------------------------------------------Entry point for {{Wikt-lang}}.Parameters are received from the template's frame (parent frame).* |1= – language code* |2= – Wiktionary page name* |3= – display text* |italic= – "no" to disable]]functionp.main(frame)localgetArgs=require('Module:Arguments').getArgslocalargs=getArgs(frame)ifnotargs[2]then-- A Wiktionary page name is required.returnmake_error(error_msgs.no_text)endlocalerror_msg=check_for_unknown_parameters(args)iferror_msgthenreturnerror_msgend-- For the display text, use args[3] if supplied, if not, use the Wiktionary page name (args[2])args[2]=args[3]orargs[2]-- To allow the errors to be associated with this template.args.template=cfg.templateargs.error_category=cfg.category-- Handle the display text html tag.locallang=require("Module:Lang/sandbox")localresult=lang._wikt_lang(args)-- An error returned, stop here.iftype(result)=="string"andstring.find(result,"Error")thenreturnresultend--TODO: Do we need the result to return with a <span title=""> tag?localpage_name,error_msg=get_clean_Wiktionary_page_name(args[2],result.code)iferror_msgthenreturnerror_msgendlocallink,error_msg=make_Wiktionary_link(page_name,result.html,result.code,result.name)iferror_msgthenreturnerror_msgendreturnlink..result.language_categories..result.maintenanceendreturnp
    Retrieved from "https://en.wikipedia.org/w/index.php?title=Module:Wikt-lang/sandbox&oldid=1263381964"
    close